網際論壇 - 軟體使用求助區 - 〔求助〕word千分位之疑問?
» 遊客:  註冊 | 登錄 | 會員 | 幫助
 

免費線上小說
動漫分類 : 最新上架熱門連載全本小說最新上架玄幻奇幻都市言情武俠仙俠軍事歷史網游競技科幻靈異 ... 更多小說

作者:
標題: 〔求助〕word千分位之疑問? 上一主題 | 下一主題
  cypdju
  中級會員 
 



  積分 1041
  發文 386
  註冊 2006-10-14
  狀態 離線
#1  〔求助〕word千分位之疑問?

Sub 千分位()
Dim myRange As Range, i As Byte, myValue As Currency
On Error Resume Next
Application.ScreenUpdating = False
NextFind: Set myRange = ActiveDocument.Content
With myRange.Find
.ClearFormatting
.Text = "[0-9]{4,15}"
.MatchWildcards = True
Do While .Execute
i = 2
If myRange.Next(wdCharacter, 1) = "." Then
While myRange.Next(wdCharacter, i) Like "#"
i = i + 1
Wend
myRange.SetRange myRange.Start, myRange.End + i - 1
End If
myValue = VBA.Val(myRange)
myRange = VBA.Format(myValue, "Standard")
GoTo NextFind
Loop
End With
Application.ScreenUpdating = True
End Sub

以上之代碼會出現小數點後二位數(例  123,456.00)
若不希望出現.00此代碼要如何修正
請各高手指點  ^^


2015-6-12 11:25 PM
查看資料  發送郵件  發短消息   編輯文章  引用回覆

可打印版本 | 推薦給朋友 | 訂閱主題 | 收藏主題

論壇跳轉選單: