Как автоматически перенести значения в другую ячейку?

Question

Друзья Я использую MS Excel 2010 и хочу, так как я набираю любое значение или слово в ячейке a1, оно должно автоматически переноситься в ячейку d1, и ячейка a1 снова должна становиться пустой. Пожалуйста, предложите мне любой способ, формулу или кодирование VBA, чтобы сделать это ... спасибо ...

Answer 1

Этот код VBA должен работать:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim wks As Worksheet
    Set wks = ActiveSheet
    theRow = Target.Row
    theColumn = Target.Column
    theValue = Target.Value
    If theRow = 1 Then
    If theColumn = 1 Then
        Application.EnableEvents = False
        wks.Cells(1, 4) = theValue
        Target.Clear
        Application.EnableEvents = True
    End If
    End If
End Sub

Вы должны положить его на лист, который вы будете использовать. Откройте View -> Macros, в левом столбце ниже VBAProject дважды щелкните по рабочему листу в левом столбце и вставьте в правый столбец.