Question

EXCEL中用VBA如何根据sheet1中的值判断sheet2中的值是否符合要求？并下一步操作?

详细情况和要求见图片，自己用公式录制的话，跑出来非常卡，而且又慢，有没有办法用VBA直接判断？谢谢了。
其实就是想将以下公式用VBA表达
C2=IF(AND((VLOOKUP(A2,Sheet2!A:B,2,0)+VLOOKUP(A2,Sheet2!A:C,3,0))>=-55,(VLOOKUP(A2,Sheet2!A:B,2,0)+VLOOKUP(A2,Sheet2!A:C,3,0))<=-50),(VLOOKUP(A2,Sheet2!A:B,2,0)+VLOOKUP(A2,Sheet2!A:C,3,0)-Sheet1!B2),IF((VLOOKUP(A2,Sheet2!A:B,2,0)+VLOOKUP(A2,Sheet2!A:C,3,0))<=-55,(-55-Sheet1!B2),(-50-Sheet1!B2)))

D2=IF((VLOOKUP(A2,Sheet2!A:B,2,0)+VLOOKUP(A2,Sheet2!A:D,4,0))=-40,(VLOOKUP(A2,Sheet2!A:B,2,0)+VLOOKUP(A2,Sheet2!A:D,4,0)-Sheet1!B2),(-40-Sheet1!B2))

Answer 1

要通过VBA把Sheet1工作表中的数据写入Sheet2工作表中，可以采用如下方法：
1、假如要把Sheet1工作表中A1单元格的数据写入Sheet2工作表的A1单元格中。
2、可以执行以下语句：
sub test()
sheets("Sheet2").range("A1").Value=sheets("Sheet1").range("A1").Value
end sub
3、语句解释：range("A1")代表A1单元格，.Value代表是单元格的值属性。

Answer 2

两点看法：
第一、VBA的触发条件是什么？是【Sheet1的B列单元格变化】或者【Sheet2的B列单元格变化】或者【Sheet2的C列单元格变化】或者【Sheet2的D列单元格变化】这四列的某单元格Change引发调整Sheet1的C列或者D列的数据调整？
第二、Sheet1的D列的条件是固定的-40，为什么还要判断？不是可以直接计算后写入吗？