返回列表 上一主題 發帖

[發問] 請問....如何利用VBA判定通用格式中小數位數為幾位(以格式顯示)

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
1# 跳轉到 »
發表於 2013-7-22 22:43 | 顯示全部帖子
回復 3# 棋語鳥鳴
只要在 E 的後面加上 .Offset(0, 1) <即標的儲存格右移一欄 = B欄> 就好了:
  1. Option Explicit
  2. Sub Ex()
  3.     Dim E As Range, i As Integer
  4.     For Each E In Range("A:A").SpecialCells(xlCellTypeConstants, xlNumbers)
  5.         i = InStr(E, ".")
  6.         If i > 0 Then
  7.             i = Len(Mid(E, i + 1))
  8.             E.Offset(0, 1).NumberFormatLocal = "0." & String(i, "0") & "_ "
  9.         Else
  10.             E.Offset(0, 1).NumberFormatLocal = "G/通用格式"
  11.         End If
  12.     Next
  13. End Sub
複製代碼

TOP

        靜思自在 : 並非有錢魷是快樂，問心無愧心最安。
返回列表 上一主題