ecel常用宏集合分析和总结.docxVIP

65 65：删除包含固定文本单元的行或列 Sub Sub 删除包含固定文本单元的行或列() Do Cells.Find(what:= 哈 哈 ).Activate Selection.EntireRow.Delete 删除行 Selection.EntireColumn.Delete 删除列 Loop Until Cells.Find(what:=哈哈) Is Nothing End Sub 72：在指定颜色区域选择单元时添加/取消√（工作表代码） Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim myrg As Range For Each myrg In Target If myrg.Interior.ColorIndex = 37 Then myrg = IIf(myrg √, √, ) Next End Sub 73：在指定区域选择单元时添加/取消√（工作表代码） Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Rng As Range If Target.Count = 15 Then If Not Application.Intersect(Target, Range(D6:D20)) Is Nothing Then For Each Rng In Selection With Rng If .Value = Then .Value = √ Else .Value = Next End If End If End Sub End If End With 74：双击指定单元，循环录入文本（工作表代码） Private Sub Worksheet_BeforeDoubleClick(ByVal T As Range, Cancel As Boolean) If T.Address $A$1 Then Exit Sub Cancel = True T = IIf(T = 好, 中, IIf(T = 中, 差, 好)) End Sub 75：双击指定单元，循环录入文本（工作表代码） Dim nums As Byte Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = $A$1 Then nums = nums Mod 3 + 1 Target = Mid(上中下, nums, 1) Target.Offset(1, 0).Select End If End Sub 76：单元区域引用（工作表代码） Private Sub Worksheet_Activate() Sheet1.Range(A1:B3).Value = Sheet2.Range(A1:B3).Value End Sub 77：在指定区域选择单元时数值加 1（工作表代码） Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect([a1:e10], Target) Is Nothing Then Target = Val(Target) + 1 End If End Sub 259 个常用宏-excelhome(3) 2009-08-15 14:12:58 78：混合文本的编号Sub 混合文本的编号() Worksheets(1).Range(B2).Value = 北京 (--(Mid(Worksheets(1).Range(B2), 3, 100)) + 1) End Sub 79：指定区域单元双击数据累加（工作表代码） Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Application.Intersect([A1:Y100], Target) Is Nothing Then oldvalue = Val(Target.Value) inputvalue = InputBox(请输入数量,按 ENTER 键确认!, 数值累加器) Target.Value = oldvalue + inputvalue End If End Sub 80：选择单元区域触发事件（工作表代码） Private Sub Worksheet_SelectionChange(ByVal Target As R