我有一個由 K 列和 P 列中的用戶輸入觸發的代碼：如果在“K”中插入任何值，則偏移到 R 列中的相應單元格并填充用戶名。如果在“P”中插入任何值，則偏移到 Q 列中的相應單元格并使用 TODAY() 填充資料。
我的代碼看起來像：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim UserName As String
UserName = Environ("username")
If Target.Column <> 11 Then Exit Sub
Target.Offset(, 7).Value = IIf(Target.Value = "", "", UserName)
If Target.Column <> 16 Then Exit Sub
Target.Offset(, 1).Value = IIf(Target.Value = "", "", Now)
End Sub
問題是它只能與第一個 IF 一起使用，我怎樣才能讓它與這兩個 IF 一起使用？
先感謝您！！
uj5u.com熱心網友回復：
測驗目標范圍內的每個單元格。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
Application.EnableEvents = False
For Each cell In Target.Cells
If cell.Column = 11 Then
cell.Offset(, 7).Value = IIf(cell.Value = "", "", Environ("username"))
ElseIf cell.Column = 16 Then
cell.Offset(, 1).Value = IIf(cell.Value = "", "", Now)
End If
Next
Application.EnableEvents = True
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/396378.html
上一篇：包括帶有名稱的表列但出現錯誤