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

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


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





اختصار كود لاختيار الشهر

السلام عليكم هل يمكن اختصار هذا الكود باستخدام المصفوفات او باى طريقة اخري بدلامن من كتابة 12 سطر وشكرا لكم [code]U3Vi ..


موضوع مغلق


06-02-2021 09:24 صباحا
أباالحسن
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 349
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
الدعوات : 1
يتابعهم : 4
يتابعونه : 17
قوة السمعة : 832
 offline 

السلام عليكم
هل يمكن اختصار هذا الكود باستخدام المصفوفات او باى طريقة اخري 
بدلامن من كتابة 12 سطر
وشكرا لكم 
Sub Select_Month()
    If Control_Main_Payroll.OptionButton_Pg1_1 = True Then ThisWorkbook.Sheets("Main Data").Range("G14").Value = "يناير"
    If Control_Main_Payroll.OptionButton_Pg1_2 = True Then ThisWorkbook.Sheets("Main Data").Range("G14").Value = "فبراير"
    If Control_Main_Payroll.OptionButton_Pg1_3 = True Then ThisWorkbook.Sheets("Main Data").Range("G14").Value = "مارس"
    If Control_Main_Payroll.OptionButton_Pg1_4 = True Then ThisWorkbook.Sheets("Main Data").Range("G14").Value = "ابريل"
    If Control_Main_Payroll.OptionButton_Pg1_5 = True Then ThisWorkbook.Sheets("Main Data").Range("G14").Value = "مايو"
    If Control_Main_Payroll.OptionButton_Pg1_6 = True Then ThisWorkbook.Sheets("Main Data").Range("G14").Value = "يونيو"
    If Control_Main_Payroll.OptionButton_Pg1_7 = True Then ThisWorkbook.Sheets("Main Data").Range("G14").Value = "يوليو"
    If Control_Main_Payroll.OptionButton_Pg1_8 = True Then ThisWorkbook.Sheets("Main Data").Range("G14").Value = "اغسطس"
    If Control_Main_Payroll.OptionButton_Pg1_9 = True Then ThisWorkbook.Sheets("Main Data").Range("G14").Value = "سبتمبر"
    If Control_Main_Payroll.OptionButton_Pg1_10 = True Then ThisWorkbook.Sheets("Main Data").Range("G14").Value = "اكتوبر"
    If Control_Main_Payroll.OptionButton_Pg1_11 = True Then ThisWorkbook.Sheets("Main Data").Range("G14").Value = "نوفمبر"
    If Control_Main_Payroll.OptionButton_Pg1_12 = True Then ThisWorkbook.Sheets("Main Data").Range("G14").Value = "ديسمبر"
End Sub

 


أفضل إجابة مقدمة من YasserKhalil وهي:
وعليكم السلام
جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Select_Month()
    Dim arrMonths, i As Long
    arrMonths = Array("يناير", "فبراير", "مارس", "ابريل", "مايو", "يونيو", "يوليو", "اغسطس", "سبتمبر", "اكتوبر", "نوفمبر", "ديسمبر")
    For i = 1 To 12
        If Control_Main_Payroll.Controls("OptionButton_Pg1_" & i) = True Then ThisWorkbook.Sheets("Main Data").Range("G14").Value = arrMonths(i - 1)
    Next i
End Sub
عرض الإجابة




06-02-2021 09:49 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif اختصار كود لاختيار الشهر
وعليكم السلام
جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Select_Month()
    Dim arrMonths, i As Long
    arrMonths = Array("يناير", "فبراير", "مارس", "ابريل", "مايو", "يونيو", "يوليو", "اغسطس", "سبتمبر", "اكتوبر", "نوفمبر", "ديسمبر")
    For i = 1 To 12
        If Control_Main_Payroll.Controls("OptionButton_Pg1_" & i) = True Then ThisWorkbook.Sheets("Main Data").Range("G14").Value = arrMonths(i - 1)
    Next i
End Sub

06-02-2021 10:53 مساء
مشاهدة مشاركة منفردة [2]
أباالحسن
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 349
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
الدعوات : 1
يتابعهم : 4
يتابعونه : 17
قوة السمعة : 832
 offline 
look/images/icons/i1.gif اختصار كود لاختيار الشهر
تمت تجريب الكود
لكن يبدو ان هناك خطأ بسيط به 
ولم استطع اصلاح الخطأ
كما بالصورة

MTc2MTAzMQ1515Capture-382
 
 


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

07-02-2021 01:39 مساء
مشاهدة مشاركة منفردة [4]
أباالحسن
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 349
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
الدعوات : 1
يتابعهم : 4
يتابعونه : 17
قوة السمعة : 832
 offline 
look/images/icons/i1.gif اختصار كود لاختيار الشهر
جزاكم الله خيرا



الكلمات الدلالية
لاختيار ، اختصار ، الشهر ،


 










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

الساعة الآن 04:47 صباحا