[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『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.