عبدالباري البنا

اخى الحبيب

احمد ...ابن مصر

مثلك لا يستأذن ...بل يستأذن منه

تسلم ايدك اخى الحبيب

انت كما عاهدناك ..ريحانه هذا المنتدى

تحياتى وتقديرى

بعد اذن كل الاخوه هذه محاوله بدون اكواد

لكن باستخدام التحقق من الصحة

تحياتى 

حماية عمود.rar

اخي العزيز

بعد اعمال استاذنا ياسر خليل

لا يمكن لأحد ان يشارك بعده

لكن هذه مساهمة بسيطة  لإثراء الموضوع

ايصال امانه.rar

اخونا الحبيب

نيابة عن جميع اعضاء منتدانا الحبيب ....نشكرك

اخونا وحبيبنا فى الله ... ابن مصر

هو بحق استاذ كبير .. وخبير بارع

متمكن من ادواته ...وكريم فى عطائه

لا يبخل بعلمه ابدا .... فهو بحق

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

جزاه الله  خيرا

تفضل اخى الحبيب

الملف الذى اعمل علية

http://ge.tt/3tLGwiA2/v/0?c

بعد اذن اخى الحبيب

ابن مصر

ولأجل عيون الغالى

ناصر المصرى

تفضل المرفق.... اتمن يكون المطلوب

تحياتى

تعديل كود نص متحرك.rar

اخى الحبيب

انا بكتب التاريخ بيطلع صحيح وينفس التنسيق

لا اعلم اين المشكله

راجع الصوره

عندي في التاريخ مشكلة عند كتابة 10/2/2008.. والحفظ   وعند الرجوع مرة اخرى الى هذا التاريخ  بلاقي معكوس  2/10/2008

 

ارجو التعديل

انا اعمل على اوفيس 2010 عربى

وتنسيق التاريخ فى الملف مظبوط 

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

سيبك من التاريخ فى النموذج 

اهم شيئ التاريخ فى الجدول مظبوط ولامش مظبوط ؟؟؟

في شغلة لاحظته

عند تسجيل بيانات موظف جديد وعمل بيانات الادخال وعند الحفظ  بقولي الاسم مكرر واي اسم  بضيفه بحكي الاسم مكرر هل تريد المتابعة؟

 

انا بحط نعم

انا جربت اضافه اسم غير موجود ....

وجدته بينضاف عادى بدون ظهور الرساله 

الملف عندى مفيش فيه مشكله

تم اجراء التعديلات المطلوبه

جرب الملف

http://ge.tt/3kO3JRA2/v/0?c

اخى الحبيب 

راجع الملف واخبرنى بالنتيجة

http://ge.tt/5UsxbQA2/v/0?c

اخى الحبيب 

طلبك على راسى

فقط بعض الوقت ... 

السلام عليكم ورحمة الله وبركاته

اخى الحبيب تفضل الملف 

اتمنى ان يكون المطلوب...(تم حذف زر طباعه النموذج لصعوبه ضبطه)

وده رابط التحميل

http://ge.tt/9s1YoPA2/v/0?c

اخى الحبيب هذا الملف بعد التعديل 

باقى مرحلة واحده وهى وضع اكواد ادخال نموذج الحاله الاجتماعية

رجاء مراجعة الملف واخبارى لو فيه تعديل 

تقبل تحياتى

http://ge.tt/6OAEq6A2/v/0?c

اخى الحبيب 

تم تعديل ما طلبت فى الاسم وفى زر الطباعة

لا تتردد فى اى طلب او استفسار

نحن اخوه .. ووطن واحد

رابط التحميل

http://ge.tt/1w2Wl5A2/v/0?c

اخى الحبيب .... الوئام

جرب المرفق ...على حسب فهمى للموضوع

وجارى عمل نموذج للحاله الاجتماعيه

لكن حتى الان ...هل نسير فى الطريق الصحيح ؟؟؟

واى تعديل ... انا تحت امرك

الارقام السريه :

Admin   1111

2222       الوئام

تقبل تحياتى

رابط التحميل

http://ge.tt/8Ayej3A2/v/0?c

شكرا لك اخي الكريم

لكن لا تنسى ان يكون نموذج الحالة الاجتماعية متصل بنموذج البيانات السابق وتكون البيانات مرتبطة بنموذج السابق

ولا تنسى ايضا وضع زر لطباعة الحالة الاجتماعية

 

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

يا ريت لو ملف الحاله الاجتماعية موجود عندك بصيغة Word او Excel يا ريت ترفعه وبلاش pdf

شكرا على الاضافة.. لكنها ليست واضحة عندي

وتشرح كيف وضع كلمة سر للنموذج

 

وبنتظار الحالة الاجتماعية

اخى الحبيب

 انتهيت من عمل اسم مستخدم وكلمه سر للنموذج

باقى فقط نموذج ..الحاله الاجتماعية وسوف ارفقه  فور الانتهاء منه

تقبل تحياتى

اخى الحبيب ... المميز دائما وابدا

الجموعى

مساعدتك ليست بسيطه

فهى بحق ...ذادت العمل رونقا وجمالا

