12
返回列表 上一主題 發帖

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

coke373

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

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-12-5 01:11 | 只看該作者

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

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

葉國洲

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

論壇榮譽勳章論壇贊助勳章
2#
發表於 2016-12-5 05:01 | 只看該作者
  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

TOP

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是錯誤，同時可以隔行讀取。
我想知道中文意思。請你教我。

TOP

coke373

帖子
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並沒有這種類型......

TOP

coke373

帖子
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上)，你可以把它改為另一個，然後依照回傳值去判斷!

TOP

coke373

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

論壇榮譽勳章論壇贊助勳章
6#
發表於 2020-5-6 00:49 | 只看該作者
  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]

TOP

coke373

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

論壇榮譽勳章論壇贊助勳章
7#
發表於 2020-5-6 00:51 | 只看該作者
請大大們幫我看一下是不是那裡有問題.
我運行時，Excel一直卡住。

TOP

coke373

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

論壇榮譽勳章論壇贊助勳章
8#
發表於 2020-5-6 11:56 | 只看該作者
  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
複製代碼

TOP

coke373

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

論壇榮譽勳章論壇贊助勳章
9#
發表於 2020-5-6 11:58 | 只看該作者
請大大們幫我看一下，這樣子有問題嗎?
msgbox有DefaultButton可用，一般會設在第一個上(比如yes/no會落在yes上)，我想把它改為另一個，然後依照回傳值去判斷!

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-23 
10#
發表於 2020-5-6 12:30 | 只看該作者
本帖最後由 准提部林 於 2020-5-6 12:51 編輯

回復 9# coke373

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

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

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
12
返回列表 上一主題