麻辣家族討論版版 » Excel程式區 » 請問....如何利用VBA判定通用格式中小數位數為幾位(以格式顯示)

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

帖子: 178
主題: 53
精華: 0
積分: 242
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 20
註冊時間: 2011-2-22
最後登錄: 2024-7-5

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-7-18 19:08 | 只看該作者

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

本帖最後由棋語鳥鳴於 2013-7-18 19:10 編輯

假設:A欄格式為通用格式，想判定其小數位數格式於B欄
例如:
A1:數值為0.0001       B1自動判定A1格式為"0.0000"
A2:數值為0.01       B2自動判定A2格式為"0.00"
A3:數值為0.1       B3自動判定A3格式為"0.0"
類似這樣，請問用VBA如何判定A欄的小數位數字至第幾位

樓主熱帖

收藏

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2013-7-18 19:41 | 只看該作者

回復 1# 棋語鳥鳴

是這樣嗎

Option Explicit
Sub Ex()
Dim E As Range, i As Integer
For Each E In Range("A:A").SpecialCells(xlCellTypeConstants, xlNumbers)
i = InStr(E, ".")
If i > 0 Then
i = Len(Mid(E, i + 1))
E.NumberFormatLocal = "0." & String(i, "0") & "_ "
Else
E.NumberFormatLocal = "G/通用格式"
End If
Next
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

中學生 Rank: 2

帖子: 178
主題: 53
精華: 0
積分: 242
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 20
註冊時間: 2011-2-22
最後登錄: 2024-7-5

3^#

發表於 2013-7-22 18:50 | 只看該作者

回復 2# GBKEE

我想要的是將格式設在b欄
例如:a1是0.0002 b1是0.1
執行之後b1則變成0.1000(參考a1，b1自動改格式與a1的小數位數一樣)
意思就是把現有的語法(目前是a欄直接變數值)，格式由a欄改到b欄，要如何改

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

4^#

發表於 2013-7-22 22:43 | 只看該作者

回復 3# 棋語鳥鳴
只要在 E 的後面加上 .Offset(0, 1) <即標的儲存格右移一欄 = B欄> 就好了:

Option Explicit
Sub Ex()
Dim E As Range, i As Integer
For Each E In Range("A:A").SpecialCells(xlCellTypeConstants, xlNumbers)
i = InStr(E, ".")
If i > 0 Then
i = Len(Mid(E, i + 1))
E.Offset(0, 1).NumberFormatLocal = "0." & String(i, "0") & "_ "
Else
E.Offset(0, 1).NumberFormatLocal = "G/通用格式"
End If
Next
End Sub

複製代碼

中學生 Rank: 2

帖子: 178
主題: 53
精華: 0
積分: 242
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 20
註冊時間: 2011-2-22
最後登錄: 2024-7-5

5^#

發表於 2013-7-23 21:20 | 只看該作者

回復 4# luhpro

原來如此還能用"Offset"這招，看來我要多學學Offset的函數和語法...感覺還不錯用!
感謝兩位大大的教學....

靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。

返回列表下一主題上一主題