Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 当单元格值(W10)>;=单元格(R10)的值,这是整个W和R列的值_Excel_Vba - Fatal编程技术网

Excel 当单元格值(W10)>;=单元格(R10)的值,这是整个W和R列的值

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

当单元格(R10)的值>=单元格(W10)的值时,需要发出嘟嘟声,这适用于整个R和W列

注意,“R10到R31”单元具有在线数据流(非手动输入),而单元W10到W31具有公式:
=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