Dim vs As Integer
Dim I As Date
Dim x As String
vs = Calendar
Calendar = 0
I = CDate(wsd.Text)
Calendar = 1
x = CStr(I)
hhwss = Format(x, "YYYY/MM/DD")
Calendar = vs
السادة الأعزاء
السلام عليكم
لدي حقل للتاريخ اسمه wsd عندما أقوم بتحديثه يظهر التاريخ الهجري في HHwss في النموذج
السؤال كيف أعدل على هذا الكود بحيث إذا عدلت على خلية أخرى في النموذج على سبيل المثال kwe ليس لها علاقة بالتاريخ يتحدث HHwss بناء على القيمة الموجودة في wsd بدون الضغط على خلية wsd حيث إن التواريخ جاهزة مكتوبة في wsd وفي كل مرة أحتاج اضغط على wsd لتظهر القيمة في hhwss