データ入力用Userformを作成しています。

Visual Basic | Excel42閲覧xmlns="http://www.w3.org/2000/svg">50

ベストアンサー

0

Iifを使った方が簡単ですね。 Private Sub CommandButton1_Click() Dim nr As Long, cs As String, cb1c As String, cb1v As Boolean, cb2c As String, cb2v As Boolean nr = Range("A" & Rows.Count).End(xlUp).Row cb1c = Me.CheckBox1.Caption cb1v = Me.CheckBox1.Value cb2c = Me.CheckBox2.Caption cb2v = Me.CheckBox2.Value If Range("A" & nr).Value <> "" Then nr = nr + 1 続く

ThanksImg質問者からのお礼コメント

私の思っていた通りに動きました。 本当にありがとうございます。

お礼日時:10/26 15:49