5457001E01，這在用VBA自動比對條件撈出值後變成546E+07，這VBA要如何修正呢?
- 帖子
- 2842
- 主題
- 10
- 精華
- 0
- 積分
- 2898
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2025-4-28
|
|
將F欄設為[文字]格式, 重新輸入5457001E01 |
|
|
|
|
|
|
|
- 帖子
- 2842
- 主題
- 10
- 精華
- 0
- 積分
- 2898
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2025-4-28
|
MsgBox [Sheet1!B18] & " " & [Sheet2!B9]
兩個一樣的,
撈資料前, 要先將儲存格設為文字格式~~ |
|
|
|
|
|
|
|
- 帖子
- 2842
- 主題
- 10
- 精華
- 0
- 積分
- 2898
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2025-4-28
|
回復 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)) |
|
|
|
|
|
|
|
發表於 2019-6-6 09:38
| 
