vba中 union方法如何使用

方法/步驟

 

1.  

   電腦上面打開Excel表格，點擊【開發工具】，【Visual Basic】打開VBA編輯器，也可以使用【Alt+F11】組合鍵打開VBA編輯器。

   
2.  

   在VBA編輯器上面點擊【插入】，【模塊】插入新的程序模塊，也可以使用【Alt+I+M】組合鍵插入新的程序模塊。

   
3.  

   在代碼窗口里面輸入以下簡單的代碼，然后按下【F5】鍵運行程序。

   Sub MyUnion()

    

   '將Sheet1工作表定義為mysheet1

   Set mysheet1 = ThisWorkbook.Worksheets("Sheet1")

    

   '單元格區域A2:C3，B5:D8的填充顏色為紫色

   Union(mysheet1.Range("A2:C3"), mysheet1.Range("B5:D8")).Interior.Color = RGB(255, 0, 255)

    

   End Sub

   
4.  

   程序運行完成后，在Sheet1工作表界面上將會看到A2:C3，B5:D8的單元格區域被填充成紫色。

   
5.  

   以上（第③步）的程序代碼也可以寫成如下的程序，然后按下【F5】鍵運行程序，將會得到一樣的結果。

   Sub MyUnion()

    

   '將Sheet1工作表定義為mysheet1

   Set mysheet1 = ThisWorkbook.Worksheets("Sheet1")

    

   '單元格區域A2:C3的填充顏色為紫色

   mysheet1.Range("A2:C3").Interior.Color = RGB(255, 0, 255)

    

   '單元格區域B5:D8的填充顏色為紫色

   mysheet1.Range("B5:D8").Interior.Color = RGB(255, 0, 255)

    

   End Sub

   

   
6.  

   在使用“union”時，其最多只能對30個區域進行合並操作，即：union(區域1,區域2,區域3,……區域29,區域30)，否則將會出現“編譯錯誤”的提示。

   
7.  

   通過一個簡單的例子進行對比，也能夠加深對“union”的理解。在編寫VBA程序代碼時，可以根據實際需要選擇合適的關鍵詞和程序代碼，遇到不易於理解的關鍵詞可以通過幫助文件獲取相關的幫助信息。

   

8.