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

الأستاذ / ahmd2505 السلام عليكم ورحمة الله وبركاته إليك الملف لعله المطلوب. تثبيت علامة1.rar

السلام عليكم ورحمة الله وبركاته بعد الحمد لله والصلاة والسلام على رسول الله وبعد احب ان اهدي هذا العمل _ وهو عملي الاول _ لعمالقة منتدى اوفيسنا والذين طالما تعلمت منهم الكثير وبعتذر لعدم تخصيص الاهداء لاحد منهم وكلهم يستحقوا الذكر والثناء الجميل ولكن حتي لا انسى احد احب ان اجعل هذا الاهداء عام وباختصار هذا هو عملي الاول وهو خاص بشيت كنترول الصف الثاني الثانوي الصناعي تخصص ( نجارة اساس) لعام 2013/2014 و جعلته تجريبي لان هذا هو عملي الاول ، وانا اعلم انه و لابد انه سيقع فيه بعض الاخطاء بالاضافة انه يحتاج الى تعليق اساتذتي الافاضل على هذا العمل.. و بإذن الله ستنزل اصدارات اخرى من هذا الشيت بالاضافة الى تنزيل جميع التخصصات للصف الثاني الثانوي الصناعي السلام عليكم ورحمة الله وبركاته نسخة من الشيت 2003 للعلم جميع المعلومات عن هذه المرحلة وما يخصها من درجات والقرارات الوزارية ماخوذة من الاستاذ //ahmed alimer فله الشكر شيت الصف الثاني الثانوي الصناعي_نجارة اساس.rar

السلام عليكم ايضا ممكن اضافة التنسيق في معادلة النقل ضع هذه المعادلة في A2 ثم اسحبها الى الاسفل =التحديث!A11&","&التحديث!B11&","&التحديث!C11&","&TEXT(التحديث!D11;"yyyymmdd")&","&التحديث!E11&","&التحديث!F11&","&التحديث!G11&","&التحديث!H11&","&التحديث!I11 تحياتي

الأخ الكريم/ AL_AYMAN السلام عليكم ورحمة الله وبركاته في المرفق يتم تحديد الأوراق المطلوبة كرقم مسلسل يمثل ترتيب الورقة في المصنف فإن ناسبك يمكنك إستخدامه - والشرح داخل الملف - تقبل تحياتي Book1-Navigate Through Sheets.rar

استاذ // وليد فتحي ابداع على ابداع فكرة رائعة جعله الله في ميزان حسناتك

الأخ العزيز /maro9400 ضع الكود التالي في حدث الورقة ( ورقة1) وإن شاء الله يلبي طلبك Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A10:A11")) Is Nothing Then Exit Sub If Range("A10") = 0 Then Range("A15,A17,A19").EntireRow.Hidden = True Else Range("A15,A17,A19").EntireRow.Hidden = False End If If Range("A11") = 0 Then Range("A16,A18,A20").EntireRow.Hidden = True Else Range("A16,A18,A20").EntireRow.Hidden = False End If End Sub ولي طلب إليك تكرما لا قسرا بتغير اسم الظهور للغة العربية ولك مني كل التحية والتقدير والعفو احفاء الصوف.rar

السلام عليكم أرجو منكم مساعدتى فيما يلى المطلوب طباعة كتاب وش وظهر ثم تجليده المشكلة الآن انه عند ضبط الهامش الايمن مثلاً 3 سم لمراعاة مساحة التجليد .. والايسر 2 سم يظهر وجه الورقة معاكس للظهر بمعنى انه عند التجليد سيقترب الظهر لليسار ناحية التجليد وتكون المساحة الكبيرة 3سم فى اليمين وحاولت انى اظبط هامش كل ورقة بمفرده ليتطابق الوجهين لكني لم انجح فأرجو منكم مساعدتى لظبط الهوامش متساوية الوش مع الظهر وتكون بصورة جيدة بعد التجليد دمتـم بـود

