如何使用輸入從某張紙上的一行中復制某些數據並在另一張紙上顯示

Question

當我嘗試此代碼時，出現錯誤，提示“運行時錯誤'424'：必需對象”，我可以看到它找到了輸入的數字，但沒有復制該行中的任何數字。 還會在錯誤的工作表中粘貼“ 0”。 這是我的代碼：

Dim x As Integer
Dim a As Integer
Dim b As Integer
x = InputBox(("Input palletizer pattern."), ("Pattern"), (0))
Application.Goto ThisWorkbook.Sheets("Palletizer 2").Range("A:A").Cells(Application.Match(x, ThisWorkbook.Sheets("Palletizer 2").Range("A:A")))
With Selection
ActiveCell.Offset(0, 3) = a
Set ThisWorkbook.Sheets("Palletizer Changeover App").Range("I6") = a
End With

任何幫助將非常感激。

Answer 1

由於使用set語句將整數a分配給范圍I6 。 您只能使用set語句分配對象。

如果您刪除第二行中的Set ，錯誤將消失。 但是，請注意，如果您將Value顯式分配給該范圍的Value屬性（默認屬性），那么將要實現的目標將更加明顯。

為什么這個數字沒有出現在正確的位置，我不能為您提供幫助，因為您的問題對我來說不清楚您的確切意圖。