| |
▼エクセル初心者 さん：
おはようございます。
>A1セルには●を表示したいマクロボタンを作りたいのです。
>B1セルには○を表示したいマクロボタンを作りたいのです。
>●や○のマクロボタン一発で複数選択された各セルに
>●や○を複数選択されたセルに各々入力できませんか？
新規ブック（あくまでも新規ブックです）の標準モジュールに
'===========================================================
Sub ボタン作成()
Dim r As Range
With ActiveSheet
Set r = Range("a1")
With .Buttons.Add(r.Left, r.Top, r.Width, r.Height)
.Name = "b_black"
.Caption = "●"
.OnAction = "set_str"
End With
Set r = Range("b1")
With .Buttons.Add(r.Left, r.Top, r.Width, r.Height)
.Name = "b_white"
.Caption = "○"
.OnAction = "set_str"
End With
End With
End Sub
'===================================================================
Sub set_str()
Dim rng As Range
Dim bnm As Variant
Dim mystr As String
bnm = Application.Caller
If TypeName(bnm) = "String" Then
If bnm = "b_black" Then
mystr = "●"
ElseIf bnm = "b_white" Then
mystr = "○"
End If
If mystr <> "" Then
On Error Resume Next
Set rng = Selection
If Err.Number = 0 Then rng.Value = mystr
End If
End If
End Sub
まず、「ボタン作成」を実行してください。
アクティブシートのセルＡ１及び、Ｂ１にボタンが作成されます。
作成されたボタンをクリックして試してみて下さい。
オセロ？ かなあ！！
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
