رشراش قام بنشر يونيو 17, 2017 قام بنشر يونيو 17, 2017 المطلوب: ولكم فائق الشكر أن أختار العناوين من كمبوبوكس ويتم نسخ ما اختاره مباشرة في خلية وأما الثانية فيمكن النسخ الا بعد الضغط على زر انسخ الملف مرفق .... كمبوبوكس بطريقتين.rar
سليم حاصبيا قام بنشر يونيو 17, 2017 قام بنشر يونيو 17, 2017 الكود الازم لهذه الحالة Private Sub ComboBox1_AfterUpdate() Sheets("صفحة 2").Range("d2") = ComboBox1.Value End Sub Private Sub CommandButton1_Click() Sheets("صفحة 2").Range("e2") = ComboBox2.Value End Sub 1
رشراش قام بنشر يونيو 17, 2017 الكاتب قام بنشر يونيو 17, 2017 (معدل) لكن كيف اربط الكمبوبوكس بالخلايا من A2 الى J2 من الصفحة 1 مع تجاوز اذا كانت هناك خلية فارغة وجازاك الله خيرا ، ورمضان مبارك صيام مقبول ان شاء الله تم تعديل يونيو 17, 2017 بواسطه رشراش
رشراش قام بنشر يونيو 17, 2017 الكاتب قام بنشر يونيو 17, 2017 اعتقد استاذي ان الموضوع يستحق تدخلك ثانيةً. . .والف شكر لكل من يمر من هنا
سليم حاصبيا قام بنشر يونيو 18, 2017 قام بنشر يونيو 18, 2017 3 ساعات مضت, رشراش said: اعتقد استاذي ان الموضوع يستحق تدخلك ثانيةً. . .والف شكر لكل من يمر من هنا لم افهم عليك ما تريد اي خلية تريد ان تدرج فيها فيمة الكومبو واي كومبو من الاثنين و باي طريقة من الاثنتين 1
رشراش قام بنشر يونيو 18, 2017 الكاتب قام بنشر يونيو 18, 2017 (معدل) استاذي. . الادراج من الكمبو الى الخلية قد حللتها لي مشكورا . . . بقي جلب القيم الى الكمبو ان الكمبوبوكس الاول والثاني يأخذاني قيمهما من الصفحة 1 من الخلايا المذكورة من A2 الى J2. . او يمكن اخذ العناوين من رؤوس الاعمدة من الصفحة 1 .'.حتى اختار القيم ومن ثم يتم ترحيلها (تم حلها).' تم تعديل يونيو 18, 2017 بواسطه رشراش
رشراش قام بنشر يونيو 18, 2017 الكاتب قام بنشر يونيو 18, 2017 16 ساعات مضت, سليم حاصبيا said: لم افهم عليك ما تريد اي خلية تريد ان تدرج فيها فيمة الكومبو واي كومبو من الاثنين و باي طريقة من الاثنتين استاذي مازلت في الانتظار. . وقد شرحت المطلوب اذ الكمبوبوكس ياخذ قيّمَهُ من الخلايا منa2 الى J2_ من صفحة 1 فاختار من الكمبو ومن ثم ينسخ الى ص2 (وهذا تم حله)
سليم حاصبيا قام بنشر يونيو 18, 2017 قام بنشر يونيو 18, 2017 يلزم هذا الكود 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 1
رشراش قام بنشر يونيو 18, 2017 الكاتب قام بنشر يونيو 18, 2017 سأنفذه إن شاء الله. . . شكرا وجازاك الله خيرا وزادك علما خالص التحيات وفقك الله
رشراش قام بنشر يونيو 19, 2017 الكاتب قام بنشر يونيو 19, 2017 (معدل) أستاذي الكريم سليم حاصبيا أشكرك جزيلا واعذرني إذ لابد ان اكون لحوحا لاني اتوسم فيك الصبر عليا أستاذي جربت وطبقت ما قلت لي انما لم اصل الى النتيجة المرجوة، الملف مرفق بعد ان نسخت فيه الاكواد..... أنار الله دربك وكل من مر من هنا وكل اساتذتنا الكرام. كمبوبوكس بطريقتين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 تم تعديل يونيو 19, 2017 بواسطه رشراش لأذكر الاستاذ إذ يستحق الشكر والعرفان
رشراش قام بنشر يونيو 20, 2017 الكاتب قام بنشر يونيو 20, 2017 2 ساعات مضت, سليم حاصبيا said: مرفق الحل كمبوبوكس بطريقتين Salim.rar استاذي الكريم وفقك الله وجعلك حليما معي، استاذي اليك هذا التسجيل يشرح ما يحدث مع الملف 1- لا يمكنني اختيار عنوان من الكمبوبوكس من خلال النقر على الفأرة بعد عرض العناوين، واستطيع فقط فعل ذلك من خلال أسهم لوحة المفاتيح،ثم أنه بعد الاختيار لا يتم نسخها الى الخلية إلا بعد النقر بالفارة على الكمبوبوكس 1، مع انه في الحل كانت تتغير الخلية مباشرة مع الكتابة في الكمبوبوكس1 إذن ستقول ما المطلوب، ساقول من فظلك استاذي شاهد المقطع المرفق. رعاك الله ووفقك Videoكمبوبوكس بطريقتين Salim_2017-06-20.rar
سليم حاصبيا قام بنشر يونيو 20, 2017 قام بنشر يونيو 20, 2017 3 ساعات مضت, رشراش said: استاذي الكريم وفقك الله وجعلك حليما معي، استاذي اليك هذا التسجيل يشرح ما يحدث مع الملف 1- لا يمكنني اختيار عنوان من الكمبوبوكس من خلال النقر على الفأرة بعد عرض العناوين، واستطيع فقط فعل ذلك من خلال أسهم لوحة المفاتيح،ثم أنه بعد الاختيار لا يتم نسخها الى الخلية إلا بعد النقر بالفارة على الكمبوبوكس 1، مع انه في الحل كانت تتغير الخلية مباشرة مع الكتابة في الكمبوبوكس1 إذن ستقول ما المطلوب، ساقول من فظلك استاذي شاهد المقطع المرفق. رعاك الله ووفقك Videoكمبوبوكس بطريقتين Salim_2017-06-20.rar غلطة مطبعية في الكود فقط تم التصحيح كمبوبوكس بطريقتين Salim 1.rar 1
رشراش قام بنشر يونيو 20, 2017 الكاتب قام بنشر يونيو 20, 2017 (معدل) أعتقد أستاذي لم تبقى الا خطوة واحدة وهي حل المشكل التالي: حينما احاول الاختيار من الكمبوبوكس (1أو2) لا يمكن ذلك إلا بالاستمرار باضغط على زر الماوس وهذه خطوة غير عملية الحل انه لما نفتح الكمبوبوكس ونضغط عل المحدد مباشرة يكون في الكمبوبوكس . . . . والباقي قد تم حله. واتمنى ان تصبر عليا ونل اجران أجر الصبر واجر مساعدتي، ويضاعف الله لك الاجر ويزيدك علما..... وفقك الله Video_2017-06-20_كمبوبوكس بطريقتين Salim 1.rar تم تعديل يونيو 20, 2017 بواسطه رشراش
سليم حاصبيا قام بنشر يونيو 20, 2017 قام بنشر يونيو 20, 2017 5 ساعات مضت, رشراش said: أعتقد أستاذي لم تبقى الا خطوة واحدة وهي حل المشكل التالي: حينما احاول الاختيار من الكمبوبوكس (1أو2) لا يمكن ذلك إلا بالاستمرار باضغط على زر الماوس وهذه خطوة غير عملية الحل انه لما نفتح الكمبوبوكس ونضغط عل المحدد مباشرة يكون في الكمبوبوكس . . . . والباقي قد تم حله. واتمنى ان تصبر عليا ونل اجران أجر الصبر واجر مساعدتي، ويضاعف الله لك الاجر ويزيدك علما..... وفقك الله Video_2017-06-20_كمبوبوكس بطريقتين Salim 1.rar لا لزوم للضغط على زر الماوس باستمرار فقط كليك واحد غلى ما تريده من الكومبو 1
رشراش قام بنشر يونيو 20, 2017 الكاتب قام بنشر يونيو 20, 2017 (معدل) 2 ساعات مضت, سليم حاصبيا said: لا لزوم للضغط على زر الماوس باستمرار فقط كليك واحد غلى ما تريده من الكومبو استاذي اعذرني على الحاحي....... اليك الفديو الموالي يوضح المقصود بالاشكال الذي لم اتجاوزه Video_2017-06-21_كمبوبوكس بطريقتين Salim 1.rar تم تعديل يونيو 20, 2017 بواسطه رشراش اضافة مرفق
رشراش قام بنشر يونيو 21, 2017 الكاتب قام بنشر يونيو 21, 2017 21 ساعات مضت, رشراش said: استاذي اعذرني على الحاحي....... اليك الفديو الموالي يوضح المقصود بالاشكال الذي لم اتجاوزه Video_2017-06-21_كمبوبوكس بطريقتين Salim 1.rar استاذي حاولت بطريقة أخرى لعلي اجد مخرجا للمشكل الذي يعترضني في كمبو1 وكمبو2 لكن احتاج المساعدة.. قمت بتسمية النطاق A2 الى J2عناوين ووضعت هذا الاسم في RowSource في خصائص كمبو 3 ..... سميت النطاق A3 الى A15 اسماء ووضعت هذا الاسم في RowSource في خصائص كمبو 4 ============================المشكل أن الكمبو 3 لا يعرض كل النطاق والمطلوب عرض كل العناوين الكمبو 4 يعرض حتى الخلايا الفارغة وهذا غير لائق كمبوبوكس بطريقتين3.rar
سليم حاصبيا قام بنشر يونيو 21, 2017 قام بنشر يونيو 21, 2017 أليك الحل للكومبو 3 و4 كمبوبوكس بطريقتين3 Salim.rar 1
رشراش قام بنشر يونيو 21, 2017 الكاتب قام بنشر يونيو 21, 2017 منذ ساعه, سليم حاصبيا said: أليك الحل للكومبو 3 و4 كمبوبوكس بطريقتين3 Salim.rar في الحقيقة استاذي اصبحت محرج ... فاصبر عليا: انما اضفت الكمبو 3 و4 فقط للمحاولة بطريقة اخرى لتجاوز المشكل الموصوف في الفديو السابق ليس الا، قلت اذا حلت بهذه الطريقة نضيف الاكواد من كمبو 1 و2 وتنتهي المشكلة، وثق اني بحثت ولو استطعت الاستفادة من ملفات اخرى لاخبرتك... فمثلا ربما تستخرج من هذا الملف المرفق طريقة مثلى فهو من البداية اعطى اسم النطاق في كود ولم اعرف كيف استفيد منه.... Private Const MyTopColmnRng As String = اسم الصفحة$B$3:$L$3" فورم بحث_Kh_1.rar
رشراش قام بنشر يونيو 27, 2017 الكاتب قام بنشر يونيو 27, 2017 في Wednesday, June 21, 2017 at 19:14, سليم حاصبيا said: ساظل منتظرا الحل. . . عيد مبارك وجازاكم الله خيرا f
أفضل إجابة رشراش قام بنشر يونيو 27, 2017 الكاتب أفضل إجابة قام بنشر يونيو 27, 2017 سابقى لحوح الى ان يحل موضوعي. . .
رشراش قام بنشر يونيو 30, 2017 الكاتب قام بنشر يونيو 30, 2017 حاولت بطرق كثيرة. . . لكني اعترف بفشلي الذريع ان اجاري الاساتذة . .
رشراش قام بنشر يوليو 2, 2017 الكاتب قام بنشر يوليو 2, 2017 طال الانتظار استاذي. . . ام لعلّ موضوعي يجب اعادة طرحه من جديد. . . وما الحاحي الا لثقتي انك آتٍ آتٍ. . . استاذي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.