السلام عليكم ورحمة الله وبركاته فورم إضافة وبحث وتعديل مرن (الاصدار الثالث) بمعية فورم لادخال التاريخ الجديد في هذا الاصدار 1 - امكانية اضافة التاريخ في تاكست الادخال بوضع مؤشر الفارة على التاكست والضغط عل الزر Calendar 2 - اضافة زر اختيار للبحث للتبديل بين البحث العام والبحث من بداية الكلمة 3 - اضافة زر للذهاب الى السجل النشط شرح امكانيات الفورم وكيفية الاستخدام 1 - استخدام الفورم لاكثر من قاعدة بيانات في المصنف على ان يكون لكل قاعدة كود لاظهار الفورم يتغير فيه معطياتك في متغيرات kh_SetAddrss اولاً : اسم ورقة البيانات ( افتراضي ) ثانياً : نطاق صف رؤوس اعمدة البيانات ( افتراضي ) ثالثاً : عمود التسلسل ( اختياري ) اذا اردت ادخال رقم تسلسل البيانات الخاص بالفورم تلقائيا في عمود معين سجل عنوان راس العمود . مع ملاحظة انه لا يكون من ضمن نطاق رؤوس اعمدة البيانات كما هو معمول في المثال 2. 2 - تستطيع اضافة قائمة لعمود معين في الفورم باضافة تعليق على عنوان العمود وتكتب اسم نطاق القائمة . 3 - ينسخ التنسيقات والمعادلات في السجل الجديد . 4 - يبحث في جميع الاعمدة حسب الاختيار من القائمة في الفورم . 5 - يعطي نتائج صحيحة عند البحث عن تاريخ اذا شيكت الزر البحث عن تاريخ . 6 - امكانيات زر البحث عن تاريخ يتم تحويل اي قيمة تضعها في مربع النص للبحث الى تاريخ بالتنسيق الافتراضي للفورم ,, مع امكانية ادخال رقم صحيح بين 1 الى 31 ليفهم على انه تاريخ اليوم للشهر الحالي والسنة الحالية 7 - ثوابت بامكانك تغييرها حسب طلبك بداية اكواد الفورم 1- تغيير تنسيقات إظهار التاريخ في الفورم في الثابت DtF 2- تغيير عٌرض مربعات الادخال في الثابت iWgt1 8 - بامكانك انتقاء الاعمدة التي تريدها عند تسمية النطاق وترتيبها حسب ما تريد مع ملاحظة ان العمود الذي يعتمد عليه في احتساب آخر صف هو العمود الاول من التسمية مثلا "E15,C15,H15:AX15" الشرح بداخل الملف للاستخدام يجب نقل الفورمين الى ملفك المرفق 2003 فورم ادخال و تعديل مرن بمعية فورم ادخال التاريخ.rar ============================================ تم اضافة زر للطباعة في الرابط ادناه http://www.officena.net/ib/index.php?showtopic=52300 ============================================

كشف حساب بالمعادلات - معادلات بسيطه.rar ------------------------------------------------------------------------ هذا رابط لصفحتى على الفيسبوك نشرح فيه المحاسبه بشكل جديد على هيئة حوار بين أحد المحاسبين القدامى المخضرمين و أحد المحاسبين حديثى التخرج و بعيداً عن الطرق الأكاديميه التى تدرس فى جامعاتنا المصريه والعربيه نرجو مشاركاتكم والدال على الخير كفاعله مرحباً بكم فى صفحتكم الجديده (( المحاسبه بكل بساطه )) https://www.facebook.com/almo7asba123 =========================================== و هذا ملف كنت قد أعددته منذ فتره من المؤكد أنه يفيد المحاسبين حيث ستتمكن عن طريقه (( بإذن الله )) من التمكن من عمل كشف حساب بطريقة بسيطه و سهله

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

وعليكم السلام ورحمة الله وبركاته أتفضل أخي الفاضل أتمني من الله أن يكون هذا طلبك تقبل مروري تعليم 2013_11.rar

وعليكم السلام ورحمة الله وبركاته أساذنا الفاضل والغالي محمد أبو البراء بجد عمل أكثر من رائع وتنسيق ممتاز جعله الله في ميزان حسناتك تقبل تحياتي ومروري

