Question

我在计算报价方面表现出色。我们有不同类型的“包装”，您在其中有不同的产品。我正在尝试创建一个按钮，以便在我们需要提供“完整包装”的每种产品之前添加数字

我每个月都会更新这些产品并添加行，因此更新所有“范围”的工作量很大。如果我添加一行，因为所有内容均为+1，一切都消失了。

我能以某种方式使这些产品变暗吗...

Dim Product1 range (J91)

Product1.value = 1

它增加了数字1以使我较早昏暗的巫婆射程变

将来，当我需要更新时，我只是将所有范围从一个位置更改。

我喜欢7种产品包装，因此令人沮丧

Sub Package1_3P_4G()


Application.ScreenUpdating = False
 Sheets("Gears").Select
Range("J74:J200").ClearContents


Range("J89").Value = 1 ' Add 1 pc Product1
Range("J90").Value = 1 ' Add 1 pc Product2
Range("J93").Value = 1 ' Add 1 pc Product3
Range("J123").Value = 2 ' Add 2 pc Product4
Range("J124").Value = 1 ' Add 1 pc Product5
Range("J134").Value = 1 ' Add 1 pcProduct6

End Sub

Answer 1

你的意思是那样吗

Sub Test()
Dim e
For Each e In Array("J89", "J90", "J93", "J123", "J124", "J134")
    Sheets("Gears").Range(e) = 1
Next e
End Sub

如何使用范围和值自动填充？

1 个答案: