第03章 VBA应用基础.pptVIP

3.5 工作簿、工作表和单元格 3.5.3 对单元格和区域的操作 3. 在单元格区域中循环 【例3-40】在区域C1:C20中循环，将所有绝对值小于10的数字都设置红色。 Sub test() For cnt = 1 To 20 Set curc = Worksheets(sheet1).Cells(cnt, 3) curc.Font.ColorIndex = 0 先置成黑色 If Abs(curc.Value) 10 Then curc.Font.ColorIndex = 3 若小于10则改成红色 Next cnt End Sub * 3.5 工作簿、工作表和单元格 3.5.3 对单元格和区域的操作 求数据区末尾行号： r = Range(A1).End(xlDown).Row 求A1单元格数据区末尾行号 r = Cells(1, 1).End(xlDown).Row 求A1单元格数据区末尾行号 r = Range(A65536).End(xlUp).Row 求A列数据区末尾行号 r = Cells(65536, 1).End(xlUp).Row 求A列数据区末尾行号 r = Columns(1).End(xlDown).Row 求A列数据区末尾行号 求数据区末尾列号： c = Range(A1).End(xlToRight).Column 求A1单元格数据区末尾列号 c = Cells(1, 1).End(xlToRight).Column 求A1单元格数据区末尾列号 c = Cells(1, 256).End(xlToLeft).Column 求第1行数据区末尾列号 c = Rows(1).End(xlToRight).Column 求第1行数据区末尾列号 * 3.5 工作簿、工作表和单元格 3.5.3 对单元格和区域的操作 【例3-41】在区域A1:D10中循环，将所有绝对值小于10的数字都设置为红色。 Sub test() For Each c In Worksheets(Sheet1).Range(A1:D10).Cells If Abs(c.Value) 10 Then c.Font.ColorIndex = 3 Next End Sub 【例3-42】在数据区循环，将所有绝对值小于10的数字都设置为红色。 Sub test() For Each c In ActiveCell.CurrentRegion.Cells If Abs(c.Value) 10 Then c.Font.ColorIndex = 3 Next End Sub * 3.5 工作簿、工作表和单元格 3.5.3 对单元格和区域的操作 4. 处理三维区域 【例3-44】设置三维单元格区域的边框格式。 Sub FmSheets() Sheets(Array(Sheet2, Sheet3, Sheet5)).Select Range(A1:H1).Select Selection.Borders(xlBottom).LineStyle = xlDouble End Sub 【例3-45】将Sheet2上指定区域的格式和内容复制到所有工作表相应区域。 Sub FillAll() Worksheets.FillAcrossSheets (Worksheets(Sheet2).Range(A1:H1)) End Sub * 3.5 工作簿、工作表和单元格 3.5.4 自动生成年历 在Excel中，为任意指定的年份生成完整的年历。 界面设计： 字体、字号、字体颜色、填充颜色、边框、列宽、行高。 子程序GenerateCalendar分析、运行。 * 3.6 工作表函数与图形3.6.1 在VBA中使用Excel工作表函数 1. 在VBA中调用工作表函数 【例3-46】使用Min工作表函数求出某个区域中的最小值。 Sub UF() Dim myR As Range Set myR = Worksheets(Sheet1).Range(A1:C10) answer = Application.WorksheetFunction.Min(myR) MsgBox answer End Sub VBA函数和Excel工作表函数可能同名，但作用和引用方式是不同的。 * 3.6 工作表函数与图形3.6.1 在VBA中使用Excel工作表函数 2. 在单元格中插入工作表函数 【例3-47】将RAND工作表函数应用于A1:B3区域。