Excel 如何使用vba以其格式粘贴日期值？

除日期值外，以下代码工作正常。在我的活动工作表范围B8中，我键入了以下公式（=TEXT（NOW（），“DD-MM-YYYY”））

但当我在模块下面运行时，它总是将日期格式从第3页中的dd-mm-yyyy转换为mm-dd-yyyy

我还将日期列格式化为自定义日期格式（dd-mm-yyyy），但运气不好

lrow = Sheet3.Range("B" & Rows.Count).End(xlUp).Row
lrow = lrow + 1
Sheet3.Cells(lrow, 2).Value = ActiveSheet.Range("B6").Value 'Slip Number
Sheet3.Cells(lrow, 3).Value = ActiveSheet.Range("B8").Value 'Date
Sheet3.Cells(lrow, 4).Value = ActiveSheet.Range("D8").Value 'Time
Sheet3.Cells(lrow, 5).Value = ActiveSheet.Range("D9").Value 'Vehicle Number
Sheet3.Cells(lrow, 6).Value = ActiveSheet.Range("D10").Value 'Total Vehicle Tyres

不适合我的工作方法

模块1

Sheet3.Cells(lrow, 3).Value = ActiveSheet.Range("B8").Value 'Date

Sheet3.Cells(lrow, 3).Value = Application.WorksheetFunction.Text(Now(), "dd-mm-yyyy") 'Date

模块2

  'Date
  Sheets("Vehicle In Details").Range("C" & i).Value = Sheets("Vehicle Entry").Range("B8").Value

其他一切都很好

---

您在windows上的区域设置是什么？如果它被设置为美国格式，那么它可能会被覆盖。或者，您可以在单元格内设置自定义格式（Ctrl+1）。另一种普遍存储日期的方法是使用yyyy-MM-dd。尝试一下，让我们知道我的地区是印度，地区格式是英语（印度），使用Windows 10 Build 1909。PC日期格式为dd-mm-yyyy。但是时间格式是24小时格式。在复制像下面这样的值之前，尝试强制目标单元格的格式。Sheet3.Cells（lrow，3）。NumberFormat=“dd MM yyyy”（我不确定日期/月份/年的大小写格式）。Baro先生，运气不好。最简单的方法是输入实际日期（例如通过

=NOW（）

）输入源单元格

B8

（仅提供所需的数字格式），而不是稍后将其转换为文本或通过

Sheet3.Cells（lrow，3）.Value=CDate（Sheet1.Range（“B8”）.Value）

指定值，并最终格式化@普拉巴特维什瓦