أبوســـارة1973

السلام عليكم ورحمة لله وبركاته المطلوب : كود يقوم بتحويل القيم الرقم التي يتم إدخالها في خلية من خلايا نطاق محدد (time_1) أو ( time_2) أو (time_3 ) إلى قيم نصية في نفس الخلية التي تم إدخال القيمة الرقمية فيها ، استناداً على جدول البيانات الموجود في صفحة رقم 2 ( jad_1) مثال : إدخال رقم 1 في خلية B9 تتحول إلى ( زيارة صفية ) في الخلية نفسها ( A1) ودمتم في حفظ الله أواجه مشكلة في رفع الملف المرفق خطة أسبوعية.rar

تعديل الكود التالي حيث يوجد به خطا فيما يخص تحويل قيمة option Button Private Sub CommandButton1_Click() Dim r As Integer, lastrow As Long 'Sélectionner la feuille avant de compter son nombre de lignes Sheet4.Activate lastrow = DerniereLignePleine(1) + 1 'If ajout_code_employe.Value <> "" Then ' For i = 2 To lastrow - 1 Range("A" & lastrow) = TextBox1 Range("B" & lastrow) = TextBox6 Range("C" & lastrow) = ComboBox3 Range("D" & lastrow) = TextBox3 Range("E" & lastrow) = TextBox4 Range("F" & lastrow) = TextBox5 Range("G" & lastrow) = ComboBox1 Range("H" & lastrow) = ComboBox2 Range("I" & lastrow) = TextBox2 Range("J" & lastrow) = ComboBox4 Range("K" & lastrow) = ComboBox5 Range("L" & lastrow) = TextBox33 If OB1_1.Value = True Then Range("N" & lastrow) = 4 If OB1_2.Value = True Then Range("N" & lastrow) = 3 If OB1_3.Value = True Then Range("N" & lastrow) = 2 If OB1_4.Value = True Then Range("N" & lastrow) = 1 If OB2_1.Value = True Then Range("O" & lastrow) = 4 If OB2_2.Value = True Then Range("O" & lastrow) = 3 If OB2_3.Value = True Then Range("O" & lastrow) = 2 If OB2_4.Value = True Then Range("O" & lastrow) = 1 If OB3_1.Value = True Then Range("P" & lastrow) = 4 If OB3_2.Value = True Then Range("P" & lastrow) = 3 If OB3_3.Value = True Then Range("P" & lastrow) = 2 If OB3_4.Value = True Then Range("P" & lastrow) = 1 If OB4_1.Value = True Then Range("Q" & lastrow) = 4 If OB4_2.Value = True Then Range("Q" & lastrow) = 3 If OB4_3.Value = True Then Range("Q" & lastrow) = 2 If OB4_4.Value = True Then Range("Q" & lastrow) = 1 If OB5_1.Value = True Then Range("R" & lastrow) = 4 If OB5_2.Value = True Then Range("R" & lastrow) = 3 If OB5_3.Value = True Then Range("R" & lastrow) = 2 If OB5_4.Value = True Then Range("R" & lastrow) = 1 If OB6_1.Value = True Then Range("S" & lastrow) = 4 If OB6_2.Value = True Then Range("S" & lastrow) = 3 If OB6_3.Value = True Then Range("S" & lastrow) = 2 If OB6_4.Value = True Then Range("S" & lastrow) = 1 If OB7_1.Value = True Then Range("T" & lastrow) = 4 If OB7_2.Value = True Then Range("T" & lastrow) = 3 If OB7_3.Value = True Then Range("T" & lastrow) = 2 If OB7_4.Value = True Then Range("T" & lastrow) = 1 If OB8_1.Value = True Then Range("U" & lastrow) = 4 If OB8_2.Value = True Then Range("U" & lastrow) = 3 If OB8_3.Value = True Then Range("U" & lastrow) = 2 If OB8_4.Value = True Then Range("U" & lastrow) = 1 If OB9_1.Value = True Then Range("V" & lastrow) = 4 If OB9_2.Value = True Then Range("V" & lastrow) = 3 If OB9_3.Value = True Then Range("V" & lastrow) = 2 If OB9_4.Value = True Then Range("V" & lastrow) = 1 If OB10_1.Value = True Then Range("W" & lastrow) = 4 If OB10_2.Value = True Then Range("W" & lastrow) = 3 If OB10_3.Value = True Then Range("W" & lastrow) = 2 If OB10_4.Value = True Then Range("W" & lastrow) = 1 If OB11_1.Value = True Then Range("X" & lastrow) = 4 If OB11_2.Value = True Then Range("X" & lastrow) = 3 If OB11_3.Value = True Then Range("X" & lastrow) = 2 If OB11_4.Value = True Then Range("X" & lastrow) = 1 If OB12_1.Value = True Then Range("Y" & lastrow) = 4 If OB12_2.Value = True Then Range("Y" & lastrow) = 3 If OB12_3.Value = True Then Range("Y" & lastrow) = 2 If OB12_4.Value = True Then Range("Y" & lastrow) = 1 If OB13_1.Value = True Then Range("Z" & lastrow) = 4 If OB13_2.Value = True Then Range("Z" & lastrow) = 3 If OB13_3.Value = True Then Range("Z" & lastrow) = 2 If OB13_4.Value = True Then Range("Z" & lastrow) = 1 If OB14_1.Value = True Then Range("AA" & lastrow) = 4 If OB14_2.Value = True Then Range("AA" & lastrow) = 3 If OB14_3.Value = True Then Range("AA" & lastrow) = 2 If OB14_4.Value = True Then Range("AA" & lastrow) = 1 If OB15_1.Value = True Then Range("AB" & lastrow) = 4 If OB15_2.Value = True Then Range("AB" & lastrow) = 3 If OB15_3.Value = True Then Range("AB" & lastrow) = 2 If OB15_4.Value = True Then Range("AB" & lastrow) = 1 If OB16_1.Value = True Then Range("AC" & lastrow) = 4 If OB16_2.Value = True Then Range("AC" & lastrow) = 3 If OB16_3.Value = True Then Range("AC" & lastrow) = 2 If OB16_4.Value = True Then Range("AC" & lastrow) = 1 If OB17_1.Value = True Then Range("AD" & lastrow) = 4 If OB17_2.Value = True Then Range("AD" & lastrow) = 3 If OB17_3.Value = True Then Range("AD" & lastrow) = 2 If OB17_4.Value = True Then Range("AD" & lastrow) = 1 If OB18_1.Value = True Then Range("AE" & lastrow) = 4 If OB18_2.Value = True Then Range("AE" & lastrow) = 3 If OB18_3.Value = True Then Range("AE" & lastrow) = 2 If OB18_4.Value = True Then Range("AE" & lastrow) = 1 If OB19_1.Value = True Then Range("AF" & lastrow) = 4 If OB19_2.Value = True Then Range("AF" & lastrow) = 3 If OB19_3.Value = True Then Range("AF" & lastrow) = 2 If OB19_4.Value = True Then Range("AF" & lastrow) = 1 If OB20_1.Value = True Then Range("AG" & lastrow) = 4 If OB20_2.Value = True Then Range("AG" & lastrow) = 3 If OB20_3.Value = True Then Range("AG" & lastrow) = 2 If OB20_4.Value = True Then Range("AG" & lastrow) = 1 If OB21_1.Value = True Then Range("AH" & lastrow) = 4 If OB21_2.Value = True Then Range("AH" & lastrow) = 3 If OB21_3.Value = True Then Range("AH" & lastrow) = 2 If OB21_4.Value = True Then Range("AH" & lastrow) = 1 If OB22_1.Value = True Then Range("AI" & lastrow) = 4 If OB22_2.Value = True Then Range("AI" & lastrow) = 3 If OB22_3.Value = True Then Range("AI" & lastrow) = 2 If OB22_4.Value = True Then Range("AI" & lastrow) = 1 If OB23_1.Value = True Then Range("AJ" & lastrow) = 4 If OB23_2.Value = True Then Range("AJ" & lastrow) = 3 If OB23_3.Value = True Then Range("AJ" & lastrow) = 2 If OB23_4.Value = True Then Range("AJ" & lastrow) = 1 If OB24_1.Value = True Then Range("AK" & lastrow) = 4 If OB24_2.Value = True Then Range("AK" & lastrow) = 3 If OB24_3.Value = True Then Range("AK" & lastrow) = 2 If OB24_4.Value = True Then Range("AK" & lastrow) = 1 If OB25_1.Value = True Then Range("AL" & lastrow) = 4 If OB25_2.Value = True Then Range("AL" & lastrow) = 3 If OB25_3.Value = True Then Range("AL" & lastrow) = 2 If OB25_4.Value = True Then Range("AL" & lastrow) = 1 If OB26_1.Value = True Then Range("AM" & lastrow) = 4 If OB26_2.Value = True Then Range("AM" & lastrow) = 3 If OB26_3.Value = True Then Range("AM" & lastrow) = 2 If OB26_4.Value = True Then Range("AM" & lastrow) = 1 If OB27_1.Value = True Then Range("AN" & lastrow) = 4 If OB27_2.Value = True Then Range("AN" & lastrow) = 3 If OB27_3.Value = True Then Range("AN" & lastrow) = 2 If OB27_4.Value = True Then Range("AN" & lastrow) = 1 If OB28_1.Value = True Then Range("AO" & lastrow) = 4 If OB28_2.Value = True Then Range("AO" & lastrow) = 3 If OB28_3.Value = True Then Range("AO" & lastrow) = 2 If OB28_4.Value = True Then Range("AO" & lastrow) = 1 If OB29_1.Value = True Then Range("AP" & lastrow) = 4 If OB29_2.Value = True Then Range("AP" & lastrow) = 3 If OB29_3.Value = True Then Range("AP" & lastrow) = 2 If OB29_4.Value = True Then Range("AP" & lastrow) = 1 If OB30_1.Value = True Then Range("AQ" & lastrow) = 4 If OB30_2.Value = True Then Range("AQ" & lastrow) = 3 If OB30_3.Value = True Then Range("AQ" & lastrow) = 2 If OB30_4.Value = True Then Range("AQ" & lastrow) = 1 If OB31_1.Value = True Then Range("AR" & lastrow) = 4 If OB31_2.Value = True Then Range("AR" & lastrow) = 3 If OB31_3.Value = True Then Range("AR" & lastrow) = 2 If OB31_4.Value = True Then Range("AR" & lastrow) = 1 ' For r = 0 To 8 'Me.Controls(myCon(r)) = "" 'NexT MsgBox Prompt:="ÊãÊ ÚãáíÉ ÅÖÇÝÉ ãæÙÝ ÌÏíÏ ÈäÌÇÍ", Title:="ÑÓÇáÉ ÊÃßíÏ" OB1_1.Value = False OB1_2.Value = False OB1_3.Value = False OB1_4.Value = False ' OB2_1.Value = False 'OB2_2.Value = False 'OB2_3.Value = False 'OB2_4.Value = False 'OB3_1.Value = False 'OB3_2.Value = False 'OB3_3.Value = False 'OB3_4.Value = False 'OB4_1.Value = False 'OB4_2.Value = False 'OB4_3.Value = False 'OB4_4.Value = False End Sub المطلوب في هذا الكود هو ترحيل قيمة الأوبشن بوتن ( option Button) بحيث إذا تم ختيار الأول من المجموعة الأولى يعطي رقم 4 في الخلية المحددة والثاني يعطي 3 والثالث يعطي قيمة 2 والأخير يعطية قيمة 1 وهكذا فب بقية المجموعات

