Excel 当单元格值(W10)>;=单元格(R10)的值,这是整个W和R列的值
当单元格(R10)的值>=单元格(W10)的值时,需要发出嘟嘟声,这适用于整个R和W列 注意,“R10到R31”单元具有在线数据流(非手动输入),而单元W10到W31具有公式:Excel 当单元格值(W10)>;=单元格(R10)的值,这是整个W和R列的值,excel,vba,Excel,Vba,当单元格(R10)的值>=单元格(W10)的值时,需要发出嘟嘟声,这适用于整个R和W列 注意,“R10到R31”单元具有在线数据流(非手动输入),而单元W10到W31具有公式:=S10*70%+(S10) 到目前为止,我已经得到了这个,但似乎不起作用=IF(R10>W10,StopCounter(),“”) 私有子工作表_更改(ByVal目标作为范围) End Sub如果RngMeasure.Value
=S10*70%+(S10)
到目前为止,我已经得到了这个,但似乎不起作用=IF(R10>W10,StopCounter(),“”)
私有子工作表_更改(ByVal目标作为范围)
End Sub
如果RngMeasure.Value
缺少比较的右侧,对于初学者来说。当你调用这个函数时,你没有传递任何参数,这是没有意义的。@BigBen,我们可以为这个函数创建一个函数,这样我就可以从一个单元格中调用它了吗
Function StopTrigger(RngMeasure As Range)
Public BlnAboveHundred As Boolean
Dim StopTrigger As Range
Dim CurrentMeasure As Range
'Dim RngCounter As Range
Set StopTrigger = Range("W10:W31")
Set CurrentMeasure = Range("B10:B31")
'Set RngCounter = Range("C9")
If Not (Intersect(Target, StopTrigger) Is Nothing) Then
If CurrentMeasure.Value > W10 Then
If BlnAboveHundred = False Then
RngCounter.Value = RngCounter.Value + 1
BlnAboveHundred = True
End If
Else
BlnAboveHundred = False
End If
End If