返回列表 上一主題 發帖

[發問] Textbox 兩位數的設定

bowwow1975

帖子
38 
主題
14 
精華
0 
積分
66 
點名
0  
作業系統
Win7 
軟體版本
Excel2003 
閱讀權限
20 
性別
男 
註冊時間
2012-7-16 
最後登錄
2013-9-3 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-7-20 09:44 | 只看該作者

[發問] Textbox 兩位數的設定

想請教一下，我有一個 textbox，希望別人輸入的範圍要大於 40 和小於 50，
如果不是的話，要 show 出一個表單提醒別人重新輸入，程式如下：
Private Sub textbox32_Change()
If textbox32.Value > 50 or textbox32.Value < 40 Then
UserForm2.Show     'Please fill in 40~50.
textbox32.Value = ""
End If
End Sub

但是 <40 這一項，只要 key in 進一個個位數，警告表單馬上就浮現~~~
這要怎麼辦？

感謝大大幫忙~~
收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2013-6-20 15:10 | 只看該作者
回復 4# bowwow1975
如何解決 交流一下
3#的錯誤
  1. Option Explicit
  2. Dim Exit_Msg As Boolean   '此變數是表單模組的私用變數,須是置於表單般模組頂部
  3. Private Sub TextBox34_Change()
  4.     With Sheet4
  5.         .Range("H4").Value = TextBox34.Text
  6.     End With
  7. End Sub
  8. Private Sub TextBox34_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  9.     If Exit_Msg = True Then Exit Sub
  10.     If Not IsNumeric(TextBox34) Or Sheets(4).Range("h4") < Sheets(4).Range("C35") Or Sheets(4).Range("h4") > Sheets(4).Range("C34") Then
  11.     '*****************************************************************************************************************
  12.     '這裡有矛盾 C34,C35, C36 數據是哪裡才正確!!!!
  13.     'If Not IsNumeric(TextBox32) Sheets(4).Range("h4") < Sheets(4).Range("C35") Or Sheets(4).Range("h4") > Sheets(4).Range("C36") Then
  14.     'MsgBox "Np 須是 大於" & Sheets(4).Range("C35") & " 和小於 " & Sheets(4).Range("C34")
  15.     '******************************************************************************************************************
  16.     Cancel = True
  17.     'With textbox34
  18.     '    .SelStart = 0
  19.     '    .SelLength = Len(.Text)
  20.     '    End With
  21.         MsgBox "Np 須是 大於" & Sheets(4).Range("C35") & " 和小於 " & Sheets(4).Range("C34")
  22.     End If
  23. End Sub
  24. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  25.     Exit_Msg = True
  26. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

bowwow1975

帖子
38 
主題
14 
精華
0 
積分
66 
點名
0  
作業系統
Win7 
軟體版本
Excel2003 
閱讀權限
20 
性別
男 
註冊時間
2012-7-16 
最後登錄
2013-9-3 
4#
發表於 2013-6-20 15:01 | 只看該作者
回復 3# bowwow1975

不好意思，已解決！！！
感謝有關注的大大們！

TOP

bowwow1975

帖子
38 
主題
14 
精華
0 
積分
66 
點名
0  
作業系統
Win7 
軟體版本
Excel2003 
閱讀權限
20 
性別
男 
註冊時間
2012-7-16 
最後登錄
2013-9-3 
3#
發表於 2013-6-20 12:19 | 只看該作者
回復 2# GBKEE

不好意思，之前的已用其他方法解決，但現在借用你的方法，出現了一點小問題

我把程式改為如下
  1. Private Sub TextBox34_Change()

  3. With Sheet4
  4. .Range("H4").Value = textbox34.Text
  5. End With
  6. End Sub
  7. ' 以上變更 textbox 就順便變更儲存格
  8. ' 以下就依照你的程式碼撰寫

  10. Private Sub TextBox34_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  11. Dim Exit_Msg As Boolean
  12.    
  13.     If Exit_Msg = True Then Exit Sub
  14.     If Not IsNumeric(TextBox32) Sheets(4).Range("h4") < Sheets(4).Range("C35") Or Sheets(4).Range("h4") > Sheets(4).Range("C36") Then
  15.     Cancel = True
  16.     'With textbox34
  17.     '    .SelStart = 0
  18.     '    .SelLength = Len(.Text)
  19.     '    End With
  20.         MsgBox "Np 須是 大於" & Sheets(4).Range("C35") & " 和小於 " & Sheets(4).Range("C34")
  21.     End If

  23. End Sub

  25. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

  27.     Exit_Msg = True
  28. End Sub
複製代碼
不管我 textbox34 輸入什麼值，Msgbox 都會出現
最後我關掉視窗，Msgbox 還會再出現一次~~
請問這要怎麼解？

感激不盡！

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-8-25 16:50 | 只看該作者
回復 1# bowwow1975
TextBox32 輸入後按 [Enter]  (控制項失去駐點)
  1. 'Enter、Exit 事件
  2. 'Enter 主要發生在一個控制項，從同一表單上的另一個控制項取得駐點之前
  3. 'Exit 會在一個控制項失去駐點時發生。
  4. Option Explicit
  5. Dim Exit_Msg As Boolean                     '表單私用變數
  6. Private Sub TextBox32_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  7.     If Exit_Msg = True Then Exit Sub            '尚在輸入中, 此時如關閉表單,還是會執行此程序
  8.     If Not IsNumeric(TextBox32) Or TextBox32 < 40 Or TextBox32 > 50 Then
  9.         Cancel = True                           'True 表示應用程式須處理此事件，且駐點仍保留在目前控制項。
  10.         With TextBox32                          '選擇以輸入文字
  11.             .SelStart = 0
  12.             .SelLength = Len(.Text)
  13.        End With
  14.        MsgBox "TextBox32 須是 大於 40 和小於 50  "
  15.     End If
  16. End Sub
  17. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  18.     Exit_Msg = True
  19. End Sub
複製代碼

TOP

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