نجوم المشاركات

أخى الكريم اليكم الملف بالمرفقات لعله المطلوب وتقبل منى وافر الاحترام والتقدير Attendance_1.rar

أخى الفاضل / عمل بسيط .. توزيع الطلاب على كشوف المناداة وأرقام الجلوس تصفح وشاهد .. قم بكتابة البيانات فى الخلايا الغير الملونة فى صفحات " بيانات أساسية / الطلبة / اللجنة " 1 - كشوف منادة تبعا للجان المحددة بالعددالمحدد. 2 - بطاقة لكل طالب كاملة بها كل بياناته . 3 - زر طباعة لكشوف المناداة وملصقات أرقام الجلوس . 2011 أرقام الجلوس والمناداة.rar

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

استاذ جوزف شرح الدالة مرفق شرح الشرط.rar

السلام عليكم استاذ جوزف اليك الحل Book1 2.rar

أخى فى الله الأستاذ الكريم // محمد يوسف بارك الله فيكم وتقبل منى وافر الاحترام والتقدير

تفضل اخى الكريم Attendance.rar

الاخ فى الله محمود الشريف مااجمل كلمة اخى فى الله ربنا يبارك فى حضرتك . واشكر مروركم الكريم

أخى الكريم اليكم نموذج للترحيل التلقائى به أكثر من 50 عمود وتقبل منى وافر الاحترام والتقدير نموذج للترحيل التلقائى أكثر من 50 عمود.rar

السلام عليكم ورحمة الله أخي الكريم، تم استعمال الدالة CHOOSE مع دوال أخرى لتلبية المطلوب في المرفق... أرجو أن تفي بالغرض أخوك بن علية المرفق : دالة صعبة التنفيذ ؟؟؟.rar

أخى فى الله الأستاذ القدير // رجب جاويش بارك الله فيكم (( إطلالتكم دائما مميزة وتنير المنتدى )) وتقبل منى وافر الاحترام والتقدير

أخي // حسام ,,, لقد قمت بتصميم 2 فورم حسب اقتراحك فورم لادارة الصندوق واظهار الرصيد بعد كل عملية ويمكن خلاله ادخال العمليات التي تتم علي الصندوق من سحب وايداع الفورم الاخر لادرة العمالة من (اجور يومية - اسبوعية - سلف مؤقتة تخصم من راتب الاسبوع - سلف طويلة الاجل (تخصم علي دفعات يتم تحديدها ) حتي يتم خصمها من الراتب ومن خلاله ادخال جميع البيانات والسلف والجزاءات والاضافات والمكأفات للعامل مع امكانية للبحث عن العامل ولضيق الوقت - في القريب ان شاء الله اسويلك كشف حساب للعامل يظهر معاملاته خلال فترة معينة او يظهر معاملات الصندوق خلال فترة معينة راجع العمل وان كان عندك اية اقتراحات لا تتردد في سردها تقبل تحياتي حسام - ادارة الصندوق.rar

اخي طاهر سنبداء معاً شرح الكود جزء جزء وسننتقل من الجزء الى الاخر بعد فهم الجزء الاول إتفقنا الجزء الاول Private Sub ComboBox1_Change() Application.ScreenUpdating = False Sheets("Sheet1").Select For i = 2 To Sheets("Sheet1").ER If ComboBox1.Text <> Sheets("Sheet1").Cells(i, "A").Text Then TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" Else TextBox2.Text = Sheets("Sheet1").Cells(i, "B").Text TextBox3.Text = Sheets("Sheet1").Cells(i, "C").Text TextBox4.Text = Sheets("Sheet1").Cells(i, "D").Text Sheets("Sheet1").Select Sheets("Sheet1").Cells(i, "A").Select Exit For End If Next Application.ScreenUpdating = True End Sub أولاً هذا بخصوص التغير في ال ComboBox1 Private Sub ComboBox1_Change() 2. لمنع اهتزاز الشاشة Application.ScreenUpdating = False 3. إختيار ورقة العمل وهنا اسمها Sheet1 Sheets("Sheet1").Select 4. المتغير (وهنا يتم اعتماد تغير الصفوف ) ويبتدي من 2 وينتهي ب ER وER معرف لعد الصفوف المستخدمة في العمود A وستجده في كود Sheet1 For i = 2 To Sheets("Sheet1").ER 5. الشرط ويعني اذا كانت قيمة ComboBox1 لا تساوي اي قيمة في صفوف العمود A If ComboBox1.Text <> Sheets("Sheet1").Cells(i, "A").Text Then وينقسم الى حالتين أ. إذا تحقق الشرط يقوم بمسح القيم من TextBox3 و TextBox4 TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" ب. إذا لم يتحقق الشرط Else ينفذ التالي TextBox2.Text = Sheets("Sheet1").Cells(i, "B").Text TextBox3.Text = Sheets("Sheet1").Cells(i, "C").Text TextBox4.Text = Sheets("Sheet1").Cells(i, "D").Text Sheets("Sheet1").Select Sheets("Sheet1").Cells(i, "A").Select قيمة TextBox2 تساوي قيمة الخلية الموجوة في العمود B والصف (i) المتغير وهكذا بالنسبة TextBox3 والعمود C و TextBox4 و العمود D ثم إخيار ورقة العمل Sheet1 ثم اختيار الخلية (i, "A") 6. الخروج من For وانهاء الشرط وإعادة اهتزاز الشاشة Exit For End If Next Application.ScreenUpdating = True End Sub بإنتظار ردك على الشرح ابواحمد