下标越界

xing_chen

老师！有表，需要修改名称。有代码但显示下标越界，敬请老师帮忙修改。谢谢

夏天的风shh4695

Sub 表改名()
    Dim ss$
    Dim tt$
    ss = InputBox("请输入选表名称：", "提示")
    'Sheets(ss).Select
    tt = InputBox("请输入改表名称：", "提示")
    Sheets(ss).Name = tt
    Sheets(tt).Select
End Sub

xing_chen

夏天的风shh4695 发表于 2023-5-13 17:05
Sub 表改名()
    Dim ss$
    Dim tt$

谢谢老师！运行如愿

gwjkkkkk

“汇表“不存在提示越界。。。

xing_chen

gwjkkkkk 发表于 2023-5-13 17:36
“汇表“不存在提示越界。。。

谢谢老师！刚才问题解决了。现在这附件也有“下标越界”，方便话老师帮忙修改

gwjkkkkk

根据你的说明
大致这样吧。。。
Sub 复制表并改名()
    Dim ss$
    Dim tt$
    ss = InputBox("请输入选表名称：", "提示", "销汇0")
    tt = InputBox("请输入改表名称：", "提示", "销汇")
    Sheets(ss).Copy After:=Sheets(2)
    ActiveSheet.Name = tt
    Sheets("流程").Select
End Sub

ykcbf1100

xing_chen 发表于 2023-5-13 18:51
谢谢老师！刚才问题解决了。现在这附件也有“下标越界”，方便话老师帮忙修改

因为不存在"汇0（2）"的表名，代码运行肯定会有出错提示的。

xing_chen

ykcbf1100 发表于 2023-5-13 19:52
因为不存在"汇0（2）"的表名，代码运行肯定会有出错提示的。

谢谢老师！我是录制宏的产生的。