標題: [發問] 如何判斷小數點顯示幾位 [打印本頁]

---

作者: yanto913    時間: 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))也是一樣，遇到小數點後面皆零就失效了 當初資料建立應該使用文字格式才可達成 可是資料非我建立且數據龐大，請問各位先進如何解決呢?

---

作者: aa7551    時間: 2011-4-11 10:02

大大,問題不甚了解,A1--A5,是通用格式還是數值,清除小數點後成為文字或數字?

---

作者: oobird    時間: 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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)