控制項選中單元格變色（在窗體中選擇單元格）

2023-04-13 14:11:17 2

【分享成果，隨喜正能量】想要升職加薪，在小地方，更多依靠的是關係，在大地方，依靠的更多是個人努力。只有不斷的體驗新東西，只有不斷的受刺激，你才會變得更加厲害，體驗過了山珍海味的味道，你再也不想吃粗茶淡飯了，體驗過更好的生活，你再也不想過平庸的日子了。

《VBA之EXCEL應用》是非常經典的，是我推出的第七套教程，定位於初級。這套教程從簡單的錄製宏開始講解，一直到窗體的搭建，內容豐富，實例眾多。大家可以非常容易的掌握相關的知識，這套教程共三冊，十七章，都是我們在利用EXCEL工作過程中需要掌握的知識點，希望大家能掌握利用。今日講解的內容是「VBA之EXCEL應用」的第十七章 「用戶窗體（Userform）的實例應用」的第4節：在窗體中選擇單元格，讓最小值變色

我們繼續上節內容的講解，在上一節中我們已經搭建好了窗體及完成了各個控制項的屬性設置，我們這講就進行代碼的講解及運行效果的演示。

我們看下面的代碼：

1）確定按鈕的代碼：

[代碼見教程]

2）命令按鈕「退出」的代碼

Private Sub CommandButton2_Click

Sheet2.Cells.Font.Color = vbBlack

Unload Me

End Sub

3）窗體的加載事件代碼

Private Sub UserForm_Initialize

Sheet2.Cells.Font.Color = vbBlack

UserForm2.RefEdit1.Text = Selection.Address

End Sub

代碼截圖：

1） Sheet2.Cells.Font.Color = vbBlack 在窗體加載的時候，令整個工作表的字體顏色為正常

2） UserForm2.RefEdit1.Text = Selection.Address在窗體加載的時候，令窗體的RefEdit1.Text為當前工作表的選擇區域。

3）addr = RefEdit1.Value 令變量等於RefEdit1控制項的值

4）Set rng = Range(addr)

rng.Select

令一個對象變量等於單元格的區域，並令這個區域為當前選擇區域。

5）minimum = WorksheetFunction.Min(rng) 取得工作表中單元格區域的最小值

6） For Each cell In rng

If cell.Value = minimum Then cell.Font.Color = vbRed

Next cell

在當前區域中建立一個遍歷循環，如果這個單元格的值等於這個最小值，那麼就將這個單元格的字體顏色設置為紅色。

1）我們點擊「最小值顯示紅色」的按鈕：

2）點擊後會顯示我們建立的窗口，如下：

此時RefEdit控制項中的值就是工作表中的當前選擇區域。

3）我們點擊RefEdit控制項右下角的橫線:

4) 這個時候我們就可以在工作表中選擇單元格區域了，選擇好後，我們再次點擊RefEdit控制項右下角的標識，如下圖：

5）返回窗口後，我們點擊確定按鈕：

6) 這個時候，工作中的當前選擇區域的最小值就變成了紅色：

上面的截圖中，含有2的單元格字體變成紅色。

今日內容回向：

1） 窗體的加載事件實現了哪些工作？

2） 對象變量賦值為單元格區域，用的是什麼命令？

本講內容參考程序文件：工作簿17.xlsm

【分享成果，隨喜正能量】能有錢解決的問題，就不要動用人情關係，人情債也是債，也是需要還的，甚至可能付出更多。別人給的都是忠告，自己經歷過的才是經驗。有些事情，還是要事必躬親的，這樣你才能夠真正學到東西，真正長記性