如何用VBA代码添加工作表的可编辑区域？

作者：绿色风分类：时间：2022-08-17 浏览：73

楼主 kevinchengcw	Q：如何用VBA代码添加工作表的可编辑区域？ A：向工作表中添加可编辑区域需要先解决区域名的问题，添加的区域一定要命名，而命名就有重复的可能，所以在添加前要先进行命名是否重复的判断，利用下面代码可以将选定区域添加到可编辑区域中，代码如下： Sub test() Dim Str As String Dim Rng Dim N As Long For Each Rng In ActiveSheet.Protection.AllowEditRanges '定义变量列举活动工作表里的所有可编辑区域 Str = Str & Rng.Title & vbTab '串接现有区域名 Next Rng N = 1 '设置区域名序列后缀变量起始值 Do If InStr(Str, "区域" & N & vbTab) > 0 Then '判断字符串中是否含有要添加的区域名，如果有序列值加1，继续循环 N = N + 1 Else '如果没有这个区域名则退出循环 Exit Do End If Loop ActiveSheet.Protection.AllowEditRanges.Add Title:="区域" & N, Range:=Range(Selection.Address) '根据取得的序列名添加当前选定区域到可编辑区域列表中（注意：同一区域可以重复添加） MsgBox "添加完成", vbOKOnly, "" '显示个提示，不然你都不知道加了没有:-D End Sub 附示例文件。工作表中添加可编辑区域.rar
2楼 wnianzhong	学习一下,谢谢!
3楼及时雨	如何直接在空白sheet中设置不连续的可编辑区域（两个以上）？谢谢！

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表