جعل الـComboBox يحمل الجمل التي تبدأ باسم معين مع استدعاء بياناتها

[أب مارية]

السلام عليكم

أرجو من الاخوة الأكارم المساعدة في الملف المرفق والمطلوب موضح بالصورة التالية:

 

Originale14.rar

[شوقي ربيع]

السلام عليكم

هذا الكود لتعبئة الكمبوبوكس بما يناسبه

Sub ListCmb(sName As String, sCmb As String)
Dim MyStr, MyList, i
   
  Set MyList = CreateObject("Scripting.Dictionary")
  MyStr = sName & "*"
  For Each i In Ary
    If i Like MyStr Then MyList(i) = ""
  Next i
  Me(sCmb).List = MyList.keys
   
End Sub

وصيغة استدعائه تكون (مثال للكمبو الاول)

ListCmb "Boitie", "ComboBox7"

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

Sub Sher(sShr As String, sText As String)
Dim cc
Dim n: n = 11
    Me(sText).Value = ""
    Me.TextBox126.Value = ""
      MyStr = sShr & "*"
      For Each ii In Ary
      n = n + 1
        If ii = sShr Then Exit For
      Next ii
    If sShr = "" Then
        Me(sText).Value = ""
        Else
        Me(sText).Value = ws.Cells(n, 3).Value
    End If
    For cc = 1 To 5
    Me.TextBox126.Value = Val(Me.TextBox126.Value) + Val(Me("TextBox12" & cc).Value)
    Next
End Sub

وصيغة استدعائه تكون (مثال للكمبو الاول)

Sher Me.ComboBox7, "TextBox121"

ان شاء الله يكون المطلوب

تحياتي للجميع

 

Originale14.rar

[إبراهيم ابوليله]

اخى واستاذنا شوقى

منور المنتدى كله

والله انا فى قمه السعاده

لاننى دائما ارى فى مشاركاتك

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

الاكواد فى غايه الروعه

تقبل تحياتى

[أب مارية]

السلام عليكم

أخي شوقي بارك الله فيك على العمل الرائع لك مني كل التقدير والاحترام

 

وقد قمت بعض التعديلات في الفورم وهناك بعض النقاط أود طرحها وهي كالآتي:

 

1 - قد تكون هناك سلعة واحدة لكن بسعرين مختلفين لكن في الـComboBox تظهر إلا واحدة فقط لذا أرجو أن تظهر فيه جميع السلع.

 

2 - الترحيل يكون في شيت Ventes كما هو موضح في الصورة التالية:

 

 

3 - في شيت Stocks يتم انقاص عدد الوحدات المباعة المسجلة في الـComboBox رقم 133 ما عدا عنصر الـRam يتم حذف عدد الوحدات المسجلة في الـComboBox رقم 121

 

أرجو أن أكون قد وفقت في توضيح المطلوب وأي استفسار أنا جاهز

Originale14.rar

تم تعديل مارس 4, 2015 بواسطه أب مارية

[أب مارية]

للرفع

[أب مارية]

للرفع

[أب مارية]

للرفع

[أب مارية]

السلام عليكم

أخي شوقي بارك الله فيك على العمل الرائع لك مني كل التقدير والاحترام

 

وقد قمت بعض التعديلات في الفورم وهناك بعض النقاط أود طرحها وهي كالآتي:

 

1 - قد تكون هناك سلعة واحدة لكن بسعرين مختلفين لكن في الـComboBox تظهر إلا واحدة فقط لذا أرجو أن تظهر فيه جميع السلع.

 

2 - الترحيل يكون في شيت Ventes كما هو موضح في الصورة التالية:

 

 

3 - في شيت Stocks يتم انقاص عدد الوحدات المباعة المسجلة في الـComboBox رقم 133 ما عدا عنصر الـRam يتم حذف عدد الوحدات المسجلة في الـComboBox رقم 121

 

أرجو أن أكون قد وفقت في توضيح المطلوب وأي استفسار أنا جاهز

[أب مارية]

السلام عليكم

كيف يتم استدعاء جميع البانات الى الكومبوبوس حتى ولو كانت موجودة عدة مرات في الشيت