ضبط كود الليبل2 داخل الفورم

[هانى محمد]

السلام عليكم احبائى الكرام وكل عام وانتم جميعا بخير
أرجو التعطف على مساعدتى فى ضبط هذه الجزئية من الكود لكى يظهر ناتج الليبل2 كما بالصورة بالتمام .. فهو يعمل معى تمام كما بالصورة ولكن بإختيار اسم المدينة أولاً ولكن عند اختيار اسم الدولة أولاً لا يظهر قيمة المدينة بعد اختيارها وهذا بالضبط هو الأدق من المفترض والطبيعى اختيار اسم الدولة اولا من الكمبوبوكس 1 ثم بعد ذلك اختيار اى مدينة أريدها لهذه الدولة
بارك الله فيكم جميعا

Label2.Caption = ComboBox2.Text & " - " & ComboBox1.Text

 

Country.xlsb

[ابراهيم الحداد]

السلام عليكم ورحمة الله

الكود للكومبو بوكس الثانى يكون هكذا

Private Sub ComboBox2_Change()
Label2.Caption = ComboBox2.Text & " - " & ComboBox1.Text
End Sub

و يتم الغاء هذه الجزئية من كود الكومبوبوكس الاول

و ان شيئت يمكنك استبدال كود الكومبوبوكس  الاول بهذا الكود ولك حرية الاختيار

Private Sub ComboBox1_Change()
Dim ws As Worksheet
Dim x As Integer, y As Integer
Dim Cny As String, Cty As String
Label2.Caption = " "
Set ws = Sheets("Sheet2")
Cny = Me.ComboBox1.Value
x = WorksheetFunction.Match(Cny, ws.Range("M2:Y2"), 0) + 12
y = ws.Cells(Rows.Count, x).End(xlUp).Row
ws.Range(ws.Cells(3, x), ws.Cells(y, x)).Name = "Sors"
Me.ComboBox2.RowSource = "Sors"
End Sub

و كل عام وانتم بخير

[هانى محمد]

بارك الله فيك استاذ ابراهيم وزادك الله من فضله وهو ده المطلوب بالفعل بالنسبة لقيمة الليبل

واشكرك كثيرا على كود الكمبوبوكس الأول حقا كود رائع وممتاز وأصغر من كودى وافضل منه بمراحل-جزاك الله كل خير وكل عام وانتم بخير

هل يمكن استاذى الكريم بأن يظهر شكل وهيئة التاريخ التاريخ الهجرى فى الليبل 1 بالفورم مثل هذا الشكل .. لو ممكن حضرتك تقوم بتعديل هذا الكود ولكم جزيل الشكر وبارك الله فيكم

Private Sub UserForm_activate()
 Calendar = vbCalHijri
  EDate = Date
 Label1.Caption = Format(Date, "d dddd mmm yyyy")
End Sub

 

Date.xlsb

[ابراهيم الحداد]

السلام عليكم ورحمة الله

اجعل الكود هكذا

Private Sub UserForm_activate()
 Calendar = vbCalHijri
  EDate = Date
 Label1.Caption = Format(Date, "ddd dd mmm yyyy") & "  هـ"
End Sub

و الله الموفق و المستعان

[ابراهيم الحداد]

السلام عليكم ورحمة الله

اليك صورة للفورم كما يظهر عندى على الجهاز ولا ادرى لماذا تظهر عندك مخالفة

 

[هانى محمد]

تمام استاذى الكريم ,ربما هذا يتم من اعدادات الجهاز بأن اجعل التاريخ باللغة العربية -,وبالفعل عندما قمت بتعديل الإعدادات ظهر معى التاريخ تماما كما ظهر معك ولكن التاريخ غير دقيق فاليوم 6 رمضان وليس 7 رمضان ,,, هل يمكن تعديل هذا

ولكن اليس هناك حل بأن يظهر بهذه الطريقة بدون تعديل وتغيير اعدادات التاريخ بالكمبيوتر ؟