如何用輸入框輸入數據到多個表格

Question

我寫了一個腳本來詢問用戶輸入。我知道如何編寫腳本將其輸入到一個單元格中，或者將其輸入到行末尾的每個空單元格中。我不知道的是如何編寫它，以便用戶輸入值在兩個單獨的工作表上的一個單元格中輸入。有人可以幫我重寫這段代碼嗎？

Sub AddText() 
Dim myRange As String 
myRange = Application.inputbox("Enter Item Number", "1") 
Range("S1").Value = myRange 
End Sub 

Answer 1

資格與它相關的工作表對象的範圍（這也是最好的做法，不管你在做什麼）。我也改變了變量名更有意義，因爲它的最佳實踐獲得有意義的和明確的變量名（和範圍通常指的是多了一個電子表格單元格，而不是一個字符串值。

Sub AddText() 

    Dim sInput as String 
    sInput = Application.inputbox("Enter Item Number", "1") 

    Worksheets("Sheet1").Range("S1").Value = sInput 
    Worksheets("Sheet2").Range("S1").Value = sInput 

End Sub 

Answer 2

Sheets("Sheet1").Range("S1").Value = myRange 
Sheets("Sheet2").Range("S1").Value = myRange