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

أخى الكريم على حسب ما فهمت من طلبكم والمرفقات الخاصة بكم مرفق لكم الملف لعله المطلوب كشف حساب بـ sheet3 من تاريخ الى تاريخ كل ما عليك اختيار فترة التاريخ وتقبل منى وافر الاحترام والتقدير new1.rar

الاخوة اعضاء منتدى اوفيسنا نظرا لطلب الاخ والاستاذ الفاضل / دغيدى لمسابقة المعلم المبدع ( دورة الفصول التخيلية ) بالرابط http://www.officena.net/ib/index.php?showtopic=46441#entry277793 اردت ان افتح موضوع جديد لكيفية عمل بوربوينت مرتبط بملفات للاكسل والبوربوينت والاكسس والنت من خلال البوربوينت كما فى موضوع الاخ دغيدى وذلك للاستفادة من طريقة الربط بينهم واليكم الصورة التى سيتم عمل البوربوينت من البداية الى النهايه لها خطوة خطوة وبالفيديو ان شاء الله

اليك الطريقة http://www.officena.net/ib/index.php?showtopic=31250

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

الأستاذ / أحمد السلام عليكم ورحمة الله وبركاته شاهد هذا الرابط http://www.officena.net/ib/index.php?showtopic=36117&settingNewSkin=1

السلام عليكم ورحمة الله وبركاته الاستاذ // ناصر سيد استبدل المعادلة الموجودة في ورقة كشوف المناداة في الخلية c10 بهذه المعادلة ثم اسحب الى اسفل واخبرني بالنتيجة =IF(ISERROR(VLOOKUP(B10;$AA$5:$AC$503;2;0));"";VLOOKUP(B10;$AA$5:$AC$503;2;0)) كشوف مناداة الدور الثاني + ارقام الجلوس _ للصف الأول والثاني الاعدادي _معدل 15_7_2014.rar

اخى خالد قم بكتابة كود التيكست على النحو الاتى وجرب الكود ME.TEXTBOX1.VALUE اذا لم تفلح معك هذه الطريقه يرجى ارفاق ملف للعمل عليه تقبل تحياتى

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

الأستاذ الكريم / احمد غانم فقط اجعل كود الطباعه هكذا بإفتراض ان باسوورد حماية الشيت (( الحماية العادية للشيت )) (( 12345 )) Sub Printing() ActiveSheet.Unprotect Password:="12345" Rows([Row] & ":300").EntireRow.Hidden = True ActiveWindow.SelectedSheets.PrintPreview 'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False Rows("8:300").EntireRow.Hidden = False ActiveSheet.Protect Password:="12345" End Sub وتقبل منى وافر الاحترام والتقدير

السلام عليكم دالة استخراج اسم ولي الامر كاملا او الاسم الاول مفردا Option Explicit ' بسم الله الرحمن الرحيم " ' ******************** " ' دالة استخراج اسم ولي الأمر " '========================================" ' True = kh_First اذا كان " ' او اي رقم غير الصفر " ' تقوم باستخراج الاسم الاول " '========================================" ' يامكانية معالجة الاسم المركب الاول " ' تلقائياً حسب معايير معرفة لديها " ' Kh_Father_Replace في الدالة " ' ويمكنك اضافة اي معيار آخر " ' بجانب المعايير الموجودة " ' MyArray في المتغير " ' مع مراعاة وجود فراغ بداية ' او نهاية المعيار '========================================" '----------------------------------------------------------------- Function Kh_Father_Name(ByVal Name As String, Optional kh_First As Boolean) As String Dim KhString As String, Kh_Mid As String, Kh_Rep As String Dim KhMyNo As Integer On Error GoTo Err_Kh_Father_Name If IsEmpty(Name) Then GoTo Err_Kh_Father_Name KhString = Kh_Father_Replace(Trim(Name)) & " " KhMyNo = InStr(1, KhString, " ", 1) If kh_First Then Kh_Mid = Trim(Mid(KhString, 1, KhMyNo)) Else _ Kh_Mid = Trim(Mid(KhString, KhMyNo, Len(KhString))) Kh_Rep = Replace(Kh_Mid, "^", " ") Kh_Father_Name = Kh_Rep Exit Function Err_Kh_Father_Name: Kh_Father_Name = "" End Function Private Function Kh_Father_Replace(ByVal Kh_Sub As String) As String Dim MyArray, Ar Dim Sn As String, Re As String '==================================================== ' يمكنك اضافة اي معيار آخر هنا بجانب المعايير الموجودة MyArray = Array("عبد ", "أبو ", "ابو ", "آل ", " الله" _ , " الدين", " الإسلام", " الاسلام", " الحق") '==================================================== Sn = Kh_Sub For Each Ar In MyArray Re = Replace(Ar, " ", "^") Sn = Replace(Sn, Ar, Re) Next Kh_Father_Replace = Sn End Function خبور خير استخراج اسم ولي الامر كاملا او الاسم الاول مفردا.rar

الاخوة الكرام كل عام وانتم بخير لم اجد ما اهدية الا هذا البرنامج المحاسبى الرائع نظرا لحاجة الكثير اليه فقد وضعته اكراما للاخ الحبيب خبور الذى لم يتاخر لحظة لاى طلب من اخوانى الاعضاء اولا الباسوورد 400804-40809-52290-21000 ثانيا التحميل http://www.sendspace.com/file/8bhgdf http://www.sendspace.com/file/7uk628 http://www.sendspace.com/file/9u6ckm واتمنى من الجميع دعوة خالصة لله (اللهم اعز الاسلام والمسلمين اللهم انصر الاسلام والمسلمين) وكل عام وانتم بخير محمد طنطاوى