![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
たびたび申し訳ございません。
先ほどエクセルでダブルクリックをすると順番に該当セル内の値が「有」→「無」→「空白」 となるマクロをご教授頂き、下記の内容で解決した者です。
B列についての該当セルへの入力がなされるという内容だったのですが、実はC列にも同様の処理を致したく、またもや素人はなすすべが無くなってしまいました。
B列は「要」「不要」「請求」「空白」としたいと思います。
たびたび大変恐縮ですがよろしくご教授くださいませ。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("d1:d999")) Is Nothing Then Exit Sub
With Target
If .Value = "" Then
.Value = "有"
ElseIf .Value = "有" Then
.Value = "無"
ElseIf .Value = "無" Then
.Value = ""
End If
End With
End Sub
No.2ベストアンサー
- 回答日時:
> 複数行に同様の処理をそれぞれ当て込みたい場合
たとえば、1~999行目のB、C列を対象とする場合なら
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
If .Row > 999 Then Exit Sub '1000行以下の場合終了
If .Column = 2 Then 'B列の場合
Select Case .Value '値でケース分け
Case "": .Value = "要"
Case "要": .Value = "不要"
Case "不要": .Value = "請求"
Case "請求": .Value = ""
End Select
Cancel = True
ElseIf .Column = 3 Then 'C列の場合
Select Case .Value '値でケース分け
Case "": .Value = "有"
Case "有": .Value = "無"
Case "無": .Value = ""
End Select
Cancel = True
End If
End With
End Sub
No.3
- 回答日時:
質問にあるコードを応用して、パターン化し
後はパターンを増やすだけと言う考え方は如何
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B1:B999")) Is Nothing Then
With Target
If .Value = "" Then
.Value = "要"
ElseIf .Value = "要" Then
.Value = "不要"
ElseIf .Value = "不要" Then
.Value = "請求"
ElseIf .Value = "請求" Then
.Value = ""
End If
End With
ElseIf Not Intersect(Target, Range("C1:C999")) Is Nothing Then
With Target
If .Value = "" Then
.Value = "有"
ElseIf .Value = "有" Then
.Value = "無"
ElseIf .Value = "無" Then
.Value = ""
End If
End With
End If
End Sub
質問のコードとよく見比べて、違いをよく理解すれば
必要な範囲に対しての処理の設定が簡単にできる様になると思います
ありがとうございます!自分が求めていたのはこちらでした。
すみません、初心者過ぎて連結させるときの
ElseIf Not Intersect
てのがわからなかったんですね。(^^;
少し理解が進みました。さらに勉強したいと思います。
ポイント付与は教えて頂いた側が優劣をつけるようで恐縮ですが、今回はいち早く救いの手を差し伸べてくださったNo.1様からつけさせて頂きます。No.3 hige_082様も本当にありがとうございました。
No.1
- 回答日時:
BとC列を対象とし、ダブルクリックでそれぞれ違う文字を表示させればいいのですね?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
If .Column = 2 Then 'B列の場合
Select Case .Value '値でケース分け
Case "": .Value = "要"
Case "要": .Value = "不要"
Case "不要": .Value = "請求"
Case "請求": .Value = ""
End Select
Cancel = True
ElseIf .Column = 3 Then 'C列の場合
Select Case .Value '値でケース分け
Case "": .Value = "有"
Case "有": .Value = "無"
Case "無": .Value = ""
End Select
Cancel = True
End If
End With
End Sub
この回答への補足
ありゃ、もとのB列のみのものとずいぶん違った手順になるのですね。
早速のご教授、ありがとうございます。
この場合、BとC列のみでなく、複数行に同様の処理をそれぞれ当て込みたい場合、どのようにしたらよろしいでしょうか。
よろしくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) VBAのトグルボタンでのマクロについて質問です 3 2022/10/10 17:23
- Visual Basic(VBA) 【再投稿】VBAで動作しなくて困っています 2 2022/10/11 11:05
- Visual Basic(VBA) [Excel VBA] このコードでは行の挿入や行の消去をすると13のエラーが出てしまう。 3 2022/12/09 00:29
- Visual Basic(VBA) エクセル VBAで複数セル選択時エラーになる問題 3 2022/10/04 02:40
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Visual Basic(VBA) 【再々投稿】VBAのプログラムで動作しなくて困っています 8 2022/10/14 09:06
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
白血球が多いとどんな心配があ...
-
検便についてです。 便は取れた...
-
EXCELで条件付き書式で空白セル...
-
勃起する時って痛いんですか? ...
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
小数点以下を繰り上げたものを...
-
Excel 数値の前の「 ' 」を一括...
-
至急!尿検査前日にオナニーし...
-
甲状腺が腫れているが血液検査...
-
値が入っているときだけ計算結...
-
口の中に黒い血の塊
-
中出しをするとお腹が痛い・・・。
-
2つの数値のうち、数値が小さい...
-
精子が黄色?
-
エクセル指定した範囲からラン...
-
MIN関数で空白セルを無視したい...
-
【エクセル】0以外が入力され...
-
尿検査前日に自慰行為した時の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
至急!尿検査前日にオナニーし...
-
白血球が多いとどんな心配があ...
-
尿検査前日に自慰行為した時の...
-
検便についてです。 便は取れた...
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
勃起する時って痛いんですか? ...
-
尿検査の前日は自慰控えたほう...
-
精子が黄色?
-
中出しをするとお腹が痛い・・・。
-
EXCELで条件付き書式で空白セル...
-
口の中に黒い血の塊
-
これって喉仏ですか? 私は女性...
-
2つの数値のうち、数値が小さい...
-
納豆食べた後の尿の納豆臭は何故?
-
EXCELで式からグラフを描くには?
-
小数点以下を繰り上げたものを...
-
excelでsin二乗のやり方を教え...
-
エクセル指定した範囲からラン...
おすすめ情報