
No.1ベストアンサー
- 回答日時:
B1:B20 のフォントを、Webdings か marlett にしてからシートタブをクリックし、
コードの表示 を選択してください。
開いた画面に、以下をコピペしてから、その画面を閉じます。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Row > 20 Then Exit Sub
Select Case Target.Value
Case Is = ""
Target.Value = "a"
Case Else
Target.Value = ""
End Select
Target.Offset(0, -1).Select
End Sub
No.5
- 回答日時:
#1です。
> アクティブセル(現在のセル)をクリックしても発生しません。
SelectionChangeイベントにつきましては、#4さまのおっしゃるとおりです。
そのため、最後の行
Target.Offset(0, -1).Select
デ、処理後に強制的に右隣のセル(問題が書かれたセル)を選択させています。

No.4
- 回答日時:
No.1さんの回答ですが、SelectionChangeイベントを使っているようですが、これだと「クリックしてチェックのオン・オフ」の仕様に対しては不完全ではないでしょうか?
SelectionChangeイベントは「選択範囲を変更したとき」に発生するイベントです。
「クリック」してセルを移動したときに発生するのでクリックして発生するイベントのように思いがちですが、アクティブセル(現在のセル)をクリックしても発生しません。
ところがチェックの場合は同じセルをクリックする場合が多々あると思います。
どうでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで指定したセルのどれ...
-
貼り付けで複数セルに貼り付けたい
-
セルをクリック⇒そのセルに入力...
-
エクセル オートフィルタで絞...
-
vba テキストボックスとリフト...
-
【マクロ画像あり】❶1つの条件...
-
EXCEL VBA セルに既に入...
-
Excelで数式内の文字色を一部だ...
-
数式を残したまま、別のセルに...
-
【Excel】 セルの色での判断は...
-
(Excel)数字記入セルの数値の後...
-
エクセルの一つのセルに複数の...
-
エクセルの書式設定の表示形式...
-
Excel 例A(1+9) のように番地の...
-
枠に収まらない文字を非表示に...
-
VBAでの結合セルのコピー&ペー...
-
エクセルのセルの枠を超えて文...
-
Excel for Mac使用中ポインタが...
-
ミセルとコロイド
-
Excelでのコメント表示位置
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
vba テキストボックスとリフト...
-
貼り付けで複数セルに貼り付けたい
-
エクセルで指定したセルのどれ...
-
枠に収まらない文字を非表示に...
-
セルをクリック⇒そのセルに入力...
-
エクセル
-
数式を残したまま、別のセルに...
-
(Excel)数字記入セルの数値の後...
-
エクセル オートフィルタで絞...
-
エクセルの書式設定の表示形式...
-
Excel 例A(1+9) のように番地の...
-
エクセルの一つのセルに複数の...
-
excelの特定のセルの隣のセル指...
-
EXCEL VBA セルに既に入...
-
Excelでのコメント表示位置
-
エクセルのセルの枠を超えて文...
-
【エクセル】IF関数 Aまたは...
-
対象セル内(複数)が埋まった...
-
Excelで数式内の文字色を一部だ...
-
【Excel】 セルの色での判断は...
おすすめ情報