وجعلت للقائمه المنسدله شكل رائع بعد ازاله الفراغات

تسلم ايدك يا غالى

واريد منك اخي الكريم

ان تضع اسم مستخدم وكلمة سر للدخول ...على النموذج

عمل كلمة سر دخول للنموذج ....امر سهل

اما موضوع عمل نموذج للحاله الاجتماعية ...قد يستغرق بعض الوقت

لكن ان شاء الله قريبا جدا سيكون جاهز

 

استاذ عبد الباري عايز افهم هذا الامر من الكود

kh_cFormula Range("شيت_الصف_الرابع!$c$2:$g$2"), 7, ورقة8.Range("b1")

اخى الحبيب 

الصف الثانى ذو اللون الاسود كما فى الصوره

موجود به معادلات الصفحة كامله.... وهذا الامر مسئول عن نسخ المعادلات الموجوده فى المدى (c2:g2)

وتطبيق المعادلات على باقى الشيت ابتداء من الصف السابع اول صف للبيانات

بمعيه عدد الطلبه الموجدود فى الخليه b1

الاستاذ الكريم عبد الباري

هيا بنا نبحر في عملك القوي ليكون درسا للمهتمين بهذا المجال وليكون لك ولنا ان شاء الله عمل صالح ينتفع به

في صفحة بيانات اساسيه وجدنا الكتابة بالخط البارز كيف تم ذلك

 

في صفحة الشيت الورقي يوجد زر سحري اسمه تحديث

وكوده الاتي

On Error GoTo kh_Err
تصفير_محدد
kh_Application False

'=============================================
kh_cFormula Range("شيت_الصف_الرابع!$c$2:$g$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$k$2:$L$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$p$2:$t$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$x$2:$y$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$ac$2:$ag$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$ak$2:$al$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$ap$2:$at$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$ay$2:$ba$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$bf$2:$bk$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$bo$2:$bp$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$bt$2:$bx$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$ca$2:$cb$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$ce$2:$ci$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$cl$2:$cm$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$cp$2:$ct$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$cw$2:$cx$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$da$2:$de$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$dh$2:$di$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$dl$2:$dr$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$dv$2:$dw$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$ea$2:$ek$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$em$2:$em$2"), 7, ورقة8.Range("b1")
kh_cFormula Range("شيت_الصف_الرابع!$eo$2:$ew$2"), 7, ورقة8.Range("b1")
'=============================================

kh_Err:
kh_Application True

If Err Then
    MsgBox "Err.Number : " & Err.Number
    Err.Clear
'    Else: MsgBox " تم نسخ المعادلات بنجاح", vbMsgBoxRight, "الحمدلله"
End If
End Sub

' MyRng   : الصف المخفي الذي يحوي المعادلات ملحوق باسم الورقة
' iRow    : اول صف للبيانات
' Lastrow : آخر صف للبيانات

Sub kh_cFormula(MyRng As Range, iRow As Integer, Lastrow As Long)
Dim Col As Range
Dim R As Long
'========================
For Each Col In MyRng.Cells
    If Col.HasFormula Then
        For R = iRow To Lastrow
            With MyRng.Worksheet
                .Cells(R, Col.Column).FormulaR1C1 = Col.FormulaR1C1
                .Cells(R, Col.Column).Value = .Cells(R, Col.Column)
            End With
        Next R
    End If
Next
'========================
Set Col = Nothing
End Sub

Sub kh_Application(ibol As Boolean)
With Application
    .ScreenUpdating = ibol
    .Calculation = IIf(ibol, -4105, -4135)
    .EnableEvents = ibol
End With
End Sub

نرجو شرحه بارك الله فيك وجغل هذا العمل من باب علم ينتفع به

اخى الحبيب قصى

هذا الكود .... مسئول عن نسخ المعادلات الموجوده فى الصف الثانى ذو اللون الاسود وتطبيقها على باقى الشيت ابتداء من الصف السابع

واذا اردت شرحا وافيا ....حاضر من عينيا

تصور اولى لبداية عمل برنامج شؤون العاملين ...مع الاستعانه بفورم العبقرى 

عبدالله باقشير .... جزاه الله خيرا

من اجل اخونا الحبيب .... الوئام ... من فلسطين الحره

ومنتظرين منه ....شرح تصوره حول شكل باقى سجلات واحصائيات البرنامج

حتى يخرج بالشكل النهائى  الذى يريده

تصور اولى لبرنامج شؤن العاملين.rar

بارك الله فيك ....استاذنا الكبير 

ياسر فرحات

مجهود عظيم ...وشيت رائع

جعلة الله فى ميزان حسناتك

انا اعمل بمدرسة ثانوى عام وطبعا زعلان عشان نسيت الثانوى العام على راى الأستاذ/ ياسر خليل تقبل تحياتى وفى انتظار كنترول الثانوى العام

اخى العزيز .... راجع هذا الرابط وفية شيت للصف الاول والثانى الثانوى

وهو لاخونا العزيز استاذ ... ياسر وهو بحق شيت رائع وجميل ....اتمنى ان يفيدك

http://www.officena.net/ib/index.php?showtopic=58452#entry372886