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

::: (( هـــديـــة الجمعـــة )) ::: سورة ( الكهف ) في فورم ... معلومات .. قراءة .. فضائل بمزيج من الحركات مما يستخدمها ملك الحركات الاخ الحبيب / شوقي ربيع اقدم لكم اليوم سورة ( الكهف ) كامله علي فورم في ملف اكسيل به بعض الحركات الجميله ويمكنك من خلاله التعرف علي ... ** معلومات عامة عن السورة ** ** قراءة السورة كامله ** ** فضائل قراءة السورة ( يوم الجمعة ) ووقت قراءتها ** ارجو من الله ان يحوز اعجابكم ويكون مفيدا وهو اهداء لجميع محبي منتدي اوفيسنا ... وخصوصا اساتذتي الكرام .. نسألكم الدعاء بظهر الغيب جزاكم الله خيرا ســـــورة الكهـــف فــي فـــــورم.rar

السلام عليكم ورحمه الله وبركاته مرفق طيه برنامج صلاحيات المستخدمين الإصدار 3 حيث تم زيادة بعض الخصائص به تتيح حريه اكبر في التعامل مع الملف وقبل اى شيء فلولا أساتذة هذا المنتدى العظيم ما كان لهذا البرنامج ان يظهر او يتطور فمنهم وجدت الدعم ومنهم تعلمت ولا زلت طالبا مبتدئا انهل من علمهم الغزير وفقهم الله وبارك في جهدهم وجعله علم صالح ينتفع به --- اللهم امين اسماء الدخول على البرناج الدعم الفنى - كلمه السر 1111 مستخدم 1 - كلمه السر 2222 شرح بسيط للبرنامج وامكانياته وما هو الجديد عليه تعتمد فكرة البرنامج على اضافه عدة مستويات للصلاحيات على الملف فهو كقالب تقوم بادراج الصفحات التي ترغب بادراتها فيه ويتعرف عليها تلقائيا بمجرد إعادة فتح الملف المستخدم باسم الدعم الفني هو الادمن لهذا الملف وقد تم ربط كافه الصلاحيات بالباسورد الخاصه به مستوى الصلاحيه على الصفحه 4 مستويات مشاهدة فقط ---- للاطلاع فقط دون التعديل مخفى ---- لاخفاء الصفحه عن هذا المستخدم مدخل بيانات - لتحديد أعمدة معينه يتم التعديل عليها وباقى المستند غير متاح وذلك من خلال وضع حرف T في اول خليه اعلى العمود كما يابصفحه 2 وجرب الدخول بالمستخدم 1 ستحلاظ ان صفحه واحد للمشاهدة فقط وصفحه 2 تم تحديد صفه مدخل بيانات ويتم التعديل فقط فى الاعمدة التى تعلوها حرف T ويمكنك اخفاء هذا الضف عن اعين المستخدم ويعمل بشكل طبيعي مشاهدة وتعديل -- هي صلاحيات كامله على الصفحه يمكنك تحديد اى من هذه الصلاحيات لكل صفحه منفصله عن الأخرى لكل مستخدم بصورة منفصله وذلك من خلال الاتى في شاشه الدخول ضع الدعم الفني واكتب كلمه السر وهى 1111 ولا تضغط دخول اى ستجد ان ازار تم تفعليها - اضغط على زر تعديل صلاحيات واختار المستخدم من الكومبوبكس وستجد صلاحياته تظهر اسفل منها افتح كل قائمه وحدد الصلاحيه التي ترغبها لكل مستخدم مع مراعاة ان تكون كلها مشاهدة وتعديل للمستخدم الدعم الفنى يظهر اسفل الفورم اربعه اختيارات وهى الجميع مخفى - الجميع مشاهدة وتعديل - الجميع مشاهدة فقط - الجميع مدخل بيانات ( هذه الاختيارات فقط لتساعدك في ملىء صلاحيات الصفحات حيث تختار ما يغلب على الصلاحيه للمستخدم وتقوم بتعديل الاستثناء فقط مع ملاحظه انه لا يتم التفعيل الا بعد الضغط على زر الحفظ وفى حاله الضغط على زر اضافه مستخدم جديد فانه يجب أولا تسجيل الاسم وكلمه السر الافتراضيه والضغط على زر اضافه مستخدم سيفتح فورم إعطاء الصلاحيات ومن ثم تحدد كما بالخطوة السابقه ملحوظه - كلمات السر يجب ان تكون ارقام فقط - حيث وضع هذا الشرط لعدم تعقيد كلمه السر والدخول في حساسيه الحروف واللغه -- وهكذا يظهر زر اخر فيه تعديل بيانات المستخدمين وحيث يمكنك تعديل اسم مستخدم او حذفه من البرنامج كما يمكنك اظهار أسماء المستخدمين وكلمات السر من خلال وضع علامه صح وسيظهر شاشه لادخال كلمه السر وهنا ضع كلمه سر الدعم افنى سيظهر كومبوبكس فيه أسماء المستخدمين وكلمات السر بجانب كل منهم كل هذه الأشياء يتم التعامل معها قبل الدخول على البرنامج من الشاشه الافتتاحيه وبعد الدخول الى البرنامج توجد بعض الخصائص امكانيه تعديل كلمه السر للمستخدم التنقل بين الصفحات من خلال زر التنقل يقوم البرنامج بعمل حفظ تلقائي عند الخروج حتى لو لم تقوم بالحفظ ما هو الجديد في هذا الإصدار زر صلاحيات اضافيه وفيه الخصائص التاليه امكانيه احضار صفحات من خارج الملف وارفاقها امكانيه نسخ الصفحات المضافه وحفظها في ملفات منفصله لكل منها حذف الصفحات من الملف ترتيب الصفحات تصاعديا وتنازليا فك حمايه المستند وتفعيل الحمايه اظهار واخفاء اشرطه الأدوات للاكسيل المثال المرفق : مستخدم 1 بكلمه سر 2222 صلاحياته هي صفحه رقم 1 مشاهده فقط صفحه رقم 2 - مدخل بيانات -- يمكن الكتابه فقط في الاعمدة التي في اعلاها حرف T صفحه رقم 3 مشاهدة وتعديل باقى الصفحات من 4 الى 7 مخفيه عن مستخدم 1 والكل يظهر مع مستخدم الدعم الفني يجب مراعاة ان صفحه MYDATE يجب ان تكون مخفيه عن جميع المستخدمين نظرا لانه يتم تخزين أسماء المستخدمين وكلمات السر والصلاحيات على الصفحات في هذه الصفحه تلاحظ ان يتم تحديد صفحه MYACCOUNT بصفه مخفى ولكنها تظهر مع المستخدم العادى وذلك فقط اذا حددتها مشاهدة وتعديل فانك ستعطى لهذا المستخدم صلاحيه اضافه مستخدم جديد فقط دون باقى صلاحيات الدعم الفني التي تكون في الفورم الرئيسي برنامج صلاحيات المستخدمين اصدار 3.rar

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

بسم الله الرحمن الرحيم وبه نستعين السادة الزملاء السلام عليكم ورحمته الله وبركاته يطيب لى وبناءا على طلب أخى العزيز الاستاذ الفاضل محمد " ابوالبراء" ان أهدى نجلنا البراء محمد " بارك الله فيه " هذه الاطلاله المتواضعة من العبدالفقيرالى الله تعالى الا وهى شيت مصغر من برنامج مرتبات الساده العاملين بالتربية والتعليم واقصد هنا بعبارة " شيت مصغر" لانه لايحتوى على كافة الاحتمالات القائمة بشأن عملية الصرف لجميع الساده العاملين بالتربية والتعليم دون الخروج على ماينبغى صرفه إلى أن يإذن الله تعالى بأن انتهى من الاصدارالاول من البرنامج الاصلى المطلوب فقط الاتى :- 1- تحديد بيانات الموظف من العمود E2 الى K2 2- تحديد بيانات اساسى المرتب الحالى 2013/7/1 + الـــ 5 علاوات من العمود L2 الى Q2 ملاحظات هامة 1- تم إضافة علاوة الحد الادنى للأجور وفقا للقرار رقم 22 لسنة 2014 بمنشوريه رقم 1 و 2 2- تدخل علاوة الحد الادنى ضمن جملة الاجورالمتغيرة علما بأن الحد الاقصى للأجور المتغرة اعتبارا من 2014/1/1 اصبح 1587.00 جنيها شهريا 3- الحد الاقصى للأجور الاساسية بلغ 987.50 جنيها شهريا جزاكم الله خيرا ..... تقبلوا وافر احترامى

قوائم بشكل جديد في الاكسيل .... تصلح للاستخدام في برنامجك .. بطريقة بسيطة السلام عليكم الاساتذة الافاضل اخواني الاعزاء اقدم لكم هذا الملف به قوائم مصممه باستخدام الفورم بطريقة بسيطة وسهله وبها بعض الاوامر علي سبيل المثال ويمكنكم تغييرها بالطبع لتتناسب مع طبيعة وتصميم برنامجكم ... ومن الجدير بالذكر ان الاستاذ الغائب الحاضر / الحسامي ... له ملف رااائع بهذا الموضوع وقوائم ولا اروع ولا احلي من كده وهو اول من قام بهذه الفكرة ( الحقوق محفوظة ) وطبعا هذا الملف بجواره لا شئ ... ولكنني استخدمت اسهل وابسط الطرق الممكنه لعمل ذلك وكنت قد صممتها لاستخدامها في برنامج لدي واحببت ان اطلعكم عليها واطلع علي رأيكم فيها واوجة القصور الموجودة فيها وتجربتها علي اكثر من جهاز قبل العمل النهائي عليها حيث لدي مقاس الشاشة 19" مستطيل Resolution 1366 x 768 نسخة اوفيس 7 اوفيس 2003 ، اوفيس 2007 ارجو ان تنال رضاكم جزاكم الله خيرا قوائم جديدة لاي برنامج تصممه بنفسك.rar

يقدم الكتاب شرح مبسط بالصور للبرنامج و بمساحة تحميل صغيرة للتحميل اضغط على الرابط التالي http://www.up-00.com/?kRUQ

التهنئة بترقية الاخ وليد فتحي الى عضو مميز

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

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

آخر صف في العمود 2 شكرا لك يا استاذنا عبد اللة بارك اللة في عمرك

يجب ان تستبدل السطر الأحمر بما يلي sh.Unprotect Password:=myPassword حيث sh هو اسم الشيت و mypassword هي كلمة السر

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

شكرا مره اخرى سيدتي الفاضلة فقد اخذنا منك الوقت الكثير والفائدة الاكثر ودمتي اختا ومعلمة ...... لقد كان الشرح واضح واكثر من رائع

السلام عليكم أستاذي العزيز الاستاذ/ أحمد السلام عليكم ملحوظة خطيرة فعلا ( ممكن يغيب الطالب في مادة فرعية من المواد العملية ويكون ناجح .................) أرجو وبسرعة لو سمحت افادتي مذا ينجح الطالب وماذا يرسب الطالب الرد ينجح اذا حصل على مجموع المواد الفرعيه كلها 50% من المجموع

السلام عليكم ورحمه الله وبراكاته اولاآ اشكر الجميع على الروح الجميله والتعاون وابداء الاراء حتى يتثنى لنا جميعآ على اخراج عمل لا يوجد به اخطاء ثانيآ اكرر كل ما قلته فى مشاركتى التى نوه عليها استاذى الكبير ومعلمى الاستاذ محمد أبو البراء صحيه ويعلم الله اننى اتصلت بالامس على مستشار التعليم الصناعى وراجعت معه هذه النقاط"" بالنسبه للطالب الغائب فى الترم الثانى لاكثر من ماده يعتبر له دور ثانى بشرط الايكون عنده ثلاث مواد رسوب فى الترم الثانى بمعنى انا دخل الامتحان ورسب فى ثلاث مواد + الغياب يعتبر راسب والنقطه الثانية هى موضوع العملى"" والله يا جماعه الشيت بتاعنا راجعه هذا العام اثناء الامتحانات لجنه من الوزاره ولم تعلق على موضوع العملى لدينا بل بالعكس طلبت ورقه من اعمال السنه ودرجه الامتحان فى العملى وصدقت عليه"" وانا عارف ان الموضوع محير بالنسبه لكم لان موضوع دمج الاقسام هذا اول عام يطبق ولكنى كنت متواجد لحظه بلحظه داخل القطاع لاخراج آخر واصدق القواعد والقوانين المطبقه لهذا الشأن وعندما قمت بالامس بالاتصال بأحد المستشارين للتعلم الصناعى اكد لى ان الطالب لابد ان يحصل على اكبر من 100 درجه من المجموع الكلى من (200) حتى ينجح مهما كان الامر سواء رسب فى فرع من الفروع الخمسه او الاربعه الخاصين بالتخصص المهم انا يحصل على 50% ولا يهم اذا رسب فى فرع من الفروع طب واذا لم يحصل على ال 50% يعتبر راسب عملى او بالاصح له دور ثانى بماده العملى برده نفس الشيئ عند الدور الثانى يعمل ورقه مجمعه ويمر الطالب على هذة الاقسام ليأخد النسبه لكل قسم ثم تجمع وتسلم للكنترول للرصد فى خانه واحدة وعلى فكره الكلام دا صحيح 100% وكما قلت من قابل كما ردو على بالنص الساده المستشارين (نحن نعمل لمصلحه الطالب لاخر لحظه) انتو عارفين عندنا فى سنه من السنين تخيلو انهم عملو دو ثالث للطلبه بحجه نفس الكلمه (لمصلحه الطالب) والله أمور تضحك هنعمل ايه الله المستعان والسلام عليكم ورحمه الله وبراكاته

السلام عليكم تفضل أخى table.rar

الأستاذ / غزوان السلام عليكم ورحمة الله وبركاته تم عمل تنسيق شرطي وإليك الملف به الشرح. الشرح.rar

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

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

أخى الفاضل / محمد لا يمكن ذلك بالمعادلات

السلام عليكم أخى الفاضل / سليم تسلم ايديك ولاثراء الموضوع table.rar

السلام عليكم الشكر موصول للاخوين طلعت محمد حسن و الاستاد رجب جاويش لاثراء الموضوع اكثر هذا كود ايضا يفي بالغرض Private Sub TextBox1_Change() Dim Lr As Long Dim i As Double, Mh As Double On Error Resume Next i = Me.TextBox1 Application.ScreenUpdating = False With Sheet1 Lr = .Cells(.Rows.Count, "D").End(xlUp).Row Mh = WorksheetFunction.Match(i, .Range("D4:D" & Lr), 0) + 3 End With Me.TextBox2 = Sheet1.Range("E" & Mh) Application.ScreenUpdating = True End Sub

السلام عليكم بعد أذن أخى الفاض / طلعت محمد أخى الفاضل جرب الكود التالى أنا جربته على 15000 صف والسرعة معقولة Private Sub TextBox1_Change() On Error Resume Next Application.ScreenUpdating = False x = Cells.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False).Offset(0, 1).Address Me.TextBox2 = Range(x).Value Application.ScreenUpdating = True End Sub userform.rar

