将原附件中的代码改为 private sub worksheet_change(byval target as range)if target.row=1 and target.column(range("a"&target.row&":d"&target.row))("a1:d1")sheets...
var1:=sum(max(max(high-low,abs(high-ref(close,1))),abs(low-ref(close,1))),25);var2:=high-ref(high,1);var3:=ref(low,1)-low;var4:=sum(if(var2>0 and var2>var3,var2,0),...