有没有办法将代码改为不受工作表名称修改影响呢？

qingping95

由于经常要移动或复制一组工作表新建工作簿，对复制的工作表进行一些编辑操作后另存为新文件，为了简便我用录制宏的方法做了个控件按钮，但出现一个问题，当我修改了其中的一个工作表名称后（如将清单1改为清单2），宏代码就失效了，有没有办法将代码改为不受工作表名称修改影响呢？

砂海

For Each temp In Sheets
    If temp.Name Like "清单*" Then
   
        temp.Select     '此句为红色那句
        
        '红色 以下部分
        
    End If
Next

qingping95

砂海 发表于 2017-4-22 15:08
For Each temp In Sheets
    If temp.Name Like "清单*" Then
   

由于工作表名称不一定是带“清单”的，我现在用sheet1.Select代替Sheets("清单1").select，可是  Sheets(Array("材料明细", "A1汇总", "清单1"))，这个不知该怎么用，不知能否指教一下呢？谢谢！

砂海

那可以用内容判断
比如
If temp.range("a1").value = "需要复制*" Then

qingping95

砂海 发表于 2017-4-22 20:49
那可以用内容判断
比如
If temp.range("a1").value = "需要复制*" Then

太菜了，不怎么会弄，这代码对我来说真像是天书，不过非常感谢你的关注和回复！

wenzili

可以用工作表的 codename, codename不会变化，也可以将代码写在经常变化的工作表中，用Me来引用当前工作表，也不用管名称的变化。

grf1973

保证工作表顺序不变，用sheets(1)代替sheets("清单1")，依次类推。