78：混合文本的编号
Sub 混合文本的编号()
Worksheets(1).Range(\北京\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 Range) If Target.Address = \ MsgBox \你选择了$A$1:$B$2单元\End If End Sub
81：当修改指定单元内容时自动执行宏（工作表代码）
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, [B3:B4]) Is Nothing Then 重排窗口 End If End Sub
82：被指定单元内容限制执行宏
Sub 被指定单元限制执行宏()
If Range(\关闭\窗口 End Sub
83：双击单元隐藏该行（工作表代码）
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Rows(Target.Row).Hidden = True End Sub
84：高亮显示行（工作表代码）
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, \负\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] = \删除\