Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

24828 / 76738

←次へ　｜　前へ→


	【57257】Re:複数選択された各セルに各々コピー

ichinose - 08/8/3(日) 7:36 -


	引用なし

	パスワード

▼エクセル初心者さん：
おはようございます。

>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

まず、「ボタン作成」を実行してください。

アクティブシートのセルＡ１及び、Ｂ１にボタンが作成されます。

作成されたボタンをクリックして試してみて下さい。

オセロ？　かなあ！！

0 hits

▼

【57256】複数選択された各セルに各々コピー エクセル初心者 08/8/3(日) 1:53