[文件] 判斷表格中文字是否為數值

作者
看板 Office
時間
留言 4則留言,2人參與討論
推噓 0推 0噓 4→
軟體:Word 版本:2016 我想逐一判斷word表格中的每一儲存格的文字是否為數值, 若是則調整格式,使表格中的文字儲存格及數值儲存格有不同的設定 先前學的方法是使用isNumeric,如: with activedocument.tables(1) for each cell in .range.cells If IsNumeric(cell.Range.Characters.Item(1).Text) Then ' 格式 End If next end with 但這個方法只根據第一個文字是否為數值來決定,精確度不高 我想改成抓取儲存格整個文字,若能利用CLng、CDbl等成功轉換成數值就表示是數值, 但以下寫法卻出現「型態不符合」的錯誤訊息 Dim a As String Dim b As Long a = ActiveDocument.Tables(1).Cell(1, 1).Range.Text ' 該格文字是123 b = CLng(a) ' 此列呈現黃底,顯示「型態不符合」 我查了CLng或其他型態轉換函數的用法,都看不出哪裡出問題,在此求教,謝謝 另外,想請問,如果我改良第一種方法,以陣列的方法來判斷, 有什麼函數可以逐一比對某字串的每個字母是否都包含於([0-9].,-)其中的嗎? 謝謝 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.227.163.176 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1541683348.A.2BF.html ※ 編輯: liquidbox (36.227.163.176), 11/08/2018 21:23:21
soyoso: 迴圈內 a=cell.range.text 11/08 23:45
soyoso: isnumeric(left(a,len(a)-1)) 測試可判斷1234、1,000、 11/08 23:46
soyoso: 10.34、2,456.78可判斷為數值 11/08 23:48
liquidbox: 已成功,原來是因為最後有特殊字元,非常謝謝 11/09 08:33

最新熱門文章

[Live] 公鹿 @ 暴龍
Nba Rambo 1318留言 2019-05-26 08:00:01
[Live] NYY @ KC (Game 2)
Ny-Yankees wsan 365留言 2019-05-26 07:29:04
[閒聊] 凌晨MLB開搞了
Sportlottery adam7148 186留言 2019-05-26 02:10:53
[閒聊] 人妻很想做
Sex point2012 158留言 2019-05-26 02:11:05
[情報] 2019 坎城影展 得獎名單
Movie qpr322 128留言 2019-05-26 02:18:43
[問題] 想請益女生們
Womentalk venson0502 110留言 2019-05-26 02:32:55