您可能希望嘗試一個Worksheet_Change事件宏¹。
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2:B5")) Is Nothing Then
On Error GoTo bm_Safe_Exit
Application.EnableEvents = False
If Intersect(Target, Range("B2:B5")).Count = 1 Then
If Intersect(Target, Range("B2:B5")).Cells(1).Value >= 1 Then
Range("B2:B5") = 0
Intersect(Target, Range("B2:B5")).Cells(1) = 1
Else
Range("B2:B5") = 0
End If
Else
Range("B2:B5") = 0
End If
End If
bm_Safe_Exit:
Application.EnableEvents = True
End Sub
![ones_zeroes_radio_buttons](https://i.stack.imgur.com/tNw8s.png)
¹這屬於在工作表的代碼表。右鍵單擊工作表的名稱選項卡,然後選擇查看代碼。當VBE打開時,將上述內容粘貼到標題爲Book1 - Sheet1(Code)的代碼窗格中。進行任何調整,然後點擊Alt + Q返回到工作表。
感謝您的支持。它沒有起作用,但對我應該前進的方向有所瞭解。我用** = IF(SUM(F33:F35)> 0,0,SUM(F10:F11))**,它似乎工作正常。 @Jordan Biddlecombe –