ابوصلاح قام بنشر يونيو 19, 2014 قام بنشر يونيو 19, 2014 هذا مرفق لتسجيل غياب رياض الاطفال اريد التعديل في الكود لمنع التسجيل يوم الجمعة منع تسجيل غياب يوم الجمعة.zip
محمد ابو البـراء قام بنشر يونيو 19, 2014 قام بنشر يونيو 19, 2014 السلام عليكم ورحمة الله وبركاته الاستاذ الحبيب// أبو صلاح تفضل ما تريد braa_منع تسجيل غياب يوم الجمعة.rar
طارق محمود قام بنشر يونيو 19, 2014 قام بنشر يونيو 19, 2014 السلام عليكم تفضل أخي المرفق منع تسجيل غياب يوم الجمعة2.rar
زائر قام بنشر يونيو 19, 2014 قام بنشر يونيو 19, 2014 الاستاذ الفاضل // طارق محمود لا تعتذر بل انا الذي اعتذر انني كنت ساحرم اخواني من حلولكم الرائعة اعلم انني والله عندما رايت انك شاركت في الموضوع سعد قلبي لانني توقعت انك ستحل حل في عقلي ولكن عدم تمكني في الاكواد لم استطع تنفيذه فلجات في مشاركتي الى حل بطريقة بسيطة وها انت لم تخيب املي وجئت بما كنت اتوقعه منكم فبارك الله لكم وعليكم وجعله في ميزان حسناتكم..
ابوصلاح قام بنشر يونيو 19, 2014 الكاتب قام بنشر يونيو 19, 2014 هذا مرفق لتسجيل غياب رياض الاطفال اريد التعديل في الكود لمنع التسجيل يوم الجمعة السلام عليكم ورحمة الله وبركاته الاستاذ الحبيب// أبو صلاح تفضل ما تريد اخي محمد ابو البراء كيف الحال وشكرا جزيل بارك الله فيك
ابوصلاح قام بنشر يونيو 22, 2014 الكاتب قام بنشر يونيو 22, 2014 عفوا أخي محمد ، لم أر ردك الاستاذ طارق الكود سليم 100% لكن يصعب معي تطبيقه علي الملف الذي اعمل به فليس هناك كود اسهل لقلة خبرتي بالاكواد وشكرا
طارق محمود قام بنشر يونيو 23, 2014 قام بنشر يونيو 23, 2014 الاستاذ طارق الكود سليم 100% لكن يصعب معي تطبيقه علي الملف الذي اعمل به فليس هناك كود اسهل لقلة خبرتي بالاكواد وشكرا السلام عليكم أخي الكريم / أبو صلاح ربما لو قرأت شرح الكود تستطيع تضبيطه علي ماعندك من بيانات مرفق الملف مرة أخري وبه صفحة إضافية لشرح الكود تفضل أخي منع تسجيل غياب يوم الجمعة3.rar
أبو أنس80 قام بنشر يونيو 23, 2014 قام بنشر يونيو 23, 2014 ادع الی ربی طول عمر جمیع هیئه منتدی اوفیسنا اشكركم جمیعا
ابوصلاح قام بنشر يونيو 23, 2014 الكاتب قام بنشر يونيو 23, 2014 الاستاذ طارق الكود سليم 100% لكن يصعب معي تطبيقه علي الملف الذي اعمل به فليس هناك كود اسهل لقلة خبرتي بالاكواد وشكرا السلام عليكم أخي الكريم / أبو صلاح ربما لو قرأت شرح الكود تستطيع تضبيطه علي ماعندك من بيانات مرفق الملف مرة أخري وبه صفحة إضافية لشرح الكود تفضل أخي تسلم والله ما قمت به افضل مما كنت اريد وفهمت عمل الكود شكرا اخي طارق بارك الله فيك
ابوصلاح قام بنشر يونيو 24, 2014 الكاتب قام بنشر يونيو 24, 2014 (معدل) الاستاذ طارق الكود سليم 100% لكن يصعب معي تطبيقه علي الملف الذي اعمل به فليس هناك كود اسهل لقلة خبرتي بالاكواد وشكرا السلام عليكم أخي الكريم / أبو صلاح ربما لو قرأت شرح الكود تستطيع تضبيطه علي ماعندك من بيانات مرفق الملف مرة أخري وبه صفحة إضافية لشرح الكود تفضل أخي اريد الخطا الذي وفت به في الكود الذي وضعته مع منع الكتابة من لوحة المفاتيح اسف علي شغل وقتك تسجيل غياب.rar تم تعديل يونيو 24, 2014 بواسطه ابوصلاح
طارق محمود قام بنشر يونيو 24, 2014 قام بنشر يونيو 24, 2014 عندك خطآن وليس واحدا الخطأ الأول في هذا السطر LR = [b999].End(xlUp).Row هذا معناه أن يذهب إلي الخلية [b999] ومنها يقفز للأعلي End(xlUp).Row هذا الأمر مماثل لما يحدث إذا ضغطت Ctrl-Up زر الكنترول مع السهم لأعلي (في صفحة الإكسل وليس في الفيجوال بيسيك) فهذا يجعل المؤشر يقفز للأعلي ليس سطرا واحدا بل حتي تتغير الحالة من فراغ إلي كتابة (أو من كتابة إلي فراغ) ثم يكتب رقم السطر في المتغير LR وفي حالتنا نفترض أن الخلية B999 فارغة لأنها بعيدة للأسفل فإذا قفز منها للأعلي حتي تتغير الحالة من فراغ إلي كتابة سيقف عند آخر سطر به بيانات وهذا هو المطلوب أما الخطأ عندك فقد اخترت (بعد التعديلات التي أجريتها علي الملف) عمود B الذي هو كله فارغ فبتنفيذ هذا السطر يقفز المؤشر لأعلي ولايجد كتابة حتي السطر الأول فيعطي المتغير LR قيمة (1) هذا الأمر كان في محله في المسألة الأولي أما الآن فيمكنك استبداله كالتالي LR = Cells.SpecialCells(xlCellTypeLastCell).Row فهذا أدق يجعل المتغير يأخذ قيمة آخر سطر به بيانات في نطاق الورقة كلها الخطأ الثاني في هذا السطر For rww = 3 To L والذي من المفروض أن يكون هكذا For rww = 3 To LR حتي تستفيد من حساب LR في أول سطر إذن الكود بعد التعديل Sub del_abs_FR() LR = Cells.SpecialCells(xlCellTypeLastCell).Row For col = 3 To 40 If Weekday(Cells(3, col)) <> 6 Then GoTo 10 For rww = 3 To LR If Cells(rww, col).Value = "غ" Then a = Cells(rww, col).Address(RowAbsolute:=False, columnAbsolute:=False) MsgBox " العثور علي تسجيل غياب يوم جمعة بالخلية" & a: Cells(rww, col).Value = "" End If Next rww 10 Next col End Sub
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.