TextBox2.Value = UCase(Format(TextBox2.Value, "yyyy-mmm-dd"))
Private Sub CommandButton1_Click()
Range("B6") = UCase(Format(TextBox2.Value, "yyyy-mmm-dd"))
End Sub
Private Sub TextBox2_Change()
With TextBox2
If Len(.Value) = 10 And IsDate(.Value) Then
TextBox2.Value = UCase(Format(CDate(TextBox2.Value), "yyyy-MMM-dd"))
End If
End With
End Sub
Private Sub CommandButton1_Click()
'Range("B6").Select
Range("B6") = DateValue(TextBox2.Value)
Range("B6").NumberFormat = UCase("yyyy-mmm-dd")'??????????????????????
End Sub
Private Sub UserForm_Initialize()
Dim Articles As Variant
'TextBox2 = Date
'TextBox2 = CDate(TextBox2.Value)
TextBox2.Value = Format(Date, "yyyy-mmm-dd")
End Sub
Private Sub CommandButton1_Click()
Range("B6") = TextBox2.Text
End Sub
Private Sub UserForm_Initialize()
Dim Articles As Variant, arDate
arDate = Array(Year(Date), Left(Format(Date, "mmm"), 3), Format(Date, "dd"))
TextBox2 = UCase(Join(arDate, "-"))
End Sub