返回列表 上一主題 發帖

[發問] InputBox問題請教

[發問] 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

回復 1# rouber590324


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

自己套看看吧~~~~

Sub test()
A = InputBox("請輸入密碼")
If Not IsNumeric(A) Then MsgBox "不正確之數字": Exit Sub
MsgBox "密碼正常"
End Sub
程式是依需求寫的,需求表達不清楚
或者沒有上傳附件,愛莫能助

TOP

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

TOP

回復 1# rouber590324


   密碼= Application.InputBox("請輸入新密碼", "輸入密碼", , , , , , 2)
使用字串型態
學海無涯_不恥下問

TOP

回復 3# rouber590324


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

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

qqq.png
6 天前 11:54
程式是依需求寫的,需求表達不清楚
或者沒有上傳附件,愛莫能助

TOP

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

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

TOP

        靜思自在 : 信心、毅力、勇氣三者具備,則天下沒有做不成的事。
返回列表 上一主題