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

الكود الأول عبارة عن مسج Private Sub CommandButton1_Click() MsgBox "قنديل الصياد يرحب بكم فى منتديات أوفيسنا وكل عام وانتم بخير بمناسبة شهر رمضان المبارك أعاده الله علينا وعلى الامة الاسلامية بالخير واليمن والبركات" End Sub الكود الثانى كتابة فى خلية من خلال فورم Sub GetData() Sales = InputBox(Prompt:="Enter Target Sales") If Sales = "" Then Exit Sub Range("B2").Value = Sales End Sub مرفق ملف به التطبيق Book1.rar

السلام عليكم ارجو من حضراتكم عمل مسافات بين الكلمات .0.5سم عن طريق ماكرو لهذا الملف و هو صفحة وورد حتي يسهل علي الحفظ ان شاء الله و ارجو معرفة الطريقة ليتم تطبيقها في باقي المصحف فصل بين الكلمات.rar

أعزائى أهل الخبرة بمنتدانا العظيم أختنا العزيزة زهرة كل عام وأنت بخير أعاده الله عليكم وعلينا باليمن والبركات لدى مشكلة فى برنامج سداد فواتير بيع بالآجل قمت بتنفيذه ولكن السؤال هنا عندما يكون لدى عميل له أكثر من فاتورة مفتوحة ويريد سداد مبلغ مجمع يتم تقسيمه على الفواتير المحددة طبقاً من أقدم تاريخ فاتورة إلى الأحدث فكيف يكون الكود الذى ينفذ هذه العملية أشكر حسن تعاونكم معى Database1.rar

اللهم صل وسلم على نبينا محمد و آله و صحبه، اللهم إنا نسألك بأن لك الحمد ، لا إله إلا أنت الحنان بديع السماوات و الأرض ، ذا الجلال و الإكرام يا حي... View the full article

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

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

السلام عليكم ورحمة الله في المرفقات ملف عبارة عن قالب وورد, أود إضافة ميزة تفقيط الأرقام باللغة العربية. بحيث عندما أكتب الرقم في خانة الأرقام التي على يمين الشيك, يقوم برنامج وورد تلقائيا بكتابة الرقم باللغة العربية على اليسار ويضع قبله كلمة (فقط) وبعده جملة (ريال لاغير). المشكلة أنني ليس لدي أي خلفية عن ما يسمى بالماكرو, ولم أستطع فهمه, فهل يمكن التعديل على الملف لعمل هذه الخاصية؟ مع جزيل الشكر مقدما قالب شيك.rar

السلام عليكم لدي هذا المرفق كيف يمكنني ان اسجل اعلى واقل درجة في التقريرالمرفق حيث ان اقل درجة او اعلى درجة تسجل في مربع نص ارجو المساعدة مع الشكر الجزيل Database1.rar

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته الحمد لله على منة الإسلام والشكر له على نعمة السمع والبصر والكلام، وأستغفر الله من جميع الآثام، والصلاة والتسليم على محمد خير الأنام، وعلى آله وأصحابه الكرام. أما بعد فالنصحية من الإيمان، والتحقق بها من علامات الإيقان، وأعظم الناس جهلا من جهل نفسه وأهمل أحواله وإن واجب المسلم لا يقتصر على نفسه فحسب، دون أن تكون له صلة بالمجتمع من حوله، ودون محاولة لهداية غيره إلى الله، متى كان قادرًا على ذلك فهل انت اخي قادرا على ذلك ؟ الجواب نعم انت قادرا الي الدعوة الي دين الله ومن ذلك دعوة الخدم والمشركات بالله في بيوتنا وبيوت اقربائنا واليك الطريقة اولا الادوات 1- جهاز كمبيوتر 2- طابعة ويمكن الاستفاده من اي مكتبة بحمل الكتاب في فلاش 3 - انترنت ثانيا ماعليك الا سؤال الخادمة ماهي اللغة التي تتحدث بها او قراءة القائمة من موقع الكتاب الاسلامي islamicbook الكتاب الاسلامي وعند تحديد اللغة فالتالي اسهل فجميع كتب الموقع معتمدة من مكاتب الدعوة وتوعية الجاليات وكل كتاب يوجد به غلاف عربي في اخرة لمعرفة محتواه وهذا مثال للكتب وللعلم جميع الكتب بصيغة بي دي اف والي كل من لايملك الادوات فبمجرد مروره على هذا الموضوع دليل على استطاعته لنشره والدال على الخير له من الاجر مثل اجر فاعله لاينقص ذلك من اجورهم شيئا ولأن يهدي الله بك رجلا واحدا خيرا لك من حمر النعم فما اقربك اخي الكريم من هذه النعمه والسلام عليكم ورحمة الله وبركاته

