[發問] Msgbox可不可以讀取excel 格內函數

coke373

Msgbox 可不可以默認輸入內容。假如我輸入PB00891，可不可以默認PB字母，然後會彈出提示錯誤。
A2:A481，掃描槍輸入內容，有兩組字母加數字PA001，PB456，我設定VLOOKUP取PA行頭讀取PB。
當輸入系PB456，B2格會顯示#N/A。我就想系這個時候利用Msgbox 提示輸入內容是PB行頭。
請問前輩可不可以教我。

葉國洲

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Column = 1 And Target.Count = 1 Then
   
3.   If Target.Row Mod 2 = 0 Then
   
4.     If Left(Target.Value, 2) = "PB" Then MsgBox "你要顯示的內容", , "錯誤提示"
   
5.   End If
   
6. End If
   
7. End Sub

複製代碼

回復 1# coke373

coke373

回復 2# 葉國洲


    葉大哥 謝謝你，msgbox可以運行。
你可不可以為我解說一下，那一句是形容A2輸入PB是錯誤，同時可以隔行讀取。
我想知道中文意思。請你教我。

coke373

問題是這樣的，我在寫一個可以讓使用者可以利用讀碼機讀取條碼輸入資料的表單
當該條碼在系統內未建檔時，會利用MSGBOX的訊息視窗作提示
不過系統要求必須可讓使用者連續輸入，而讀碼機的設定限制為輸入完條碼後要送ENTER鍵
所以當MSGBOX出現時，使用者如果沒有注意到訊息視窗，馬上又使用讀碼機讀取條碼時
由於讀碼機會送ENTER鍵的關係，訊息視窗就被視同按下了ENTER鍵而關掉了

請問是否可以在訊息視窗出現時，鎖定ENTER鍵不能按，只能用滑鼠去按確定。

本來是想找看看有沒有無按鈕的訊息視窗，不過MSGBOX並沒有這種類型......

coke373

msgbox有DefaultButton可用，一般會設在第一個上(比如yes/no會落在yes上)，你可以把它改為另一個，然後依照回傳值去判斷!

coke373

1. [code]Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Column = 1 And Target.Count = 1 Then
   
3.   If Target.Row Mod 2 = 0 Then
   
4.     Dim r
   
5. rrr:
   
6.     If Left(Target.Value, 2) = "PB" Then r=MsgBox "Input data is error!", 4 or 256, "Error"
   
7.     If r <>vbYes Then GoTo rrr
   
8.   End If
   
9. End If
   
10. End Sub

複製代碼

[/code]

coke373

請大大們幫我看一下是不是那裡有問題.
我運行時，Excel一直卡住。

coke373

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Column = 1 And Target.Count = 1 Then
   
3.   If Target.Row Mod 2 = 0 Then
   
4.     Dim MyString
   
5.     If Left(Target.Value, 2) = "PB" Then MsgBox "Input data is error!", 4 or 256, "Error"
   
6.     If Response = vbYes Then
   
7.     MyString = "Yes"
   
8. Else
   
9.    MyString = "No"
   
10.   End If
    
11. End If
    
12. End Sub

複製代碼

coke373

請大大們幫我看一下，這樣子有問題嗎?
msgbox有DefaultButton可用，一般會設在第一個上(比如yes/no會落在yes上)，我想把它改為另一個，然後依照回傳值去判斷!

准提部林

回復 9# coke373

應該沒有用~~
按ENTER或ESC後, MSGBOX會消失, 仍然可以讀取條碼???

可利用USERFORM+LABLE(顯示文字), 強制用滑鼠關閉表單~~
X001.rar (8.87 KB)

下載次數: 5

2020-5-6 12:50