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

كمبوبوكس بطريقتين


إذهب إلى أفضل إجابة Solved by رشراش,

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

المطلوب: ولكم فائق الشكر أن أختار العناوين من كمبوبوكس ويتم نسخ ما اختاره مباشرة في خلية

وأما الثانية فيمكن النسخ الا بعد الضغط على زر انسخ

الملف مرفق

....

كمبوبوكس بطريقتين.rar

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

الكود الازم لهذه الحالة

Private Sub ComboBox1_AfterUpdate()
Sheets("صفحة 2").Range("d2") = ComboBox1.Value
End Sub


Private Sub CommandButton1_Click()
Sheets("صفحة 2").Range("e2") = ComboBox2.Value
End Sub

 

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

لكن كيف اربط الكمبوبوكس بالخلايا

من

  A2

الى

J2

من الصفحة 1

مع تجاوز اذا كانت هناك خلية فارغة

وجازاك الله خيرا ، ورمضان مبارك صيام مقبول ان شاء الله

تم تعديل بواسطه رشراش
رابط هذا التعليق
شارك

3 ساعات مضت, رشراش said:

اعتقد استاذي ان الموضوع يستحق تدخلك ثانيةً. . .والف شكر لكل من يمر من هنا

لم افهم عليك ما تريد 

اي خلية تريد ان تدرج فيها فيمة الكومبو  واي كومبو من الاثنين و باي طريقة من الاثنتين

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

استاذي. .  الادراج من الكمبو الى الخلية قد حللتها لي مشكورا . . . 

  بقي جلب القيم الى الكمبو 

ان الكمبوبوكس الاول والثاني يأخذاني قيمهما من الصفحة 1  من الخلايا المذكورة  من A2 الى J2. . 

او يمكن اخذ العناوين من رؤوس الاعمدة من الصفحة 1 

.'.حتى اختار القيم ومن ثم يتم ترحيلها (تم حلها).'

تم تعديل بواسطه رشراش
رابط هذا التعليق
شارك

16 ساعات مضت, سليم حاصبيا said:

لم افهم عليك ما تريد 

اي خلية تريد ان تدرج فيها فيمة الكومبو  واي كومبو من الاثنين و باي طريقة من الاثنتين

استاذي مازلت في الانتظار. .  

وقد شرحت المطلوب اذ الكمبوبوكس ياخذ قيّمَهُ من الخلايا منa2 الى J2_   من صفحة 1 

فاختار من الكمبو ومن ثم ينسخ الى ص2 (وهذا تم حله)

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

يلزم هذا الكود

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
ComboBox1.Clear
col = Sheets("صفحة1").Cells(2, Columns.Count).End(1).Column
 For i = 1 To col
ComboBox1.AddItem Cells(2, i)
Next
End Sub
Private Sub ComboBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
ComboBox1.Clear
col = Sheets("صفحة1").Cells(2, Columns.Count).End(1).Column
 For i = 1 To col
ComboBox2.AddItem Cells(2, i)
Next
End Sub

 

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

أستاذي الكريم سليم حاصبيا أشكرك جزيلا واعذرني إذ لابد ان اكون لحوحا لاني اتوسم فيك الصبر عليا

أستاذي جربت وطبقت ما قلت لي انما لم اصل الى النتيجة المرجوة، الملف مرفق بعد ان نسخت فيه الاكواد.....

أنار الله دربك وكل من مر من هنا وكل اساتذتنا الكرام.

 

كمبوبوكس بطريقتين2.rar

20 ساعات مضت, سليم حاصبيا said:

يلزم هذا الكود


Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
ComboBox1.Clear
col = Sheets("صفحة1").Cells(2, Columns.Count).End(1).Column
 For i = 1 To col
ComboBox1.AddItem Cells(2, i)
Next
End Sub
Private Sub ComboBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
ComboBox1.Clear
col = Sheets("صفحة1").Cells(2, Columns.Count).End(1).Column
 For i = 1 To col
ComboBox2.AddItem Cells(2, i)
Next
End Sub

اليك استاذي الملف لكني لم افلح..... تلميذك ثقيل الفهم

 

 

كمبوبوكس بطريقتين2.rar

تم تعديل بواسطه رشراش
لأذكر الاستاذ إذ يستحق الشكر والعرفان
رابط هذا التعليق
شارك

2 ساعات مضت, سليم حاصبيا said:

استاذي الكريم وفقك الله وجعلك حليما معي، استاذي اليك هذا التسجيل يشرح ما يحدث مع الملف

1- لا يمكنني اختيار عنوان من الكمبوبوكس من خلال النقر على الفأرة بعد عرض العناوين،

واستطيع فقط فعل ذلك من خلال أسهم لوحة المفاتيح،ثم أنه بعد الاختيار لا يتم نسخها الى الخلية إلا بعد النقر بالفارة على الكمبوبوكس 1،

مع انه في الحل كانت تتغير الخلية مباشرة مع الكتابة في الكمبوبوكس1

