![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
こんばんは。
例えば、セルB5をクリックして、"○"を表示する場合
アクティブセルがB5以外であれば、B5をクリックして、"○"を表示したり、消したりすることはできます。
が、アクティブセルがB5の状態でクリック(続けてセルB5をクリック)して、それはできません。
もしクリックのみでそれをしたければ、一旦、B5以外のセルをクリックしてアクティブセルをB5以外にしてから再度B5をクリックする方法になります。
以下のようにSelectionChangeイベントを使います。
●B1~B5 で実行する場合。
'------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
If Intersect(Target, Range("B1:B5")) Is Nothing Then Exit Sub
If Target.Value = "" Then
Target.Value = "○"
Else
Target.Value = ""
End If
End Sub
'--------------------------------------------------------
こんばんは。回答有難うございます。マクロにもいろいろな方法があるものだと感心してしまいました。マクロがどのようなものかを知ったばかりの初心者ですが、今後も勉強していきたいと思います。ありがとうございました。
No.2
- 回答日時:
マクロでやる方法です。
エクセルではセルのクリックイベントは拾えません。ダブルクリックなら可能です以下のマクロを「シート名タブ右クリック」→「コードの表示」で開く画面に貼り付けて、目的のセル範囲を修正して下さい(2行目です)
シートに戻り目的のセルをダブルクリックしてみてください
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Const rng As String = "A1:A3" '処理対象のセル範囲
If Not Application.Intersect(Target, Range(rng)) Is Nothing Then
If Target.Value = "" Then
Target.Value = "○"
Else
Target.ClearContents
End If
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルマクロ セルをクリックするたびに記号を入力 1 2022/10/13 19:47
- Excel(エクセル) エクセル バーコード作成で他のシートを参照するには? 2 2023/05/03 16:57
- Excel(エクセル) ExcelのVBAコードについて教えてください。 1 2022/06/20 09:22
- Excel(エクセル) エクセルで、特定のセルの内容を更新すると、別の特定セルに 更新日付が自動的に表示させる方法はあります 1 2022/11/14 21:03
- Excel(エクセル) エクセルの散布図で新たに入力した値のデータラベルが空欄になる現象 1 2022/04/26 09:31
- Excel(エクセル) エクセルでセルに数式を入力した状態で、数式バーをクリックすると添付資料のように 「数式に関連するセル 2 2022/11/25 19:36
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/01/23 17:13
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 11:27
- Excel(エクセル) エクセルで条件付き書式を使わずにセルの文字の色を変える方法を教えて下さい 8 2023/07/28 01:15
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/08 15:45
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルマクロ セルをクリックするたびに記号を入力
Excel(エクセル)
-
Excelでセルをクリックするたびに表示を切り替えるには?
Excel(エクセル)
-
エクセル初心者
Excel(エクセル)
-
-
4
クリックすると文章が表示されるシステム
Excel(エクセル)
-
5
セルをクリック⇒そのセルに入力された文字を○で囲む
Excel(エクセル)
-
6
エクセルでセルをクリックして“○”や✔マークを入力
Excel(エクセル)
-
7
VBAでセルをクリックする回数で表示が変わる
その他(プログラミング・Web制作)
-
8
エクセル ダブルクリック入力の範囲が複数の場合
Excel(エクセル)
-
9
シングルクリックとダブルクリックのイベントについて
Access(アクセス)
-
10
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
11
ダブルクリックして数値の1を入力するマクロを
Excel(エクセル)
-
12
【VBA】クリックする毎にセル色が変わる
Excel(エクセル)
-
13
Excel Vbaを使って 結合セルをダブルクリックでチェックマークしたいのですが手順を教えてくださ
Excel(エクセル)
-
14
エクセル VBA ワンクリックでチェックボックスにレ点が入ったりしなかったりしたい
Excel(エクセル)
-
15
エクセルのセル内に全角数字を入力したいのにエンターを押すと自動で半角になってしまいます。
Excel(エクセル)
-
16
ダブルクリックすると現在の時刻が表示されるVBA
Excel(エクセル)
-
17
エクセルをPDFで保存し、ファイル名はA1セルを参照するVBAの記述を教えてください。
Excel(エクセル)
-
18
VBA ダブルクリックするたびにセルの色が順番に変わる
Excel(エクセル)
-
19
Excelにて、セルをダブルクリックすると、数字や日付が入る。又、ユーザーフォームを表示する
Excel(エクセル)
-
20
Excelシートの保護(図の挿入だけ許可)
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ファイルサーバー上のexcelファ...
-
結合されたセルの移動 VBA
-
エクセルでセルをクリックする...
-
VBAでの SendKeysの変数指定方法
-
vbaで指定したセルより下の行を...
-
再質問です。マクロの修正箇所...
-
vba 2つの条件が一致したら...
-
あああ..ああい..ああう とい...
-
【Excel関数】UNIQUE関数で"0"...
-
B列の最終行までA列をオート...
-
Excel UserForm の表示位置
-
ワイルドカード「*」を使うとう...
-
[EXCEL]ボタン押す→時刻が表に...
-
VBA 別ブックからの転記の高速...
-
【VBA】【ユーザーフォーム_Lis...
-
VBAマクロ実行時エラーの修正に...
-
vba formulaの中での変数の扱い
-
Excel:いまフォーカスがあるセ...
-
Excel VBAでのWorksheet_Change...
-
VBAを使って検索したセルをコピ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
vbaで指定したセルより下の行を...
-
VBAでの SendKeysの変数指定方法
-
エクセルでセルをクリックする...
-
Excelマクロ セルを行頭に移動
-
Excel VBA:フォーム←→セルのア...
-
マクロのデータ削除
-
【VBA】アクティブセルだけ背景...
-
IF関数で違う値もTRUEになる
-
ファイルサーバー上のexcelファ...
-
エクセルマクロで「セルのサイ...
-
ダブルクリックでセルに色をつ...
-
(エクセルVBA)セルを左クリッ...
-
Excel VBA で色付きのセルの値...
-
VBA Rangeの足し算
-
セルをクリックしたら色を変え...
-
【EXCEL-VBA】特定の値の入った...
-
excel マクロでの特殊文字入力方法
-
【マクロ】1つのセルから結合...
-
Excelで数値の変化をカウントし...
-
ExcelVBA コンボボックスに入力...
おすすめ情報