位置:首頁(yè) > 軟件操作教程 > 辦公軟件 > Excel > 問(wèn)題詳情

如何快速實(shí)現(xiàn)單元格選擇?

提問(wèn)人:周麗平發(fā)布時(shí)間:2021-08-23

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

image.png

圖1 設(shè)置控件的

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

image.png

圖2 勾選

image.png

圖3 向窗體中添加控件

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

Private Sub CommandButton1_Click()

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

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

With rng.Borders

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

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

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

End With

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

Set rng=Nothing '清除對(duì)象

End Sub

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

Private Sub CommandButton2_Click()

Unload Me

End Sub

5、按F5鍵運(yùn)行程序,單擊"RefEdit"控件上的按鈕快速實(shí)現(xiàn)單元格選擇的方法恢復(fù)用戶(hù)窗體,選擇單元格區(qū)域地址在控件中顯示。單擊“確定”按鈕,選定單元格被添加了邊框線,如圖4所示。單擊“取消”按鈕將關(guān)閉對(duì)話框。

image.png

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

繼續(xù)查找其他問(wèn)題的答案?

回復(fù)(0)
返回頂部