[[20161130202153]] 『TextBoxが未入力の場合転記しない』(さとし) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『TextBoxが未入力の場合転記しない』(さとし)

各Boxが未入力の時 警告を出し転記しないように
したいのですが可能でしょうか?
可能であればご教授お願いします。

Private Sub appendDateToSheet()

    With Worksheets("表紙")
.Range("C19").Value = TextBox1.Value
.Range("C23").Value = ComboBox10.Value
.Range("D33").Value = TextBox3.Value
.Range("AL3").Value = ComboBox1.Value
.Range("AO3").Value = ComboBox2.Value
.Range("AS3").Value = Format(TextBox4.Text, "m/d")
.Range("AL14").Value = ComboBox3.Value
.Range("AJ15").Value = ComboBox4.Value
.Range("AQ15").Value = ComboBox5.Value
.Range("AX15").Value = ComboBox6.Value
.Range("BF15").Value = TextBox5.Value
.Range("AJ17").Value = ComboBox7.Value
.Range("AY21").Value = TextBox6.Value
.Range("AZ8").Value = ComboBox8.Value
.Range("AZ12").Value = ComboBox9.Value
     End With

End Sub

Private Sub CommandButton1_Click()

    If MsgBox("データをシートに書込ます。よろしいですか?", vbYesNo) = vbNo Then Exit Sub

    appendDateToSheet
End Sub

< 使用 Excel:Excel2016、使用 OS:Windows10 >


例えば

 Dim c As Control

 For Each c In Me.Controls
    If TypeName(c) = "TextBox" Then
        If c.Value = "" Then
            MsgBox "未入力があります"
            c.SetFocus
            Exit Sub
        End If
    End If
 Next

(マナ) 2016/11/30(水) 20:52


コンボボックスの場合は

TypeName(c) = "ComboBox"

です。

(マナ) 2016/11/30(水) 22:06


(マナ)さん
返事ありがとうございます。
無事完成しました。

(さとし) 2016/12/01(木) 02:06


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.