Excel VBA

| Excel |

Excel VBA

Tips

Excel操作

• セルからテキストを取得
• 最終更新日を取得
• シートを設定ファイルとして利用する
• ユーザフォームを閉じさせない
• 確認のダイアログを表示させない
• 最後のセルを取得
• オートフィルタをシート間で同期
• オートフィルタをで行が隠れているか判定
• シート名を指定してハイパーリンクを作成
• すべてのシートに対して一括置換
• 処理中一時的に自動計算をとめる

文字列操作

• VB6 固定長のString
• 文字列をバイト配列に変換
• 正規表現を使う

数値操作

• 16進数表記

ステートメント

• Shell関数の同期
• Printステートメントで改行しない
• VB6 サブルーチンの呼び出し

ファイル操作

---

• ディレクトリのファイルを繰り返し処理
• ディレクトリの再帰処理
• ドライブ、ディレクトリを指定してファイルを開くダイアログを表示
• 固定長の構造体をファイルから読む

ディレクトリの存在チェック

If Dir(pathName, vbDirectory) = "" Then
   :
End If

オブジェクト操作

• Mapを使う
• インターフェースを使う
• IEを使う
• 起動中のInternetExplorerを操作する
• 正規表現を使う
• GUIDを生成する

アイコンを表示

Private Const MY_APP_FILE_MK         As String = "ツールバー名"            'ツールバー名
Private Const BTN_MY_APP_FILE_MK     As String = "ボタン名"  'ボタン名
'
'ToolBarをセット
'
Private Sub loadToolBar()
   Dim cbrGatherImgs   As CommandBar
   Dim btnGetImages    As CommandBarButton
   On Error Resume Next
   ' コマンド バーが既に存在するかどうかを確認します。
   ' Set cbrGatherImgs = CommandBars(MY_APP_FILE_MK)
   ' コマンド バーが存在しない場合は作成します。
   If cbrGatherImgs Is Nothing Then
      Err.clear
      Set cbrGatherImgs = CommandBars.add(MY_APP_FILE_MK)
      ' コマンド バーを表示します。
      cbrGatherImgs.Visible = True
      ' ボタン コントロールを追加します。
      Set btnGetImages = cbrGatherImgs.Controls.add
      
      With btnGetImages
         .Style = msoButtonIconAndCaption
         .Caption = BTN_MY_APP_FILE_MK
         .Tag = BTN_MY_APP_FILE_MK
         ' ボタンがクリックされたときに実行するプロシージャを指定します。
         .OnAction = "warpExpMain"
         .FaceId = 270&
      End With
   Else
      ' 既存のコマンド バーを表示します。
      cbrGatherImgs.Visible = True
   End If
End Sub
'
'ToolBarを削除
'
Private Sub unloadToolBar()
  'On Error Resume Next
  On Error GoTo errHandler
  
   ' 存在するコマンド バーを削除します。
   CommandBars(MY_APP_FILE_MK).Delete
    
    Exit Sub
errHandler:
    'NOP
End Sub

マクロサンプル

• Microsoft Project から Excelに吐き出したタスクの見栄えをちょっと整えるマクロ
• Perl VBのプロパティプロシージャを生成
• Excel VBA 最初の空白でないセルを返す

ライブラリ

• Excel VBA Utility
• Excel VBA File Utility
• Excel VBA Log Utility
• {{ref レコード末尾にCRLF挿入v10.xls}}
  • テンプレート:Ref recsplt.exe VC++版 ↑遅すぎ
• Excel VBA プロパティのコードを生成する
• ファンクションポイント 簡易マクロ
• Visio ER図の情報を取得する
• テーブル定義からJavaプロパティ名称作成