5457001E01，這在用VBA自動比對條件撈出值後變成546E+07，這VBA要如何修正呢?

帖子: 228
主題: 62
精華: 0
積分: 364
點名: 1
作業系統: Win 10
軟體版本: Office 2007 & 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-3-5
最後登錄: 2025-1-28

2011兔年全勤獎章

14^#

發表於 2019-6-7 15:08 | 只看該作者

回復 14# n7822123

好的，謝謝大大的指導，感恩。

n7822123

　暱稱: 阿龍

帖子: 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
點名: 1
作業系統: Win 10
軟體版本: Office 2007 & 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-3-5
最後登錄: 2025-1-28

2011兔年全勤獎章

12^#

發表於 2019-6-7 11:09 | 只看該作者

回復 12# 准提部林

版主准大您好：經過測試已經可以使用，原來我不應該將 Range("F:F").NumberFormatLocal = "@" 加到錄製巨集後，

在修改儲存格格式，而是要在一開始就修改，感謝您的指導，也謝謝其他先進的指導。

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2843
主題: 10
精華: 0
積分: 2899
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2025-7-17

11^#

發表於 2019-6-7 10:00 | 只看該作者

回復 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
點名: 1
作業系統: Win 10
軟體版本: Office 2007 & 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-3-5
最後登錄: 2025-1-28

2011兔年全勤獎章

10^#

發表於 2019-6-7 08:35 | 只看該作者

回復 10# n7822123

n7822123 大您好：

這部分有解決格式的問題，不過出來的結果仍然不正確，5457001E01 仍然會變成剩下 54571010。

n7822123

　暱稱: 阿龍

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

9^#

發表於 2019-6-6 22:33 | 只看該作者

本帖最後由 n7822123 於 2019-6-6 22:40 編輯

回復 9# jeffrey628litw

我在你的程式最下面，倒數第2列加入以下程式，問題就解決了!

Columns("F:F").NumberFormatLocal = "@"

在執行中你的程式有一段程式是做貼上的動作，應該有貼到別格的格式，
所以執行過程中，才會變成科學記號，只要最後換成文字就可以了!

產品查詢系統nv.3.0.rar (73.86 KB)

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助