作業ブックの作業シートに
Private Sub Worksheet_Change(ByVal Target As Range)
を設定しています。
このコードに下記のコードを追加したいのですが、教えてください。
セルC14 C16 C18にせれぞれプルダウンで選択した文字が表示されます
文字は固定文字で「審査」です
3つのセルには必ず1つだけ「審査」が表示されていれば良く
例えばC14に「審査」と表示し
次に16に「審査」を表示させると
最初のC14の「審査」は削除
同じく
C18に「審査」を表示させると
次に表示させたC16の「審査」は削除です
例は順番をC14からにしてますが
順番は順不同です
各セルはセルを結合してますので
見た目は縦に3つ並んでます
よろしくお願いします。
親切にコードを全て教えてください。
宜しくお願い致します。
No.2
- 回答日時:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("C14, C16, C18")
If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
If Target.Value = "審査" Then
Select Case Target.Address
Case "$C$14"
Range("C16").ClearContents
Range("C18").ClearContents
Case "$C$16"
Range("C14").ClearContents
Range("C18").ClearContents
Case "$C$18"
Range("C14").ClearContents
Range("C16").ClearContents
End Select
End If
End If
End Sub
No.3
- 回答日時:
Excel VBAで、セルC14、C16、C18にプルダウンから「審査」という文字を選択した際に、他の2つのセルからはその文字が削除されるようなコードをお求めですね。
以下のコードをWorksheet_Changeイベントに追加してみてください。このコードは、指定された3つのセルのいずれかに「審査」と入力された場合、他の2つのセルからはその文字をクリアします。このコードは、C14、C16、またはC18のいずれかのセルが変更されたときにトリガーされ、変更されたセルに「審査」という値が入力されているかどうかをチェックします。もし「審査」と入力されていた場合、他の2つのセルの内容をクリアします。ご希望の動作を実現するためには、このコードを作業シートのVBAエディタに追加してください。もし何かご不明点があれば、お気軽にお尋ねください。
No.5ベストアンサー
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/06/10 11:06
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 3 2022/06/10 09:24
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2024/03/06 13:07
- Excel(エクセル) Excelのマクロについて教えてください。 4 2022/05/31 14:07
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2024/03/01 17:04
- Visual Basic(VBA) VBAコードについて教えてください、 下記のコードを一つにまとめる方法を教えてください セルF18に 2 2024/03/06 20:11
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/06/19 10:08
- Excel(エクセル) Excelにの以下の設定方法について教えてください! C列にデータ入力の設定をしています。(出、入を 3 2022/06/22 01:33
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
Excel関数またはVBAでの質問になります
Visual Basic(VBA)
-
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
左右の表のキー位置を合わせたい
Visual Basic(VBA)
-
-
4
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
5
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
6
引数に数値、文字列の混在
Visual Basic(VBA)
-
7
VBAのコードを教えてください
Visual Basic(VBA)
-
8
ExcelVBA シート名を複数セルから取得して変更
Visual Basic(VBA)
-
9
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
10
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
11
Excel VBA 定義されたプロージャ名、関数名の取得
Visual Basic(VBA)
-
12
VBA UserFormからの転記で
Visual Basic(VBA)
-
13
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
14
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
15
VBAで大量のファイルをシート名ごとに転記やらいろいろしたい!
Visual Basic(VBA)
-
16
エクセルの数式で教えてください。
Excel(エクセル)
-
17
VBAに関して
Visual Basic(VBA)
-
18
VBAユーザーホームテキストボックスにカーソルを自動で表示したい
Visual Basic(VBA)
-
19
ExcelVBAのFindFirstエラーについて
Visual Basic(VBA)
-
20
近似した文字列を置換するエクセル関数またはVBAについて
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「2年ごとに一回」と「2年に一...
-
審査の反対語は何ですか?
-
LINEMOで審査に落ちるのですが
-
”査印”の言葉の意味を教えてく...
-
一番死にたくなった時教えてく...
-
oppo reno9aがワイモバイルだと...
-
ジャパネットたかた審査について
-
窓の杜やフリーソフト100といっ...
-
スマホ代金いつまで高いんですか?
-
彼氏が UQモバイルを契約してい...
-
PiTaPaって実家暮らしで無職だ...
-
「萬栄」について
-
ファミペイ翌月払いに申し込めない
-
kyashの後払いは、審査なしで利...
-
コンビニATMでキャッシュカード...
-
彼氏にクレジットを不正利用さ...
-
ENEOSのガソリンスタンド(セル...
-
ガソリンスタンドで店員さんに...
-
イオンカード
-
クレジット不正利用について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「2年ごとに一回」と「2年に一...
-
”査印”の言葉の意味を教えてく...
-
ExcelのVBAコードについて教え...
-
彼氏が UQモバイルを契約してい...
-
一番死にたくなった時教えてく...
-
窓の杜やフリーソフト100といっ...
-
スマホ代金いつまで高いんですか?
-
ここ数年、すんなりと審査やら...
-
kyashの後払いは、審査なしで利...
-
ベルーナって分割払いコンビニ...
-
ファミペイ翌月払いに申し込めない
-
クレジットカードについて困っ...
-
ジャパネットたかた審査について
-
「萬栄」について
-
審査の反対語は何ですか?
-
LINEMOについて質問 LINEMO新規...
-
ISOの審査員って、なんであんな...
-
PiTaPaって実家暮らしで無職だ...
-
英語:報告書の書式集をしりま...
-
LINEMO新規SIMカード審査して只...
おすすめ情報
回答ありがとうございました。
早速コードに設定しましたが、例えばセルC14をプルダウン選択し、「審査」を表示すると
エラーメッセージ(実行エラー’1004’:この操作は結合したセルには使えません)が表示されて、上手く実行できませんでした。
教えて頂いたコードを元のコードに追加して設定しましたが、問題はありませんか。
宜しくお願い致します。
設定コード
作業の関係上セルC14はセルC13とC14とを結合しております。
やはりセルを結合すると教えて頂いた、コードではだめでしょうか?
宜しくお願い致します。