2016-11-21 59 views
1

我正在運行一個簡單的VBA宏將值從一個表複製到另一個。 它除了複製時間單元外幾乎完美:Excel - VBA將不復制時間,當它設置爲00:00:00

我在表單A(單元格CL)中有一個值:09/11/2016 00:00:00(法國格式,不是問題)

我嘗試此值,以片材B(小區G)用下面的代碼複製:

Worksheets("MEP").Range("G" & activeRow).Value = Replace(Worksheets("Export").Cells(rw.Row, "CL").Value, "#", Chr(10)) 

(忽略替換功能)

結果是:2016年9月11日
無時間...

如何強制Excel包含時間?

感謝

+0

是格式化的目的蜂窩與源單元相同? –

+0

我不希望它被硬編碼。通過複製單元格,然後粘貼特殊值僅限值結束。工作正常。謝謝 – JeanneD4RK

回答

0

試試這個從Sheet2中複製到Sheet1中的特定的細胞,包括格式:

Sheets("sheet2").Cells(1, 3).copy Sheets("sheet1").Cells(1, 1) 
+0

正在嘗試。完美的作品,但仍然存在一個小問題,如何不應用源單元格的樣式? – JeanneD4RK

+0

只保留格式複製單元格值,然後按@bzimor所示: 'Sheets(「sheet1」)。Cells(1,1).NumberFormat =「dd/mm/yyyy h:mm:ss」' – Redlion

0

變化,設置此數字格式後:

Worksheets("MEP").Range("G:G").Select 
Selection.NumberFormat = "dd/mm/yyyy h:mm:ss"