[حل شده] فرمت در کامبو باکس

[میثم مقدم نیا]

سلام خدمت دوستان و اساتید عزیز
من یک کامبو باکس با آیتم تاریخ دارم وقتی تاریخ را از درون آن انتخاب میکنم بجای نمایش 1398/12/28به من 13981228 نمایش میدهد که در تصویر زیر به وضوح معلوم است.



من برای حل این مشکل از کد

Private Sub ComboBox1_Change()

'    ActiveSheet.ComboBox1.Value = Format(ActiveSheet.ComboBox1.Value, "mm/dd/yyyy")
    ActiveSheet.ComboBox1.Value = Format(ActiveSheet.ComboBox1.Value, "####/##/##")

End Sub 

استفاده کردم اما با خطا مواج شدم
لطفا راهنمایی کنید

[majid_mx4]

با سلام

لطفا هر چی دستور در قسمت کمبوباکس دارید حذف کنید و این دستور را اضافه کنید.(حتما اول حذف کنید و سپس از این کد استفاده نمایید.)

Private Sub UserForm_Initialize()
For Each cell In Range("data")
cell.Value = Format(cell.Value, "####/##/##")
Next
End Sub

توضیح : دوست عزیز کمبوباکس شما در یوزرفرم می باشد و Activesheet در اول کمبوباکس در این دستور بلا استفاده است.

دستور جدید فرمت اولیه را تبدیل به فرمت دلخواه شما برای استفاده از تیبل میکند.

موفق باشید میر