إذن ستقول ما المطلوب، ساقول من فظلك استاذي شاهد المقطع المرفق.

رعاك الله ووفقك

Videoكمبوبوكس بطريقتين Salim_2017-06-20.rar

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

3 ساعات مضت, رشراش said:

استاذي الكريم وفقك الله وجعلك حليما معي، استاذي اليك هذا التسجيل يشرح ما يحدث مع الملف

1- لا يمكنني اختيار عنوان من الكمبوبوكس من خلال النقر على الفأرة بعد عرض العناوين،

واستطيع فقط فعل ذلك من خلال أسهم لوحة المفاتيح،ثم أنه بعد الاختيار لا يتم نسخها الى الخلية إلا بعد النقر بالفارة على الكمبوبوكس 1،

مع انه في الحل كانت تتغير الخلية مباشرة مع الكتابة في الكمبوبوكس1

إذن ستقول ما المطلوب، ساقول من فظلك استاذي شاهد المقطع المرفق.

رعاك الله ووفقك

Videoكمبوبوكس بطريقتين Salim_2017-06-20.rar

غلطة مطبعية في الكود فقط

تم التصحيح

 

كمبوبوكس بطريقتين Salim 1.rar

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

أعتقد أستاذي لم تبقى الا خطوة واحدة وهي حل المشكل التالي:

حينما احاول الاختيار من الكمبوبوكس (1أو2) لا يمكن ذلك إلا بالاستمرار باضغط على زر الماوس وهذه خطوة غير عملية

الحل انه لما نفتح الكمبوبوكس ونضغط عل المحدد مباشرة يكون في الكمبوبوكس . . . .

والباقي قد تم حله.

واتمنى ان تصبر عليا ونل اجران أجر الصبر واجر مساعدتي، ويضاعف الله لك الاجر ويزيدك علما..... وفقك الله

Video_2017-06-20_كمبوبوكس بطريقتين Salim 1.rar

تم تعديل بواسطه رشراش
رابط هذا التعليق
شارك

5 ساعات مضت, رشراش said:

أعتقد أستاذي لم تبقى الا خطوة واحدة وهي حل المشكل التالي:

حينما احاول الاختيار من الكمبوبوكس (1أو2) لا يمكن ذلك إلا بالاستمرار باضغط على زر الماوس وهذه خطوة غير عملية

الحل انه لما نفتح الكمبوبوكس ونضغط عل المحدد مباشرة يكون في الكمبوبوكس . . . .

والباقي قد تم حله.

واتمنى ان تصبر عليا ونل اجران أجر الصبر واجر مساعدتي، ويضاعف الله لك الاجر ويزيدك علما..... وفقك الله

Video_2017-06-20_كمبوبوكس بطريقتين Salim 1.rar

لا لزوم للضغط على زر الماوس باستمرار

فقط كليك واحد غلى ما تريده من الكومبو

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

2 ساعات مضت, سليم حاصبيا said:

لا لزوم للضغط على زر الماوس باستمرار

فقط كليك واحد غلى ما تريده من الكومبو

استاذي اعذرني على الحاحي.......

اليك الفديو الموالي يوضح المقصود بالاشكال الذي لم اتجاوزه

Video_2017-06-21_كمبوبوكس بطريقتين Salim 1.rar

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

21 ساعات مضت, رشراش said:

استاذي اعذرني على الحاحي.......

اليك الفديو الموالي يوضح المقصود بالاشكال الذي لم اتجاوزه

Video_2017-06-21_كمبوبوكس بطريقتين Salim 1.rar

استاذي حاولت بطريقة أخرى لعلي اجد مخرجا للمشكل الذي يعترضني في كمبو1 وكمبو2 لكن احتاج المساعدة..

قمت بتسمية النطاق A2 الى J2عناوين
ووضعت هذا الاسم في RowSource  في خصائص كمبو 3
.....
سميت النطاق A3 الى A15 اسماء
ووضعت هذا الاسم في RowSource  في خصائص كمبو 4
============================
المشكل أن الكمبو 3 لا يعرض كل النطاق والمطلوب عرض كل العناوين
الكمبو 4 يعرض حتى الخلايا الفارغة وهذا غير لائق

 

كمبوبوكس بطريقتين3.rar

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

منذ ساعه, سليم حاصبيا said:

أليك الحل للكومبو 3 و4

 

كمبوبوكس بطريقتين3 Salim.rar

في الحقيقة استاذي اصبحت محرج ... فاصبر عليا:

انما اضفت الكمبو 3 و4 فقط للمحاولة بطريقة اخرى لتجاوز المشكل الموصوف في الفديو السابق ليس الا،

قلت اذا حلت بهذه الطريقة نضيف الاكواد من كمبو 1 و2 وتنتهي المشكلة، وثق اني بحثت ولو استطعت الاستفادة من ملفات اخرى لاخبرتك...

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


Private Const MyTopColmnRng As String = اسم الصفحة$B$3:$L$3"

 

فورم بحث_Kh_1.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