Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


20649 / 76732 ←次へ | 前へ→

【61496】VBE テキスト入力
質問  tuki  - 09/5/13(水) 17:31 -

引用なし
パスワード
   エクセルVBEの質問です。
現在、下記の様にユーザーホームのTextBox1に記入したものがSheet1のA列に、TextBox2に記入したものがSheet1のB列に順次記入されていくようにしているのですが、
TextBox1かTextBox2いずれかでもなにも入力されなかった場合CommandButton1を押してもSheet1に入力されず "入力されていない箇所があります" 
と警告がでるようにしたいのですがどのようにすればよいでしょうか。
よろしくお願いします。
-----------------------------------------------------------------
Private Sub CommandButton1_Click()
Dim lRow As Long
  TextBox1.SetFocus
  
  With Worksheets("Sheet1")
    lRow = .Range("A" & Rows.Count).End(xlUp).Row
    With .Range("A" & lRow + 1)
    .Value = TextBox1.Value
      If CheckBox1.Value = True Then
        .Interior.ColorIndex = 3
      End If
    End With
  End With

  With Worksheets("Sheet1")
    lRow = .Range("B" & Rows.Count).End(xlUp).Row
    With .Range("B" & lRow + 1)
    .Value = TextBox2.Value
      If CheckBox1.Value = True Then
        .Interior.ColorIndex = 3
      End If
    End With
  End With
End Sub
-----------------------------------------------------------------
0 hits

【61496】VBE テキスト入力 tuki 09/5/13(水) 17:31 質問
【61497】Re:VBE テキスト入力 つん 09/5/13(水) 17:40 回答
【61510】Re:VBE テキスト入力 tuki 09/5/14(木) 9:39 発言
【61514】Re:VBE テキスト入力 つん 09/5/14(木) 10:05 回答
【61517】Re:VBE テキスト入力 tuki 09/5/14(木) 11:29 発言
【61518】Re:VBE テキスト入力 つん 09/5/14(木) 11:39 発言
【61519】Re:VBE テキスト入力 tuki 09/5/14(木) 11:48 発言
【61520】Re:VBE テキスト入力 つん 09/5/14(木) 12:12 発言
【61523】Re:VBE テキスト入力 tuki 09/5/14(木) 13:23 お礼
【61561】Re:VBE テキスト入力 工藤 等 09/5/18(月) 5:12 回答

20649 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free