请教高人关于Excel表VBA代码合并组合为一个用实现运行一次一步到位操作的问题

idiocy

准提部林 发表于 2024-10-26 15:09
Sub ttt()
With Sheets("排班表")
     .Unprotect

你好高人,
小弟可以再弱弱地请教一个延伸的小问题吗?


Sub ttt()
With Sheets("排班表")
     .Unprotect
     .Range("I7:I347,N7:N38,O38,Q38,N44:N47,V7:AA18,V24:AA27,X28,AD14").Value = Empty
     .Protect
End With
End Sub


请问这句VBA代码如何修改可以忽视工作表的名称,
而是在当前工作表里面执行呢?


因为工作表有很多月份,
每个工作表的名称都不一样,
也不是默认的
Sheet1
Sheet2
Sheet3
这类的,


小弟想要VBA代码里面的先解锁保护,再清空内容,最后再保护工作表公式,
但是小弟改不来忽视工作表名称就在当前工作表执行的VBA代码,
想请高人再指教一下可以吗?
感激不尽啊.


2024年11月10日 星期日

wanghui834

idiocy 发表于 2024-11-10 09:55
你好高人,
小弟可以再弱弱地请教一个延伸的小问题吗?

With Sheets("排班表")改成With activesheet

idiocy

wanghui834 发表于 2024-11-10 12:40
With Sheets("排班表")改成With activesheet

非常感谢高人的VBA代码指教啊.
小弟向高人学习了.