logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
بكار للأبد لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة خطأ برمجي والماكرو لا يعمل run time error 438 اكسيل اسئله واجابات



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




موضوع مغلق


  • تمت الإجابة
03-10-2020 09:01 صباحاً
معلومات الكاتب ▼
تاريخ الإنضمام : 21-10-2019
رقم العضوية : 15301
المشاركات : 89
الجنس :
تاريخ الميلاد : 5-2-1973
قوة السمعة : 112
الاعجاب : 2
السلام عليكم اريد عمل كومبوبوكس لكن لمجموعة نطاقات محددة سلفا مثلا من a1: g100 ومجموعة اخرى على نفس النهج
الغرض من ذلك ان كل نطاق بياناتة تختلف عن النطاق الاخر من حيث اسم النطاق فقط انا مسمى كل نطاق بأسم جدول الادخال اريد فقط عمل كومبوبوكس لهذه النطاقات
اريد انشاء يوزرفورم بها كومبويوكس اختار منه الجهه المراد التعامل معها وادخل باقى البيانات الخاصة بتلك الجهة فتذهب هذه البيانات الى الجدول الخاص بها المحدد مسبقا
book.xlsm
 
 
  book.xlsm   تحميل xlsm مرات التحميل :(6)
الحجم :(25.758) KB


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



look/images/icons/i1.gif كومبوبوكس لمجموعة نطاقات
  04-10-2020 10:22 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 819
الجنس :
تاريخ الميلاد : 14-10-1973
الدعوات : 79
قوة السمعة : 8466
الاعجاب : 11
اتفضل استاذى الكريم
الملف المرفق تم عمل يوزرفوم ادخال البيانات فى النطاق المطلوب بعد اختياره من القائمة الموجودة بالفورم
لعله هو المطلوب حسبما فهمت من طلبكم
Data_Entry_MD.xlsm
 
 
  Data_Entry_MD.xlsm   تحميل xlsm مرات التحميل :(14)
الحجم :(37.293) KB


أثارت هذه المشاركة إعجاب: YasserKhalil، احمد شريف، salim، hassona229،



look/images/icons/i1.gif كومبوبوكس لمجموعة نطاقات
  05-10-2020 05:58 صباحاً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10522
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36735
الاعجاب : 177
بارك الله فيك أخي العزيز محمد الدسوقي ومشكور على تفاعلك في المنتدى.

أثارت هذه المشاركة إعجاب: احمد شريف، محمد الدسوقى، salim، hassona229،



look/images/icons/i1.gif كومبوبوكس لمجموعة نطاقات
  05-10-2020 10:57 صباحاً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-10-2019
رقم العضوية : 15301
المشاركات : 89
الجنس :
تاريخ الميلاد : 5-2-1973
قوة السمعة : 112
الاعجاب : 2
الله يبارك فى حضرتك يا استاذ محمد جزالك الله كل خير وجعله فة ميزان حساناتك

أثارت هذه المشاركة إعجاب: YasserKhalil، محمد الدسوقى، salim، hassona229،



look/images/icons/i1.gif كومبوبوكس لمجموعة نطاقات
  05-10-2020 07:31 مساءً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 819
الجنس :
تاريخ الميلاد : 14-10-1973
الدعوات : 79
قوة السمعة : 8466
الاعجاب : 11
وبارك الله فيكم أخى الحبيب / ياسر ومشكور دائما على مروركم العطر علينا
الأستاذ / أحمد شريف
الحمد لله الذى أتم علينا نعمه بحل المشكلة

أثارت هذه المشاركة إعجاب: YasserKhalil، احمد شريف، hassona229،



look/images/icons/i1.gif كومبوبوكس لمجموعة نطاقات
  08-10-2020 04:04 مساءً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10522
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36735
الاعجاب : 177
تم نقل الموضوع لقسم إكسيل أسئلة وإجابات.

أثارت هذه المشاركة إعجاب: salim، hassona229،



look/images/icons/i1.gif كومبوبوكس لمجموعة نطاقات
  08-10-2020 06:50 مساءً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس :
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 6611
الاعجاب : 2
بعد اذن الاستاذ محمد الدسوقي
اختصار بسيط للكود الذي تفضلتم بتقديمه
CODE


