目安箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
1 / 107 ツリー 前へ→

【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[未読]
【284】Re:今更ながら。 ヒラタ 17/6/14(水) 3:03 Access[未読]

【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

【228】升目入力用ツールバーボタン
Excel  Jaka  - 08/2/20(水) 16:13 -

引用なし
パスワード
   升目入力用って言っても。下のような特殊文字ですけど。
記号だから升目作成時にあったら便利かな?って程度ですけど。

┼、┴、┬、┤、├、┘、└、┌、┐、│、─

尚、最終的な使い方のコードは自分で付け加えてください。
セルに1文字の入力じゃーあまり使わないだろうから....。
引数持たせたボタンの使い方1って事で。


Sub 升目文字()
  Const CMBerNm As String = "マス目バー"
  Dim MasBar As CommandBar, MojTB As Variant
  Dim MJSt As String, i As Long

  On Error Resume Next
  Application.CommandBars(CMBerNm).Delete
  On Error GoTo 0
 
  MojTB = Array(9472, 9474, 9484, 9488, 9492, 9496, 9500, 9508, 9516, 9524, 9532)
 
  Set MasBar = Application.CommandBars.Add(Name:=CMBerNm, temporary:=True)
  Application.CommandBars(CMBerNm).Visible = True
  With MasBar
   For i = 0 To UBound(MojTB)
     MJSt = ChrW(MojTB(i))
     With .Controls.Add(Type:=msoControlButton, Before:=1)
       .Style = msoButtonCaption
       .OnAction = "'マス目文字(" & MojTB(i) & ")'"
       .TooltipText = MJSt
       .Caption = MJSt
     End With
   Next
  End With
  MojTB = Empty
End Sub

Sub マス目文字(引数 As Long)
  MsgBox ChrW(引数)
End Sub

【281】今更ながら。
Excel  Jaka  - 15/8/6(木) 12:25 -

引用なし
パスワード
   誤字だらけやん。
10年たってから気づきました。
すみません。
他にもありそうな気が・・・。

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


ElseIf Not IsNumeric(PasWd) Then
  ↓
ElseIf Not IsNumeric(PtWd) Then

【284】Re:今更ながら。
Access  ヒラタ  - 17/6/14(水) 3:03 -

引用なし
パスワード
   ▼Jaka さん:
>誤字だらけやん。
>10年たってから気づきました。
>すみません。
>他にもありそうな気が・・・。
>
>>  PtWd = InputBox("ボタンに持たせる引数(数字のみ)を入力してください。", "引数入力", , XPos:=横位置, YPos:=縦位置)
>>  If PtWd = "" Then
>>    MsgBox "引数なし 終了"
>>    Exit Sub
>>  ElseIf Not IsNumeric(PasWd) Then
>>    MsgBox "数字だけです。 終了"
>>    Exit Sub
>>  End If
> 
>
>ElseIf Not IsNumeric(PasWd) Then
>  ↓
>ElseIf Not IsNumeric(PtWd) Then


ご情報ありがとうございます。


yaplog.jp/hotbags/

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