excel - Excel VBA - 我想我正在为一个单元格分配一个值，但它不起作用

Question

Line: Target("D12").Value = 10 '这不会将任何内容放入单元格中。首先尝试找出最简单的。后来我希望这可以填写 4 列中的 3 列，具体取决于手动输入的列。这将有几百行。现在我正在手动输入所有内容。

Private Sub Worksheet_Change(ByVal Target As Range)

    Application.EnableEvents = False '<--| disable events handling
    On Error GoTo ErrorHandler '<--| be sure to catch any error and enable events handling back


    Select Case Target.Column

            Case "3"
           'Me.Unprotect
            MsgBox Target.Address

           'MsgBox "Column" & Target.Cells.Column
           'boo = Target.Cells.Column + 1

           Target("D12").Value = 10
           MsgBox Target("D12").Value

            'Me.Protect

    End Select
ErrorHandler:
    Application.EnableEvents = True

End Sub

标签： excelvba