| |
升目入力用って言っても。下のような特殊文字ですけど。
記号だから升目作成時にあったら便利かな？って程度ですけど。
┼、┴、┬、┤、├、┘、└、┌、┐、│、─
尚、最終的な使い方のコードは自分で付け加えてください。
セルに１文字の入力じゃーあまり使わないだろうから....。
引数持たせたボタンの使い方１って事で。
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
|
|
![[未読]](./data/FAQ/image/read_icon.gif){kind=icon}
