VBA

目次

VBA

• 文字列が含まれるかをTrue/Falseで返すには？

  検証したい文字列 Like "*" + "検索文字列" + "*"

• 文字列の置換を行うには？

  置換後の文字列 = Replace("置換前の文字列", "置換対象文字列", "置換する文字列")

• ユーザーフォーム上で画像を使用したIFを作成したい
  • 透過処理
    • http://shadowslasheizan.blog114.fc2.com/blog-entry-31.html
• ProgressDialogクラス
  • ソース
  • DoEventを使いキャンセル可能にしています
    • キャンセルボタンクリック時にProgressDialog.mCancelFlgがON
      ProgressDialog.isCancelFlg=Trueなら処理を中断すればよい
    • DoEvent実行時はフラグをtrueにし
      他のUIから命令が開始されることを避けた方がよい

• 大量の文字列連結をするとスピードが遅くなる
  • メモリを上手くしようできるような文字列連結クラスを作るとよい
    （& や + による結合はメモリ消費が激しいため、後半に遅くなる）
    • http://blogs.wankuma.com/rti/archive/2007/01/08/55000.aspx
• リスナーの様なことをしたい
  • http://www.excellenceweb.net/
• ファイルを読み込む
  • http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110.html
• バッチファイルを引数付で呼び出す
  • VBA

    Sub test()
        Dim params As String
        params = "mydocument"
        Shell "test.bat " & params, 1
    End Sub

  • バッチファイル

    echo off
    dir %1
    echo 指定した引数は %1
    pause

• クリップボードにテキストをコピーすることができない
  • DataObjectを使用する
  • DataObjectが含まれるライブラリの読み込み方法
  1. ［ツール］→［参照設定］
  2. 「Microsoft Forms 2.0 Object Library」にチェック
  • サンプルコード

    Public Function copyWord(ByVal word As String) As Boolean
         'データオブジェクトの作成
         Dim dObj As DataObject
         Set dObj = New DataObject

     'クリップボードの文字列をセット
     dObj.SetText word
     dObj.PutInClipboard

     copyWord = True
End Function

• http://www.moug.net/tech/acvba/0020034.html

• イミディエイトウィンドウで取得したColorIndexの値利用して
  色を [a1].Interior.ColorIndex = 14 のように指定しても
  本来取得した色が表示されない
  • ColorIndexはパレットの種類のようなもので56色程度の設定しかできない。
    細かい設定を行う場合は、RGB関数を使用する。
    例：　[OPTION_NAVITIME_COLOR].BackColor = RGB(0, 176, 80)
    • http://officetanaka.net/excel/vba/cell/cell04.htm

• wikiの任意のページを表示するURLを生成するとき、日本語をURLに登録できない
  • 日本語をUTF8に変換していたが、どうやらEUF-JPをコードとして使用している可能性大
  • VBAでSHIFT-JISをEUF-JPに簡単に変換できる方法が必要
    • http://www.vector.co.jp/soft/win95/net/se408130.html?ds を参考にすればできる！

お役立ちリンク