VBAの勉強を始めてみた

タイトルの通りVBAの勉強を始めました。効率化と暇つぶしを兼ねています。VBA以外の話題もあるよ(笑)

文字の冒頭に指定した文字を追加する

セルにあらかじめ入っている文字列(文字列以外でも可)の冒頭に、InputBoxで指定した文字を追加します。

 

f:id:kouten0430:20170805142238j:plain

実行前

 

f:id:kouten0430:20170805142303j:plain

実行後

 

選択したセル範囲(可視セルのみ)に対し、For Each Nextで下記の処理を行います。

オブジェクト.Value = 変数(InputBoxで入力された文字) & オブジェクト.Value

 

 

***************************************

Sub 冒頭に文字を追加する()
    Dim V As Variant
    Dim myRange As Range
   
    V = Application.InputBox(Prompt:="冒頭に追加する文字を入力して下さい", Type:=2)
        If TypeName(V) = "Boolean" Then
            Exit Sub
        End If
    For Each myRange In Selection.SpecialCells(xlCellTypeVisible)   '可視セルのみに処理を行う
        If myRange.Address = myRange.MergeArea(1).Address Then   '結合セルの場合は左上のセルのみ処理する
            myRange.Value = V & myRange.Value
        End If
    Next myRange

End Sub

***************************************

 ※SubからEnd Subまでをコピペしてマクロを使用できます。使用の際は自己責任でお願いいたします。

 

使用する際の注意
マクロで行った処理は「元に戻す」ことができない為、マクロ実行前に保存することをお勧めします。

 

末尾に文字を追加する場合はこちら 

kouten0430.hatenablog.com