金币中心|设首页|入收藏|English|移动版|客户端|可做什么?|
首页 认识会计 会计人物 会计史话 职业规划 职场故事 职场动态 求职参考 实务操作 书讯书评 
您的位置:首页职场天地实务操作正文
 

你加班1小时做表格,我用VBA只需1秒种

来源:Excel精英培训微信公众号   发布时间:2017-11-12  作者:兰色幻想-赵志东   编辑:无忧草

阅读:0  打印   RSS 字号:||
借助VBA语言编写的宏代码,这些看似无法批量处理或无法完成的事情,瞬间变得只是小菜一碟。

excel为我们提供了很多好用的功能和函数,但还是有很多工作无法用现有功能和函数批量完成,比如多个excel表格的合并与拆分。而借助VBA语言编写的宏代码,这些看似无法批量处理或无法完成的事情,瞬间变得只是小菜一碟,也许你不懂VBA,也建议先收藏起来这些代码备用。

(第1个示例中,演示了VBA代码的使用方法,后面示例均和第1个类似,不再具体演示)

1、一次取消所有工作表的隐藏

Excel可以一次隐藏多个工作表,但取消工作表隐藏却需要一个个的设置,用VBA编写一段代码,一秒完成!

注意

•要想使用VBA功能,需要把代码粘贴到添加的模块中,详见动画演示

•要想保存VBA代码,需要把文件另存为xlsm格式文件,详见动画演示

动画演示:

你加班1小时做表格,我用VBA只需1秒种

代码:

Sub 取消隐藏()

For x =1To Sheets.Count

If Sheets(x).Name <>"总表"Then

Sheets(x).Visible =-1

End If

Next x

End Sub

Sub 隐藏()

For x =1To Sheets.Count

If Sheets(x).Name <>"总表"Then

Sheets(x).Visible =0

End If

Next x

End Sub

2、根据模板批量生成日报表

根据模板批量生成报表,没什么好方法,只能一个一个的复制然后修改名称。但这对VBA来说,只需点一下按钮即可瞬间完成。

你加班1小时做表格,我用VBA只需1秒种

代码:

Sub 生成报表()

Dim x As Integer

Dim sh As Worksheet

For x =1To 31

Set sh =Sheets.Add

With sh

.Name =x &"日"

Sheets("日报模板").Range("1:15").Copy sh.Range("A1")

End With

Next x

End Sub

3、拆分工作表为单独的excel文件

把当前excel文件中除第1个工作外的所有工作表,均保存为单独的excel文件到3月文件夹中。

拆分演示(在拆分过程中会画面会停几秒,请耐心等待)

你加班1小时做表格,我用VBA只需1秒种

代码:

Sub 拆分表格()

Dim x As Integer

Dim wb As Workbook

Application.ScreenUpdating =False

For x =2To 32

Sheets(x).Copy

Set wb =ActiveWorkbook

With wb

.SaveAs ThisWorkbook.Path &"/3月/"&Sheets(x).Name &".xlsx"

.Close True

End With

Next x

Application.ScreenUpdating =True

End Sub

4、合并多个Excel文件工作表到一个文件中

3月文件夹下有N张报表,要求把该文件夹中所有excel文件的第1个工作表合并到当前的excel文件中,以单独的工作表存放。

你加班1小时做表格,我用VBA只需1秒种

代码:

Sub 合并表格()

Dim mypath As String

Dim f As String

Dim ribao As Workbook

Application.ScreenUpdating =False

mypath =ThisWorkbook.Path &"/3月/"

f =Dir(ThisWorkbook.Path &"/3月/*.xlsx")

Do

Workbooks.Open (mypath &f)

With ActiveWorkbook

.Sheets(1).Move after:=ThisWorkbook.Sheets(Sheets.Count)

End With

f =Dir

Loop Until Len(f)=0

Application.ScreenUpdating =True

End Sub

每日音频重磅来袭

延伸阅读:

  • 普华永道建了个新办公室,刷爆财会圈!
  • 折后价!膨胀价!定金价!这些促销方式该怎么纳税?
  • 了解:税务检查流程图(含检查什么)
  • 分享到:
    更多关于 VBA Excel 的新闻 关于 VBA Excel 的论坛帖子
    返回职场天地首页 >
     
     用户登录
    视野周刊订阅 回顾>
    热门招聘
     爱享最新资料下载