![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
作業ブックの作業シートに
Private Sub Worksheet_Change(ByVal Target As Range)
を設定しています。
このコードに下記のコードを追加したいのですが、教えてください。
セルC14 C16 C18にせれぞれプルダウンで選択した文字が表示されます
文字は固定文字で「審査」です
3つのセルには必ず1つだけ「審査」が表示されていれば良く
例えばC14に「審査」と表示し
次に16に「審査」を表示させると
最初のC14の「審査」は削除
同じく
C18に「審査」を表示させると
次に表示させたC16の「審査」は削除です
例は順番をC14からにしてますが
順番は順不同です
各セルはセルを結合してますので
見た目は縦に3つ並んでます
よろしくお願いします。
親切にコードを全て教えてください。
宜しくお願い致します。
No.5ベストアンサー
- 回答日時:
No.3
- 回答日時:
Excel VBAで、セルC14、C16、C18にプルダウンから「審査」という文字を選択した際に、他の2つのセルからはその文字が削除されるようなコードをお求めですね。
以下のコードをWorksheet_Changeイベントに追加してみてください。このコードは、指定された3つのセルのいずれかに「審査」と入力された場合、他の2つのセルからはその文字をクリアします。このコードは、C14、C16、またはC18のいずれかのセルが変更されたときにトリガーされ、変更されたセルに「審査」という値が入力されているかどうかをチェックします。もし「審査」と入力されていた場合、他の2つのセルの内容をクリアします。ご希望の動作を実現するためには、このコードを作業シートのVBAエディタに追加してください。もし何かご不明点があれば、お気軽にお尋ねください。
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
お探しの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も見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
Excel関数またはVBAでの質問になります
Visual Basic(VBA)
-
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
-
4
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
5
左右の表のキー位置を合わせたい
Visual Basic(VBA)
-
6
VBAで大量のファイルをシート名ごとに転記やらいろいろしたい!
Visual Basic(VBA)
-
7
引数に数値、文字列の混在
Visual Basic(VBA)
-
8
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
9
VBA UserFormからの転記で
Visual Basic(VBA)
-
10
VBAのコードを教えてください
Visual Basic(VBA)
-
11
ExcelVBA シート名を複数セルから取得して変更
Visual Basic(VBA)
-
12
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
13
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
14
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
15
Excel VBA 定義されたプロージャ名、関数名の取得
Visual Basic(VBA)
-
16
VBAなくなるの?
Visual Basic(VBA)
-
17
vba 削除
Visual Basic(VBA)
-
18
【ExcelVBA】値を変更しながら連続でPDFを作成し,それらを結合した状態で出力するコード
Visual Basic(VBA)
-
19
VBA一覧取得 再投稿
Visual Basic(VBA)
-
20
VBA指定行削除
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「2年ごとに一回」と「2年に一...
-
”査印”の言葉の意味を教えてく...
-
クレジットカードについて困っ...
-
ベルーナって分割払いコンビニ...
-
求職者支援訓練(職業訓練)の給...
-
固定資産税評価額の見直しの希望
-
PiTaPaって実家暮らしで無職だ...
-
一番死にたくなった時教えてく...
-
オリコの貸賃審査は落ちる場合...
-
ISOの審査員って、なんであんな...
-
「萬栄」について
-
SIMの申し込みをしたが発送メー...
-
ヤフーカードの審査は無職でも...
-
非実在青少年条例改正の継続審...
-
LINEMOについて質問 LINEMO新規...
-
審査の反対語は何ですか?
-
クレカにシール貼って
-
クレジット不正利用について
-
ガソリンスタンドで店員さんに...
-
クレジットカードの不正利用に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「2年ごとに一回」と「2年に一...
-
”査印”の言葉の意味を教えてく...
-
最近は教えてグーも審査が厳し...
-
Apple Storeで現金一括払いでiP...
-
窓の杜やフリーソフト100といっ...
-
イオンモバイル出荷準備中
-
Ymobileについて質問
-
ファミペイ翌月払いに申し込めない
-
ジャパネットたかた審査について
-
ISOの審査員って、なんであんな...
-
クレジットカードについて困っ...
-
審査の反対語は何ですか?
-
LINEMOについて質問 LINEMO新規...
-
求職者支援訓練(職業訓練)の給...
-
oppo reno9aがワイモバイルだと...
-
彼氏が UQモバイルを契約してい...
-
スマホ代金いつまで高いんですか?
-
「萬栄」について
-
英語:報告書の書式集をしりま...
-
一番死にたくなった時教えてく...
おすすめ情報
回答ありがとうございました。
早速コードに設定しましたが、例えばセルC14をプルダウン選択し、「審査」を表示すると
エラーメッセージ(実行エラー’1004’:この操作は結合したセルには使えません)が表示されて、上手く実行できませんでした。
教えて頂いたコードを元のコードに追加して設定しましたが、問題はありませんか。
宜しくお願い致します。
設定コード
作業の関係上セルC14はセルC13とC14とを結合しております。
やはりセルを結合すると教えて頂いた、コードではだめでしょうか?
宜しくお願い致します。