![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?a65a0e2)
No.6ベストアンサー
- 回答日時:
>実行時エラー'13': 型が一致しません。
これはわたしのミスです。すいません。
じつは、前回紹介したコードは、
「選択(クリック)するセルは1つ」という前提で書いているために、上記のエラーが発生します。
たとえば、
ドラッグなどで、複数の範囲を選択しようとすると、実行時エラーがでてしまいます。
また、セル結合などで複数のセルが結合された場所がある時もエラーになります。
そこで、前回のコードの3行目あたりの、
With Target
の部分を、
With ActiveCell
に修正してみてください。
これで直ると思います。
で・できた~~~!!
初心者の私がhappypointさんのいうとおりにしたらバッチリできました(^o^)goo
○を置きたいセルが結合されていたのでエラーがでたのですね。
お忙しい中何度も何度も丁寧に教えていただき本当に本当にありがとうございました!
また機会がありましたらよろしくお願いしますm(__)m
No.5
- 回答日時:
>補足したような事ができるのであれば使ってみたいのですが・・・
>初心者の私ではやはり難しいものなのでしょうか?
手順さえ覚えれば、今回紹介した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」という項目が反転していることを確認して、
「実行」をクリックしてください。
すると、クリックしてもセルに○印がつかない通常の状態に戻ります。
すごい!すごいです!!
これこそ正に私がやりたかったものです(●^o^●)
happypointさんは本当にお詳しいのですね☆うらやましい限りです。
ですが、新しいブックでは動作したのですが作業したいブックでは「実行時エラー'13': 型が一致しません。」と表示され動作しません(ToT)
何がいけないのでしょうか?
お忙しい所度々すみません!
No.4
- 回答日時:
こんにちは。
>1クリックで○を表示したいと単純に思ったのですが
「クリックでなにかする」というのはVBA(マクロ)の専門分野です。
しかしVBAを使わずに、
別の方法(つまり「クリックで表示」というのではないけれども)
でよければできないこともありません。
(1)
まず、「コピーして貼り付け」をキーボードでする方法。
どこか1カ所○を入力したら、そのセルを選択して「Ctrl+C」でコピー。
その後、○をつけたい箇所にカーソルを移動して「Ctrl+V」を押せば、何回でも連続して貼り付けることができます。
(2)
つぎに、文字の置換機能を使う方法。
○印をいれたいところに、
なにか代わりになる打ちやすい文字・記号をまとめて入力します。
たとえば、「Q」という文字を、○印をいれたいセルすべてに入力します。
そして、「編集-置換」を選択します。
「検索する文字列」を「Q」
「置換語の文字列」を「○」
と入力し、「すべて置換」をクリックします。
こうすることで、「Q」を入力したセルが、
すべて「○」に置き換わります。
「クリックしたら入力される」というのとは多少違いますが、
入力がだいぶ楽になると思いますよ。
丁寧に教えていただきありがとうございます。
「置換」というものがあるのを今始めて知ったのですが・・・(^_^;
そうですね!「置換」をすれば○を入力するよりだいぶ楽になりますね☆
>「クリックでなにかする」というのはVBA(マクロ)の専門分野です。
とありますが、補足したような事ができるのであれば使ってみたいのですが・・・初心者の私ではやはり難しいものなのでしょうか?
もしできるのなら詳しく教えていただけたら幸いです。
質問ばかりですみませんm(__)m
No.3
- 回答日時:
こんばんわ。
言われるがまま、の仕様で作ってみました。
クリック(というかカーソルが動くたび)ごとに、○の表示がついたり消えたり。
(自分で言うのもなんですが、なんかえらく使いにくそうです。)
F11キーを押して、VBEを立ち上げ、
対象とするシートのシートモジュールにこのコードを貼り付けてください。
(よくわからないときは補足してください。)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If .Value = "○" Then
.Value = ""
Else
.Value = "○"
End If
End With
End Sub
早々にご回答いただきありがとうございます。
せっかくご回答いただいたのですが、初心者のためVBEというものが全くわかりません(ToT)
1クリックで○を表示したいと単純に思ったのですが、なかなか難しいようで・・・
補足いたしますので再度お願いいたします。
No.2
- 回答日時:
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
こんなのでは多分ダメだと思いますが、どの点に不満ありか補足してください。質問内容が捉えられず、補足の呼び水の積もりです。
またコントロールツールボックスのチェックボックスはダメですか。
この回答への補足
詳しくいいますと・・・下記の例ような工事月報というものを1月を上半期・下半期と分けて作っているのですが、1日は準備、2日は○○工・・・というように日にち毎に○をつけなければいけないのです。
枚数が多くなると○をたくさん入れなくてはいけないので作業が面倒なため質問のようにセルをクリックする度○が表示・非表示できるといいな~☆と思ったのです。こんなこと初心者の私に可能でしょうか?
先生方どうかよろしくお願いいたしますm(__)m
(例)
1 2 3 4 5 ・・・ ←日にち
準備工 ○
○○工 ○ ○ ←作業名
○○工 ○ ○
早々にご回答いただきありがとうございます。
せっかくご回答いただいたのですが、初心者のためVBEが全くわかりません(ToT)
1クリックで○を表示したいと単純に思ったのですが、なかなか難しいようで・・・
補足いたしますので再度お願いいたします。
No.1
- 回答日時:
VBAで可能ですが
もっと簡単な方法で
データ - 入力規制 で
設定の項目で 入力値の種類を「リスト」にして
空白を無視するのチェックを外します
元の値のところに 「○, ,」と入れます
(カッコは入れませんよ)
ドロップダウンリスト・・・にチェックを入れます
この設定をしたセルをクリックすると○と空白が選べるようになります
早々にご回答いただきありがとうございます。
この方法もよいのですが、なんせ○の欄がたくさんある為手間がかかりそうなので・・・
1クリックで簡単に○が表示できるといいな~と単純に思ったのですが・・・(^_^;)
初心者のためVBAは使ったことがありませんが、VBAを使えば可能なのでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Excel(エクセル) セルに設定した[コメント]、表示のON/OFFは正常なるも印刷されない! 3 2022/09/18 21:56
- Excel(エクセル) 至急 Excel日付表示設定教えてください Excelの日付表示ですが、他者から送られてくるExce 6 2023/02/03 11:01
- Excel(エクセル) エクセルについて教えてください。 1 2022/12/26 09:01
- Excel(エクセル) 【Excel】hyperlink関数を解除してもハイパーリンクが活きるようにできますか? 3 2023/05/22 11:22
- PDF PDFが勝手に変更されてしまいます 3 2022/04/12 01:12
- Excel(エクセル) Excelのマクロについてご教授ください 2 2023/02/25 09:43
- Excel(エクセル) [貼り付けオプション]とは? 3 2022/04/17 08:15
- Excel(エクセル) エクセルの数式で教えてください。 1 2022/07/08 13:46
- Excel(エクセル) エクセルについて教えてください。 1 2023/03/03 08:38
このQ&Aを見た人はこんなQ&Aも見ています
-
あなたの「必」の書き順を教えてください
ふだん、どういう書き順で「必」を書いていますか? みなさんの色んな書き順を知りたいです。 画像のA~Eを使って教えてください。
-
いちばん失敗した人決定戦
あなたの「告白」での大失敗を教えてください。
-
コンビニでおにぎりを買うときのスタメンはどの具?
コンビニでおにぎりを買うとき、何の具材を選ぶことが多いですか?
-
洋服何着持ってますか?
洋服を減らそうと思っているのですが、何着くらいが相場なのかわかりません。
-
14歳の自分に衝撃の事実を告げてください
タイムマシンで14歳の自分のところに現れた未来のあなた。 衝撃的な事実を告げて自分に驚かせるとしたら何を告げますか?
-
クリックすると文章が表示されるシステム
Excel(エクセル)
-
VBAでセルをクリックする回数で表示が変わる
その他(プログラミング・Web制作)
-
エクセルマクロ セルをクリックするたびに記号を入力
Excel(エクセル)
-
-
4
エクセルでセルをクリックすると“○”と入力
Excel(エクセル)
-
5
エクセル初心者
Excel(エクセル)
-
6
VBA ダブルクリックするたびにセルの色が順番に変わる
Excel(エクセル)
-
7
【VBA】クリックする毎にセル色が変わる
Excel(エクセル)
-
8
セルをクリック⇒そのセルに入力された文字を○で囲む
Excel(エクセル)
-
9
マクロボタンを押すたびに違う動作をしたい
Excel(エクセル)
-
10
エクセル ダブルクリック入力の範囲が複数の場合
Excel(エクセル)
-
11
VBA:結合されたセルに対する「Target」について
Access(アクセス)
-
12
エクセル 入力規則のリストボタンのサイズは変えられますか?
Excel(エクセル)
-
13
Excelでセル参照したとき、書式も一緒に持ってくるには?
Windows Vista・XP
-
14
シングルクリックとダブルクリックのイベントについて
Access(アクセス)
-
15
エクセルファイルを開く時、常に同じシートから開くようにするには?
Windows Vista・XP
-
16
Excel VBAでマウスの左クリックのイベントを検知するには
Visual Basic(VBA)
-
17
Excel 条件によって入力禁止にする
Excel(エクセル)
-
18
セルをクリックすると付箋のようなものが表示されるのだが。
Excel(エクセル)
-
19
エクセルでセルをクリックして“○”や✔マークを入力
Excel(エクセル)
-
20
エクセルマクロで結合されたセルをダブルクリックで指定文字を入力
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
Excel内での検索結果をシート...
-
クリックすると文章が表示され...
-
エクセル 数字をすべて○などの...
-
フォントの色を指定して削除出...
-
Excelで、図形内の文字をセルに...
-
マクロを実行すると画像がズレ...
-
エクセルでPDFリンクを大量...
-
エクセル 未入力セルがあると...
-
太字に設定されているセルの個...
-
Excelでセルをクリックす...
-
現在のセルの位置を返す関数は...
-
Excel:セルの値(文字列)を数...
-
【EXCEL】先週の月曜日の日付を...
-
セルがクリックされた回数をカ...
-
シート保護とグループ化機能を...
-
Excel2007 色のカウント (VBA)
-
Excel ハイパーリンクのURLを別...
-
アポストロフィーの一括挿入 ...
-
エクセル マクロ 相対パスか...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
Excel内での検索結果をシート...
-
エクセル 数字をすべて○などの...
-
クリックすると文章が表示され...
-
Excelで、図形内の文字をセルに...
-
太字に設定されているセルの個...
-
Excel ハイパーリンクのURLを別...
-
Excelでセルをクリックす...
-
Excel:セルの値(文字列)を数...
-
現在のセルの位置を返す関数は...
-
フォントの色を指定して削除出...
-
マクロを実行すると画像がズレ...
-
アポストロフィーの一括挿入 ...
-
エクセル 未入力セルがあると...
-
【EXCEL】先週の月曜日の日付を...
-
エクセルでPDFリンクを大量...
-
エクセルでセルをダブルクリッ...
-
EXCELのセルや文字色の反映
-
セルの内容をテキストボックス...
-
セルがクリックされた回数をカ...
おすすめ情報