菜鸟也懂VBA-excle2007VBA入门教程(14)

'如果控件RefEdit1没有选择区域，那么就退出，且提示，注意一行简写形式，你记住就可以了 'vbCritical你也可以改为数值16，显示警告的图标

Set Myarray = Range(RefEdit1) '把控件的选区赋给Myarray,因为是对象，所以用了Set,另外把控件RefEdit1选区转为单元格，一定要在前面加Range

Myarray.ClearFormats '清除选区原有颜色，目的是区分为了再标示，如果不清除如果原有字体也有红色，那样就和结果混了

For Each mgr In Application.Intersect(ActiveSheet.UsedRange, Myarray) '遍历选区有数据的单元格

'Intersect(ActiveSheet.UsedRange, Myarray)这一句，我不再多解释了，目的了防止整行整列选中，导致程序被卡死。

If Application.WorksheetFunction.CountIf(Myarray, mgr) > 1 Then '这一句就是举个例子的目的

'我们可以引用工作表里的内置函数，不过要注意的用法，单元格，单元格区域的引用方式。如果有重复

mgr.Font.ColorIndex = 3 '字体的颜色为红色 End If Next mgr '

Unload Me '关闭窗体 End Sub

Private Sub CommandButton2_Click() Unload Me ''关闭窗体 End Sub

第 37 页 共 52 页