| ページ一覧 | ブログ | twitter |　 書式 | 書式(表) |

MyMemoWiki

Excel VBA

提供: MyMemoWiki
2021年10月21日 (木) 07:55時点におけるPiroto (トーク | 投稿記録)による版
ナビゲーションに移動 検索に移動

| Excel |

Excel VBA

Tips

Excel操作

文字列操作

数値操作

ステートメント

ファイル操作

ディレクトリの存在チェック
  1. If Dir(pathName, vbDirectory) = "" Then
  2.    :
  3. End If

オブジェクト操作

アイコンを表示
  1.  
  2. Private Const MY_APP_FILE_MK         As String = "ツールバー名"            'ツールバー名
  3. Private Const BTN_MY_APP_FILE_MK     As String = "ボタン名"  'ボタン名
  4. '
  5. 'ToolBarをセット
  6. '
  7. Private Sub loadToolBar()
  8.    Dim cbrGatherImgs   As CommandBar
  9.    Dim btnGetImages    As CommandBarButton
  10.    On Error Resume Next
  11.    ' コマンド バーが既に存在するかどうかを確認します。
  12.    ' Set cbrGatherImgs = CommandBars(MY_APP_FILE_MK)
  13.    ' コマンド バーが存在しない場合は作成します。
  14.    If cbrGatherImgs Is Nothing Then
  15.       Err.clear
  16.       Set cbrGatherImgs = CommandBars.add(MY_APP_FILE_MK)
  17.       ' コマンド バーを表示します。
  18.       cbrGatherImgs.Visible = True
  19.       ' ボタン コントロールを追加します。
  20.       Set btnGetImages = cbrGatherImgs.Controls.add
  21.       
  22.       With btnGetImages
  23.          .Style = msoButtonIconAndCaption
  24.          .Caption = BTN_MY_APP_FILE_MK
  25.          .Tag = BTN_MY_APP_FILE_MK
  26.          ' ボタンがクリックされたときに実行するプロシージャを指定します。
  27.          .OnAction = "warpExpMain"
  28.          .FaceId = 270&
  29.       End With
  30.    Else
  31.       ' 既存のコマンド バーを表示します。
  32.       cbrGatherImgs.Visible = True
  33.    End If
  34. End Sub
  35. '
  36. 'ToolBarを削除
  37. '
  38. Private Sub unloadToolBar()
  39.   'On Error Resume Next
  40.   On Error GoTo errHandler
  41.   
  42.    ' 存在するコマンド バーを削除します。
  43.    CommandBars(MY_APP_FILE_MK).Delete
  44.     
  45.     Exit Sub
  46. errHandler:
  47.     'NOP
  48. End Sub

マクロサンプル

ライブラリ

「https://www.typea.info/tips_/index.php?title=Excel_VBA&oldid=33853」から取得

© 2006 矢木浩人