返回列表 上一主題 發帖

[發問] 如何判斷小數點顯示幾位

yanto913

帖子
116 
主題
29 
精華
0 
積分
232 
點名
0  
作業系統
winXp 
軟體版本
office 2003 
閱讀權限
20 
性別
女 
來自
台灣台中市 
註冊時間
2010-9-6 
最後登錄
2023-7-11 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-4-11 08:23 | 只看該作者

[發問] 如何判斷小數點顯示幾位

如檔案，儲存格格式如果為小數一位則B欄為10，下兩位B欄為100，其目的是去除小數點
我使用資料剖析也無法達成，1.28可以達成但1.00就無法成功了!
另外使用C1=A1*IF(ISERROR(FIND(".",A1)),1,CHOOSE(LEN(A1)-FIND(".",A1),10,100,1000))也是一樣，遇到小數點後面皆零就失效了
當初資料建立應該使用文字格式才可達成
可是資料非我建立且數據龐大，請問各位先進如何解決呢?

判斷小數點幾位.rar (1.57 KB)

收藏 分享
YOYO

aa7551

帖子
116 
主題
5 
精華
0 
積分
190 
點名
0  
作業系統
xp 
軟體版本
office 2002 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-11-17 
最後登錄
2024-11-15 
2#
發表於 2011-4-11 10:02 | 只看該作者
大大,問題不甚了解,A1--A5,是通用格式還是數值,清除小數點後成為文字或數字?

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
3#
發表於 2011-4-11 14:59 | 只看該作者
Sub yy()
For i = 1 To [a65536].End(3).Row
a = Cells(i, 1).Text
If InStr(a, ".") Then
k = Len(a) - InStr(a, ".")
k = IIf(Right(a, 1) = " ", k - 1, k)
Cells(i, 2) = Cells(i, 1) * Choose(k, 10, 100, 1000)
Else
Cells(i, 2) = Cells(i, 1) * 1
End If
Next
End Sub

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
返回列表 上一主題