在編寫VBA程序?qū)?shù)據(jù)進(jìn)行操作時(shí)，經(jīng)常需要引用單元格。在Excel中，為函數(shù)指定參數(shù)所在的單元格時(shí)，可以使用“參數(shù)”按鈕來進(jìn)行單元格的選擇。以下是學(xué)習(xí)啦小編為您帶來的關(guān)于快速實(shí)現(xiàn)Excel單元格選擇的方法，希望對您有所幫助。

　　快速實(shí)現(xiàn)Excel單元格選擇的方法

　　1、啟動Excel并打開工作表，打開Visual Basic編輯器，在工程資源管理器中鼠標(biāo)右擊，選擇關(guān)聯(lián)菜單中的“插入”|“用戶窗體”命令插入一個(gè)用戶窗體。在用戶窗體中添加一個(gè)“標(biāo)簽”控件和兩個(gè)“命令按鈕”控件，將兩個(gè)按鈕控件的"Caption"屬性分別設(shè)置為“確定”和“取消”，將窗體控件的"Caption"屬性設(shè)置為“設(shè)置邊框樣式”，將“標(biāo)簽”控件的"Caption"屬性設(shè)置為“指定需要設(shè)置的單元格”，如圖1所示。

　　圖1　設(shè)置控件的

　　2、在“工具箱”對話框中鼠標(biāo)右擊，選擇關(guān)聯(lián)菜單中的“附加控件”命令打開“附加控件”對話框，在“可用控件”列表中勾選"RefEdit Ctrl"復(fù)選框，如圖2所示。單擊“確定”按鈕將其添加到“工具箱”對話框中，在“工具箱”對話框中選擇該控件，在窗體中繪制控件，如圖3所示。

　　圖2　勾選

　　圖3　向窗體中添加控件

　　3、雙擊“確定”按鈕，為該按鈕添加Click事件代碼，具體的程序代碼如下所示：

　　Private Sub CommandButton1_Click()

　　Dim rng As Range '聲明一個(gè)對象變量

　　Set rng=Range(RefEdit1.Value) '將選擇單元格對象賦予變量

　　With rng.Borders

　　.LineStyle=xlContinuous '設(shè)置邊框線樣式

　　.Weight=xlThin '設(shè)置線寬

　　.ColorIndex=5 '設(shè)置邊框線顏色

　　End With

　　rng.BorderAround xlContinuous,xlMedium,5 '向單元格區(qū)域添加邊框

　　Set rng=Nothing '清除對象

　　End Sub

　　4、雙擊“取消”按鈕，為該按鈕添加Click事件代碼，具體程序代碼如下所示：

　　Private Sub CommandButton2_Click()

　　Unload Me

　　End Sub

　　5、按F5鍵運(yùn)行程序，單擊"RefEdit"控件上的按鈕

　　恢復(fù)用戶窗體，選擇單元格區(qū)域地址在控件中顯示。單擊“確定”按鈕，選定單元格被添加了邊框線，如圖4所示。單擊“取消”按鈕將關(guān)閉對話框。

　　圖4　單擊“確定”按鈕為選擇單元格添加邊框線

猜你喜歡：

1.在Excel2010中如何快速生成有規(guī)則的序列

2.excel表格怎么換行 excel單元格換行的方法

3.Excel中進(jìn)行快速設(shè)置行寬的操作技巧

4.excel2013如何快速選中復(fù)制篩選出來的數(shù)據(jù)

5.Excel表格中怎么快速填充輸入漂亮的條紋