• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:VBA 2つのセルの両方に記入しないと空欄)

VBAでセルの入力をチェックする方法

このQ&Aのポイント
  • VBAを使用して、複数のセルに入力がない場合にメッセージを表示する方法について質問です。
  • 特定のセルに入力がない場合にメッセージボックスを表示するVBAコードを教えてください。
  • また、特定のセルの入力状況によって、別のセルに計算結果を表示する方法についても教えてください。

質問者が選んだベストアンサー

  • ベストアンサー
  • SI299792
  • ベストアンサー率47% (793/1659)
回答No.1

(1)   If [A1] = "" Xor [B1] = "" Then     MsgBox "未記入箇所があります。"   End If (2) =IF(XOR(A1="",B1=""),"","どちらも未記入、又はどちらも記入です") COUNTBLANKは離れていると使えないので、XOR のほうがいいでしょう。

terkifq
質問者

お礼

完璧です!! 自分したかった事が出来ました^^ 本当に助かりました。 ありがとうございます!!

すると、全ての回答が全文表示されます。

その他の回答 (1)

  • ann_k
  • ベストアンサー率25% (1/4)
回答No.2

一行で収めるなら If cells(1,1)="" xor cells(2,1)="" Then でいいんじゃないでしょうか。 私ならソースを見た時に (※どちらも未記入、どちらも記入の場合はメッセージなしです。) がわかりやすいように elseifを使用して複数行にします。

すると、全ての回答が全文表示されます。

関連するQ&A