Private Sub Worksheet_Change(ByVal Target As Range)
Dim E As Long
E = WorksheetFunction.CountA(Range("B:B")) + 1
Range("E1:F" & E).Value = Range("B1:C" & E).Value
End Sub作者: JasnH 時間: 2019-9-10 11:06
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim E As Long
E = WorksheetFunction.CountA(Range("B:B")) + 1
Range("E1:F" & E).Value = Range("B1:C" & E).Value
Application.EnableEvents = True
End Sub作者: cody 時間: 2020-7-23 00:56
本帖最後由 cody 於 2020-7-23 00:58 編輯
參考看看
module:
Sub copyBCtoEF()
With Worksheets("test1")
.Range("E:F").Value = .Range("B:C").Value
End With
End Sub
複製代碼
Sub doUNDO()
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
End Sub
複製代碼
worksheet:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Row = 1 Then
doUNDO
MsgBox "不可更改標題"
GoTo tagExit
End If
If (Target.Column = 2 Or Target.Column = 3) And (Target.Row >= 2 Or Target.Row >= 2) And Target.Count = 1 Then