VBA笔记本.docxVIP

《ExcelVBA》■单元格格式◆字体颜色、背景色Selection.Interior.ColorIndex = 10‘绿色注：ColorIndex = 40 茶色（土黄色）ColorIndex = 38 粉红色[F32].Font.Color = RGB(0, 255, 0)TextBox.ForeColor = RGB(156, 128, 0)注：RGB(1, 255, 2)函数值计算方法：1 * 0 + 255 * 256 + 2 * 256 * 256◆内部字符的格式下面代码：将单元格内从第3个字符开始选取5个字符，将其字体大小设置为8号Cells(1，1).Characters(Start:=3, Length:=5).Font.Size = 8◆边框Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous.Weight = xlThin.ColorIndex = xlAutomatic扩展：①xlEdgeLeft左边框 xlEdgeRight右边框 xlEdgeTop上边框 xlEdgeBottom下边框 xlInsideHorizontal内部垂直边框 xlInsideVertical 内部水平边框②LineStyle 线条样式 xlContinuous 单线 xlDouble 双线 xlDot 虚点 xlDashDotDot③Weight=xlThin 细线 xlThick 粗 xlMedium 中粗◆单元格→对齐Selection.HorizontalAlignment = xlGeneral 水平对齐 = 常规.VerticalAlignment = xlBottom 垂直对齐 = 靠下.WrapText = True自动换行.MergeCells = False合并单元格.ShrinkToFit = False缩小字体填充.AddIndent = True自动缩进.IndentLevel = 2 缩进字数扩展：①HorizontalAlignment 水平对齐xlGeneral 常规 xlLeft靠左（缩进） xlRight靠右（缩进）xlCenter居中 xlJustify两端对齐 xlFill填充②VerticalAlignment 垂直对齐xlCenter 居中 xlBottom靠下 xlJustify 两端对齐 xlDistributed 分散对齐◆单元格→数字格式Selection.NumberFormatLocal = 0.000_ 数值 保留3位小数Selection.NumberFormatLocal = 0.00_ 数值 保留2位小数Selection.NumberFormatLocal = 0.0_ 数值 保留1位小数Selection.NumberFormatLocal = 0_ 数值 保留0位小数Selection.NumberFormatLocal = G/通用格式 常规Selection.NumberFormatLocal = yyyy-m-d日期Selection.NumberFormatLocal = 0.00_);[红色](0.00) 数值 保留2位小数 负数用括号 如图所示■Range 操作[A1:C10].Address= $A$1:$C$10 [A1:C10].Count=30 注：Clear方法 Copy方法 Cut方法 Paste方法Cells(3,2)可改成Cells(3,B)◆批量赋值Range(G2:H2500).Value = Range(Q2:R2500).Value‘即：直接将某区域的值复制到另一个单元格区域◆复制、粘贴 ActiveCell.Offset(0, -5).Columns(A:G).EntireColumn.SelectSelection.CopyActiveCell.Offset(0, 8).Columns(A:A).EntireColumn.SelectActiveSheet.Paste◆选择性粘贴 Selection.Copy 复制Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False扩展：xlPasteFormats表示：选择性粘贴→格式xlPasteValues 数值 xlPasteFormulas公式xlPasteComments批注xlPasteColumnWidths列宽附：Application.CutCopyMo