Excel (VBA)

Excel VBAに関するフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(指定なし : 指定なし)
空白セルを禁止する
投稿日時: 19/10/09 14:21:50
投稿者: yukagon

A1セルをリスト選択でデータ入力をします。
 A,B、C,Dから選択します。
この時に、B以外を選択した時は、A2セルに必ずコメントを入力する様にしたいです。
 空白の状態で保存が出来ない様にしたいです。

回答
投稿日時: 19/10/09 14:42:21
投稿者: sk

引用:
A1セルをリスト選択でデータ入力

引用:
この時に、B以外を選択した時は、A2セルに必ずコメントを入力する様にしたいです。
空白の状態で保存が出来ない様にしたいです。

( ThisWorkbook モジュール)
------------------------------------------------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 
    With Worksheets("Sheet1")
         
        If .Range("A1") = "" Then
            Cancel = True
            .Activate
            .Range("A1").Select
            MsgBox "A1セルに値を入力して下さい", vbExclamation, "入力エラー"
            Exit Sub
        End If
         
        If .Range("A1") <> "B" And .Range("A2") = "" Then
            Cancel = True
            .Activate
            .Range("A2").Select
            MsgBox "A2セルにコメントを入力して下さい", vbExclamation, "入力エラー"
            Exit Sub
        End If
     
    End With
 
End Sub
------------------------------------------------------------------
 
以上のようなコードを記述なさればよろしいのではないかと。

投稿日時: 19/10/10 12:07:31
投稿者: yukagon

sk様
 
ご回答ありがとうございました。
参考にさせて戴き作成してみます。

トピックに返信