السلام عليكم ورحمة الله وبركاته إليك الملف لعله المطلوب. #U0645#U062b#U0627#U0644.rar

اخى حمادة باشا اخى حسين العصلوجى الف الف الف مبررررررروك ترقية مستحقة وعن جدارة اخوكم سعد عابد

مرفق طيه الاصدار الثاني بعد مناقشة الملاحظات الواردة منكم مع الموقع أخر تعديلات الملف بتاريخ 13-4-2012 officenaPromotion2012-3.pdf

طريقة عمل ( فورم ) فاتورة ووضع اكوادها وترحيل بياناتها واستدعائها وطباعتها !! خطوة خطوة (((( تابع / الدرس الاول )))) مرفق ملف اكسيل به الفورم والمثال الذي سنعمل عليه في الدروس القادمة والتالي شرح بفيديو مباشر من خلال هذا الصرح العملاق ( ويمكنكم ايضا تحميله من هنا ) جزاكم الله خيرا طريقة عمل فاتورة ووضع اكوادها1اكسيل .rar

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

up

السلام عليكم ورحمة الله وبركاته للوصول السريع الى فتح صناديق الحوار او الاوامر ده الفورم يعطيك الرقم سريعا XlBuiltInDialog هو في ارقام كثيرة لكن حاولت ان اجمع ما يفتح بالامر Show اختار الرقم وضعه بدل الكلمة هنا Application.Dialogs(هنا).Show في اوامر لم اضع تسميتها دمتم في حفظ الله Application.Dialogs1.rar =================================================== النسخة الجديدة بجميع الاوامر من 1 الى 119 ممكن تستخدم معها الامر Show وهي الملونة في الشيت وهي التي تم اختبارها وترجمتها مني ومن الاخ عادل Application.Dialogsadel3.rar =================================================== رابط ذو اهمية: http://msdn.microsoft.com/en-us/library/ff194519.aspx

السلام عليكم استخدم الكود التالي: Sub SaveAs_MySheet() On Error GoTo 1 Dim Mybook As Workbook Dim MyFile As String, MySheet As String Set Mybook = ActiveWorkbook Application.ScreenUpdating = False With ActiveSheet MySheet = .Name & " ( " & Format(Now, "hh-mm-ss") & " )" .Copy End With MyFile = Mybook.Path & "\" & MySheet ActiveWorkbook.SaveAs Filename:=MyFile ActiveWorkbook.Close MsgBox "تم حفظ ورقة العمل بإسم" & Chr(10) & Chr(10) & MySheet, 524288, "الحمد لله" Application.ScreenUpdating = True 1 End Sub تفضل المرفق ________________________.rar