作者:乔山办公网日期:
返回目录:excel表格制作
方法/步骤
首先打开excel表格,你可能要处理一堆表格,如下:
点击其中一张工作表,在视图页面,找到“宏”的命令符。
点击【百宏】,然后点击【录制宏】
在【录制宏】界面,你可以为度新建的宏命名,同时也可以为其设置快捷键,注意不要与office原有的快捷键冲突。小编一般命名为ctrl+n,然后点击确定。
接下来,你所进行的每一问步操作都会被【宏】所记忆,注意要操作准确,不然会加大计算量,免不了出错。例如修改字体,调整页面布局等。
等这些操作进行完之后,点击【宏】,停止录制。
接下来你就答可以在另一张表格中按回照宏定义来修改格式了。点击【宏】,查看宏
在查看宏界面,找到你定义宏名称,然后点击【执行】就可以了,你会发现原来答的格式都统一发生了变化。如果你定义了快捷键的话,也可以直接按快捷键,如ctrl+n,也能很快地改过来。
方法/步骤
首先打开excel表格,你可能要处理一堆表格,如下:
点击其中一百张工作表,在视图页面,找到“宏”的命令符。
点击【宏】,然后点击【录制宏度】
在【录制宏】界面,你可以为新建的宏命名,同时也可以为其设置快捷键,注意不要与office原有的快捷键冲突。小编问一般命名为ctrl+n,然后点击确定。
接下来答,你所进行的每一步操作都会被【宏】所记忆,注意要操作准确,不然会加大计算量,免不了出错。例如修改字体,调整页面布局等。
等这些操作进行完之后,点击【宏】,停止录制。
接下来你就可以在另一张表格中按照宏定义来修改格式了。点击【宏】,查看宏
在查看宏界面,找到你定义宏名称,然后点击【执行回】就可以了,你会发现原来的格式都统一发生了变化。如果你定义了快捷键的话,也可以直接答按快捷键,如ctrl+n,也能很快地改过来。
复制以下vb代码到vb编辑器中:
Sub mname()
'批量修改多个excel内指定的工作表的表名
Dim filename As String, twb As Workbook '定义变量
Application.ScreenUpdating = False '关闭屏幕更新
Application.DisplayAlerts = False '不显示需要确定删除的警告信息
filename = Dir(ThisWorkbook.Path & "\五座神山\" & "*.xlsx")
'获得五座神山文件下的所有工作表的名字
Do While filename <> "" '若工作簿名字不为空,执行循环体;
fn = ThisWorkbook.Path & "\五座神山\" & filename '设置fn为路径;
Set twb = Workbooks.Open(fn) '打开五座神山文件下的工作簿;
twb.Worksheets(1).Name = "神山小百科e799bee5baa6e79fa5e98193e58685e5aeb9332" '修改第一个工作表的表名为“神山小百科”
twb.Close True '保存并关闭工作簿
filename = Dir '继续下一个工作簿
Loop
Application.DisplayAlerts = True '恢复提示警告信息
Application.DisplayAlerts = True '开启提示
End Sub
备注:可以变更的代码:
根据你表格的情况和位置,可以改动一下语句
更改五座神山,获得你工作簿的名称。
filename = Dir(ThisWorkbook.Path & "\五座神山" & "\*.xlsx")
更改五座神山,获得你工作簿的路径。
fn = ThisWorkbook.Path & "\五座神山\" & filename '设置fn为路径;
worksheets(1),即需要修改的表格,这里是第一个工作表;
可以根据你的模版和需要加入的位置更改为其他数字。
name等号后面是需要改变的名称
twb.Worksheets(1).name="神山小百科"
怎么同时修改多个表格呢?