將一系列單元格乘以 VBA for Excel 中的用戶輸入

Question

我正在嘗試編寫一個代碼，要求用戶輸入材料清單中所需的組件數量。 一旦用戶輸入數字，就會生成一個新的工作表，該工作表應該顯示所有使用的零件和零件的數量，數字將是現有零件的數量乘以用戶輸入。 嘗試運行代碼時，我不斷收到不匹配錯誤，我不確定自己做錯了什么。 是否有另一種方法可以通過我缺少的用戶輸入來乘以一系列單元格？

Dim qty As Integer 'set number of parts/assemblies as qty
Dim intRowNo As Double
Dim intColNo As Double
Dim RowCount As Integer
Dim ColCount As Integer
qty = InputBox("How many assemblies/parts are needed?") 'input box for number of parts/assemblies required
Sheets.Add.Name = "WorkOrder"
Range("A1").Value = "Part Number"
Range("B1").Value = "Part Name"
Range("C1").Value = "BoM Qty."
Range("D1").Value = "QtY."
Range("A2:A8").Value = Worksheets("C63 TOE LINK KIT").Range("A6:A12").Value
Range("B2:B8").Value = Worksheets("C63 TOE LINK KIT").Range("B6:B12").Value
Range("C2:C8").Value = Worksheets("C63 TOE LINK KIT").Range("E6:E12").Value
Range("D2").Activate
intRowNo = ActiveCell.Row
intColNo = ActiveCell.Column
ColCount = 1
For RowCount = 1 To 7


Cells(intRowNo + RowCount, ColCount).Value = qty * Cells(intRowNo + RowCount, ColCount).Value
Next RowCount

Answer 1

使用 excel 公式：替換所有從

范圍（“D2”）。激活

和

Range("D2:D8").formular1c1 = "=" & 數量 & "*RC[-1]"