[發問] [已解決]文字字串改為空字串

本帖最後由 HSIEN6001 於 2012-5-24 01:43 編輯

請問,在迴圈裡碰到問題
應該為數字型態欄位的儲存格
出現不該出現的文字字串

如何,將不該出現的文字,取代為 "" 空字串

s2 = Replace(s2, #VALUE! , "") '儲存格內有文字字元,取代為空字串 (#VALUE! '非數字型態)

這樣寫不行 ^^!!
請教正確語法,謝謝!

樓主熱帖

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2012-5-23 19:21 | 只看該作者

回復 1# HSIEN6001

If Not IsNumeric([S2]) Then [S2] = ""

TOP

HSIEN6001

中學生 Rank: 2

帖子: 219
主題: 24
精華: 0
積分: 243
點名: 0
作業系統: Windows10
軟體版本: Office2016
閱讀權限: 20
性別: 女
註冊時間: 2012-4-18
最後登錄: 2022-2-7

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2012-5-23 22:28 | 只看該作者

本帖最後由 HSIEN6001 於 2012-5-23 22:30 編輯

回復 2# register313

不好意思!
可能我表達的不夠清楚

'......部分省略
Dim s2 As String

'......其中一段
         isdeli = False
         s2 = ""
         For i = 1 To Len(s1)
            ch = Mid(s1, i, 1)
            If Mid(s1, i, 1) = """" Then
                  isdeli = Not isdeli
            Else
                  If isdeli Then
                     If ch <> "," Then
                        s2 = s2 & ch
                     End If
                  Else
                     s2 = s2 & ch
                  End If
            End If
         Next
         s2 = Replace(s2, "--", "00") '儲存格內有"--",取代為"00"

問題:
S2回傳資料時,其中數字型態的儲存格出現"中文字"--->程式中斷
  --->假如,不預設 [不清楚] 字元個數狀態下
該怎麼讓那個s2遇到"文字型態"時,傳回""空字串?!

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

4^#

發表於 2012-5-23 23:06 | 只看該作者

本帖最後由 register313 於 2012-5-23 23:08 編輯

回復 3# HSIEN6001

不太清楚你要的功能,程式的邏輯,也沒附檔案

不過s2應是當時就要即時處理,不是最後再處理
見紅色之部份

Dim s2 As String
isdeli = False
s2 = ""
For i = 1 To Len(s1)
ch = Mid(s1, i, 1)
If Mid(s1, i, 1) = """" Then
      isdeli = Not isdeli
Else
      If isdeli Then
         If ch <> "," Then
            s2 = s2 & ch
         End If
      Else
         If IsNumeric(ch) Then s2 = s2 & ch '若ch為數字則加入s2
      End If
End If
Next
's2 = Replace(s2, "--", "00") '儲存格內有"--",取代為"00"

TOP

HSIEN6001

中學生 Rank: 2

帖子: 219
主題: 24
精華: 0
積分: 243
點名: 0
作業系統: Windows10
軟體版本: Office2016
閱讀權限: 20
性別: 女
註冊時間: 2012-4-18
最後登錄: 2022-2-7

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2012-5-24 01:49 | 只看該作者

回復 4# register313

果然是我發錯主題,問錯方向
Sorry!!!!

VBA 匯入 Access
儲存格設定為數字型態時
出現非數字型態出錯

On Error Resume Next [已解決]

抱歉!!~深深一鞠躬!!

TOP