![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_10.png?8acaa2e)
様式Aで選んだ番号記号(123アイウABC有無など)セルをダブルクリックすればその番号記号に丸囲みができると同時に様式Bにもその同じ番号記号に丸囲みができているとするにはどのようなマクロになるでしょうか?
様式Aと様式Bは同じシートで上下2段でかまいませんし、ダブルクリックでなくてもセル指定後マクロボタンをクリックでもよいです。
アクティブのセル番地取得しその行プラス行目に円を描くということだろうと想像していますが私は初心者のためそこから先に進めません。
マクロ本やネットを探しましたが見当たりませんでした。
どうかよろしくお願いします。
No.2ベストアンサー
- 回答日時:
>アクティブのセル番地取得しその行プラス行目に円を描くということだろうと想像していますが
そこまで分っていて、なぜオフセット値を書かないのでしょうか?
>A様式(相手に提出用)
>項目a (1) アメリカ 2 イギリス 3 韓国
>この様に ” 1 アメリカ ” に(1)は囲みの○1とつけると
> ↓
>B様式(自分の控え用)
>項目a 1 アメリカ 2 イギリス 3 韓国
>にはマクロで自動で ” 1 アメリカ ”に1に囲み○印がつく
>ようにしたいわけです。
こんなことは回答者には関係ないことで、A様式とB様式の
オフセット値が知りたいのです
例えば、セルA1に丸したときA10にも丸がしたいとか
セルC5に丸したとき10下のセルにも丸がしたいとかね
'シートモジュールへコピペ
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
ActiveSheet.Shapes.AddShape(msoShapeOval, .Left, .Top, .Width, .Height).Fill.Visible = False
Cancel = True
With .Offset(10)
ActiveSheet.Shapes.AddShape(msoShapeOval, .Left, .Top, .Width, .Height).Fill.Visible = False
End With
End With
End Sub
設置方法は
対象のシートタブを右クリックしコードの表示を選択
対象のシートモジュールが表示されるのでコードをコピペ
モジュールを閉じる
オフセット値は適当に決めました、下方向に10としています
セルをダブルクリックすれば10下のセルにも丸が付きます
オフセット値の調整はご自分でお願いします
参考まで
最後に
mt2008さんのコードを一部お借りしました、有難う御座います
hige_082様
このたびは大変明快で丁寧なご回答ありがとうございます。
質問の仕方が余計な表現となってしまっていました。
質問方法も以後気をつけたいと思います。
早速試しましたところ、まさに自分が希望していたとおりの
マクロです。本当に助かりました。
これを機会にマクロの勉強に取り組んでいきたいと思いました。
改めてお礼申しあげます。ありがとうございました。
No.1
- 回答日時:
選択したセルに円を描くということでしょうか?
で、あればこんな感じでしょうか、セルを選択してから動かしてください。
2箇所に限定せず、選択されたセル全てに対して円を描いています。
Sub Sample()
Dim a As Range
For Each a In Selection
With a
If .Address = .Item(1).Address Then
ActiveSheet.Shapes.AddShape(msoShapeOval, .Left, .Top, _
.Width, .Height).Fill.Visible = False
End If
End With
Next
End Sub
なお、サンプルですので、エラー処理などは行っていません。悪しからず。
mt2008様 早速のご回答ありがとうございます。
選択セルを一度に丸付けができるので便利に利用させていただけそう
です。なるほどうまく記述されていると率直に思いました。
あともう少しひと工夫お願いしたいところがあるのです。
A様式(相手に提出用)
項目a (1) アメリカ 2 イギリス 3 韓国
この様に ” 1 アメリカ ” に(1)は囲みの○1とつけると
↓
B様式(自分の控え用)
項目a 1 アメリカ 2 イギリス 3 韓国
にはマクロで自動で ” 1 アメリカ ”に1に囲み○印がつく
ようにしたいわけです。
A様式だけにセル選択で○印をつければ自動でB様式ができている
状態にしたいわけなのです。
1項目だけの例としましたが実際には項目が多数あります。
せっかくのエクセル活用ですので最少手数で○付けをしたいわけなんです。
A様式とB様式は同じシートに上下で並べるつもりです。
どうかよろしくご教示お願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excelにて、シート1の行を削除するとシート2のシート1と同じ番号の行も削除したい 3 2022/05/08 04:24
- Excel(エクセル) ある数値に対して、値を返す数式についてです 2 2022/09/13 22:06
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
- Excel(エクセル) SUMIFのIF分岐について 4 2023/04/15 12:57
- Excel(エクセル) 【VBA】A列の指定した値と同じ行にあるD列の値を順番にコピペするマクロについて 4 2023/02/01 18:16
- Excel(エクセル) 製品番号での整列と、検索に関して 3 2023/06/28 19:20
- Excel(エクセル) 条件付き書式 別のシートで色付けされたセルデータの転記漏れを防ぐ書式を入れたい 4 2022/04/22 06:36
- Excel(エクセル) Excel VBA セルの書式設定 2 2022/03/30 10:48
- Excel(エクセル) 余計なお世話的な「入力規則」?対策は? 2 2023/01/14 12:39
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelマクロ セルを行頭に移動
-
ファイルサーバー上のexcelファ...
-
Excel VBA で色付きのセルの値...
-
エクセルでセルをクリックする...
-
Excel VBA:フォーム←→セルのア...
-
マクロのデータ削除
-
EXCELに画像を貼り付けマクロの...
-
VBAでの SendKeysの変数指定方法
-
Excel UserForm の表示位置
-
あああ..ああい..ああう とい...
-
excelのデータで色つき行の抽出...
-
特定の色のついたセルを削除
-
「段」と「行」の違いがよくわ...
-
エクセルのマクロについて教え...
-
VBA シートをコピーする際に Co...
-
Excel-VBAでのファイルの開き方
-
エクセルで複数のシートのクリ...
-
VBAマクロ実行時エラーの修正に...
-
エクセルVBA 配列からセルに「...
-
【ExcelVBA】zip圧縮されたCSV...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
vbaで指定したセルより下の行を...
-
VBAでの SendKeysの変数指定方法
-
エクセルでセルをクリックする...
-
Excelマクロ セルを行頭に移動
-
Excel VBA:フォーム←→セルのア...
-
マクロのデータ削除
-
【VBA】アクティブセルだけ背景...
-
IF関数で違う値もTRUEになる
-
ファイルサーバー上のexcelファ...
-
エクセルマクロで「セルのサイ...
-
ダブルクリックでセルに色をつ...
-
Excel VBA で色付きのセルの値...
-
(エクセルVBA)セルを左クリッ...
-
VBA Rangeの足し算
-
セルをクリックしたら色を変え...
-
【EXCEL-VBA】特定の値の入った...
-
excel マクロでの特殊文字入力方法
-
【マクロ】1つのセルから結合...
-
Excelで数値の変化をカウントし...
-
ExcelVBA コンボボックスに入力...
おすすめ情報