النماذج فى الاكسيل

 استخدام النماذج فى اكسيل

مثال برنامج مخازن

الحطوات

1-صمم كارتة الصنف لعدد 3 اصناف مثلا

2-صمم كارتة الجرد لربط اصناف المخزن

3-فى حدث Form_Initialize  قم بكتابة الكود التالى لتعبئة اكواد الأصناف و أسمائها حيث تشغل الأكواد العمود الأول و الأسماء العمود الثانى بدء من السطر الرابع

Private Sub UserForm_Initialize()

Dim c

Sheets("index").Select

For c = 1 To 3

    Me.ComboBox1.AddItem Cells(c + 3, 1).Value    

Me.ComboBox2.AddItem Cells(c + 3, 2).Value    

Next c

End Sub

4-فى حدث  تغير محتويات كومبو الأكواد اكتب كود الانتقال لصفحة الاختيار مع ربط الأسماء بالأكواد

Private Sub ComboBox1_Change()

' الانتقال لكارتة الصنف عقب اختيارها من كومبو الأكواد

Sheets(Me.ComboBox1.Value).Select

' ربط كومبو الأكواد بكومبو الأصناف

Me.ComboBox2.ListIndex = Me.ComboBox1.ListIndex

End Sub