ريان أحمد قام بنشر يناير 1, 2014 قام بنشر يناير 1, 2014 الفورم الذي في المرفق أريد أن يضهر بيانالت في 02 من الليست بوكس بدلالة كومبوكس 01 من ورقتين أو جدولين وفي كل ورقة الكود في عمود test.rar
ريان أحمد قام بنشر يناير 3, 2014 الكاتب قام بنشر يناير 3, 2014 السلام عليكم شكرا على الرد لكن أريدهم يصهرون في آن ولاحد كل ورقة في ليست بوكس
حسين العصلوجى قام بنشر يناير 3, 2014 قام بنشر يناير 3, 2014 هل المطلوب :- ان يكون الفورم به 2 ليست بوكس و 2 كومبو بوكس كل واحد خاص بورقه
ريان أحمد قام بنشر يناير 3, 2014 الكاتب قام بنشر يناير 3, 2014 لا الفورم به 02 ليست بوكس وواحد كومبوكس واحدة
حسين العصلوجى قام بنشر يناير 3, 2014 قام بنشر يناير 3, 2014 هذا حسب ما فهمت من شرحك جرب المرفق لعله يكون المطلوب H-test.rar
ريان أحمد قام بنشر يناير 3, 2014 الكاتب قام بنشر يناير 3, 2014 السلام عليكم لقد بدأن نقترب إلى الحل الكومبوكس يجب أن لا يكون هناك فاصل بينهما وهناك ملاحظة الأكواد هي نفسها ولكن المعلومات مختلفة فمقلا في الليس بوكس 01 نضهر متغيرات وفي الليست بوكست 02 نصهرت متغيرالت لكن لنفس الكود الذي هو موحد ويمكن أن نوحد مكان الكود ولنجعله في العمود ap
حسين العصلوجى قام بنشر يناير 3, 2014 قام بنشر يناير 3, 2014 الاخ / ريان الفورم به كومبوبوكس واحد عن اي فاصل تتحدث واذا كان الكود واحد في كلتا الصفحتين فكيف للبرنامج ان يتعرف اي صفحه تريد ان لم تحدد هذا برجاء توضيح طلبك بطريقه اكثر تفصيلا والافضل بمثال فالملف حتي يتسني للجميع فهم طلبك
ريان أحمد قام بنشر يناير 3, 2014 الكاتب قام بنشر يناير 3, 2014 في الورقة bd1 الكود في a وفي الورقة bd2 الكود كذلك في العمود a بما أنهم نفس الأرقام يكفي أخذ عمود واحد لظهور البيانات بدلالتهم أريد بمجرد إدخال كود في الكزمبوكس تظهر البانات في الليست بوكس 01 والليست بوكس 02 وهي ليس نفس البيانات فمثلا في الليست بوكس 01 يظهر الجنس والوضيفة وفي الليست بوكس 02 تظهر العنوان ورقم الهاتف عل سبيل المثال H-test.rar
حسين العصلوجى قام بنشر يناير 3, 2014 قام بنشر يناير 3, 2014 جرب المرفق لعله يكون المطلوب H-test (2).rar
ريان أحمد قام بنشر يناير 3, 2014 الكاتب قام بنشر يناير 3, 2014 السلام عليكم المطلوب الأول يعمبل بشكل جيد لكن هناك تعدبل خفيف أرجو من سيادتك التكرم به هو لو كانت هناك حالتي ن أو أكثر لكود يظهرها لأن الكود يصهر حالة واحد فقط
حسين العصلوجى قام بنشر يناير 3, 2014 قام بنشر يناير 3, 2014 هل تقصد مثلا ان الكود رقم 18 يكون له اكثر من صف فالصفحة الواحده ؟؟؟
حسين العصلوجى قام بنشر يناير 3, 2014 قام بنشر يناير 3, 2014 تم تعديل الكود حسب ما طلبت جرب المرفق لعله يكون المطلوب H-test (3).rar
ريان أحمد قام بنشر يناير 3, 2014 الكاتب قام بنشر يناير 3, 2014 شكرا جزيلا نعم هو المطلوب وجزاك الله كل خير ولكن أين أجريت التغيير وفيما يخص الكومبوكس لماذا تصهر معها الأرقام 1 2 3 4 5 بالرغم أنها ليست في العمود a
حسين العصلوجى قام بنشر يناير 3, 2014 قام بنشر يناير 3, 2014 الأرقام 1 2 3 4 5 تظهر بسبب هذا الجزء قم بحذفه For x = 1 To ws2.Range("B65536").End(xlUp).Row ComboBox1.AddItem ws2.Cells(x, 2) Next والتغير اجريتها بان استبدلت رقم عمود الليست بوكس من رقم ثابت وهو الصفر كما كان بالاول الي متغير "V" حتي يتغير في حالة وجود اكثر من سطر
ريان أحمد قام بنشر يناير 3, 2014 الكاتب قام بنشر يناير 3, 2014 بارك الله فيك أستاذي وجزاك الله كل خير وأي إستفسار سأرجع إليك بكل رحابة صدر
عبدالله باقشير قام بنشر يناير 4, 2014 قام بنشر يناير 4, 2014 السلام عليكم بهذه الطريقة لا يمكنك اضافة اكثر من عشرة اعمدة الى اللست بوكس المعنى هذه الاسطر لا تعمل Me.Controls("ListBox" & x).List(v, 10) = ws.Cells(i, 22).Value Me.Controls("ListBox" & x).List(v, 11) = ws.Cells(i, 24).Value Me.Controls("ListBox" & x).List(v, 12) = ws.Cells(i, 25).Value ولا يظهر الخطأ بسبب هذا السطر الذي يمرر الخطا On Error Resume Next تحياتي
حسين العصلوجى قام بنشر يناير 4, 2014 قام بنشر يناير 4, 2014 السلام عليكم بهذه الطريقة لا يمكنك اضافة اكثر من عشرة اعمدة الى اللست بوكس المعنى هذه الاسطر لا تعمل Me.Controls("ListBox" & x).List(v, 10) = ws.Cells(i, 22).Value Me.Controls("ListBox" & x).List(v, 11) = ws.Cells(i, 24).Value Me.Controls("ListBox" & x).List(v, 12) = ws.Cells(i, 25).Value ولا يظهر الخطأ بسبب هذا السطر الذي يمرر الخطا On Error Resume Next تحياتي تحية لك مشرفنا العزيز علي هذه الملاحظه لكن لماذا 10 اعمده فقط ؟؟؟
عبدالله باقشير قام بنشر يناير 4, 2014 قام بنشر يناير 4, 2014 السلام عليكم لكن لماذا 10 اعمده فقط ؟؟؟ الله اعلم
ريان أحمد قام بنشر يناير 4, 2014 الكاتب قام بنشر يناير 4, 2014 هل يوجد طريقة لقبول أكثر من 10 أعمد أستاذنا الفاضل خبور
حسين العصلوجى قام بنشر يناير 4, 2014 قام بنشر يناير 4, 2014 السلام عليكم لكن لماذا 10 اعمده فقط ؟؟؟ الله اعلم هل هذا خلل بالكود ام ان ادراج البيانات بالليست بوكس بهذه الطريقة لها حد اقصي 10 اعمده
حسين العصلوجى قام بنشر يناير 4, 2014 قام بنشر يناير 4, 2014 لو علي المشكلة يمكن حلها باستخدام نفس الكود الموجود بالمشاركة الاولي واظن ان هذا للكود لمشرفنا الغالي عبدالله باقشير لكن نحن ننتظر استاذنا عبدالله لتوضيح سبب الخلل فالطريقة الثانية مرفق مثال بالطريقة الاولي والتي تسمح باكثر من 10 اعمده H-test (4).rar
عبدالله باقشير قام بنشر يناير 4, 2014 قام بنشر يناير 4, 2014 السلام عليكم لكن لماذا 10 اعمده فقط ؟؟؟ الله اعلم هل هذا خلل بالكود ام ان ادراج البيانات بالليست بوكس بهذه الطريقة لها حد اقصي 10 اعمده لا ليس خلل بالكود انما مثل ما ذكرت ادراج البيانات بالليست بوكس بهذه الطريقة لها حد اقصي 10 اعمده لكن يمكنك اضافة نتائج البحث في متغير جدول (مصفوفة) وتستخدم الامر ادناه لاضافة الجدول الى اللست Me.ListBox1.Column = Ary او الامر Me.ListBox1.List = Ary تحياتي
عبدالله باقشير قام بنشر يناير 4, 2014 قام بنشر يناير 4, 2014 لو علي المشكلة يمكن حلها باستخدام نفس الكود الموجود بالمشاركة الاولي واظن ان هذا للكود لمشرفنا الغالي عبدالله باقشير لكن نحن ننتظر استاذنا عبدالله لتوضيح سبب الخلل فالطريقة الثانية مرفق مثال بالطريقة الاولي والتي تسمح باكثر من 10 اعمده H-test (4).rar احسنت اخي حسين هذا ما عنيته جزاك الله خيرا تقبلوا تحياتي وشكري
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.