1.點擊-索引標籤>開發人員>程式碼>Visual Basic;如下圖;
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgucqgLsZaPax91JUeqjmHW_oZYv68PjnLIRUkZRW0RACIC4lNAnBm4-vJ4ZLZUY-YVZ2Zd7GzhRaQYPYW_UKHZNo13fXB1QqCBcBfpquHvCxofm00q6coJZ7KNnr_mzfhAW1i6WcDOC-sd/s1600/A01.png)
2.跳出Microsaft Visual Basi視窗,點擊-索引標籤>插入>模組;如下圖;
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgiOTy96tUazW-6u1lDVsZ9GTmmyE18hM_eoW1Smb-8lbgZayzwygjDvhO0pwaSa_6ez7ZAdFuwHs6LNBfBHEcpwvTlgYygp9sYAKP9um70uplSbIRZN8QMs_3116sLSQmdxaDotFFM-dHQ/s1600/A02.png)
3.在工作區中輸入
Sub 跨欄置中()
' 快速鍵: Ctrl+d
'
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
End Sub
如下圖:![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg-84cmowotjWpAJrgiuOuInzNbWBcpbfoU7dz97TORVymN893H5vchpFHEeGvSKbVUn2iEAu9sKJVm7LEdN9kB5dIDAj_I1gfwFHUfTBhcg5jZSVE_QSNANl0KUHTn5RLmAoZaNEsXqEXQ/s1600/A03.png)
.4. 點擊-索引標籤>檢視>Microsoft Excel 或索引標籤下的Excel 圖示 或 Alt+F11;如下圖;
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjKkMbYO-MMGBlSX-ztLDcuLWOvYHD_fYcpASyB2T8O1Mvw6hY3nw51aG9fsk1h-aWHONeLgKVYYAxCiS1FcamZBV4h0hQx1hI0xzAegmNk5O4EPuNQbAZOxQ1l0RBHv7H4CnS7OaO6OXrz/s1600/A04.png)
5.視窗跳至Excel -點擊-索引標籤>開發人員>程式碼>巨集;如下圖;
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiNNvOz-8WrKY-XvVJAwWwnagsrWuND8FYYrrFWke7xkwqIkeQsRHZKbE7c0RwP5sLCaFlA8FNT0yibvI1uWoPApEOekVBdOsUWGPl9T4w5A3h5pCXkVQRtVi_H3wJ8R-evaE6rvPZp4pDA/s1600/A05.png)
6.跳出巨集視窗,點擊選項;如下圖示:
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhE1NTh8i3_nyW6uzaLhaCq_NaW0dpLcqthXA-7YYLnGl7R9szmvU6Neweu04VQC2lA0F6qjGdh6Bpv0xGvWlO4wSL38G2d1p32hsxJel_j8wKxJ8yzfadllPT8rz2OWf-oFgFEQriXyz4m/s1600/A06.png)
7.輸入欲設定的快捷鍵,並按確定;如下圖:( 注意:不要與原Excel快捷鍵相衝突 )
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhxrHCrSiWJY8M3al1to5ANVqCslivf4qs1-Syd7n1_7k8aY6MuxiPH5JlfQSBDQgovpI0XAgBNusYQ72FcU3DxHl1XNJpoqvA6quzZBr1V1AoN1ZLfaTnIQitzUSfudezonIPC9VBCcgsO/s1600/A07.png)
8.視窗跳回巨集視窗,點擊執行;如下圖示:
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjH3Yz6kv4z79pPK4vagnK3tdX-ylgQAgRmQMaqpjQfnpeP5YWb2CzOisyxILBegod2BpYP_-qJQuK-BNMCmAYpJw62lCUiUwaYD4BJruMeTv3q3uHgmO4B_jgMVSgWaBmV_H2bCxDC70gp/s1600/A08.png)
9.框選合併範圍;按 Ctrl + d;如下圖示:
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh3TBofs6o4pva4qd4neZ8JQkgEiLVLGdmL2ItwSRndTnKd1OuDxQSRxU2pnI_frgegoPB65ezqcXtjWUsy_NLmUG_YFvCXE69ixbPO5-fy8DDLS-NDGK4G6NWhBvBUFCejFugKhmkUW2Ir/s1600/A09.png)
10.合併成功且置中;如下圖示:
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjitLbvJGGFCZdrNfa3N5W2BOAWbGPkLT6cXzxWvNYkB3Mzfcpsb4tMM-iorEKCLxm1DtkGw9LVEnxg_ZoKbZEGFVDEK7W4kSMZFYvDWzA5i5omstnN40PaWcWMGQe4y_Dae0O_Wi3EAPzO/s1600/A10.png)
11.新設置的快捷鍵並不會自動傳到每一個Excel檔案內,所以需另存新檔(樣板檔)。
參考:Excel 跨欄置中 有沒有快捷鍵呢?
12.可以跨欄置中,當然可以跨欄靠左與跨欄靠右
跨欄靠左 >>
Sub 跨欄靠左()
' 快速鍵: Ctrl+s
'
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
End Sub
跨欄靠右 >>
Sub 跨欄靠右()
' 快速鍵: Ctrl+s
'
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
End Sub
沒有留言:
張貼留言