شكراً أخي الكريم بارك الله فيك

السلام عليكم صباح الخير أرجو التعديل على الكود التالي :  Private Sub UserForm_Initialze() TextBox1.Value = Sheet1.Cells(1,1) Format TextBox1.Value ("yyyy/mm/dd") End Sub وذلك ليقوم الكود بجلب التاريخ الموجود في الخلية A1 بمجرد فتح الفورم بشرط أن يكون تنسيق التاريخ بالطريقة ( yyyy/mm/dd) مع الشكر الجزيل     

الأستاذ بن علية حاجي yasserkhalil شكرا لكما وبارك الله فيكما وبكما

السلام عليكم مساء الخير في الملف المرفق درجات لأعمال الطلاب ، والمطلوب في العمود N تعديل المعادلة بحيث تقوم بتحويل الكسور إلى 0.5 إذا كان الكسر أكثر من 0.2 وإلى 0.0 إذا كان الكسر 0.2 أو أقل وإلى القيمة الإعلى إذا كان الكسر أكثر من 0.7 مثال 23.0 = 23 23.1= 23 23.2=23 23.3=23.5 23.4=23.5 23.5=23.5 23.6=23.5 23.7=23.5 23.8=24 23.9=24 درجات قرأ 311.rar

السلام عليكم هل يمكن أن ترفقوا لي ملف به فورم تحتوي على مخطط بياني ؟

