طارق زكريا حسين جاه الرسول قام بنشر مايو 9, 2015 قام بنشر مايو 9, 2015 بسم الله الرحمن الرحيم بعد التحية والتقدير المطلوب ان شاء الله عند اختيارى احد عنار الكمبوبوكس الاول يتم مسح هذا العنصر من باقى الكمبوبوكسات الاخرى ولكم جزيل الشكر والتقديرفاتورة مبيعات.rar 1
علي الشيخ قام بنشر مايو 10, 2015 قام بنشر مايو 10, 2015 السلام عليكم أخي ان شاء الله تجد في المرفق شئ يكون قريب من المطلوب وهو أقصي ما استطعت التوصل إليه فاتورة مبيعات.rar
طارق زكريا حسين جاه الرسول قام بنشر مايو 10, 2015 الكاتب قام بنشر مايو 10, 2015 بسم الله الرحمن الرحيم اخى العزيز على الشيخ اشكرك جدا على اهتمامك بالموضوع ما اريده موجود بالفعل فى هذا الصرح الكبير ولاكن لم استطع تطبيقه على برنامجى بعد اذن سيادتكم ارسلت رابط المثال الموجود بهذا الصرح الكبير اتمنى ان تتوفق على تطبيقه فى برنامجى (فاتورة مبيعات) ولكم جزيل الشكر والتقديرhttp://www.officena.net/ib/index.php?showtopic=56482&p=358111 www.officena.net/ib/index.php?showtopic=56482&p=358111 1
طارق زكريا حسين جاه الرسول قام بنشر مايو 11, 2015 الكاتب قام بنشر مايو 11, 2015 اتمنى ان يكون طلبى مفهوم
أفضل إجابة شوقي ربيع قام بنشر مايو 11, 2015 أفضل إجابة قام بنشر مايو 11, 2015 السلام عليكم حسب فهي لطلبك هو انك لا تريد تكرار الاصناف في الفاتورة و هناك طريقتين لتنفيذ المطلوب الاولى باستخدام الطريقة التقليدية رسالة تنبيه و كود يمنع المستخدم من تكرار الصنف الثانية هي ما ساقدمه لك ببساطة الافكرة تعتمد على مصفوفتين الاولى تحمل جميع الاصناف المخزنة في الداتا و الثانية من اجل تصفية وحذف الاصناف التي استعملت بالفعل ثم نقوم باعادت تحميل البيانات المفلترة من المصفوفة الثانية الى المصفوفة الاولى ؟؟؟؟ قد تقول لما ذا هته الفة لماذا لا تفلتر في المصفوفة الاولى في حد ذاتها جوابي ببساطة شخصيا لا اعرف طريقة لحذف عنصر معين من المصفوة الذي اعرفه هو مسح المسفوفة بالكامل وان كان هناك من الاعضاء المحترمين في المنتدى يعلمون الطريقة فياريت يعلمني بالطريقة نعود الى موضوعنا اولا عرف مصفوفتين ول يكن تعريفهما على عامت الفورم وليس على حدث او SUB ما Dim Arr1(), Arr2() ثانيا نحتاج الى كود يملئ لنا المصفوفة الاولى من قاعدة البيانات وفي نفس الوقت يملئ قوائم الاصناف في الفورم Sub Listcmd() Dim ws As Worksheet Dim Lrw As Long Set ws = ThisWorkbook.Sheets("setup") Lrw = ws.Range("A" & Rows.Count).End(xlUp).Row Arr1 = Application.Transpose(ws.Range("B2:B" & Lrw).Value) For i = 8 To 13 Me("ComboBox" & i).List = Arr1 Next End Sub اما هذا الكود Sub ListArr(cmd As String) Dim sTe As String: sTe = Me(cmd).Text Dim ii As Long, e As Long: e = 0 For ii = LBound(Arr1) To UBound(Arr1) If CStr(Arr1(ii)) <> sTe Then e = e + 1: ReDim Preserve Arr2(e) Arr2(e) = Arr1(ii) End If Next ii ReDim Arr1(e): Arr1 = Arr2 End Sub يقوم بمسح الصنف الذي ياخذه المتغير cmd من المصفوفة اخيرا كود به حلقة تكرارية تدور حول كل الكمبوبوكس الخاصة بالاصناف لـاخذ القيمة التي تحملها وتذهب بها الى الكود السابق لكي يحذف الصنف من القائمة الاصناف ثم يعيد تعبئة الكمبوبوكس بالاصناف الغير مستعملة فقط Sub FList() Listcmd For i = 8 To 13 If Me("ComboBox" & i) <> "" Then ListArr Me("ComboBox" & i).Name Next For i = 8 To 13 Me("ComboBox" & i).List = Arr1 Next End Sub ملاحضة الكود يقوم بارجاع الصنف المحذوف في حالة تغيره يعني لو استعملت الصنف سيحذف من القوائم لاكن لو غيرت الصنف الى صنف اخر سيحذف الصنف الجديد من القائمة ويستبدل مكانه الصنف السابق له ارجو ان اكون قد وفق ولو قليل في شرح الفكرة وان يكون فيها افادة للجميع تحياتي للجميع فاتورة مبيعات.rar 1
طارق زكريا حسين جاه الرسول قام بنشر مايو 11, 2015 الكاتب قام بنشر مايو 11, 2015 اخى العزيز شوقى ربيع بعد التحية والتقدير عجز اللسان عن الكلام امام قدرات الهائلة لكم جزيل الشكر والتقدير
طارق زكريا حسين جاه الرسول قام بنشر مايو 12, 2015 الكاتب قام بنشر مايو 12, 2015 استازى العزيز شوقى الحل الذى قدمته لنا هو الحل الاكيد وهو المطلوب بالفعل ولاكن اتضح لى انه بعد ازالة العنصر الذى تم اختياره توجد بالكمبو بكس فراغات وانا بعد ازن سيادتكم لااريد هذه الفراغات ولكم جزيل الشكر والتقدير
طارق زكريا حسين جاه الرسول قام بنشر مايو 14, 2015 الكاتب قام بنشر مايو 14, 2015 ارجوا مسح الفراغات من داخل الكمبوبكسات
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.