クリップボードと正規表現

やっぱエクセルマクロがすき。
クリップボードとか正規表現は結構便利なんだけど参照設定をしないと使えないのでVBAでは使えないとおもっている人が多い気がする。
そしてこの系のマクロを作ったら配布するときに参照設定をしてもらわないといけないので、アドオン形式で配布するといいと思う。
そうすれば参照設定とかもちゃんと引き継げるので。

クリップボードの使い方

参照設定から「C:\Windows\System32\FM20.DLL」もしくは「C:\WINNT\Sytem32\FM20.DLL」を参照設定して、

    Dim CB As New DataObject
    With CB
        .SetText outbuf
        .PutInClipboard
        .GetFromClipboard
        buf2 = .GetText
    End With

で読み書き。

正規表現

参照設定から「Microsoft VBScript Regular Expressions 5.5」を参照設定して

    Dim re As RegExp
    Set re = New RegExp
    re.Pattern = "^[0-9]+$"
    re.Test("01234")