帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2024-8-7

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 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

樓主熱帖

羅

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2024-8-7

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

6^#

發表於 2018-12-4 15:12 | 只看該作者

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

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

羅

TOP

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

5^#

發表於 2018-12-4 11:55 | 只看該作者

回復 3# rouber590324

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

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

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 254
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2018-12-4 09:59 | 只看該作者

回復 1# rouber590324

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

學海無涯_不恥下問

TOP

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2024-8-7

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

3^#

發表於 2018-12-4 09:28 | 只看該作者

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

羅

TOP

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

2^#

發表於 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

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP