تعديل كود في كمبوبوست

[Xima Alfadni]

السلام عليكم

 

بالاشارة الى البوست الموجود على الرابط التالى :

http://www.officena.net/ib/index.php?showtopic=56738

 

كفكرة تعليمية - كيف يمكن تطوير الكود ليصبح كماهو بالفورم 

بحيث انه عند الاختيار من الكمبوبكس يملاء باقي التكستبوكس اتوماتيكيا في نفس السطر

وانه يسجل بينات الفورم كله في الصفحة رقم 1 بطريقة متسلسلة في كل مرة كنفس فكرة الفاتورة

 

وشكرا

ex1.zip

تم تعديل نوفمبر 13, 2014 بواسطه Xima Alfadni

[ibn_egypt]

أخي الفاضل، جرب الملف المرفق 

 

خالص تحياتي

 

Invoice.rar

[Xima Alfadni]

السلام عليكم

 

مشكوووووور ... عمل رائع و جهد مبذول جميل و مفيد

جزاك الله خير

 

فقط عندى اقتراح ان يتم تطويره ليكون كالمرفقات - ان امكن ذلك 

ولاسيما رقم 3 لان صعوبتها ان تكون بيانات الاصناف بعدد اكبر داخل فريم

 

Invoice3.zip

Invoice2.zip

تم تعديل نوفمبر 14, 2014 بواسطه Xima Alfadni

[Xima Alfadni]

السلام عليكم

 

هذا الكود بحاجة الى شرح حيث انى حاولت تطبيقة مع الملف المرفق ولم يفلح

الرجاء التكرم ببيان سبب الخطاء

وشكرا

Private Sub Arec1_Change()
Dim i, j As Integer, flag As Boolean, sdsheet As Worksheet
Set sdsheet = ThisWorkbook.Sheets("Items")
If Me.Arec1.Value <> "" Then
    flag = False
    i = 2
    j = Me.Arec1.Value
    Do While sdsheet.Cells(i + 1, 2).Value <> ""
        If sdsheet.Cells(i + 1, 2).Value = j Then
            flag = True
            Me.Arec2.Value = sdsheet.Cells(i + 1, 3).Value
            Me.Arec3.Value = sdsheet.Cells(i + 1, 4).Value
            Me.Arec4.Value = sdsheet.Cells(i + 1, 5).Value
            Exit Sub
        End If
        i = i + 1
    Loop
    End If
    
    
End Sub

Boook1.zip

[ibn_egypt]

السلام عليكم

 

مشكوووووور ... عمل رائع و جهد مبذول جميل و مفيد

جزاك الله خير

 

فقط عندى اقتراح ان يتم تطويره ليكون كالمرفقات - ان امكن ذلك 

ولاسيما رقم 3 لان صعوبتها ان تكون بيانات الاصناف بعدد اكبر داخل فريم

 

أخى الفاضل

 

حاضر سحاول جاهدا عندما يسمح الوقت بعمل التعديلات التى تريدها

 

 

 

السلام عليكم

 

هذا الكود بحاجة الى شرح حيث انى حاولت تطبيقة مع الملف المرفق ولم يفلح

الرجاء التكرم ببيان سبب الخطاء

وشكرا

Private Sub Arec1_Change()
Dim i, j As Integer, flag As Boolean, sdsheet As Worksheet
Set sdsheet = ThisWorkbook.Sheets("Items")
If Me.Arec1.Value <> "" Then
    flag = False
    i = 2
    j = Me.Arec1.Value
    Do While sdsheet.Cells(i + 1, 2).Value <> ""
        If sdsheet.Cells(i + 1, 2).Value = j Then
            flag = True
            Me.Arec2.Value = sdsheet.Cells(i + 1, 3).Value
            Me.Arec3.Value = sdsheet.Cells(i + 1, 4).Value
            Me.Arec4.Value = sdsheet.Cells(i + 1, 5).Value
            Exit Sub
        End If
        i = i + 1
    Loop
    End If
    
    
End Sub

 

ليس هناك خطأ في الكود ولكن لو تلاحظ ان الكود مبنى على اساس ان عناصر ال combobox هى ارقام الاصناف لذلك قمت بتعريف المتغير j ك Integer 

 

اما انت في الملف المرفق فقد جعلت عناصر ال Combobox هى اسماء الاصناف وبالتالى فعليك أن تغير المتغير J في أول سطر ليصبح String .. اجعل السطر الاول هكذا

Dim i As Integer , Dim j as  String

 

سيضبط الكود معك بإذن الله

 

خالص تحياتي