وعليكم السلام ورحمة الله وبركاته يمكنك أخي الحبيب أن تكتب التاريخ وتضع امامه علامة ( ' ) كالتالي '02/03/2014 وان شاء الله يظبط معك جرب الملف تقبل مروري etsal_11.rar

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

تصميم اخي الكريم اكثر من راائع ولا يحتاج الي اي تعليق تقبل خالص تحياتي اخي الحبيب / محمد

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

الأخ المحترم / محمود الأسيوطى همَّا كلمتين وبس ! و الله العظيم إنت راجل محترم

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

الأستاذ / محمود الأسيوطى حقاً أنت رجل صعيدى و جدع و الأهم أنك رجل خيِّر تحياتى إليك على كل مواضيعك الموجوده على توقيعك منذ فترةٍ طويله لم أدخل على هذا المنتدى و لكن أنت من أوائل من أتفقد أعمالهم نظراً لمواضيعك القيمه و ذوقك الرفيع الشكر كل الشكر لك أخى الكريم أخوك / أحمد عبدالعزيز لنلتقى على صفحة : المحاسبه بكل بساطه على الفيس بوك تحيااااااااااااااتى لك

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

السلام عليكم ورحمة والله وبركاته جزاك الله خيراً استاذ محمد ومجهود رائع منك فعلآ ويا رب يجعله فى ميزان حسناتك

اخى الجموعى هل تقصد هكذا نموذج لشهادة مدرسية.rar

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

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

مش فاهم سوالك بس احب اقولك ان الميزانية ممكن تكون قيد واحد يعنى على سبيل المثال الشركة تاسست وتم ايداع مبلغ 100000 فى البنك راس مال دة فى حد زاتة ميزانية هيكون القيد من حساب البنك الى حساب راس المال البنك اصول راس المال حقوق ملكية الاصول = الخصوم + راس المال

الاخ العزير .... جزاك الله خير الجزاء

الأستاذ / camy1 السلام عليكم ورحمة الله وبركاته إليك الملف لعله المطلوب. Book10.rar

أخى الحبيب / محمد أبو البراء بارك الله فيك

بجد اكثر من رائع

بارك الله فيك اخى الكريم / محمد ابو البراء وشكرا على مجهودك وزادك الله علما على علمك فعلا هو المطلوب جعله الله فى ميزان حسناتك

أعتقد كود الحفظ و الخروج بدون تحذير أو رسائل Application.DisplayAlerts = False ThisWorkbook.Save Application.DisplayAlerts = True Application.Quit ننتظر رأى الخبراء

السلام عليكم ورحمة الله أخي الكريم مؤمن، تم حل المشكلة بجعل الفترة على شكل عدد عشري ("عدد الأشهر" فاصل "عدد الأيام مقسوم على 30" مثلا إذا كانت الفترة هي 3 أشهر و4 أيام تكون الفترة هي 3,133333) وفي المعادلة يُقسم هذا العدد على 3 (وفي مثالنا قسمة العدد 3,133333 على 3 يعطي 1,044444) ثم الدالة ROUNDUP (التقريب إلى العدد الصحيح الأعلى) تعطي عددا صحيحا يمثل عدد الفترات (وفي المثال العدد 1,044444 يُقرب إلى 2 وهو عدد الفترات)، وهذه المرة قمت بالتأكد من عمل المعادلة ونتائجها استوفت المطلوب فعلا -حسب اعتقادي- (وتبقى مراقبتك لها).... أخوك بن علية المرفق : Copy of مراقبه خ.ض 2014.rar

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

السلام عليكم الاخ الكريم / loubazid بارك الله فيك واسعد كثيرا بان تكون اول مشاركة لك بالمنتدي في موضوع لي تقبل خالص تحياتي

السلام عليكم أخي العزيز تفضل هذا هو الكود Sub add_new_sheet() d = DateValue(ActiveSheet.Name) + 1 new_name = Format(d, "dd-mm-yyyy") ActiveSheet.Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = new_name [c8] = "'" & new_name For Each ce In [G25:V36] If ce.HasFormula = True Then GoTo 10 ce.ClearContents 10 Next End Sub وهذا الملف مرفق وبه الكود يعمل بالزر الأحمر لاحظ أنني أضفت الحلقة التالية بنهاية الكود For Each ce In [G25:V36] If ce.HasFormula = True Then GoTo 10 ce.ClearContents 10 Next وهي تقوم بمسح البيانات (وليس المعادلات) الموجودة بالنطاق G25:V36 rapport journalier GO Préfas.rar

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

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

أقم لكم اليوم كود لنسخ موديول Module من ملف اكسيل لآخر هذا هو الكود Const File1 As String = "book1" Const File2 As String = "book2" Const Old_mod As String = "Module1" Const New_mod As String = "ragab" Sub CopyModule() Dim Tmp As String On Error Resume Next F_path = ActiveWorkbook.Path Tmp = F_path & "\" & "TempFile.bas" Workbooks(File1).VBProject.VBComponents(Old_mod).Export Filename:=Tmp Workbooks.Open F_path & "\" & File2 Workbooks(File2).VBProject.VBComponents.Import(Filename:=Tmp).Name = New_mod Kill Tmp End Sub الجزء العلوى من الكود نحدد فيه بيانات الملفين والموديولات كالآتى السطر الأول Const File1 As String = "book1" نحدد فيه اسم الملف الاول السطر الثانى Const File2 As String = "book2" نحدد فيه اسم الملف الثانى السطر الثالث Const Old_mod As String = "Module1" نحدد فيه اسم الموديول المراد نسخه السطر الرابع Const New_mod As String = "ragab" نحدد فيه الاسم الجديد للموديول فى الملف الثانى ملحوظة مهمة لكى يعمل الكود بشكل سليم لابد من الخطوتين التاليتين أولا 1- فى محرر الاكواد (VBA editor ) اذهب الى أدوات (Tools) ثم مراجع (References ) وضع علامة صح أمام المرجع Microsoft Visual Basic For Application Extensibility كما فى الصورة 2- فى واجهة الاكسل العادية من قائمة أدوات (Tools ) اختار ماكرو (macro ) ثم الأمان ( security) ثم من التبويب ( trusted publishers) ضع علامة صح أمام عبارة ( Trust access to visual Basic project ) كما فى الصورة نسخ موديول من ملف لآخر.rar

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