复制并粘贴带条件的vba值_Vba

复制并粘贴带条件的vba值

vba

复制并粘贴带条件的vba值,vba,Vba,我想根据vba中的其他公式值重新计算（复制和粘贴）公式值以下是我的例子： D2包含值为1、2和3的下拉列表如果D2=2（基本情况），则变量1=10。对于该值，G2中给出的结果等于100 如果D2=1（低），则变量1=5。对于该值，G2中给出的结果等于80 如果D2=3（高），则变量1=5。对于该值，G2中给出的结果等于120 请注意，G2以公式形式包含我的预算结果。这是另一张纸上的我想在单元格F2和H2中重新计算（复制和粘贴）这些值。我运行了以下代码，但取的值与单元格G2中的值相同100希

我想根据vba中的其他公式值重新计算（复制和粘贴）公式值

以下是我的例子：

D2包含值为1、2和3的下拉列表

如果D2=2（基本情况），则变量1=10。对于该值，G2中给出的结果等于100

如果D2=1（低），则变量1=5。对于该值，G2中给出的结果等于80

如果D2=3（高），则变量1=5。对于该值，G2中给出的结果等于120

请注意，G2以公式形式包含我的预算结果。这是另一张纸上的

我想在单元格F2和H2中重新计算（复制和粘贴）这些值。我运行了以下代码，但取的值与单元格G2中的值相同100

希望根据vba中的其他公式值重新计算（复制和粘贴）公式值

以下是我的例子：

D2包含值为1、2和3的下拉列表

如果D2=2（基本情况），则变量1=10。对于该值，G2中给出的结果等于100

如果D2=1（低），则变量1=5。对于该值，G2中给出的结果等于80

如果D2=3（高），则变量1=5。对于该值，G2中给出的结果等于120

请注意，G2以公式形式包含我的预算结果。这是另一张纸上的

我想在单元格F2和H2中重新计算（复制和粘贴）这些值。我运行下面的代码，但取的值与单元格G2中的值相同

这是我的密码

范围（“D2”）。选择

ActiveCell.FormulaR1C1=2

Range("G2").Select

Selection.Copy

Range("F2").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

    :=False, Transpose:=False

范围（“D2”）。选择

ActiveCell.FormulaR1C1=3

Range("G2").Select

Selection.Copy

Range("H2").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

    :=False, Transpose:=False

范围（“D2”）。选择

ActiveCell.FormulaR1C1=1

结束Sub

您好，欢迎来到！请阅读，以便更新您的问题，更好地帮助我们帮助您。在这里，您可以找到很多关于修复损坏代码的帮助，但是很少有人愿意为您编写代码。