PTT數位生活區 / Office

[算表] 數值篩選問題

看板Office作者 (luckid)時間12年前 (2014/04/14 09:11), 12年前編輯推噓0(0推 0噓 5→)
留言5則, 2人參與, 最新討論串1/1
軟體:excel 版本:2003 各位大大好,以下是小弟胡亂寫的sub程序, 原意是想說,僅能輸入正整數,不能輸入符號,非數字的字元,小數及負數. 可是小弟試著run之後發現就算是輸入正整數,它還是要我輸入小數@ @ 小弟實在不知道到底是哪裡出問題,還望各位大大救一救,感恩..! Sub test0414() 1 inputnum = InputBox("輸入數值") If inputnum = "" Then End ElseIf Not IsNumeric(inputnum) Then MsgBox "請輸入數值" GoTo 1 ElseIf inputnum < 0 Then MsgBox "請輸入正值" GoTo 1 ElseIf Int(inputnum) <> inputnum Then MsgBox "請勿輸入小數" GoTo 1 Else MsgBox "您輸入的數值為" & inputnum End If End Sub -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 59.125.131.218 ※ 文章網址: http://www.ptt.cc/bbs/Office/M.1397437910.A.B90.html ※ 編輯: luckid (59.125.131.218), 04/14/2014 09:21:10
→
04/14 12:06, , 1F
改Int(inputnum) <> --inputnum 試試
04/14 12:06, 1F
→
04/14 13:09, , 2F
萬分感謝s大!!是否方便再請教您"--"的意思?....
04/14 13:09, 2F
→
04/14 13:19, , 3F
因inputnum無宣告輸入數字會以字串方式帶入變數內
04/14 13:19, 3F
→
04/14 13:20, , 4F
--是讓文字型數字運算(負負得正，不會影響原本數字的正負值
04/14 13:20, 4F
→
04/14 13:46, , 5F
感謝S大的詳細說明!
04/14 13:46, 5F
‣ 更多 luckid 的文章
文章代碼(AID): #1JIpNMkG (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 luckid 的文章
文章代碼(AID): #1JIpNMkG (Office)