[已解决]请高手师傅们帮忙看下这个除了某个表格，其他表格在指定行自动加入指定的文字

qiongmei

我附件上有一个工作表，上面有1、2、3、4、5表，我想得到的代码是当执行代码的时候，他除了表1和表2外，工作簿里面的其他表格中的d2：d10加入指定的选择字董事长、经理、副经理、董事、股长项目，目前的表3、4、5 d2：d10就是我所希望得到的结果。

最佳答案

月排行榜 / 总排行榜

dsmch

2016-1-2 14:54

1. Sub Macro1()
   
2. x = Array("董事长", "经理", "副经理", "董事", "股长")
   
3. For i = 1 To Sheets.Count
   
4.     If Sheets(i).Name <> "1" And Sheets(i).Name <> "2" Then
   
5.         With Sheets(i).[d2:d10].Validation
   
6.             .Delete
   
7.             .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
   
8.             xlBetween, Formula1:=Join(x, ",")
   
9.         End With
   
10.     End If
    
11. Next
    
12. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. w = Array("3", "4", "5")
   
3. x = Array("董事长", "经理", "副经理", "董事", "股长")
   
4. For i = 0 To UBound(w)
   
5.     With Sheets(w(i)).[d2:d10].Validation
   
6.         .Delete
   
7.         .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
   
8.         xlBetween, Formula1:=Join(x, ",")
   
9.     End With
   
10. Next
    
11. End Sub

复制代码

qiongmei

dsmch师傅您好，谢谢你的帮忙，因为我的工作簿内的工作表除了表1和表2，其他工作表的名称是随时变的，所以代码能不能改成除了表1和表2，其他工作簿中的工作表d2：d10都会加上以上的选择按钮，再次谢谢您的帮忙。

dsmch

1. Sub Macro1()
   
2. x = Array("董事长", "经理", "副经理", "董事", "股长")
   
3. For i = 1 To Sheets.Count
   
4.     If Sheets(i).Name <> "1" And Sheets(i).Name <> "2" Then
   
5.         With Sheets(i).[d2:d10].Validation
   
6.             .Delete
   
7.             .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
   
8.             xlBetween, Formula1:=Join(x, ",")
   
9.         End With
   
10.     End If
    
11. Next
    
12. End Sub

复制代码