宏命令运用于多个表 宏是一个或多个

可以设置循环,举例如下:for i = 1 to sheets.count with sheets(i) '这里放你的宏,注意把宏里面的sheet引用都换成 “.” end withnext

用类模块可以实现1、插入一个类模块,复制下面代码 Public WithEvents XL As Application Private Sub XL_SheetChange(ByVal Sh As Object, ByVal Target As Range) If .

把包含要运行的宏的工作簿另存为加载项格式的文档,Excel会自动保存在Addin文件夹中,当在加载项管理中勾选了这个加载项后,Excel在运行时会自动加载它,这样你的电脑上就可以在所有工作簿中运行同一个宏了

执行下面的宏,全体75%、一次全部打印出来Sub Macro() Dim i As Integer For i = 1 To ActiveWorkbook.Sheets.Count With ActiveWorkbook.Sheets(i) .PageSetup.Zoom = 75 .PageSetup.PrintErrors = xlPrintErrorsDisplayed .PrintOut Copies:=1, Collate:=True End With Next iEnd Sub

50分有点低了···这东西是家底货···呵呵·· 格式说明 1 MACRO是指图标,. "嗜血" Ability_BullRush /施放 杀戮命令 /cast 急速射击 /施放 天谴之石 /施放 野性呼.

以下代码隐藏指定的第2至10行.Sub 隐藏指定行() Rows(＂2:10＂).EntireRow.Hidden = TrueEnd Sub

楼主这个链接是指什么?有工作表事件,因为事件触发,可以去处理各个表内容 或者通过宏,在表间进行数据处理.主要是看,有什么具体要求,怎么去处理啊

你很多赋值不对啊,Sub 画图()'' 画图 宏'' 快捷键: Ctrl+t' Dim i As Integer 'Dim j As Integer For i = 1 To Sheets.count Sheets(i).Select Range(＂C10:C43＂).Select .

在第一次导入前设置四个空的工作表,并命名为abcd,将数据导入这四张空表中.

For I = 1 To 60 sheet1.Rows(I).RowHeight =sheet1. Cells(I, 1) sheet2.Rows(I).RowHeight =sheet2. Cells(I, 1) sheet3.Rows(I).RowHeight =sheet3. Cells(I, 1) sheet4.Rows(I).RowHeight =sheet4. Cells(I, 1)NextEnd Sub 放到模块里