我需要什么 VBA 代码来显示“输入名称”的弹出文本框,以便将该名称粘贴到三个不同的位置:Sheets("Data").Select
inA15
和A50
(我不想弄乱的两个超链接),以及第三个地方是Sheets("Run").Select
,这是一个按钮。
这三个地方都被调用了Other 1
,我希望能够使用弹出窗口中的输入信息来更改它们。
Sub TestMacro()
Dim Name As String
Name = InputBox("Enter Name.")
Range("A" & 15).Value = Name
Range("A" & 50).Value = Name
Sheets("Run").Select
Range("A" & 1).Value = Name
Sheets("Data").Select
End Sub