- 帖子
- 1446
- 主題
- 40
- 精華
- 0
- 積分
- 1470
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- Excel 2010 & 2016
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2020-7-15
- 最後登錄
- 2024-10-21
|
2#
發表於 2022-8-11 11:47
| 只看該作者
本帖最後由 Andy2483 於 2022-8-11 11:51 編輯
回復 1# t8899
不顯示整數後方的 "." 並維持各個位數對齊
1.按TEST按鈕
2.執行後由於變化很小! 需查看有底色的儲存格
3.避免影響其它格式的儲存格! 格式設定為以下兩種的才會被變更格式 或 交換變更格式
A. #,##0.??;[紅色]-##,#?0.??
B. #,###_._0_0;[紅色]-#,###_._0_0
PS:格式設定的呈現結果最好與原值相同!否則有目視的應用誤差!
 20220811.zip (16.58 KB)
Option Explicit
Sub TEST()
Dim Ar As Range, a As Range, NF1, NF2
NF1 = "#,###_._0_0;[紅色]-#,###_._0_0"
NF2 = "#,##0.??;[紅色]-##,#?0.??"
Set Ar = Cells
For Each a In Ar.SpecialCells(2)
If a.NumberFormatLocal = NF1 Or a.NumberFormatLocal = NF2 Then
If a Like "*#" = True And a Like "*.*" = False Then
a.NumberFormatLocal = NF1
ElseIf a Like "*#.#*" Then
a.NumberFormatLocal = NF2
End If
End If
Next
End Sub |
|
