目安箱 IV

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

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

┃ ┃ ┃ ┃ ┃ ┃

64 / 277

←次へ　｜　前へ→

【228】升目入力用ツールバーボタン

Jaka - 08/2/20(水) 16:13 -


	引用なし

	パスワード

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

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

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

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

3,863 hits