免费_execl中的259个常用宏.xlsVIP

文本框 代码 目录 file_name1 filename [ filename ] filename [ filename 1.00 QQ 登录 临时 If I.Font.ColorIndex = Y Then COLOR = COLOR + I Next I 统计红色,输入：=COLOR(B2:B8,3) 统计蓝色,输入：=COLOR(B2:B8,5) 统计不同颜色的数字的和（自定义函数） 统计不同颜色的数字的和（自定义函数） ActiveCell.Activate Application.SendKeys ~ With TextBox1 .Left = ActiveCell.Left .Top = ActiveCell.Top .Width = ActiveCell.Width .Height = ActiveCell.Height n = Range(a65536).End(xlUp).Row Range(B1) = n Sub 返回A列数据的最大行数() 返回A列数据的最大行数 返回A列数据的最大行数 查找和引用 n = n rag.Value Chr(10) Sub 删除A列非数字单元行() i = [a65536].End(xlUp).Row Range(A1:A i).SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete 删除A列非数字单元行 Sub Macro1() Next i Private Sub Worksheet_Activate() If Target.Count = 15 Then If Not Application.Intersect(Target, Range(D6:D20)) Is Nothing Then For Each Rng In Selection With Rng ActiveCell.Offset(1, 2).Select 向下移动1行，向右移动2列 Dim Rng As Range 在指定区域选择单元时添加/取消√（工作表代码） 在指定区域选择单元时添加/取消√（工作表代码） 在指定颜色区域选择单元时添加/取消√（工作表代码） Dim myrg As Range For Each myrg In Target 全部显示指定表的自动筛选 强行合并单元 Else b = Range(a).NoteText Cells(1, 6) = b 在F1单元显示光标位置批注内容的代码 按当前单元文本选择打开指定文件单元 For Each Sht In Sheets Cells(k + 1, 1) = Sht.Name 指定写入的行和列 k = k + 1 Sub 将全部表名称写到A列() ActiveSheet.ScrollArea = B8:G15 Sub 指定允许编辑区域() Application.SendKeys ({ENTER}{ENTER}%fx) ActiveWorkbook.Save If UCase(Sheets(j).Name) UCase(Sheets(i).Name) Then 按aa工作表A列的内容排列工作表标签顺序 Sub 指定单元的行高和列宽与A1单元相同() 指定单元的行高和列宽与A1单元相同 [c2] = Range(A1).ColumnWidth 列宽 [b2] = Range(A1).RowHeight 行高 Selection.FormulaR1C1 = √ Selection.FormulaR1C1 = ThisWorkbook.Name Sub 区域录入当前数字日期() Sub 区域录入当前日期和时间() Sheets(1).Hyperlinks.Add Cells(i - 1, 1), # Sheets(i).Name !A1 添加超链接 Private Sub Worksheet_SelectionChange(ByVal T As Range) For i = 0 To 2 If Not Application.Intersect(T, a(i)) Is Nothing Then [a1].Select: Exit For End If Next Sub 有条件删除当前行() Sub 返回当前工作簿中工作表数量() t = Application.Sheets.Count MsgBox t 返回当前工作簿中