Question

请问有人可以帮助我如何更改日期格式化因为我使用以下代码而不是今天的日期它给我八月的日期。我的意思是它需要我的笔记本电脑的日期（08-sep-2015）并且它返回excel单元格（2015年8月9日）。

Private Sub UserForm_Initialize()
'testing variable
'Dim LValue As String

'LValue = Format(#4/17/2004#, "Long Date")
'close testing variable

Me.tbDate = Date


'fill combobox


For Each cell In [cartridges]
    Me.cmbCartridges.AddItem cell
Next cell

End Sub

我排除代码的部分是我为在互联网上找到的解决方案而做的测试。

我想要呈现日期的文本框还有以下代码

ssheet.Cells(nr, 1) = CDate(Me.tbDate)

Answer 1

我使用此代码解决了我的问题。我故意以错误的方式格式化了单元格（excel默认设置），然后根据需要对其进行了格式化。

For j = 0 To LISTBOXNAME.ListCount - 1
LISTBOXNAME.List(j) = Format(DateValue(LISTBOXNAME.List(j)), "m/d/yyyy")
LISTBOXNAME.List(j) = Format(DateValue(LISTBOXNAME.List(j)), "dd.mm.yyyy")
Next j

日期格式正在切换月和日

1 个答案: