我對VBA知之甚少，所以請尋求一些指導。
我有以下內容，按原樣運行很好，更改 1 列中的數字，右側的列添加日期和時間。我也想在第6列運行此代碼，嘗試了很多東西Else，ElseIf，End If等，沒有運氣，我已成功最接近的是第二個代碼，有人可以告訴我，我已經錯過了正確的代碼，請。
-
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 3 Then Exit Sub With Target.Offset(0, 1) .Value = Now .NumberFormat = "MM/DD/YYYY hh:mm AM/PM" End With End Sub -
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 3 Then Exit Sub With Target.Offset(0, 1) .Value = Now .NumberFormat = "MM/DD/YYYY hh:mm AM/PM" End With If Target.Column <> 6 Then Exit Sub With Target.Offset(0, 1) .Value = Now .NumberFormat = "MM/DD/YYYY hh:mm AM/PM" End With End Sub
uj5u.com熱心網友回復：
如果目標列不是 3，您的第一個“如果”會阻止腳本繼續，因此當列是 6 時它不會執行。
您所要做的就是改變主意，為所需的執行創造條件。
If Target.Column = 3 Then
With Target.Offset(0, 1)
.Value = Now
.NumberFormat = "MM/DD/YYYY hh:mm AM/PM"
End With
ElseIf Target.Column = 6 Then
With Target.Offset(0, 1)
.Value = Now
.NumberFormat = "MM/DD/YYYY hh:mm AM/PM"
End With
End If
或簡化：
If Target.Column = 3 Or Target.Column = 6 Then
With Target.Offset(0, 1)
.Value = Now
.NumberFormat = "MM/DD/YYYY hh:mm AM/PM"
End With
End If
轉載請註明出處，本文鏈接：https://www.uj5u.com/qianduan/390968.html
上一篇：受保護作業表上的表單控制元件
下一篇：查找列