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

想請問大大
我在表單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

2^#

發表於 2013-3-11 16:37 | 只看該作者

回復 1# Jared

建議...
弄個圖上來..
這樣比較知道哪種警告視窗..

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

Jared

中學生 Rank: 2

帖子: 103
主題: 30
精華: 0
積分: 139
點名: 0
作業系統: wondows XP
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: 彰化
註冊時間: 2013-2-21
最後登錄: 2015-6-26

3^#

發表於 2013-3-12 09:11 | 只看該作者

回復 2# mark15jill

大大~ 我後來是先把欄位都填上預設值
讓使用者即使忘記填上數值
也能夠先有資料對應欄位
即使沒填上也不會出現錯誤 (^口^)

Jared

TOP

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)

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP