أكاديمية الصقر للتدريب
FBConnect

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
أحمد يوسف ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil تعديل عرض الأرقام كنسبة مئوية بالليست بوكس داخل الفورم اكسيل اسئله واجابات


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .

Preview




هل يمكن عمل اكثر من كومبوبوكس بنفس الخصائص فقط الاختلاف الخلية المنقول اليها الاسم

السلام عليكم هل يمكن عمل اكثر من كومبوبوكس وتثبيتها فوق الخلايا فقط يتغير الخلية التي يظهر فيها الاسم المختار(الكومبوبوك ..



07-04-2020 07:51 مساء
ابو طيبه
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 95
الجنس : ذكر
يتابعهم : 4
يتابعونه : 1
قوة السمعة : 104
الاعجاب : 36
 offline 
السلام عليكم

هل يمكن عمل اكثر من كومبوبوكس وتثبيتها فوق الخلايا فقط يتغير الخلية التي يظهر فيها الاسم المختار(الكومبوبوكس والكود داخل الملف للاستاذ حسونة مشكوره جهوده) .كما في الملف المرفق وشكرا للجميع
 
 
  نموذج لملف العمل المطلوب ادخال كومبو بوكس.xls   تحميل xls مرات التحميل :(3)
الحجم :(258.56) KB





07-04-2020 08:13 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif هل يمكن عمل اكثر من كومبوبوكس بنفس الخصائص فقط الاختلاف الخلية المنقول اليها الاسم
وعليكم السلام أخي الكريم

هيكلة الملف غريبة نوعاً ما .. لنناقش أولاً الملف لكي نفهم بالضبط المطلوب
أولاً: عند استدعاء اسم معين وليكن فوزية حسين ، على أي أساس يتم جلب البيانات .. وخصوصاً أن الاسم مكرر أكثر من مرة في ورقة "أسماء المراجعين" ..أقصد ما هو الصف الذي سيتم ترحيله أم أن المطلوب نقل كل الصفوف الخاصة بهذا الاسم ..؟
ولما تريد أكثر من كومبوبوكس . لم أفهم المنطق في الطلب؟

أثارت هذه المشاركة إعجاب: ابو طيبه،



07-04-2020 08:43 مساء
مشاهدة مشاركة منفردة [2]
ابو طيبه
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 95
الجنس : ذكر
يتابعهم : 4
يتابعونه : 1
قوة السمعة : 104
الاعجاب : 36
 offline 
look/images/icons/i1.gif هل يمكن عمل اكثر من كومبوبوكس بنفس الخصائص فقط الاختلاف الخلية المنقول اليها الاسم
استاذ ياسر العزير شكرا لردك
ان امكن التعديل على الكود لكي يجلب كلا الاسماء حتى وإن كانت مكرره وهذا يتم استدعاء بيانات الاسم المختار حسب تسلسله (صف واحد فقط) لكي يكون كل كومبو بكس خاص بالخليه التي يوجد عليها. وشكرا جزيلا لجهودك المبذول




07-04-2020 09:21 مساء
مشاهدة مشاركة منفردة [3]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 545
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 26
قوة السمعة : 4129
الاعجاب : 203
 offline 
look/images/icons/i1.gif هل يمكن عمل اكثر من كومبوبوكس بنفس الخصائص فقط الاختلاف الخلية المنقول اليها الاسم
جرب هذا الماكرو (يمكن تعديله كما يناسبك)

Option Explicit

Sub Insert_Combos()
 DeleteShapes
Dim CB As Object
Dim i%

With ActiveSheet
On Error Resume Next
For i = 1 To 5
  Set CB = .OLEObjects.Add(ClassType:="Forms.Combobox.1", _
  Left:=Cells(i, 1).Left, _
  Top:=Cells(i, 1).Top - 1, Width:=Cells(1, 1).Width, _
  Height:=Cells(i, 1).Height - 1)
  
  With CB
  .LinkedCell = Range("A" & i).Address
  .ListFillRange = Range("F1:F8").Address
  End With
Next
End With

End Sub
'+++++++++++++++++++++++++++++++++++

Sub DeleteShapes()
 Dim obj As OLEObject
 On Error Resume Next
For Each obj In ActiveSheet.OLEObjects
If TypeOf obj.Object Is MSForms.ComboBox Then
obj.Delete
End If
Next
End Sub

ملف كمثال مرفق
 
 
  Insert_comboS.xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(43.114) KB


أثارت هذه المشاركة إعجاب: ابو طيبه، ali mohamed ali، YasserKhalil،



07-04-2020 09:23 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif هل يمكن عمل اكثر من كومبوبوكس بنفس الخصائص فقط الاختلاف الخلية المنقول اليها الاسم
لا أعتقد أن فكرة تكرار الكومبوبوكس فكرة عملية على الإطلاق ..
حاول تضع شكل للنتائج المتوقعة بعد اختيار اسمين ، أي بعد جلب بيانات لشخصين وليس لشخص واحد فقط

أثارت هذه المشاركة إعجاب: ابو طيبه،



07-04-2020 10:19 مساء
مشاهدة مشاركة منفردة [5]
ابو طيبه
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 95
الجنس : ذكر
يتابعهم : 4
يتابعونه : 1
قوة السمعة : 104
الاعجاب : 36
 offline 
look/images/icons/i1.gif هل يمكن عمل اكثر من كومبوبوكس بنفس الخصائص فقط الاختلاف الخلية المنقول اليها الاسم
مشكور استاذ سليم على جهودك وردك الجميل لاكن لم اتمكن من تنفيذ مطلبي تحياتي لك




07-04-2020 10:32 مساء
مشاهدة مشاركة منفردة [6]
ابو طيبه
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 95
الجنس : ذكر
يتابعهم : 4
يتابعونه : 1
قوة السمعة : 104
الاعجاب : 36
 offline 
look/images/icons/i1.gif هل يمكن عمل اكثر من كومبوبوكس بنفس الخصائص فقط الاختلاف الخلية المنقول اليها الاسم
المشاركة الأصلية كتبت بواسطة: YasserKhalil
لا أعتقد أن فكرة تكرار الكومبوبوكس فكرة عملية على الإطلاق ..
حاول تضع شكل للنتائج المتوقعة بعد اختيار اسمين ، أي بعد جلب بيانات لشخصين وليس لشخص واحد فقط

استاذ ياسر العزيز جزاك الله كل خير
ارفق لك صوره للمطلوب وملف طريقة استدعاء بيانات الاسم المدخل بدون اي زر الكود للاستاذ اسلام المحترم
ان امكن اضافة الكومبوبكس في الملف السابق على هاذا الملف وعند اختيار الاسم يتم استدعاء بياناته تلقائيا
وفي حال وجود اسم مكرر يتم استدعاء بيانات الصف التي تم اضافته او ترحيله الى صفحة اسماء المراجعين اخر مره 
مع جزيل الشكر والتقدير لجعودك الغير محدوده
 
  Untitled.png   تحميل png Untitled.png مرات التحميل :(0)
الحجم :(79.873) KB
 
  استدعاء بيانات الاسم بدون اي زر الكود للاستاذ اسلام المحترم.xlsb   تحميل xlsb مرات التحميل :(1)
الحجم :(77.813) KB





08-04-2020 08:30 صباحا
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif هل يمكن عمل اكثر من كومبوبوكس بنفس الخصائص فقط الاختلاف الخلية المنقول اليها الاسم
ما المشكلة في الحل المقدم من قبل أخونا سليم؟
لم توضح المشكلة التي واجهتك في تطبيق الحل المقدم ولا حتى قمت بمناقشته في الكود .. يرجى إعطاء كل ذي حقٍ حقه

أثارت هذه المشاركة إعجاب: ابو طيبه،



08-04-2020 12:28 مساء
مشاهدة مشاركة منفردة [8]
ابو طيبه
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 95
الجنس : ذكر
يتابعهم : 4
يتابعونه : 1
قوة السمعة : 104
الاعجاب : 36
 offline 
look/images/icons/i1.gif هل يمكن عمل اكثر من كومبوبوكس بنفس الخصائص فقط الاختلاف الخلية المنقول اليها الاسم
السلام عليكم استاذ ياسر انا اقدر جهود الجميع والحل المقدم من استاذ سليم المحترم جيد جدا ولاكن لم استطيع تطبيقه على ملفي ان امكن تطبيقه على ملفي وان تكون خصائص الكومبو بوكس المدرجه بنفس خصائص الكومبو بوكس في الملف المرفق وان يكون البحث يعتمد على اخر خلية في العمود B من صفحه اسماء المراجعين  مشكور على صبركم وجهودكم جميعا 
 
 
  كومبو بوكس.xls   تحميل xls مرات التحميل :(1)
الحجم :(245.76) KB





08-04-2020 02:05 مساء
مشاهدة مشاركة منفردة [9]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 545
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 26
قوة السمعة : 4129
الاعجاب : 203
 offline 
look/images/icons/i1.gif هل يمكن عمل اكثر من كومبوبوكس بنفس الخصائص فقط الاختلاف الخلية المنقول اليها الاسم
تم معالجة الامر

Sub Insert_Combos()
Application.ScreenUpdating = False
 Unique_list
 DeleteShapes
 
Dim CB As Object
Dim rg As Range
Dim i%
Set rg = Sheets("اسماءالمراجعين").Range("h1").CurrentRegion
With Sheets("قائمة")
On Error Resume Next
For i = 2 To 50
  Set CB = .OLEObjects.Add("Forms.Combobox.1", _
  Left:=Cells(i, 2).Left, _
  Top:=Cells(i, 2).Top - 1, Width:=Cells(1, 2).Width, _
  Height:=Cells(i, 2).Height - 1)

  With CB
  .LinkedCell = Range("B" & i).Address
  .ListFillRange = Range("My_names").Address
  End With
Next
End With
Application.ScreenUpdating = True
End Sub
'+++++++++++++++++++++++++++++++++++
Sub Unique_list()
 Dim i%, x, lastrow%, dic As Object
 Dim ws As Worksheet
 Dim rg As Range
 Set ws = Sheets("اسماءالمراجعين")
 lastrow = ws.Cells(Rows.Count, 2).End(3).Row

Set dic = CreateObject("scripting.dictionary")
 For i = 2 To lastrow
 x = ws.Cells(i, 2).MergeArea.Count

  If x = 1 Then
    dic(ws.Cells(i, 2).Value) = ""
  End If
  Next
  ws.Range("H1").Resize(dic.Count) = _
  Application.Transpose(dic.keys)
 Set rg = ws.Range("h1").CurrentRegion
End Sub
'+++++++++++++++++++++++++++++++++++

Sub DeleteShapes()
 Dim obj As OLEObject
 On Error Resume Next
For Each obj In Sheets("قائمة").OLEObjects
If TypeOf obj.Object Is MSForms.ComboBox Then
obj.Delete
End If
Next
End Sub

'++++++++++++++++++++++++++++++++


الملف مرفق
 
 
  Filling_combo.xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(235.619) KB


أثارت هذه المشاركة إعجاب: ابو طيبه، YasserKhalil،



08-04-2020 03:21 مساء
مشاهدة مشاركة منفردة [10]
ابو طيبه
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 95
الجنس : ذكر
يتابعهم : 4
يتابعونه : 1
قوة السمعة : 104
الاعجاب : 36
 offline 
look/images/icons/i1.gif هل يمكن عمل اكثر من كومبوبوكس بنفس الخصائص فقط الاختلاف الخلية المنقول اليها الاسم
مشكور استاذ على مجهودك الرائع
هل يمكن ان تكون نتائج البحث كما في الصورة المرفقة  وعند الظغط على الزر في نهاية اليوم يقوم بمسح جميع الاسماء في المومبوبكس 
 وقبل قليل شاهده فيديو على اليوتيوب يظهر الخلية التي تقابل اسم المراد البحث عنه يظهر في نتائج بحث الكومبوبكس
يعني يظهر الاسم  ومقابله العمرفي نتائج البحث في الكومبو بكس وذلك بتفعيل الامر المؤشر عليه في صوره الخصائص وجعل مدى البحث
يكون في العمود  B +C 
وطلب اخيرهو ادراج الكود الموجود في حد الصفحة الملف المرفق ( للاستاذ اسلام المحترم) لكي يستدعي بيانتات مقابل الاسم المختار من الكومبوبكس
مع جزيا الشكر لمجهودك
 
  Untitled1.png   تحميل png Untitled1.png مرات التحميل :(0)
الحجم :(123.593) KB
 
  كود استدعاء بيانات الاسم.xlsb   تحميل xlsb مرات التحميل :(2)
الحجم :(77.952) KB





08-04-2020 05:04 مساء
مشاهدة مشاركة منفردة [11]
أحمد يوسف
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-03-2018
رقم العضوية : 4669
المشاركات : 452
الجنس : ذكر
الدعوات : 1
يتابعهم : 1
يتابعونه : 11
قوة السمعة : 904
الاعجاب : 75
 offline 
look/images/icons/i1.gif هل يمكن عمل اكثر من كومبوبوكس بنفس الخصائص فقط الاختلاف الخلية المنقول اليها الاسم
خلى بالك ابو طيبه ..... فالموضوع كده اخذ اكبر من حجمه بكثير من الجهد واهدار وقت الأساتذة

أثارت هذه المشاركة إعجاب: YasserKhalil، ابو طيبه،



08-04-2020 05:45 مساء
مشاهدة مشاركة منفردة [12]
ابو طيبه
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 95
الجنس : ذكر
يتابعهم : 4
يتابعونه : 1
قوة السمعة : 104
الاعجاب : 36
 offline 
look/images/icons/i1.gif هل يمكن عمل اكثر من كومبوبوكس بنفس الخصائص فقط الاختلاف الخلية المنقول اليها الاسم
استاذ احمد العزيز اشكر جهودكم جميعا 
واغلب المطلوب موجود في كومبوبكس في ملف الموضوع المطروح ومشكور استاذ سليم المحترم قام بتلبيه طلبي بانجاز كود لتكرار الكومبوبكس
ويبقى فقط الطلب في المشاركة اعلاه .
وتحياتي لكم ولجهودكم جميعا 






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كيف يمكن تغيير الحد الافتراضي للاكسل hassona229
1 94 hassona229
كيف يمكنك حذف الصفوف والأعمدة الغير مستخدمة جنان السبيل
3 257 YasserKhalil
هل يمكن تسمية صفحات الاكسيل بأسماء موجودة فى عمود moneer
10 464 YasserKhalil
هل يمكن تغيير سطر من ايميل magicgood
1 354 magicgood
هل يمكن اكتشاف كسر الحماية والحماية بكلمة مرور اخري مختلفة أباالحسن
4 350 YasserKhalil

الكلمات الدلالية
السلام ، عليكم ، يمكن ، اكثر ، كومبوبوكس ، بنفس ، الخصائص ، الاختلاف ، الخلية ، المنقول ، اليها ، الاسم ،


 








اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 07:03 مساء

أعلن هنا
أعلن هنا
أعلن هنا