返回列表 上一主題 發帖

如何判斷儲存格內為文字或數字或文字加數字

Hsieh

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2011-3-5 22:36 | 顯示全部帖子
回復 1# yanto913
  1. Private Sub CommandButton1_Click()
  2. MsgBox StrType([G10])
  3. [G10].Select
  4. End Sub
  5. Function StrType(Mystr)
  6. Set d = CreateObject("Scripting.Dictionary")
  7. If IsEmpty(Mystr) Then
  8.    StrType = "空白"
  9.    ElseIf IsNumeric(Mystr) Then
  10.    StrType = "數字"
  11.    Else
  12.    For i = 1 To Len(Mystr)
  13.      k = AscW(Mid(Mystr, i))
  14.      Select Case k
  15.      Case 48 To 57
  16.      d("數字") = ""
  17.      Case 65 To 90, 97 To 122
  18.      d("英文") = ""
  19.      Case 0 To 47, 58 To 64, 91 To 96, 122 To 255
  20.       d("符號") = ""
  21.     Case Else
  22.     d("中文") = ""
  23.     End Select
  24.     Next
  25.    StrType = Join(d.keys, ",")
  26. End If
  27. End Function
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。
返回列表 上一主題