
昨日質問させて頂いたのですが、会社のパソコンではネットは使えない為、マクロ以外の方法でと質問させて頂きましたが、こちらのサイトにはアクセス制限がかかっておらずコピーペースト可能でしたので再度質問させて頂きます。
ちなみにマクロは今回初めて使う為、完全初心者です。
マクロ入門サイトをいくつか読んでみましたが、よくわかりませんでした…
本題ですが、例えばエクセルのシートに
1.いちご
2.りんご
3.みかん
という選択肢があり、2番のりんごを選択したいとします。
『2』という数字の書かれたセルをダブルクリックすると、『2』という数字が○で囲まれるようにする事は出来ないものでしょうか?
会社で使うファイルなのですが、そのファイルにはこういった選択肢がいくつもあるので、シート上のどのセルをクリックしても、クリックした箇所が○で囲まれるようになればと思います。
コピーする為の式が貼り付けられているのを見かけますが、ああいった式を貼り付けた場合、囲む○の大きさや形状はどの段階で指定するのでしょうか?
(ちなみに今回使用したい○のサイズや形状は、どこのセルをクリックしても同じもので構いませんが、行からはみ出ない大きさの○に設定したいです)
一応私が調べたサイトでは、Altキーを押しながら[F11]キーを押す⇒標準モジュールの右側に式を貼り付けると書いてありましたが、その後どのようにその画面を終了するのか、またその後どのように実行するのかが書かれてありませんでした
会社のパソコンはEXCEL2013です。
マクロのコードを貼り付けて、実際に使ってみるまでの流れも教えて頂けませんでしょうか?
素人でもわかりやすいサイトがあればそちらでも構いません。
どうかよろしくお願い致します。
No.2ベストアンサー
- 回答日時:
このような要求は昔からよくありました。
結構大変です。それは、セルに入力された文字がどのようになっているか分からないからです。何もないシートに図形を挿入しようとすると、例えば、
1.単一セルなのか結合セルなのか
2.フォントの種類やフォントサイズは
3.行高とセル内での上・中・下の位置は
4.左・中・右揃えは
5.どこに「○」を付ける
6.セル内の文字は数値?文字列?
7.表示した「○」を消したいことは?
くらいがはっきりすると制約付きでモジュールを作れます。
この質問の場合はほとんど未定の場合なわけで、次のようにします。
ア.実際に使用するシートに「○」を書いてください。
イ.解答したモジュールをそのシートのコードウィンドウに貼り付けて下さい。
(ALT-F11でVBE画面に移動し、メニューから、表示>プロジェクトエクスプローラーを選択し、Sheet1に「〇」があるならプロジェクトエクスプローラーのSheet1(Sheet1)をダブルクリックして表示された右の広い画面に貼り付けます。(Wordやメモ帳などと同じ感覚です))
これで終了です。当然ですが、ダブルクリックするたびに図形が現れたり消えたりします。「○」は図形のマルです。(別の形でも構いません)表示された図形を動かせないようにシートに保護をかけるべきかもしれません。このあたりは検討してください。
シートに帰ります。
この後、「〇」がうまく配置できたか検証します。「ア」で重要な点は、「○」の左上を該当セル内に納めることです。
うまく「○」が置けていれば、そのセルをダブルクリックすれば「○」は消えます。消えなければ位置を修正してください。必要な箇所に「○」を配置して、テストでダブルクリックして表示を全部消してしまいます。全部消えればテストと初期化が終了です。
最初に「○」を貼り付けてもらうことで、モジュール側で行うことが劇的に減少します。このようなシートを使うことの現実味も出てきます。
しかし、実務ではあまり使いません。この後、(アンケートのように)「○」を集計したいなどの追加要求が出てきたりします。「○」を付けて印刷したりしてその場限りで使うにはいいかもしれません。試してみてください。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim shp As Shape 'オートシェイプ
For Each shp In Shapes
With shp
If Not (Application.Intersect( _
Range(.TopLeftCell.Address), Target) Is Nothing) Then
.Line.Visible = Not (.Line.Visible)
End If
End With
Next
Cancel = True
End Sub

