EXCEL：循環參考問題

Question

我想檢查當前單元格的值是否為null，然后生成一個隨機數，否則將其保持原樣。

=IF(P4<>0,RANDBETWEEN(1,100),P4)

但是，當我打開工作表時，出現了循環引用的問題，即使舊值不為null，P4的值也在更改

Answer 1

將此代碼放在工作表的專用代碼表中（右鍵單擊工作表選項卡，查看代碼）。

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If not intersect(Target, Range("P4")) Is Nothing Then
        On Error GoTo safe_exit
        Application.EnableEvents = False
        If Range("P4") = vbNullString Then
            Range("P4") = Application.RandBetween(1, 100)
        End If
    End If
safe_exit:
    Application.EnableEvents = True
End Sub