【分享成果，随喜正能量】想要升职加薪，在小地方，更多依靠的是关系，在大地方，依靠的更多是个人努力。只有不断的体验新东西，只有不断的受刺激，你才会变得更加厉害，体验过了山珍海味的味道，你再也不想吃粗茶淡饭了，体验过更好的生活，你再也不想过平庸的日子了。
《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
代码截图：
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
【分享成果，随喜正能量】能有钱解决的问题，就不要动用人情关系，人情债也是债，也是需要还的，甚至可能付出更多。别人给的都是忠告，自己经历过的才是经验。有些事情，还是要事必躬亲的，这样你才能够真正学到东西，真正长记性
,
