Attribute VB_Name = "模块4" Sub宏1() Attribute宏1.VB_ProcData.VB_Invoke_Func = "q\n14" ' '宏1宏 ' '快捷键: Ctrl+q ' count = Val(InputBox("输入条目数(1-8000)", , 500)) If count < 1 Or count > 8000 Then Return O...
Attribute sum.VB_ProcData.VB_Invoke_Func = "z\n14" Dim X As Worksheet For y = 1 To 20 For z = 1 To 5 For Each X In Worksheets shname = X.Name ActiveSheet.Cells(y, z).Value = ActiveSheet.Cells(y, z).Value + Worksheets(shname).Cells(y, z) Next Next z Next y End Sub©...
Attribute VB_Name = "模块1"Sub 目标批量替换()Attribute 目标批量替换.VB_ProcData.VB_Invoke_Func = " \n14"''宏2 宏Start = InputBox("请输入起始行", "批量替换")ED = InputBox("请输入终止行", "批量替换")TargetCol = InputBox("请输入需要替换的目标列 [如: C ]", "批量替换")OrangeCol...
1Attribute VB_Name="模块1" 2SubMacro1() 3Attribute Macro1.VB_Description="" 4Attribute Macro1.VB_ProcData.VB_Invoke_Func="\n14" 5' 6'Macro1 Macro 7'宏由 Eric yang 录制,时间: 8' 9 10' 11ChDir"D:\" 12 13cDir="D:\" 14 15DoWhileTrue 16 17FName=InputBox("请输入要转换的文件...
Attribute VB_Name = "模块1"Sub Macro1()Attribute Macro1.VB_ProcData.VB_Invoke_Func = " \n14"'' Macro1 Macro'' With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\Users\lenovo\Desktop\1019.DAT", _ Destination:=Range("$A$1")) .Name = "1019"' .FieldNames = True' .RowNumbers = ...
() Attribute 重算指定表.VB_ProcData.VB_Invoke_Func = "z\n14" Worksheets("银行帐").Calculate Worksheets("日报表").Calculate End Sub 单元格数据改变引起计算激活过程 Private Sub Worksheet_Change(ByVal Target As Range) Dim irow, icol As Integer irow = Target.Row '变量行irow icol = Target....
If X = vbYes Then Close '本示例为设置工作表密码 ActiveSheet.Protect Password:=641112 ' 保护工作表并设置密码 ActiveSheet.Unprotect Password:=641112 '撤消工作表保护并取消密码 '本示例关闭除正在运行本示例的工作簿以外的其他所有工作簿,并保存其更改内容 ...
reserved-for-implementation-use = "Attribute" / "LINEINPUT" / "VB_Base" / "VB_Control" / "VB_Creatable" / "VB_Customizable" / "VB_Description" / "VB_Exposed" / "VB_Ext_KEY " / "VB_GlobalNameSpace" / "VB_HelpID" / "VB_Invoke_Func" / "VB_Invoke_Property " / "VB_Invoke_...
reserved-for-implementation-use = "Attribute" / "LINEINPUT" / "VB_Base" / "VB_Control" / "VB_Creatable" / "VB_Customizable" / "VB_Description" / "VB_Exposed" / "VB_Ext_KEY " / "VB_GlobalNameSpace" / "VB_HelpID" / "VB_Invoke_Func" / "VB_Invoke_Property " / "VB_Invoke_...
Sub repl()Attribute repl.VB_Description = "宏在 98/11/10 由 Clone 创建"Attribute repl.VB_ProcData.VB_Invoke_Func = "normal.NewMacros.repl"'' repl Macro' 19、宏在 98/11/10 由 Clone 创建'Found1 = TrueIf Found1 Then Selection.Find.ClearFormatting With Selection.Find .Text = "gf/tex...