【エクセルマクロ】隣のセルに値を自動入力する：動画あり

エクセルマクロで、隣のセルに値を自動入力するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
ぜひお試しください！

隣のセルに値を自動入力

以下のExcelVBAを実行すると、隣のセルに特定文字を自動的に入力します。

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column = 1 Then

        With Cells(Target.Row, Target.Column)
    
            '北海道だったら
            If .Value = "北海道" Then
    
                '右隣に指定値を入力
                .Offset(0, 1) = "じゃがいも"
    
            '静岡県だったら
            ElseIf .Value = "静岡県" Then
    
                '右隣の指定値を入力
                .Offset(0, 1) = "お茶"
    
            End If
        End With
    End If

End Sub

マクロ実行前

マクロ実行後

A列に文字入力すると、隣のB列に指定文字を自動入力します。

A列に「北海道」と入力すると同時に、B列に「じゃがいも」と自動入力します。

「Sheet1」シート内でイベントを発生させるためには、

VBE画面にて「Sheet1」シートにマクロコードを記述します。

動画の解説

動画ではコードの作り方・動作を確認できます。

クリックすると、このブログ上で再生されます＾＾

 
この記事がお役に立ちますと幸いです。
 

【エクセルマクロ】ワークシート処理を自動化する：超便利３９選

...

kirinote.com

2022.02.06