実は代入もできるMid

小ネタ。通常midは文字列から一部を取り出す関数だが、実は代入もできる。
ちなみにしていした桁より多くの文字を代入しても指定文字以上は設定できない。

Sub Test()

    Dim strBuf As String
    
    strBuf = "123456"

    '通常の使い方
    Debug.Print Mid(strBuf, 3, 2)

    '実は代入もできるMID
    Mid(strBuf, 3, 2) = "ABC"

    Debug.Print strBuf

End Sub

Cは桁数オーバーなので入らない

34
12AB56

ABOUTこの記事をかいた人

はてなブックマークで驚愕の1600越えを記録した伝説が今明らかに! エクセル方眼紙 四天王の1人(ほぼ最弱)窓の杜大賞2014 大賞受賞! Excelを便利にする250以上の機能を体系化したアドインはこちらです。