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

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


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





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

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


موضوع مغلق

الصفحة 1 من 2 < 1 2 > الأخيرة »


03-10-2020 09:01 صباحا
احمد شريف
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-10-2019
رقم العضوية : 15301
المشاركات : 85
الجنس : ذكر
تاريخ الميلاد : 5-2-1973
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 105
 offline 

السلام عليكم اريد عمل كومبوبوكس لكن لمجموعة نطاقات محددة سلفا مثلا من a1: g100 ومجموعة اخرى على نفس النهج
الغرض من ذلك ان كل نطاق بياناتة تختلف عن النطاق الاخر من حيث اسم النطاق فقط انا مسمى كل نطاق بأسم جدول الادخال اريد فقط عمل كومبوبوكس لهذه النطاقات
اريد انشاء يوزرفورم بها كومبويوكس اختار منه الجهه المراد التعامل معها وادخل باقى البيانات الخاصة بتلك الجهة فتذهب هذه البيانات الى الجدول الخاص بها المحدد مسبقا
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  book.xlsm   تحميل xlsm مرات التحميل :(6)
الحجم :(25.758) KB



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




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


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

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

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

08-10-2020 04:04 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif كومبوبوكس لمجموعة نطاقات
تم نقل الموضوع لقسم إكسيل أسئلة وإجابات.

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


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



الصفحة 1 من 2 < 1 2 > الأخيرة »


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


 










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

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