VBA隐藏工作表如何用VBA按钮代码，随机命名工作表

来源：蜘蛛抓取(WebSpider) 时间：2018-08-04 08:18 标签： 工作表部分锁定后运行VBA出错
VBA常用小代码207：批量工作簿重命名
我的图书馆
VBA常用小代码207：批量工作簿重命名
&1，在我们分享了批量提取指定文件夹下工作簿名称的小代码，如下：Sub KjxgBooks()& & Dim p$, f$, k&& & With Application.FileDialog(msoFileDialogFolderPicker)& & & & .AllowMultiSelect = False& & & & If .Show Then p = .SelectedItems(1) Else: Exit Sub& & End With& & If Right(p, 1) && '\' Then p = p & '\'& & [a:b].ClearContents& & k = 1& & [a1] = '旧文件名'& & [b1] = '新文件名'& & f = Dir(p & '*.xls*')& & Do While f && ''& & & & k = k 1& & & & Cells(k, 1) = p & f& & & & f = Dir& & LoopEnd Sub使用以上代码可以将指定文件夹下的工作簿名称提取到表格的A列。2，在表格的B列可以通过函数等方式对旧的名称进行批量更名，例如在工作簿名称前面增加“五月天”三个字，公式如下：=SUBSTITUTE(A2,'测试\','测试\五月天')更名后结果如下：哦~你问我为什么还使用函数公式，而不是直接VBA代码搞定重命名的事？那样的话岂不是更省事？亲，你说的对！之所以不用代码一步到位……是因为……当面对一些更名规则比较复杂的情况时，一些对VBA编程不是那么熟悉的小伙伴们……可以有更多的选择……比如函数、查找替换等。嗯，我是一位善良温暖的大叔，鞠躬环场致谢。&3，使用以下代码可以将A列旧的工作簿名称，替换为B列新的工作簿名称。Sub ChangeBook()& & Dim r, i&& & r = [a1].CurrentRegion& & '数据装入数组& & For i = 2 To UBound(r)& & '标题行不要，从数组第二行开始遍历& & & & Name r(i, 1) As r(i, 2)& & & & 'Name语句重命名& & Next& & MsgBox '更名完成。'End Sub小贴士：Name语句可以重命名一个文件或文件夹，也可以将其移动到另一个文件夹中，但不能创建新文件或者文件夹，其参数不能包含通配符，语法如下：Name oldpathname As newpathname参数oldpathname是必须的，为一个字符串表达式，用来指定已存在的文件名或文件夹名。参数newpathname是必须的，为一个字符串表达式，用来指定新的文件名或者文件夹名，所指定的文件名不能存在。另外对于已打开的文件或文件夹使用Name语句，将会产生运行时错误。&
喜欢该文的人也喜欢太实用了！Excel VBA常用代码！太实用了！Excel VBA常用代码！IT微技能加油站百家号前两天有两位朋友留言想收集一些VBA的常用代码，今天开始会陆续分享一些！记得收藏好哦，因为今后你应用到稍大型Excel VBA程序时，这其中某些代码肯定会用到。来看看都是哪些常用代码：下面先举一个简单的例子：场景再现：在当前的工作表中插入一张e盘中名为1.jpg的图片（长350、高300，距离Excel左侧90、上边框230）操作方法：第一步，打开vba代码区，输入通用格式【输入 sub 统计()回车即可】，并将名称改为“统计”；第二步，输入控制语句（ActiveSheet.Shapes.AddPicture &e:.jpg&, True, True, 90, 230, 350, 300）；第三步，看看结果。后面会分享更多关于Excel VBA的知识，欢迎大家留言、讨论！本文由百家号作者上传并发布，百家号仅提供信息发布平台。文章仅代表作者个人观点，不代表百度立场。未经作者许可，不得转载。IT微技能加油站百家号最近更新：简介:每天分享职场所需办公实用的小技巧！相关文章这种工作表标签用VBA代码怎么写【excel吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：170,624贴子：
这种工作表标签用VBA代码怎么写收藏
描述：在一个工作簿内有若干工作表，工作表分别命名“表1、表2、表3……表36”，所有表格同样位置使用同样代码问题：如何使用循环表示各个工作表如果描述不清楚，请看下面代码（第三行该如何表示？）：
Dim hm, bg
For bg = 1 To 36
Sheets(""表"&"bg"").Select
Cells(2, 1) = Sheets("参数设置").Cells(2, 5)
熊猫办公为您提供精品优质excel下载,各类excel下载即用,可以为人事/行政/运营/产品运营等大量提高工作效率,内容包括财务报表,销售报表,绩效考核等表格模板.
Sheets("表" & bg).Select
登录百度帐号VBA工作表操作全能方法小结_百度文库
您的浏览器Javascript被禁用，需开启后体验完整功能，
享专业文档下载特权
&赠共享文档下载特权
&100W篇文档免费专享
&每天抽奖多种福利
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
VBA工作表操作全能方法小结
VBA工作表操作全能方法小结
阅读已结束，下载本文需要
定制HR最喜欢的简历
下载文档到电脑，同时保存到云知识，更方便管理
加入VIP
还剩7页未读，
定制HR最喜欢的简历
你可能喜欢如何在excel 用VBA插入多个工作表并命名。要用到宏。给分给分~_百度知道
如何在excel 用VBA插入多个工作表并命名。要用到宏。给分给分~
在工作簿中插入49张工作表。将该工作簿的工作表依次命名为“第一周”、“第二周”、“第三周”……“第五十二周”。请给我详细的编程过程哈···。不要说一张一张插入再一张一张改名...
在工作簿中插入49张工作表。将该工作簿的工作表依次命名为“第一周”、“第二周”、“第三周”……“第五十二周”。请给我详细的编程过程哈···。不要说一张一张插入再一张一张改名这样的方法哈。。。。。。。。用VBA编程~~~~~
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
nizheiwanyi
软件应用类认证行家
nizheiwanyi
软件应用类行家
采纳数：529
获赞数：4146
数码爱好者
增加sheet的命令符为sheets.add完整的表达式为Sheets.Add(Before,&After,&Count,&Type)before或after可分别设置增加的sheet在某个工作表前或表后，一般不用同时指定。如果同时指定则不要造成矛盾。count,指增加的工作表个数。type指增加的工作表类别。如果批量增加，则需要指定定义sheet变量。如下两种代码均可批量增加100个并重命名sheet。Sub&SheetAdd()Dim&myrange&As&WorksheetSet&myrange&=&Sheets.Add(Count:=100)For&i&=&1&To&100Worksheets(i).Name&=&iNextEnd&Sub&Sub&SheetAdd_()For&i&=&1&To&100Sheets.AddActiveSheet.Name&=&&a&&&&iNextEnd&Sub
采纳数：2891
获赞数：7723
Sub ShtAdd()Dim i%For i = 1 To 49If i & Worksheets.Count Then Worksheets.Add after:=Worksheets(Sheets.Count)Worksheets(i).Name = &第& & WorksheetFunction.Text(i, &[dbnum1]&) & &周&Next iEnd Sub
本回答被提问者采纳
采纳数：147
获赞数：257
Sub test()Dim intWeeks As IntegerintWeeks = 1'将工作簿中的工作表个数增加到52个While Sheets.Count & 52Sheets.Add After:=Sheets(Sheets.Count)Wend'将这52个工作表按“第一周”“第二周”…“第五十二周”的格式重命名For i = 1 To Sheets.CountSheets(i).Name = &第& & Application.ExecuteExcel4Macro(&NUMBERSTRING(& & intWeeks & &,1)&) & &周&intWeeks = intWeeks + 1Next iEnd Sub
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。

我要回帖

更多关于 工作表部分锁定后运行VBA出错 的文章

 

随机推荐