Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 10448|回复: 13

[已解决]如何实现单击创建按钮,自动创建与模板格式一致的表格

[复制链接]
发表于 2013-1-24 09:46 | 显示全部楼层 |阅读模式
如何单击创建按钮,自动生成一个名为T802的工作表,且此表的格式与模板表一致,且品名=T802
最佳答案
2013-1-24 10:05
加个忽略错误,免得报错。
  1. Sub create()
  2.     Dim name$, wst As Worksheet
  3.     name = [e12]
  4.     On Error Resume Next
  5.     Set wst = Worksheets(name)
  6.     If wst Is Nothing Then
  7.         Worksheets("模板").Copy after:=Worksheets(Worksheets.Count)
  8.         ActiveSheet.name = name
  9.     Else
  10.         MsgBox "已经存在工作表" & name
  11.     End If
  12. End Sub
复制代码

Book1.zip

1.82 KB, 下载次数: 189

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2013-1-24 09:56 | 显示全部楼层
你把这个存为模板啦,新建的时候指定模板就OK了。
回复

使用道具 举报

发表于 2013-1-24 10:02 | 显示全部楼层
  1. Sub create()
  2.     Dim name$, wst As Worksheet
  3.     name = [e12]
  4.     Set wst = Worksheets(name)
  5.     If wst Is Nothing Then
  6.         Worksheets("模板").Copy after:=Worksheets(Worksheets.Count)
  7.         ActiveSheet.name = name
  8.     Else
  9.         MsgBox "已经存在工作表" & name
  10.     End If
  11. End Sub
复制代码
回复

使用道具 举报

发表于 2013-1-24 10:05 | 显示全部楼层    本楼为最佳答案   
加个忽略错误,免得报错。
  1. Sub create()
  2.     Dim name$, wst As Worksheet
  3.     name = [e12]
  4.     On Error Resume Next
  5.     Set wst = Worksheets(name)
  6.     If wst Is Nothing Then
  7.         Worksheets("模板").Copy after:=Worksheets(Worksheets.Count)
  8.         ActiveSheet.name = name
  9.     Else
  10.         MsgBox "已经存在工作表" & name
  11.     End If
  12. End Sub
复制代码
回复

使用道具 举报

 楼主| 发表于 2013-1-24 11:05 | 显示全部楼层
hwc2ycy 发表于 2013-1-24 10:05
加个忽略错误,免得报错。

谢谢,太强大了。学习。
回复

使用道具 举报

发表于 2013-1-24 11:14 | 显示全部楼层
都是高手啊------------
回复

使用道具 举报

 楼主| 发表于 2013-1-24 11:51 | 显示全部楼层
hwc2ycy 发表于 2013-1-24 10:05
加个忽略错误,免得报错。

按照你说的,已经可以复制表,目前想把复制出来的表(10个或者更多),以表名为关键字,以目录的形式在单独的一个表中展现出来,目的是为了方便在众多表中快速定位。
回复

使用道具 举报

发表于 2013-1-24 11:58 | 显示全部楼层
有方法生成目录快捷方式嘛。
回复

使用道具 举报

 楼主| 发表于 2013-1-24 12:02 | 显示全部楼层
hwc2ycy 发表于 2013-1-24 11:58
有方法生成目录快捷方式嘛。

怎么快速生成目录。你们的excel怎么学的。我们怎么学都感觉是死记硬背,总是灵活不了。
回复

使用道具 举报

发表于 2013-1-24 12:35 | 显示全部楼层
多用多学活用。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 14:37 , Processed in 0.812804 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表