alliiia

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

ما شاء الله زادك الله من فضله وبارك الله في عملك وهذا هدية مني لكم قمت بعمله ولم أنجز آخر شيت فيه لعدم حاجتي ولاستغنائي ببرنامج aSc TimeTables وبالتوفيق للجميع توزيع الحصص + الجدول.xlsm

السلام عليكم ورحمة الله وبركاته تحية طيبة أساتذتي الكرام عندي ملف يحتوي على يوز فورم تقويم اختار منه تاريخ اليوم المشكلة كالآتي: تنسيق التاريخ من أول يوم من الشهر إلى يوم 12 ما يضبط dd/mm/yyyy للأسف دائما يعطيني الشهر أولا mm/dd/yyyy لكن من يوم 13 إلى نهاية الشهر الأمور طيبة. والمشكلة الثانية: أني جربت أغير السلاش إلى داش هكذا dd-mm-yyyy ونفس المشكلة يعطيني: mm/dd/yyyy لكن الغريب لا يعطيني الداش (-) الذي عملته!!! وحتى جربت عندما اختار التاريخ وأغير تنسيقه إلى general من يوم 1 إلى 12 يعطيني الأرقام لكن من يو 13 إلى 31 لا يعطيني الأرقام هكذا يعني: 45113 فاهمين علي أكيد فأرجو منكم أيها الكرام مساعدتي في تجاوز هذه المشكلة وهناك ربما يكون حلًا آخر ولا أريده لأنه غير معقول (أني أغير إعدادات الويندوز عندي!) غير معقول طبعا أغير شيء أنا مرتاح عليه عشان تقويم في الفورم أكيد يوجد حل بإذن الله. وأخيرا الملف إن شاء الله لوجه الله ينتفع به الإخوة بعد حل المشكلة. يوزر فورم التقويم.xlsm

السلام عليكم مرحبا أخي الكريم في الحقيقة لا يوجد كود بداخل الملف لترحيل الراسبين وإليك هذا الملف من إعداد أساتذة هذا الموقع نفع الله بهم كنترول - لصف واحد فقط.rar

السلام عليكم أخي الكريم غير إعدادت جهاز الكمبيوتر من خلال الضغط على إعداد التاريخ بالأسفل اذهب إلى إعدادت Region ثم إلى Administrative ثم آخر شيء تحت change system local تأكد أنه بالعربي ولا تحط علامة صح على المربع وراح يضبط معك حتى لو بدون الأكواد التي تفضلوا بها الأساتذة الكرام

اكتب دالة : =TODAY() ثم كلك يمين وعدل على تنسيق الخلية format cell ثم تخصيص custom وعدل على راحتك

لعلك تجد ما تريده من بين هذه الملفات بالتوفيق حضور الموظفين.xlsm حضور وانصراف.xlsm تقرير غياب موظفين - مع خاصية الطباعة.xlsx كشف حضور وانصراف بالوقت - مع التأخير والخصم والإضافي- التعديل الأول.xlsx ترحيل الغياب - جديد 23-5-2022.xlsm

يسعدني استخدامك للملف ومحاولتك لتطويره بالتوفيق وأتمنى يتم التطوير وفق ما تريده لكن انتبه لتغير الشهر بمعنى لو تم ترحيل الغياب من شيت خلاصة الغياب إلى دفتر الغياب وانتهى الشهر ماذا ستصنع؟ البيانات ستبقى مثل ما هي حتى لو غيرت الشهر فراح تضطر إلى أن تنسخ الشيت وتعمل لصق وسالفة طويلة وأنا اقترح عمل نسخ البيانات ولصقها بجانب الشهر هذا يعني نقول مثلا البيانات من عمود A to F هذا بيانات شهر وبجانبه الشهر التالي: G to L وهكذا كل شهر بجانب بعض حتى تستكمل 12 شهر ثم تعمل كود يخفي لك هذه الأعمدة بناء على القائمة المنسدلة التي تحتوي على اسم الشهر

ما أجملك وأروعك يا حبيبي أستاذ ابراهيم، سلمت يداك، وجزاك الله خيرا.

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

بالتوفيق. Forme.xlsb

