12345
返回列表 上一主題 發帖

讀取及歸類及框綫格式

198188

帖子
582 
主題
75 
精華
0 
積分
682 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2012-10-30 
最後登錄
2026-4-13 
41# 跳轉到 »
發表於 2024-2-27 09:33 | 只看該作者
回復 40# Andy2483


    可以了，謝謝前輩指點。
請問如果只是想讓某個儲存格，顯示多少個小數位，VBA怎樣表達?

TOP

Andy2483
　暱稱: 厚臉皮的學生

碩士班Rank: 5Rank: 5

帖子
1567 
主題
40 
精華
0 
積分
1591 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
100 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2026-2-2 
42#
發表於 2024-2-27 09:40 | 只看該作者
回復 41# 198188


    錄製巨集試試看,很多代碼都可以錄製後再簡化就可以用了
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

198188

帖子
582 
主題
75 
精華
0 
積分
682 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2012-10-30 
最後登錄
2026-4-13 
43#
發表於 2024-2-27 09:46 | 只看該作者
回復 42# Andy2483


RANGE("A1").NumberFormatLocal = "0.00"
這樣嗎？

TOP

198188

帖子
582 
主題
75 
精華
0 
積分
682 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2012-10-30 
最後登錄
2026-4-13 
44#
發表於 2026-2-3 16:39 | 只看該作者
回復  198188


    儲存格O1
在表格的O1上是1.35改為 1.3 試試看


Option Explicit
Sub TEST()
...
Andy2483 發表於 2024-2-20 18:47



With xR.Resize(, 14): .Merge: .Font.Size = 9: .Font.Bold = True: .Rows.RowHeight = 52: End With

前輩 這個列高能否自動調整？

我修改成這句，列高太多，在頂部多了很多空白
With xR.Resize(, 14): .Rows.AutoFit.：Merge: .Font.Size = 9: .Font.Bold = True:  End With


我修改成這句，就沒有改變列高
With xR.Resize(, 14): Merge:.Rows.AutoFit.： .Font.Size = 9: .Font.Bold = True:  End With

TOP

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