2016-11-21 60 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"