输入姓名后,当前工作表名称被同步修改了(见下图,代码如下)。
1、这是Inputbox的功能之一吗?
2、如果是,怎么保证工作表名称不随着输入而改变呢?
谢谢!
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
1、这是Inputbox的功能之一吗?
2、如果是,怎么保证工作表名称不随着输入而改变呢?
谢谢!
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