ご丁寧にありがとうございます。
挿入して下さっていた一番下の画像にあるような感じで○を付けるのが理想だったのですが、単一セルか結合セルかによっても変わってくるのですね。素人の私には難しすぎました…(笑)
まずは他の方法で代用し、自分なりにマクロについて勉強してみた上で、教えて頂いたものをやってみようと思います。
No.1
- 回答日時:
こんばんは!
なかなか回答がつかないようなので・・・
>『2』という数字の書かれたセルをダブルクリックすると、
>『2』という数字が○で囲まれるようにする事は出来ないものでしょうか?
単純にセルを塗りつぶすだけの方が簡単なのですが、
ご要望が「丸囲い文字」というコトですね。
ExcelではWordのような囲い文字の設定はないようですし、
丸囲い数字は環境依存文字になってしまいますので、
オートシェイプの丸をセル上に表示させる方法はどうでしょうか?
尚、セル内の数字の位置がバラバラだとずれてしまいますので、数字そのものも中央揃えにしています。
セルをダブルクリックすると、数値が入っているセルに関してだけ「丸囲い文字」もどきにしています。
(文字列セルは何も反応しません)
そして、すでに丸のオートシェイプがあるセルをダブルクリックすると
その丸は消えるようにしてみました。
画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面のカーソルが点滅しているところに
↓のコードをコピー&ペースト → Excel画面に戻り、好みのセルをダブルクリックしてみてください。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'この行から
Dim c As Range, myShp As Shape, myFlg As Boolean
Set c = Target
If IsNumeric(c) And c <> "" Then
Cancel = True
c.HorizontalAlignment = xlCenter
For Each myShp In ActiveSheet.Shapes
If myShp.Top >= c.Top And myShp.Top + myShp.Height <= c.Top + c.Height And _
myShp.Left >= c.Left And myShp.Left + myShp.Width <= c.Left + c.Width Then
myFlg = True
Exit For
ElseIf myShp.Left > c.Left + c.Width And myShp.Top > c.Top + c.Height Then Exit For
End If
Next myShp
If myFlg = True Then
myShp.Delete
Else
With ActiveSheet.Shapes.AddShape(msoShapeOval, c.Left + (c.Width - c.Height) / 2, _
c.Top + c.Height / 40, c.Left + c.Height, c.Top + (c.Height / 20) * 19)
.Width = c.Height - c.Height / 20
.Height = c.Height - c.Height / 20
.Fill.Visible = msoFalse
With .Line
.ForeColor.RGB = vbBlack
.Weight = 0.7
End With
End With
End If
End If
End Sub 'この行まで
※ セル幅がセルの高さより広いという前提です。
※ すでにオートシェイプが表示されているセルでダブルクリックする際、
オートシェイプ上でダブルクリックしないようにしてください。
こんな感じではどうでしょうか?m(_ _)m
クリックすると、そのセルにオートシェイプで作った○が乗るようになればなぁと思ったのですが、なかなか難しいのですね。
自宅のパソコンではエクセルが使えないので、会社に行ったら早速試してみたいと思います。
お忙しい中わざわざ考えて頂き本当にありがとうございました(^^)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
先着1,000名様に1,000円分もらえる!
教えて!gooから感謝をこめて電子書籍1,000円分プレゼント
-
Excelで丸をつけたい
Excel(エクセル)
-
特定のセルを丸で囲む方法 ご教示ください。
その他(Microsoft Office)
-
エクセルでセルをクリックすると“○”と入力
Excel(エクセル)
-
4
エクセルで文字を丸で囲む方法
Excel(エクセル)
-
5
VBAで丸をつけたいです。
その他(プログラミング・Web制作)
-
6
エクセルでセルをクリックして“○”や✔マークを入力
Excel(エクセル)
-
7
エクセルで条件を付けて丸を付ける関数を教えてください。
Excel(エクセル)
-
8
エクセルで○をつけるマクロ設定
Excel(エクセル)
-
9
チェックボックスの箱のサイズとフォントサイズは変更できるの?
Excel(エクセル)
-
10
エクセルマクロでの丸囲み文字
Excel(エクセル)
-
11
Excelでセルをクリックするたびに表示を切り替えるには?
Excel(エクセル)
-
12
マクロを使って結合セルに丸を付ける+αな難題。。
Visual Basic(VBA)
-
13
セルをクリック⇒そのセルに入力された文字を○で囲む
Excel(エクセル)
-
14
チェックボックスサイズ変更
Excel(エクセル)
-
15
マクロでオートシェイプを表示したいのですが(泣)
Excel(エクセル)
-
16
Excel Vbaを使って 結合セルをダブルクリックでチェックマークしたいのですが手順を教えてくださ
Excel(エクセル)
-
17
(Excel)あるセルに文字を入力しただけで、同じブック内のほかのワークシートにも、同じ文字が自動的に入るようにするには?
Excel(エクセル)
-
18
エクセルのセルにカレンダーを表示させ、日付をセルに入力させたい
Excel(エクセル)
-
19
エクセルで囲み線で出来ますか?
Excel(エクセル)
-
20
セルの内容の条件に応じて図形の表示をしたりしなかったりする
Excel(エクセル)
関連するQ&A
- 1 セルをクリック⇒そのセルに入力された文字を○で囲む
- 2 エクセル あるセルに文字を入力した後ボタン一つでそのセルを入力の状態ではなく只その同じセルを選択している状態にしたい
- 3 Excelについて あるセルに文字が入ったら違うセルに色が付き、 色がついたセルに文字を入力したら色
- 4 エクセルでセルをクリックして“○"や✔マークを入力
- 5 セルをクリックするだけで○で囲まれるようにしたい
- 6 エクセルでセルをクリックすると“○"と入力
- 7 Excel2000でセル内の文字を○で囲むには
- 8 エクセルでセルに数字を入力すると、別のセルに入力されている文字の色を変える方法
- 9 任意のセルを検索窓にして文字(ひらがな)を入力すると既記入のセルを探しそのセルの横のセルに飛びたい
- 10 文字を入力したセル以降のセルも同じ文字になるVBA
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
セル版について・・
-
5
excelの特定のセルの隣のセル指...
-
6
対象セル内(複数)が埋まった...
-
7
ドロップダウンさせるボタンを...
-
8
Excel 10を超えた場合1000 20を...
-
9
【Excel】 セルの色での判断は...
-
10
【エクセル】IF関数 Aまたは...
-
11
エクセル 足して割る
-
12
エクセルの指定したセルの合計...
-
13
Excelについて(セル内の文字を...
-
14
エクセルで一定期間過ぎたら色...
-
15
VBA PDF ファイル名をセルか...
-
16
セルをクリック⇒そのセルに入力...
-
17
エクセルで空白セル”” と未入...
-
18
エクセルのセルの枠を超えて文...
-
19
エクセル 数字の前の「00」を...
-
20
VBAでの結合セルのコピー&ペー...
おすすめ情報