将一系列单元格乘以 VBA for Excel 中的用户输入答案

【问题标题】：Multiply a range of cells by user input in VBA for Excel将一系列单元格乘以 VBA for Excel 中的用户输入
【发布时间】：2022-07-20 01:05:27
【问题描述】：

我正在尝试编写一个代码，要求用户输入材料清单中所需的组件数量。一旦用户输入数字，就会生成一个新的工作表，该工作表应该显示所有使用的零件和零件的数量，该数字将是现有零件的数量乘以用户输入。尝试运行代码时，我不断收到不匹配错误，我不确定自己做错了什么。是否有另一种方法可以将一系列单元格乘以我缺少的用户输入？

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

【问题讨论】：

标签： excel vba

【解决方案1】：

使用 excel 公式：替换从

开始的所有内容

范围("D2").激活

与

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

【讨论】：