ما هي القمية التي تريد أن تكون للحرف ( A) ؟ يعني إذا كانت الطالب غائبة فهل ستعطى صفراً (0) ؟

السلام عليكم تفضل الملف المرفق أدخل رقم الموظف في نفس الخلية ثم اضغظ زر الفأرة مزدوجا (Doubleclick ) الرقم الوظيفي.rar

جميل جداً

السلام عليكم بالنسبة للملاحظة رقم (3) من ثانياً لتعديل الخطأ الذي يحدث عند الإدخال قم بإضافة هذا السطر : Dim RLOW as long بعد السطر الأول : Private sun CommandButton5_click()

طلبك غير واضح هل تقصد أن القيمة الخاضعة للضريبة إذا كانت 25000 ستكون 10% من القيمة . ولو كانت أقل ؟ ولو كانت أكبر ؟ . أنت تكتب ( ولكنت اكبر 25000 *10% والزيادة 15% ) ماذا تقصد بالزيادة ؟

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

أخي العنكوش تم حل المشكلة fail_success.rar

أخي طاهر محمد السلام عليكم - الملاحظتان رقم (1) ورقم (4) تم الانتهاء منهما ومعالجتهما . - الملاحظتان رقم (2) ورقم (3) جاري العمل عليهما . جمعية خيرية.rar

