dah_med قام بنشر نوفمبر 5, 2013 قام بنشر نوفمبر 5, 2013 السلام عليكم ورحمة الله وبركاته إخواني أعضاء منتدنا الحبيب لقد إستفدنا من هذا المنتدى الشيء الكثير ولا زلنا نتعلم منه الكثير لكن نحن دائما في حاجة خبراء منتدنا العزير إخواني هذا مشروع أريد أن أبدأ فيه ليسهل لي عملي في إدارة أعمال مدرستنا ولعله يفيد أناس أخرين لا أطيل عليكم المطلوب موضح في الملف المرفق أخوكم محمد مشروع سجل الدخول والخروج.rar
عبدالله باقشير قام بنشر نوفمبر 6, 2013 قام بنشر نوفمبر 6, 2013 السلام عليكم جرب الكود التالي Sub kh_trheel() Dim Ary Dim M As Long With ورقة4 M = .Cells(.Rows.Count, "A").End(xlUp).Row Ary = Array(M, [E14], [C11], [J11], [D12], [I12], [G13], [D15], [J15], [I17], [A20], [J20]) .Cells(M + 1, 1).Resize(1, 12).Value = Ary End With End Sub واشعرنا بالنتيجة
dah_med قام بنشر نوفمبر 6, 2013 الكاتب قام بنشر نوفمبر 6, 2013 وعليكم السلام أخي عبد الله لقد نجح الترحيل جزاك الله عنا كل خير أريد فقط لو تكرمت شرح هذين السطرين M = .Cells(.Rows.Count, "A").End(xlUp).Row .Cells(M + 1, 1).Resize(1, 12).Value = Ary
عبدالله باقشير قام بنشر نوفمبر 6, 2013 قام بنشر نوفمبر 6, 2013 وعليكم السلام M = .Cells(.Rows.Count, "A").End(xlUp).Row هذا السطر يعطيك رقم آخر صف في العمود A .Cells(M + 1, 1).Resize(1, 12).Value = Ary نقل القيم في الضفيف Ary الى الصف الاخير زايدا واحد في العمود A بمقدار صف واحد و12 عمود في امان الله
dah_med قام بنشر نوفمبر 7, 2013 الكاتب قام بنشر نوفمبر 7, 2013 أخي عبد الله جزالك الله على الشرح تكملة للعمل أريد رسالة تنبيهية تفيذ أن خلية الرقم(c5) فارغة ولا يمكن توثيق الشهادة بدون رقم شرط أن لايتكرر هذا الرقم في ورقة الأرشيف
عبدالله باقشير قام بنشر نوفمبر 7, 2013 قام بنشر نوفمبر 7, 2013 أخي عبد الله جزالك الله على الشرح تكملة للعمل أريد رسالة تنبيهية تفيذ أن خلية الرقم(c5) فارغة ولا يمكن توثيق الشهادة بدون رقم شرط أن لايتكرر هذا الرقم في ورقة الأرشيف لكن لا يتم توثيق التسلسل عن طريق هذه الخلية وانما التسلسل يتم تلقائيا بالمتغير M
dah_med قام بنشر نوفمبر 7, 2013 الكاتب قام بنشر نوفمبر 7, 2013 أخي عبد الله أقصد كأن يكون هناك عداد في الخلية فعندما أحفظ شهادة مدرسية برقم واحد يكتب في الخلية(c5) رقم إثنان بعد الحفظ مباشرة وهكذا من باب عدم ترك للمستخدم إدخال رقم الشهادة حتى لا يخطأ في أرقام الترتيب وإذا كانت الخلية (c5) فارغة أنبه المستخدم برسالة أرجو أن أكون قد وضحت المطلوب
عبدالله باقشير قام بنشر نوفمبر 9, 2013 قام بنشر نوفمبر 9, 2013 السلام عليكم لقد اخبرتك ان الترتيب يتم تلقائيا في الكود عن طريق المتغير M لهذه ليس هناك علاقة للمستخدم في الترتيب ولكن اذا تريد اظهار الترتيب في الخلية (c5) ادخل المعادلة التالية في هذه الخلية =MAX(الأرشيف!A:A)+1 تحياتي
dah_med قام بنشر نوفمبر 9, 2013 الكاتب قام بنشر نوفمبر 9, 2013 أخي عبد الله جزالك الله كل خير هذا ماكان ينقصني
dah_med قام بنشر نوفمبر 9, 2013 الكاتب قام بنشر نوفمبر 9, 2013 أخي عبد الله أرجو أن تطلع على الفورم الذي في سجل الدخول والخروج فقد كنت إستعملت الفورم التي صممتها أنت لكني حذفت بعض الصوفوف في الأعلى حتى تبدا المعلومات من الصف الأول وكذا حذفت العمود الأول فتغير كل شيء أرجو أن تصحح لي مدخلات فيجول بيسك حسب التغيير الجديد مع الشرح إن أمكن مشروع سجل الدخول والخروج.rar
عبدالله باقشير قام بنشر نوفمبر 9, 2013 قام بنشر نوفمبر 9, 2013 السلام عليكم غير رؤووس الاعمدة التي تريدها في كود اظهار الفورم مثلا هذا التغيير حسب ملفك Sub kh_Show_UFormChang2() On Error GoTo 1 With UFormChang .kh_SetAddrss "سجل الدخول والخروج", "B1:Q1", "A1" .Show End With 1: If Err Then MsgBox "تاكد من صحة ادخال المتغيرات الاساسية في : " & vbCr & vbCr & "kh_SetAddrss", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "استخدام خاطىء" On Error GoTo 0 End Sub هذا تعديل على الملف السابق شاهد المرفق 2003 مشروع سجل الدخول والخروج.rar
dah_med قام بنشر نوفمبر 9, 2013 الكاتب قام بنشر نوفمبر 9, 2013 أخي عبد الله خزاك الله كل خير أنا بحث عنها في كود الفورم وهي كانت أمام عيني في موديول(ٍModule)
dah_med قام بنشر نوفمبر 11, 2013 الكاتب قام بنشر نوفمبر 11, 2013 السلام عليكم إخواني في منتدنا الحبيب لقد أضفت فورم في صفحة شهادة مدرسية وبها زر حفظ في الأرشيف الغريب أن في إكسال 2007 يعمل دون خطأ لكن في إكسال 2013 يظهر رسالة خطأ أرجو من أهل الإختصاص معالجة هذا الخطأ في 2013 مع الشرح إن أمكن أنظر المرفقات مشروع سجل الدخول والخروج.xls_2.rar Error.rar
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.