
No.3ベストアンサー
- 回答日時:
#1です。
単に○にするなら、何も1を入力してエンターキーを押さなくても、ダブルクリックするだけで出来れば簡単でいいですよね?
以下のようにすれば、指定範囲内の空白セルでダブルクリックすれば、○、指定範囲内の○のあるセルでダブルクリックすれば、元通り空白にします。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row = 1 Then Exit Sub
If Target.Column < 7 Or Target.Column > 13 Then Exit Sub
If Target.Value <> "○" And Target.Value <> "" Then Exit Sub
Cancel = True
If Target.Value = "" Then
Target.Value = "○"
Else
Target.Value = ""
End If
End Sub
No.2
- 回答日時:
G列からM列の、データを入力する範囲を選択し、「書式」>「セル」(あるいはCtrl+1)でセルの書式設定画面を出します。
「表示形式」で「分類」に「ユーザー定義」を選択し、右の「種類」に、以下のように入力してOKを押します。
[>0]"○";
テンキーからの入力ということなので、これで1以上の数値(2でも3でもいい)を入れると自動的に○に変わります。それ以外の文字などはそのまま表示されます。
No.1
- 回答日時:
ご指定の範囲内で1を入力したセル自体に○を表示させたいんですね?
では、以下を試して見てください。
1.シートのタブを右クリックし、「コードの表示」を選択。
2.出てきたVisualBasicEditor(白い部分)に下記のコードをコピペ。
'*****ここから下をコピペ*****
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Then Exit Sub
If Target.Column < 7 Or Target.Column > 13 Then Exit Sub
If Target.Value = 1 Then Target.Value = "○"
End Sub
'*****ここより上までをコピペ*****
3.Alt+F11キーでワークシートへもどります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel2019、2021の日付、曜日の表示について 2 2022/11/29 15:01
- Visual Basic(VBA) 【Excel VBA】条件に合った行の表示・非表示を行う方法 3 2023/03/18 12:31
- Visual Basic(VBA) エクセルVBAで『A列』に新規で数値を入力し『B列』から右方向の空白セルにその値を貼り付ける方法 4 2022/11/05 08:37
- Excel(エクセル) エクセルでセルの日付を和暦表示設定にしたらおかしなことに? 3 2022/05/25 11:47
- Excel(エクセル) Excel関数式で該当月日のみ表示し、それ以外の月日を空白にしたい。 1 2022/07/17 11:59
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) エクセル 自動計算 1 2023/01/30 13:28
- Excel(エクセル) エクセルの書式設定の表示形式で設定した文字を文字列としてコピーしたい 1 2022/12/21 10:41
- Excel(エクセル) excelにおける転記マクロの書き方 2 2023/05/12 03:16
- Excel(エクセル) エクセルで条件付き書式を使わずにセルの文字の色を変える方法を教えて下さい 8 2023/07/28 01:15
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
複数の文字列のいずれかが含ま...
-
Excelの入力規則で2列表示したい
-
SUMに含まれる範囲から特定のセ...
-
スペースとスペースの間の文字...
-
数式が入ったセルを含めて、数...
-
Excelでの検索結果を含む行だけ...
-
Excel上でのデータ数字が連番で...
-
エクセル セル内の文字数を超え...
-
エクセル:横長の表を改行して...
-
列の数字に100をかけたい
-
入退社日より各月末の在籍者数...
-
なぜにエラーに???
-
エクセルで曜日に応じた文字を...
-
空白行も含めてソートしたい
-
「エクセル」特定の行(セル)...
-
エクセルで、毎日の走行距離(...
-
エクセルのVLOOKUP関数について
-
エクセルで表示されている数字...
-
エクセルで既に入力済みの列の...
-
エクセルのsumifでかけ算してか...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの入力規則で2列表示したい
-
複数の文字列のいずれかが含ま...
-
SUMに含まれる範囲から特定のセ...
-
数式が入ったセルを含めて、数...
-
Excel上でのデータ数字が連番で...
-
スペースとスペースの間の文字...
-
列の数字に100をかけたい
-
エクセルで表示されている数字...
-
エクセルでセルの値分の個数の...
-
Excelでの検索結果を含む行だけ...
-
エクセル:横長の表を改行して...
-
エクセル セル内の文字数を超え...
-
「エクセル」特定の行(セル)...
-
C列にF列の担当者(A〜)を順番...
-
別のセルに値が入力されたら、...
-
エクセルで1列全部10倍したい
-
エクセルで、毎日の走行距離(...
-
Excelのセル内文字の並び替えに...
-
エクセルで曜日に応じた文字を...
-
入退社日より各月末の在籍者数...
おすすめ情報