只能判斷文字，不能判斷數字

fashiontop

Sub 刪除()     Dim i As Integer
            i = 1
            Do Until i = 10000
            i = i + 1
                If Range("K2") = Range("A" & i) Then
                    Range("A" & i) = ""
...

瀏覽完整內容，請先 註冊 或 登入會員

ttokinmba

先說 小弟我已經少說十年沒碰過VB了....只能在邏輯上幫忙解答 語法上可能就要自己去查一下了(小弟碰的年代是VB6...)

請問A欄全字串? 之後找一個數字? 因為A欄的話全是字串你用數值去搜尋是找不到的，你必須先將要找的答案轉成字串，轉成字串後在進去A欄中尋找相符的字串，這邊給你個

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

你可以去看看，不過好久沒碰語法了所以你可能要從那個網頁中找到查詢字串的語法之後一樣回MSDN中尋找應該就有解答了。做好能做個輸入限制像是限制輸入的必須為數值型態或者字串型態或者限制為英文之類，小弟是學C#的C#中記得好像是用Match還有其他方法這只是其中一個，查一下關鍵字"VB 查詢相符字串" 這樣應該就能找到答案了，如果你還要運算的話記得再把字串強制轉型回數值型態(或者做檢查後轉型)，這樣應該就OK了~...

瀏覽完整內容，請先 註冊 或 登入會員

Jeepluo

可以把文字轉換成數字再判斷，判斷方式有很多方式 如使用 cint 或 val 函數

snowyearkimo

函數有判斷數字的寫法是IsNumeric().

snowyearkimo

snowyearkimo 發表於 2014-8-26 10:29 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

函數有判斷數字的寫法是IsNumeric().

另外在程式於輸入之前先將K2的格式設成"文字".
這可以透過excel本身提供的attribute來達成....

瀏覽完整內容，請先 註冊 或 登入會員

linclg

如果將rang內每個字轉成asc ii碼，就應該不會有格式之問題吧!因為在寫plc傳遞程式時，都是先轉成asc ii，如此才不會有格式之問題發生!