انا مبتدئ فى الاكسل وقمت بعمل شيت للمرتبات وقا بلتنى مشكلتين وهما 1 ــ قمت بتقريب الى رقمين عشريين ولكن عند الجمع فانه يرى جميع الكسور العشرية وبذلك يكون الجمع به عدة قروش زائدة مثلا اى اننى اريده ان يرى ويجمع رقمين عشريين 2- فى خانة الضرائب والدمغة ارى ارقام سالبة مع اننى لم اضع اى بيانات واذا كان يوجد اى تعديل فاننى موافق اى وضع شكل مقبول للشيت وهو فى ورقة رقم 3 ارجو المساعدة حيث ان هذا قدم لى مساعدة قبل ذلك والشكر لجميع من يساعد الاخوة الاعضاء الملف بالمرفقات جديد.rar

السلام عليكم ورحمة الله وبركاته كيفكم مع رمضان ان شاء الله كل شي تمام الله يتقبل منا ومنكم صالح الاعمال ويجعلنا من المقبولين وهذا تصميم بسيط سويته بالبوربوينت ان شاء الله يعجبكم http://im37.gulfup.com/tFVAG.gif

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

السلام عليكم اذا اردتها بالكود Sub Macro1() Dim iNm As String Dim Lr As Long, i As Long Dim R As Integer Dim d1 As Double, d2 As Double '''''''''''''''' iNm = Range("B1").Value d1 = Range("B2").Value2 d2 = Range("B3").Value2 '''''''''''''''' Range("D6:K35").ClearContents '''''''''''''''' Application.ScreenUpdating = False With ورقة1 Lr = .Cells(.Rows.Count, "C").End(xlUp).Row For i = 6 To Lr If iNm = CStr(.Cells(i, "C")) Or iNm = CStr(.Cells(i, "D")) Then Select Case .Cells(i, "F").Value2 Case d1 To d2 R = R + 1 Cells(R + 5, "D").Value = R Cells(R + 5, "F").Resize(1, 4).Value = .Cells(i, "F").Resize(1, 4).Value If iNm = CStr(.Cells(i, "C")) Then Cells(R + 5, "J").Value = .Cells(i, "J").Value Else Cells(R + 5, "K").Value = .Cells(i, "K").Value End If End Select End If Next End With Application.ScreenUpdating = True End Sub مع الشكر لاخي جمال ودمتم في حفظ الله عمل كشف حساب بتاريخ بداية وتاريخ نهاية.rar

الاخ الكريم / وضاح شاهد المرفقات التالية مستند محمد 1.rar ALIDROOS_F.rar

السلام عليكم تفضل المرفق 2010 انشاء اوراق بالحسابات.rar

السلام عليكم الاخ الكريم / وضاح محمد بارك الله فيك ع السريع كدة ... عشان الصيام جرب الملف التالي لحفظ الملف بالتنسيق المطلوب xlsx من خلال الكود التالي Sub copy_sh() Dim F_FOL As String Application.ScreenUpdating = False F_FOL = "D:\" FName = Sheets("ورقة1").Range("B3").Text With ActiveWorkbook ActiveWorkbook.Worksheets.Copy ActiveWorkbook.SaveCopyAs Filename:=F_FOL & FName & ".xlsx" ActiveWorkbook.Close False .Activate End With Application.ScreenUpdating = True End Sub ارجو ان يفي بطلبك اخي الكريم حفظ ملف باسم خلية معينة.rar

للذين يتخوفون من استخدام excel2007 وللذين تعودوا على قوائم excel2003 يمكنك العمل على excel2007 باستخدام القوائم المستخدمة في excel2003 مرفق ملف يحتوي على كود لاظهار القوائم وكود اخر لاخفاء هذه القوائم 2003.rar