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

帖子: 31
主題: 0
精華: 0
積分: 31
點名: 0
作業系統: win10
軟體版本: office 2016
閱讀權限: 10
性別: 男
註冊時間: 2016-10-4
最後登錄: 2017-10-17

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2016-12-5 05:01 | 只看該作者

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

複製代碼

回復 1# coke373

帖子: 32
主題: 6
精華: 0
積分: 41
點名: 0
作業系統: WIN10
軟體版本: office2010
閱讀權限: 10
性別: 男
來自: 澳門
註冊時間: 2016-11-29
最後登錄: 2021-5-17

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2016-12-7 03:35 | 只看該作者

回復 2# 葉國洲

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

帖子: 32
主題: 6
精華: 0
積分: 41
點名: 0
作業系統: WIN10
軟體版本: office2010
閱讀權限: 10
性別: 男
來自: 澳門
註冊時間: 2016-11-29
最後登錄: 2021-5-17

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2020-5-6 00:48 | 只看該作者

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

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

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

帖子: 32
主題: 6
精華: 0
積分: 41
點名: 0
作業系統: WIN10
軟體版本: office2010
閱讀權限: 10
性別: 男
來自: 澳門
註冊時間: 2016-11-29
最後登錄: 2021-5-17

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2020-5-6 00:48 | 只看該作者

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

帖子: 32
主題: 6
精華: 0
積分: 41
點名: 0
作業系統: WIN10
軟體版本: office2010
閱讀權限: 10
性別: 男
來自: 澳門
註冊時間: 2016-11-29
最後登錄: 2021-5-17

論壇榮譽勳章論壇贊助勳章

6^#

發表於 2020-5-6 00:49 | 只看該作者

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

複製代碼

[/code]

帖子: 32
主題: 6
精華: 0
積分: 41
點名: 0
作業系統: WIN10
軟體版本: office2010
閱讀權限: 10
性別: 男
來自: 澳門
註冊時間: 2016-11-29
最後登錄: 2021-5-17

論壇榮譽勳章論壇贊助勳章

7^#

發表於 2020-5-6 00:51 | 只看該作者

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