EXCEL宏编辑命令(7)

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = 2

Rows(\ '保持1至2行的颜色推荐39,22,40,

Rows(Target.Row).Interior.ColorIndex = 35 '高亮推荐颜色35,20,24,34,37,40,15 End Sub

85、高亮显示行和列（工作表代码）

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = xlNone

Rows(Target.Row).Interior.ColorIndex = 34

Columns(Target.Column).Interior.ColorIndex = 34 End Sub

86、为指定工作表设置滚动范围（工作簿代码）

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Sheet1.ScrollArea = \

End Sub

87、在指定单元记录打印和预览次数（工作簿代码）

Private Sub Workbook_BeforePrint(Cancel As Boolean) Range(\ End Sub

88、自动数字金额转大写（工作表代码）

Private Sub Worksheet_Change(ByVal M As Range) On Error Resume Next

y = Int(Round(100 * Abs(M)) / 100)

j = Round(100 * Abs(M) + 0.00001) - y * 100

f = (j / 10 - Int(j / 10)) * 10

A = IIf(y < 1, \元\

b = IIf(j > 9.5, Application.Text(Int(j / 10), \角\零\\

c = IIf(f < 1, \整\分\ M = IIf(Abs(M) < 0.005, \负\ & b & c, A & b & c)) End Sub

89、将全部工作表的A1单元作为单击按钮（工作簿代码）

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Target.Address = \ Call 宏名 End If End Sub

90、闹钟——到指定时间执行宏（工作簿代码）

Private Sub Workbook_Open()

Application.OnTime (\提示1\ '宏名字 Application.OnTime (\提示2\ '宏名字 End Sub

91、改变Excel界面标题的宏（工作簿代码）

Private Sub Workbook_Open() Application.Caption = \春节快乐\End Sub

92、在指定工作表的指定单元返回光标当前多选区地址（工作簿代码）

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Worksheets(\表2\End Sub

93、B列录入数据时在A列返回记录时间（工作表代码）

Public Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Target.Offset(, -1) = Now End If End Sub

94、当指定区域修改时在其右侧的2个单元返回当前日期和时间（工作表代码）

Public Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, [A1:A1000]) Is Nothing Then If Target.Column = 1 Then Target.Offset(, 1) = Date Target.Offset(, 2) = Time End If End If End Sub

Public Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, [A1:A1000]) Is Nothing Then If Target.Column = 1 Then

Target.Offset(, 1) = Format(Now(), \Target.Offset(, 2) = Format(Now(), \End If End If

End Sub

95、指定单元显示光标位置内容（工作表代码）

Private Sub Worksheet_SelectionChange(ByVal T As Range) Sheets(1).Range(\End Sub

96、每编辑一个单元保存文件

Private Sub Worksheet_Change(ByVal Target As Range) ThisWorkbook.Save End Sub

97、指定允许编辑区域

Sub 指定允许编辑区域() ActiveSheet.ScrollArea = \End Sub

98、解除允许编辑区域限制

Sub 解除允许编辑区域限制() ActiveSheet.ScrollArea = \

End Sub

99、删除指定行

Sub 删除指定行()

Workbooks(\临时表\表2\End Sub

100、删除A列为指定内容的行

Sub 删除A列为指定内容的行() Dim a, b As Integer

a = Sheet1.[a65536].End(xlUp).Row For b = a To 2 Step -1 If Cells(b, 1).Value = \删除\ Rows(b).Delete End If Next End Sub

101、删除A列非数字单元行

Sub 删除A列非数字单元行() i = [a65536].End(xlUp).Row

Range(\End Sub

102、有条件删除当前行

Sub 有条件删除当前行() If [A1] = 2 Or [B1] = \删除\Selection.Delete Shift:=xlUp End If End Sub

103、选择下一行

Sub 选择下一行()

ActiveCell.Offset(1, 0).Rows(\

End Sub

104、选择第5行开始所有数据行

Sub 选择第5行开始所有数据行A() Dim i%

i = Cells.Find(\SearchOrder:=xlByRows, SearchDirection:=xlPrevious).EntireRow.Row Rows(\

End Sub

Sub 选择第5行开始所有数据行B()

Rows(\End Sub

105、选择光标或选区所在行

Sub 选择光标或选区所在行() Selection.EntireRow.Select End Sub

106、选择光标或选区所在列

Sub 选择光标或选区所在列() Selection.EntireColumn.Select End Sub

107、光标定位到名称指定位置

Sub 定位()

Application.Goto Range(Evaluate(\名称\End Sub

108、选择名称定义的数据区

Sub 选择名称定义的数据区()

[数据区].Select '插入名称要使用INDIRECT函数 'Range(\数据区\ 或者 'Sheet1.Range(\数据区\或者

LookIn:=xlValues,

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库EXCEL宏编辑命令(7)在线全文阅读。