Ｅｘｃｅｌでセルをクリックするたびに表示を切り替えるには？

Question

Ｅｘｃｅｌで、セルをクリックするたびに”○”を表示・非表示と切り替えたいのですが、できるのでしょうか？
チェックボックスでもよいのですが、”レ”か”・”しかでないのでそれを”○”で表示したいのです。
うまく説明できませんが、よろしくお願いします！！

happypoint · Accepted Answer

>実行時エラー'13':　型が一致しません。

これはわたしのミスです。すいません。

じつは、前回紹介したコードは、
「選択（クリック）するセルは１つ」という前提で書いているために、上記のエラーが発生します。

たとえば、
ドラッグなどで、複数の範囲を選択しようとすると、実行時エラーがでてしまいます。
また、セル結合などで複数のセルが結合された場所がある時もエラーになります。

そこで、前回のコードの３行目あたりの、

　　　With Target 

の部分を、

　　　With ActiveCell

に修正してみてください。
これで直ると思います。

happypoint · Answer

>補足したような事ができるのであれば使ってみたいのですが・・・
>初心者の私ではやはり難しいものなのでしょうか？

手順さえ覚えれば、今回紹介したVBAをブックに組み込んで使うことは、
別段難しいものではありません。

まずExcelを立ち上げて、○をつけたいブックを開いてください。

Alt + F11 キーを押してください。
VBAを記述・編集するための「Visual Basic Editor(VBE)」という画面が立ち上がります。

画面左半分に、「プロジェクト」というツリー状の項目が表示されていると思います。
そのなかに、
「Microdoft Excel Objects」という項目の下に、
開いたブックのシート名が一覧で表示されていると思います。

このなかから、クリック操作で○印をつけたいシートを選んで、ダブルクリックしてください。
そうすると、画面右半分に白紙の画面が現れると思います。

この白紙の部分に、下記コードを貼り付けてください。

'↓ここから
Dim myFlg As Boolean

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If myFlg = False Then Exit Sub
With Target
　If .Value = "○" Then
　　.Value = ""
　Else
　　.Value = "○"
　End If
End With
End Sub

Sub StartAndStop()
myFlg = Not (myFlg)
If myFlg Then
　MsgBox "「クリックで○」を開始します。", vbInformation
Else
　MsgBox "「クリックで○」を停止しました。", vbInformation
End If
End Sub
'↑ここまで


コードを貼り付けたら、右上の×（終了ボタン）を押して、VBEの画面を終了します。
すると最初のExcelの画面に戻ってきます。

エクセルの「ツール-マクロ-マクロ」をクリックします。
マクロの一覧ダイアログが表示されます。

「シート名.StartAndStop」という項目が反転していると思いますので、
これを確認して「実行」をクリックしてください。
メッセージが表示され、クリックで○をつけるモードになります。

マウスでクリックしたセルに、「○」がつくことを確認してください。
ちなみに、すでに○が入力されているセルを再度クリックすると、
こんどは○が消える仕組みになっています。


○をつけるモードを終了したいときは、再度
「ツール-マクロ-マクロ」をクリックし、
「シート名.StartAndStop」という項目が反転していることを確認して、
「実行」をクリックしてください。

すると、クリックしてもセルに○印がつかない通常の状態に戻ります。

happypoint · Answer

こんにちは。

＞１クリックで○を表示したいと単純に思ったのですが
「クリックでなにかする」というのはVBA(マクロ)の専門分野です。
しかしVBAを使わずに、
別の方法（つまり「クリックで表示」というのではないけれども）
でよければできないこともありません。

（１）
まず、「コピーして貼り付け」をキーボードでする方法。
どこか１カ所○を入力したら、そのセルを選択して「Ctrl+C」でコピー。
その後、○をつけたい箇所にカーソルを移動して「Ctrl+V」を押せば、何回でも連続して貼り付けることができます。

（２）
つぎに、文字の置換機能を使う方法。
○印をいれたいところに、
なにか代わりになる打ちやすい文字・記号をまとめて入力します。

たとえば、「Q」という文字を、○印をいれたいセルすべてに入力します。

そして、「編集-置換」を選択します。
「検索する文字列」を「Q」
「置換語の文字列」を「○」
と入力し、「すべて置換」をクリックします。

こうすることで、「Q」を入力したセルが、
すべて「○」に置き換わります。


「クリックしたら入力される」というのとは多少違いますが、
入力がだいぶ楽になると思いますよ。

happypoint · Answer

こんばんわ。

言われるがまま、の仕様で作ってみました。
クリック（というかカーソルが動くたび）ごとに、○の表示がついたり消えたり。
（自分で言うのもなんですが、なんかえらく使いにくそうです。）

F11キーを押して、VBEを立ち上げ、
対象とするシートのシートモジュールにこのコードを貼り付けてください。
（よくわからないときは補足してください。）

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

With Target
　If .Value = "○" Then
　　.Value = ""
　Else
　　.Value = "○"
　End If
End With

End Sub

imogasi · Answer

VBEの画面で、VBAProjectのSheet1をクリックし、
GeneralはWorksheet、Declarations側はBeforeDoubleClickを選び下記を貼りつけて、ワークシートのC列でダブルクリックして見てください。
どこの列でもこれを働かせると、おかしくなるかもしれませんので、C列に限定しています。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 Then
If ActiveCell = "" Then
ActiveCell = "○"
Else
ActiveCell = ""
End If
End If
End Sub
こんなのでは多分ダメだと思いますが、どの点に不満ありか補足してください。質問内容が捉えられず、補足の呼び水の積もりです。
またコントロールツールボックスのチェックボックスはダメですか。

p-21 · Answer

VBAで可能ですが
もっと簡単な方法で
データ　-　入力規制　で
設定の項目で　入力値の種類を「リスト」にして
空白を無視するのチェックを外します
元の値のところに　「○,   ,」と入れます
（カッコは入れませんよ）

ドロップダウンリスト・・・にチェックを入れます
この設定をしたセルをクリックすると○と空白が選べるようになります

Ｅｘｃｅｌでセルをクリックするたびに表示を切り替えるには？

>実行時エラー'13': 型が一致しません。

>補足したような事ができるのであれば使ってみたいのですが・・・

こんにちは。

こんばんわ。

VBEの画面で、VBAProjectのSheet1をクリックし、

この回答への補足

VBAで可能ですが

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

>実行時エラー'13':　型が一致しません。