inputbox输入姓名之后，工作表名称被修改？

jlm熟悉的陌生人

请各位帮忙看一下这个问题，谢谢！
附件 图片是过程，代码如下：
Sub inputinfo()
    Title = "输入个人信息"
    Name1 = "请输入姓名:"
    City1 = "请输入所在城市:"
    Age1 = "请输入年龄:"
   
    Name = InputBox(Name1, Title)
    Age = InputBox(Age1, Title)
    City = InputBox(City1, Title)
   
    Sheet2.Cells(1, 1).Value = Name
    Sheet2.Cells(2, 1).Value = Age
    Sheet2.Cells(3, 1).Value = City
   
    Sheet2.Range("a1:a100").HorizontalAlignment = xlCenter
End Sub

蓝桥玄霜

测试代码没有发现错误。

jlm熟悉的陌生人

蓝桥玄霜 发表于 2020-6-7 08:24
测试代码没有发现错误。

版主你好，帮我看看我的这个附件吧，谢谢了……

YZC51

jlm熟悉的陌生人 发表于 2020-6-8 19:07
版主你好，帮我看看我的这个附件吧，谢谢了……

试试

1. Sub inputinfo()
   
2.     Title = "输入个人信息"
   
3.     Name1 = "请输入姓名:"
   
4.     City1 = "请输入所在城市:"
   
5.     Age1 = "请输入年龄:"
   
6.    
   
7.     Name2 = InputBox(Name1, Title)
   
8.     Age2 = InputBox(Age1, Title)
   
9.     City = InputBox(City1, Title)
   
10.    
    
11.     Sheet1.Cells(1, 1).Value = Name2
    
12.     Sheet1.Cells(2, 1).Value = Age2
    
13.     Sheet1.Cells(3, 1).Value = City
    
14.    
    
15.     Sheet1.Range("a1:a100").HorizontalAlignment = xlCenter
    
16. End Sub

复制代码

小fisher

这个代码放在通用模块里是没问题的，但是放在工作表模块中Name = InputBox(Name1, Title)就会改变工作表的名称，因为在工作表模块中，Name不是一个单纯的变量，而是代表Me.Name，这里的Me就是工作表本身。
解决办法：放弃用Name当变量名，或者显示声明一下dim Name as String

wj2368

Name2 = InputBox(Name1, Title)
Sheet2.Cells(1, 1).Value = Name2
改了二个地方就行了

jlm熟悉的陌生人

小fisher 发表于 2020-6-9 10:16
这个代码放在通用模块里是没问题的，但是放在工作表模块中Name = InputBox(Name1, Title)就会改变工作表的 ...

感谢，明白了

jlm熟悉的陌生人

wj2368 发表于 2020-6-9 11:04
Name2 = InputBox(Name1, Title)
Sheet2.Cells(1, 1).Value = Name2
改了二个地方就行了

谢谢，明白了，Name的原因哈。