Private Sub CommandButton1_Click()
    Dim rng As Range, ws As Worksheet, lr As Long
    Dim RgC As Range, RgK As Range, rgS As Range
    Dim RgAA As Range, RgAI As Range, m%
    Dim OptionaL_rg As Range
    Dim bol As Boolean
   
    Set ws = Sheets("Data")
    Set RgC = ws.Range("C300").End(xlUp).Offset(1, 0)
    Set RgK = ws.Range("K300").End(xlUp).Offset(1, 0)
    Set rgS = ws.Range("S300").End(xlUp).Offset(1, 0)
    Set RgAA = ws.Range("AA300").End(xlUp).Offset(1, 0)
    Set RgAI = ws.Range("AI300").End(xlUp).Offset(1, 0)

For i = 1 To 6
       If Controls("TextBox" & i).Value = "" Then
         bol = True
           Exit For
        End If
     Next i
     If bol Then
        MsgBox ("من فضلك ادخل بيانات الحقول الفارغة"), _
         64, "أكاديمية الصقر للتدريب"
        Exit Sub
     End If
     
     bol = False

 For i = 1 To 5
   Select Case Me.Controls("OptionButton" & i)
    Case True: m = i: GoTo my_m
   End Select
 Next
my_m:
If m = 0 Then
 MsgBox ("لم يتم اختيار القسم"), 64, _
 "أكاديمية الصقر للتدريب"
Exit Sub
End If
  Select Case m
      Case 1: Set OptionaL_rg = RgC
      Case 2: Set OptionaL_rg = RgK
      Case 3: Set OptionaL_rg = rgS
      Case 4: Set OptionaL_rg = RgAA
      Case 6: Set OptionaL_rg = RgAI
    End Select
      
     OptionaL_rg.Offset(0, -2).Value = OptionaL_rg.Row - 2
      With OptionaL_rg
      For i = -1 To 4
       .Offset(0, i) = Me.Controls("TextBox" & i + 2).Value
      Next
      End With
'------------------------------------------------
MsgBox ("تم ترحيل البيانات ... بنجاح"), 64, _
"أكاديمية الصقر للتدريب"
 
 Clear_All
     
End Sub
'++++++++++++++++++++++++++++++++++++

Private Sub UserForm_Initialize()
    Clear_All
End Sub
'++++++++++++++++++++++++++++++++++
Private Sub Clear_All()
For i = 1 To 6
    If i <= 5 Then
      Controls("OptionButton" & i).Value = False
    End If
      Me.Controls("Textbox" & i).Value = ""
Next i

End Sub


الملف مرفق
 
 
  MY_FORM.xlsm   تحميل xlsm مرات التحميل :(10)
الحجم :(44.355) KB


أثارت هذه المشاركة إعجاب: YasserKhalil، محمد الدسوقى، احمد شريف، hassona229، منجة فاتح،



look/images/icons/i1.gif كومبوبوكس لمجموعة نطاقات
  08-10-2020 09:50 مساءً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 819
الجنس :
تاريخ الميلاد : 14-10-1973
الدعوات : 79
قوة السمعة : 8466
الاعجاب : 11
مشكور جدا أستذانا الكبير / سليم
على اثراء الموضوع بحلول رائعة دائما نستفيد منها
جزاكم الله خيرا

أثارت هذه المشاركة إعجاب: YasserKhalil، salim، احمد شريف،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
انشاء قوائم كومبوبوكس معتمده على بعضها لكن على قائمة واحدة فقط احمد شريف
3 271 hassona229
كيفية عمل كومبوبوكس في نطاق معين من الخلايا معينة يظهر ويختفي عند التحديد mmagedmemo
2 1150 ابو طيبه
كومبوبوكس بأسماء الشيتات في ملف إكسيل YasserKhalil
11 2636 hassona229
تعبئة الكومبوبوكس بأسماء أوراق العمل Fill ComboBox With Sheets Names Activate Sheet Selected YasserKhalil
21 2669 YasserKhalil
البحث عن البيانات بالكومبوبوكس والتاريخ واظهار النتائج بالليست المبتدأ
0 589 المبتدأ

الكلمات الدلالية
كومبوبوكس ، لمجموعة ، نطاقات ،









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

الساعة الآن 08:12 AM