Sub Macro1()
'
' Macro1 Macro
Sh.Columns("J:J").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="是,否"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With
Next
End Sub
如何让此段代码不用手动一个个工作表点,而是直接运行就让所有sheet都运行此段代码
我在excel里录制了一段宏,请问如何让此段宏对每个工作表都能执行
答案:2 悬赏:60
解决时间 2021-02-06 07:26
- 提问者网友:夕夏残阳落幕
- 2021-02-05 15:18
最佳答案
- 二级知识专家网友:摧毁过往
- 2021-02-05 16:22
亲,代码前后套上一层循环。
dim i as integer
for i=1 to sheets.count
sh=sheets(i)
下面粘贴你的代码
next
dim i as integer
for i=1 to sheets.count
sh=sheets(i)
下面粘贴你的代码
next
全部回答
- 1楼网友:蜜罐小熊
- 2021-02-05 17:37
可以直接用vba来做的。问题中b2左边的单元格应该是a2,要是按照这个思路的话比方在b2到b10里面填写的话依次是b2=a2*10+16 for i =2 to 10
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