1- ارسم الجدول بعدد الأعمدة التي ترغب فيها مع وضع عناين في الصف الأول 2- حدد نطاق الجدول بالفأرة 3- اضغط Ctrl+T 4- انتقل بين صفوف الجدول بزر Tab

أرفق الملف لنتابع عمل الكود

أخي عاشق الإسلام طلبك غير واضح هل المطلوب طباعة كامل المستند ؟ صمم صفحة لمقترحك في تنفيذ الطباعة أمر التعديل واضح أمر البحث واضح إن شاء الله سوف أنفذ المطلوب

السلام عليكم ورحمة الله وبركاته أخي طاهر محمد لأني في بدايتي للبرمجة بالأكواد أحتاج إلى وقت طويل في تنفيذ المطلوب ، وقد قمت بعمل المطلوب بنسبة 50 % ، وسوف أكمله إن شاء الله في القريب العاجل وعندما يتسنى لي وقت كافي لذلك .. جعل الله هذا العمل في ميزان حسناتك ولا تنساني من الدعاء اطلع الآن على ما تم إنجازه ، ولك الحرية في إبداء الرأي جمعية خيرية.rar

أخي محمد علي الطيب تعديل في الملف وذلك بسبب الكود الموجود في الترحيل حيث أنه لم يخصص محتويات التكست بوكس كرقم ، وبالتالي فإنه يعتبره كالحروف فلا يتعرف الكود عليه كرقم ليقوم بتحديد الحد الأقصى ليزيد عليه (1) . وهنا في الملف المرفق أضفت التعديل البسيط على كود زر الترحيل في السطر الثامن . sheet1.cells(totalraws+1,1)=textbox7 ليكون على النحو التالي : sheet1.cells(totalraws+1,1)=textbox7.value textbox_max+1.rar

السلام عليكم أخي محمد علي الطيب تفضل المطلوب بفكرة بسيطة textbox_max+1.rar

إبداع جديد ومتميز

دائما بارع يا أستاذ إبراهيم أبوليلة

أخي أبا حنين نفعك الله بالقرآن عمل متميز

ألف مبروك تستحق الترقية بجدارة في انتظار ترقية أعلى