目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
67 / 262 ←次へ | 前へ→

【210】ツールバーボタンに指定した引数を持たせて作ると。
Excel  Jaka  - 07/10/4(木) 13:09 -

引用なし
パスワード
   引数は半角数字しか渡せません。

Sub 引数付きツールバー作成()
  Dim 引数 As String, PtWd As String, ツールバー As CommandBar

  For Each ツールバー In CommandBars
    If ツールバー.Name = "マクロバー" Then
      ツールバー.Visible = True
      MsgBox "ツールバーはすでにあります。", vbExclamation
      Exit Sub
    End If
  Next

  横位置 = 3000
  縦位置 = 4000
  PtWd = InputBox("ボタンに持たせる引数(数字のみ)を入力してください。", "引数入力", , XPos:=横位置, YPos:=縦位置)
  If PtWd = "" Then
    MsgBox "引数なし 終了"
    Exit Sub
  ElseIf Not IsNumeric(PasWd) Then
    MsgBox "数字だけです。 終了"
    Exit Sub
  End If

  Set バーバー = Application.CommandBars.Add(Name:="マクロバー", temporary:=True)
  Application.CommandBars("マクロバー").Visible = True

  引数 = PtWd

  With バーバー
    With .Controls.Add(Type:=msoControlButton, Before:=1)
       .Style = msoButtonIconAndCaption '←ボタンとCaption  →msoComboLabel
       .FaceId = 482
                    ' ↓ 半角数字だけ、全角も半角に直される。
       .OnAction = "'実行マクロ(" & 引数 & ")'"
      
       .TooltipText = "実行ボタン"
       .Caption = "引数を持ったボタンバー"
    End With
  End With
End Su

Sub 実行マクロ(ByVal mmm As String)
  MsgBox "持っている引数は " & mmm, vbDefaultButton2, "取得してある引数"
End Sub

Sub 削除()
  On Error Resume Next
  Application.CommandBars("マクロバー").Delete
End Sub

3,045 hits

【56】マクロで作るコマンドバー、ツールバー Jaka 04/8/2(月) 10:32 Excel[未読]
【210】ツールバーボタンに指定した引数を持たせて作... Jaka 07/10/4(木) 13:09 Excel[未読]
【228】升目入力用ツールバーボタン Jaka 08/2/20(水) 16:13 Excel[未読]
【281】今更ながら。 Jaka 15/8/6(木) 12:25 Excel[未読]

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
67 / 262 ←次へ | 前へ→
ページ:  ┃  記事番号:   
0
(SS)C-BOARD v3.8 is Free