資料輸入出現警告視窗要怎麼停止?

想請問大大
我在表單TextBox 設置若是空白就出現警告視窗
但只有對於第一個欄位有用
如果第一個填完後跳過第二個驗證空白的TextBox
直接填上第三個再按Button
照樣會填進去，警告視窗也會跑出來
有沒有辦法驗證資料齊全後才進行填入的動作呢？

我寫的程式如下
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub CommandButton1_Click()
Call test
End Sub

Sub test()
Dim A As Range
If Application.CountBlank(Sheet1.Range("A1:A99")) = 0 Then
Sheet1.[A100] = ComboBox1.Value

Else

Set A = [A3]
Do Until A = ""
Set A = A.Offset(1, 0)
Loop

A.Value = ComboBox1.Value
End If

If ComboBox1.ListIndex = -1 Then MsgBox "空白未填寫 !!": Exit Sub

a1 = UserForm.TextBox1.Value
If Application.CountBlank([B1:B99]) = 0 Then Range("B100") = a1: Exit Sub
For Each A In [B3:B99]
If A = "" Then
      A.Value = a1
      Exit For
         End If
Next
If .a1 = "" Then MsgBox "空白未填寫 !!": Exit Sub

a2 = UserForm.TextBox2.Value
If Application.CountBlank([C1:C99]) = 0 Then Range("C100") = a2: Exit Sub
For Each A In [C1:C99]
If A = "" Then
      A.Value = a2
      Exit For
         End If
Next
If .a2= "" Then MsgBox "空白未填寫 !!": Exit Sub
End Sub

樓主熱帖

Jared

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

4^#

發表於 2013-3-12 14:03 | 只看該作者

本帖最後由 mark15jill 於 2013-3-12 14:09 編輯

回復 3# Jared

是我錯覺嗎..
怎一執行妳的程式就出現編譯錯誤

..............................................................................

我知道哪邊出錯了...
妳程式運行後...
A1 A2 根本空白
最後一行又
If a2 = "" Then MsgBox "空白未填寫 !!": Exit Sub

當然會出現...

Q3.jpg (47.93 KB)