5457001E01，這在用VBA自動比對條件撈出值後變成546E+07，這VBA要如何修正呢?
- 帖子
- 2834
- 主題
- 10
- 精華
- 0
- 積分
- 2890
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-11-23
|
回復 11# jeffrey628litw
Sheets("比對OE No後資料").UsedRange.Clear 'Clear會使儲存格恢復為[通用]格式
Sheets("比對OE No後資料").Range("F:F").NumberFormatLocal = "@" '加入這一行, 設為[文字]格式
Sheets("比對OE No後資料").[a1].Resize(UBound(Ax, 1), UBound(Ax(1))) = Application.Transpose(Application.Transpose(Ax)) |
|
|
|
|
|
|
|
- 帖子
- 228
- 主題
- 62
- 精華
- 0
- 積分
- 364
- 點名
- 20
- 作業系統
- Win 10
- 軟體版本
- Office 2007 & 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-3-5
- 最後登錄
- 2024-9-16
|
12#
發表於 2019-6-7 11:09
| 只看該作者
回復 12# 准提部林
版主准大您好：經過測試已經可以使用，原來我不應該將 Range("F:F").NumberFormatLocal = "@" 加到錄製巨集後，
在修改儲存格格式，而是要在一開始就修改，感謝您的指導，也謝謝其他先進的指導。 |
|
|
|
|
|
|
|
- 帖子
- 406
- 主題
- 8
- 精華
- 0
- 積分
- 453
- 點名
- 0
- 作業系統
- WINDOWS 7
- 軟體版本
- 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2015-2-7
- 最後登錄
- 2021-7-31
|
13#
發表於 2019-6-7 14:43
| 只看該作者
本帖最後由 n7822123 於 2019-6-7 14:47 編輯
回復 13# jeffrey628litw
因為你是錄製的程式，很懶得看是哪一列程式改變了你的格式
錄製巨集的時候，盡量要小心，貼上可以用 選擇性貼上>值
就可以避免複製到儲存格格式，當然 學會VBA 是更好的選擇 :) |
|
|
程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助
|
|
|
|
|
- 帖子
- 228
- 主題
- 62
- 精華
- 0
- 積分
- 364
- 點名
- 20
- 作業系統
- Win 10
- 軟體版本
- Office 2007 & 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-3-5
- 最後登錄
- 2024-9-16
|
14#
發表於 2019-6-7 15:08
| 只看該作者
回復 14# n7822123
好的，謝謝大大的指導，感恩。 |
|
|
|
|
|
|
|
發表於 2019-6-7 10:00
| 