محاولة ثالثة، لكن للأسف على ثلاثة أعمدة ليست على عمود 1 هل من حل يا أحبة؟ Sub info() Dim i As Long For i = 3 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row If ActiveSheet.Cells(i, 8 = 1 Then ActiveSheet.Range("L" & i) = "تنبيه" ElseIf ActiveSheet.Cells(i, 8 = 2 Then ActiveSheet.Range("M" & i) = "تعهد" End If Next i End Sub مخالفات.xlsm

جميل ما شاء الله ..سلمت يداك أستاذنا

ما شاء الله أخي حسونه أنت رائع ...رحم الله والديك ...وجزاك الله خيرا أخي الحبيب فضلا انظر في هذا ...توجد مشكلة يسيرة يسر الله أمورك وجربت وضع 500 طالب ولم يعمل الكود ...والمعذرة على ازعاجكم نفع الله بكم. ترحيل الغياب - Copy.xlsm

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

محاولة تمشي الحال ..لكنها غير دقيقة وجيدة Private Sub Worksheet_SelectionChange(ByVal Target As Range) lr = Worksheets("المخالفات").Range("a" & Rows.Count).End(xlUp).Row For r = 3 To lr If Worksheets("المخالفات").Range("H" & r).Value = 1 And _ Worksheets("المخالفات").Range("K" & r).Value = 1 Then Worksheets("المخالفات").Range("L" & r) = "تنبيه" ElseIf Worksheets("المخالفات").Range("H" & r).Value = 2 And _ Worksheets("المخالفات").Range("K" & r).Value = 1 Then Worksheets("المخالفات").Range("M" & r) = "تعهد" ElseIf Worksheets("المخالفات").Range("H" & r).Value = 3 And _ Worksheets("المخالفات").Range("K" & r).Value = 1 Then Worksheets("المخالفات").Range("N" & r) = "إنذار" End If Next r End Sub وقد جعلتها ثلاثة أعمدة عمود تنبيهات وعمود تعهدات وعمود إنذارات

السلام عليكم ورحمة الله وبركاته..تحية طيبة أحبتي ..أرجو التعديل على هذا الكود لو تكرمتم أريد نهاية كل شهر يتم ترحيل البيانات والمحافظة على البيانات التي تم ترحيلها كل شهر..عندي مشكلة في هذا الكود أن البيانات المرحلة تستبدل ببيانات جديدة فوقها. ترحيل الغياب.xlsm

السلام عليكم ورحمة الله وبركاته ..أسعد الله أيامكم ..عندي هذا الملف ..وهذا هو الكود Sub if_loop () For Each cell In Range("H3:H10000") If cell.Value = 1 Then cell.Offset(0, 4).Value = "تنبيه" ElseIf cell.Value = 2 Then cell.Offset(0, 4).Value = "تعهد" ElseIf cell.Value = 3 Then cell.Offset(0, 4).Value = "إنذار" End If Next cell End Sub لكن لأني حاطط معادلة ..في حال تكررت المخالفة من الطالب محمد1 سيكتب لي في عمود (تكرار المخالفة) رقم 2 فأنا أريد عندما تكون مخالفته رقم 1 يكتب لي تنبيه في عمود (حالة المخالفة) وتبقى ثابتة حتى لو تغير رقم 1 وما تتبدل كلمة تنبيه لأنه خلاص المرة الأولى أنا نبهت الطالب ففي المرة الثاني يكتب لي تعهد ..فبمجرد ما يكرر الطالب المخالفة سيتغير رقم 1 القديم إلى رقم 2 والكود ليس سريع لو في مجال تسريعه ..أرجو أن يكون الأمر واضح ..والتجربة توضح لك الطريقة مخالفات.xlsm

حاول تشوف لها حل في اليوتيوب

جرب هذه الاكواد كود تفقيط مفيد باستخدامات مختلفة.xls تفقيط.xlsm

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

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

حاول تغير إعدادت لغة vba ادخل إلى المطور أو ctrl + f11 وغير الاعدادت هناك وتأكد أن الاسماء العربية داخل الكود مكتوبة بشكل صحيح

تفضل ..تم استخدام دالة sumif اليومية المالية1.xlsx

ما شاء الله على البركة الله ينفع بك عباده