【分享成果，随喜正能量】想要升职加薪，在小地方，更多依靠的是关系，在大地方，依靠的更多是个人努力。只有不断的体验新东西，只有不断的受刺激，你才会变得更加厉害，体验过了山珍海味的味道，你再也不想吃粗茶淡饭了，体验过更好的生活，你再也不想过平庸的日子了。

《VBA之Excel应用》是非常经典的，是我推出的第七套教程，定位于初级。这套教程从简单的录制宏开始讲解，一直到窗体的搭建，内容丰富，实例众多。大家可以非常容易的掌握相关的知识，这套教程共三册，十七章，都是我们在利用EXCEL工作过程中需要掌握的知识点，希望大家能掌握利用。今日讲解的内容是“VBA之EXCEL应用”的第十七章 “用户窗体（Userform）的实例应用”的第4节：在窗体中选择单元格，让最小值变色

第五节 在窗体中选择单元格范围并让最小值变色（二）

我们继续上节内容的讲解，在上一节中我们已经搭建好了窗体及完成了各个控件的属性设置，我们这讲就进行代码的讲解及运行效果的演示。

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

代码截图：

5 代码的讲解

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

在当前区域中建立一个遍历循环，如果这个单元格的值等于这个最小值，那么就将这个单元格的字体颜色设置为红色。

6 代码的运行效果

1）我们点击“最小值显示红色”的按钮：

2）点击后会显示我们建立的窗口，如下：

此时RefEdit控件中的值就是工作表中的当前选择区域。

3）我们点击RefEdit控件右下角的横线:

4) 这个时候我们就可以在工作表中选择单元格区域了，选择好后，我们再次点击RefEdit控件右下角的标识，如下图：

5）返回窗口后，我们点击确定按钮：

6) 这个时候，工作中的当前选择区域的最小值就变成了红色：

上面的截图中，含有2的单元格字体变成红色。

今日内容回向：

1） 窗体的加载事件实现了哪些工作？

2） 对象变量赋值为单元格区域，用的是什么命令？

本讲内容参考程序文件：工作簿17.xlsm

【分享成果，随喜正能量】能有钱解决的问题，就不要动用人情关系，人情债也是债，也是需要还的，甚至可能付出更多。别人给的都是忠告，自己经历过的才是经验。有些事情，还是要事必躬亲的，这样你才能够真正学到东西，真正长记性