اذهب الي المحتوي
أوفيسنا

الرجاء التعديل على هذه الفورم


الردود الموصى بها

السلام عليكم

 

لقد بدأن نقترب إلى الحل 

 

 

الكومبوكس يجب أن لا يكون هناك فاصل بينهما

 

وهناك ملاحظة   الأكواد هي نفسها  ولكن المعلومات مختلفة فمقلا في الليس بوكس 01  نضهر  متغيرات وفي الليست بوكست 02 نصهرت متغيرالت لكن لنفس الكود الذي هو موحد   ويمكن أن نوحد مكان الكود ولنجعله في العمود ap

رابط هذا التعليق
شارك

الاخ / ريان

الفورم به كومبوبوكس واحد عن اي فاصل تتحدث

 

واذا كان الكود واحد في كلتا الصفحتين فكيف للبرنامج ان يتعرف اي صفحه تريد ان لم تحدد هذا

 

برجاء توضيح طلبك بطريقه اكثر تفصيلا والافضل بمثال فالملف حتي يتسني للجميع فهم طلبك 

رابط هذا التعليق
شارك

في الورقة  bd1  الكود في a وفي الورقة bd2  الكود كذلك في العمود a

 

 

بما أنهم نفس الأرقام  يكفي أخذ  عمود واحد لظهور البيانات بدلالتهم

 

أريد بمجرد إدخال كود في الكزمبوكس تظهر البانات في الليست بوكس 01  والليست بوكس 02  وهي ليس نفس البيانات فمثلا في الليست بوكس 01 يظهر الجنس والوضيفة وفي الليست بوكس 02 تظهر العنوان ورقم الهاتف

 

عل سبيل المثال

 

 

 

 

 

 

H-test.rar

رابط هذا التعليق
شارك

السلام عليكم

 

 المطلوب الأول       يعمبل بشكل جيد لكن هناك تعدبل خفيف أرجو من سيادتك التكرم به

 

 

هو لو كانت هناك حالتي ن أو أكثر لكود يظهرها  لأن الكود يصهر حالة واحد فقط

رابط هذا التعليق
شارك

شكرا جزيلا   نعم هو المطلوب   وجزاك الله كل خير

 

ولكن أين أجريت التغيير    وفيما يخص الكومبوكس لماذا تصهر معها الأرقام 1 2 3  4 5   بالرغم أنها ليست في العمود a

رابط هذا التعليق
شارك

الأرقام 1 2 3  4 5 تظهر بسبب هذا الجزء قم بحذفه

For x = 1 To ws2.Range("B65536").End(xlUp).Row
ComboBox1.AddItem ws2.Cells(x, 2)
Next

والتغير اجريتها بان استبدلت رقم  عمود الليست بوكس من رقم ثابت وهو الصفر كما كان بالاول الي متغير "V" حتي يتغير في حالة وجود اكثر من سطر

رابط هذا التعليق
شارك

السلام عليكم

 

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

 

المعنى هذه الاسطر لا تعمل

         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

تحياتي

رابط هذا التعليق
شارك

السلام عليكم

 

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

 

المعنى هذه الاسطر لا تعمل

         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 اعمده فقط ؟؟؟

رابط هذا التعليق
شارك

السلام عليكم

 

 

لكن لماذا 10 اعمده فقط ؟؟؟

 

الله اعلم

هل هذا خلل بالكود ام ان ادراج البيانات بالليست بوكس بهذه الطريقة لها حد اقصي 10 اعمده

رابط هذا التعليق
شارك

لو علي المشكلة يمكن حلها باستخدام نفس الكود الموجود بالمشاركة الاولي واظن ان هذا للكود لمشرفنا الغالي عبدالله باقشير

 

لكن نحن ننتظر استاذنا عبدالله لتوضيح سبب الخلل فالطريقة الثانية

 

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

H-test (4).rar

رابط هذا التعليق
شارك

 

السلام عليكم

 

 

لكن لماذا 10 اعمده فقط ؟؟؟

 

الله اعلم

هل هذا خلل بالكود ام ان ادراج البيانات بالليست بوكس بهذه الطريقة لها حد اقصي 10 اعمده

 

 لا ليس خلل بالكود

 

انما مثل ما ذكرت

ادراج البيانات بالليست بوكس بهذه الطريقة لها حد اقصي 10 اعمده

 

لكن يمكنك اضافة نتائج البحث في متغير جدول (مصفوفة)

 

وتستخدم الامر ادناه لاضافة الجدول الى اللست

Me.ListBox1.Column = Ary

او الامر

Me.ListBox1.List = Ary

تحياتي

رابط هذا التعليق
شارك

لو علي المشكلة يمكن حلها باستخدام نفس الكود الموجود بالمشاركة الاولي واظن ان هذا للكود لمشرفنا الغالي عبدالله باقشير

 

لكن نحن ننتظر استاذنا عبدالله لتوضيح سبب الخلل فالطريقة الثانية

 

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

attachicon.gifH-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.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information