標題: [發問] InputBox問題請教 [打印本頁]

---

作者: rouber590324    時間: 2018-12-3 16:17     標題: InputBox問題請教

DEAR  ALL 大大
1.圖一為變更密碼之程式.問題點請教如下
1.1 使用數字密碼運作無問題
1.2使用 英文+數字 則 InputBox秀出 "不正確之數字"
2.請問可有解決方式.煩不吝賜教.THANKS*10000

圖一
Sub 變更密碼()
'Sheet3.Range("C2").Value
If Sheet1.Range("F3") = Sheet3.Range("A2") Then
X = Application.InputBox("請輸入原密碼", "輸入新密碼", , , , , , 1)
If X = False Then MsgBox "已取消輸入": Exit Sub Else MsgBox "輸入數值為" & X
If Sheet3.Range("C2").Value <> X Then
MsgBox "舊密碼與資料庫值不同-無法變更-煩重新輸入"
End If
If Sheet3.Range("C2").Value = X Then
If Not (X = "" Or X = " ") Then
i = Application.InputBox("請輸入新密碼", "輸入密碼", , , , , , 1)
J = Application.InputBox("請重覆輸入新密碼", "重覆輸入密碼", , , , , , 1)
If i = False Or J = False Then MsgBox "已取消輸入": Exit Sub Else MsgBox "輸入數值為" & i
End If
If i = J Then
Sheet3.Range("C2").Value = i
MsgBox "密碼變更完成"
End If
If i <> J Then
MsgBox "新密碼-重覆輸入之值不同-無法變更-煩重新輸入"
End If
End If
End If
END SUB

---

作者: n7822123    時間: 2018-12-4 01:24

回復 1# rouber590324


1 使用數字密碼運作無問題
2使用 英文+數字 則 InputBox秀出 "不正確之數字"

自己套看看吧~~~~

Sub test()
A = InputBox("請輸入密碼")
If Not IsNumeric(A) Then MsgBox "不正確之數字": Exit Sub
MsgBox "密碼正常"
End Sub

---

作者: rouber590324    時間: 2018-12-4 09:28

DEAR  SIR
您誤會拉
小弟是需求 英文+數字 當密碼運作正常之方式.THANKS*10000

---

作者: Hsieh    時間: 2018-12-4 09:59

回復 1# rouber590324


   密碼= Application.InputBox("請輸入新密碼", "輸入密碼", , , , , , 2)
使用字串型態

---

作者: n7822123    時間: 2018-12-4 11:55

回復 3# rouber590324


喔喔，那你設定Type型式為數字是多此一舉了
預設就是文字

X = Application.InputBox("請輸入原密碼", "輸入新密碼")

[attach]29766[/attach]

---

作者: rouber590324    時間: 2018-12-4 15:12

DAER  Hsieh  & n7822123
THANKS*10000
原來 1 改 2 即可  恍然大悟

密碼= Application.InputBox("請輸入新密碼", "輸入密碼", , , , , , 2)

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)