返回列表 上一主題 發帖

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

回復 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))

TOP

回復 12# 准提部林


    版主准大您好:經過測試已經可以使用,原來我不應該將    Range("F:F").NumberFormatLocal = "@"   加到錄製巨集後,
  
                                在修改儲存格格式,而是要在一開始就修改,感謝您的指導,也謝謝其他先進的指導。

TOP

本帖最後由 n7822123 於 2019-6-7 14:47 編輯

回復 13# jeffrey628litw


因為你是錄製的程式,很懶得看是哪一列程式改變了你的格式

錄製巨集的時候,盡量要小心,貼上可以用  選擇性貼上>值

就可以避免複製到儲存格格式,當然 學會VBA 是更好的選擇 :)
程式是依需求寫的,需求表達不清楚
或者沒有上傳附件,愛莫能助

TOP

回復 14# n7822123


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

TOP

        靜思自在 : 一個缺口的杯子,如果換一個角度看它,它仍然是圓的。
返回列表 上一主題