السلام عليكم
الأخ الكريم
أضف السطر التالي بعد السطر السابع في كودك
TextBox2.Value = Format(Sheets("All").Cells(Snum + 4, 3).Value, "Medium Date")
]
أو السطر التالي
TextBox2.Value = Format(Sheets("All").Cells(Snum + 4, 3).Value, "DD/MMMM/YYYY")
كلاهما يحقق ما تريد لكن بشكلين مختلفين في نمط الشرطة التي بين أجزاء التاريخ
دمت بخير
أيسم إبراهيم