احمدزمان

السلام عليكم الحل للمشكلة مع شرح مفصل من استاذنا القدير ابوتامر على الرابط التالي http://www.officena.net/ib/index.php?showt...6&hl=متقدمة ارجو ان تستفيد منه

السلام عليكم الأخ يورو لاشكر على واجب بس ابي طلب بسيط دعوة طيبة منك عسى الله ان ينفعنا بها جميعا

السلام عليكم الحل قريب عندك على الرابط http://www.officena.net/ib/index.php?showtopic=23118 ارجو ان تستفيدمنه

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

السلام عليكم اخي العزيز بنفس الطريقة شاهد المرفق DiffTime_a2.rar

السلام عليكم ورحمة الله وبركاته الأخ - يورو تم استخدام الدالة sumif وعند الدخول على هذه الدالة سوف يظهر امامك 3 خانات الخانة 1 يتم وضع مرجع العمود الذي به اسماء الأغراض من الصفحة الأخرى الخانة 2 يتم وضع مرجع اسم الغرض المراد تجميع قيمته وهو العمود المجاور في نفس الصفحة الخانة 3 يتم وضع مرجع العمود الذي به مجموع قيمة الأغراض من الصفحة الأخرى اتمنى ان يكون واضح

السلام عليكم و رحمة الله اليك نفس الحل ولكن عن طريق تنسيق الخلايا DiffTime_a.rar

السلام عليكم ورحمة الله رغم ان السؤال ليس واضح ولكن اعتقد انك تريد المجموع لكل غرض في الصفحة الأخرى شاهد المرفق _____a.rar

السلام عليكم ورحمة الله استاذنا خبور خير منور الموقع بعد طول غياب حفظك الله ورعاك

اتفضل اخي 112ay.rar

السلام عليكم تم ________.rar

الأخ سمير السلام عليكم ولكن سوف يتم تعديل اسماء رئوس الأعمدة او غير ذلك sumif

شكرا اخيabuzzouz

السلام عليكم اخي الحمراني آسف على التأخير ولكن بسبب عطل النت عندي أخي abuzzouz معذرة ارفقت الملف لأنني قد عملته 12.rar

> > دعاء > > اللهم إن كان رزقي في السماء فأنزله وإن كان في الأرض فأخرجه وإن كان بعيدا فقربه وإن كان قريبا فيسره وإن كان قليلا فكثره وإن كان كثيرا فبارك لي فيه > > ************ > > الهي ادعوك دعاء من اشتدت فاقته و ضعفت قوته و قلت حيلته دعاء الغريق المضطر البائس الفقير الذي لا يجد لكشف ما هو فيه من الذنوب إلا أنت فصل على محمد و آل محمد و اكشف ما بي من ضر انك ارحم الراحمين لا اله إلا أنت سبحانك إني كنت من الظالمين > > سبحان الله و بحمده عدد خلقه و رضى نفسه و زنة عرشه ومداد كلماته > > ************ > > اللهم إني أعوذ بك من الهم والحزن، والعجز والكسل، والجبن والبخل، وقهر الدين وغلبة الرجال > > ************ > > اللهم اغننا بحَلالِك عن حرامك وبفضلك عمَّن سواك > > ************ > > اللهم و إن كانت ذنوبنا عظيمة فإنا لم نرد بها القطيعة إلى من نلتجئ إن طردتنا؟ من يقبل علينا إن أعرضت عنا > > ************ > > اللهم أحسن خاتمتنا اللهم توفنا وأنت راض عنا > > ************ > > يا من أظهر الجميل.. وستر القبيح.. يا من لا يؤاخذه بالجريرة.. يا من لا يهتك الستر.. يا عظيم العفو.. يا حسن التجاوز.. يا واسع المغفرة.. يا باسط اليدين بالرحمة.. يا باسط اليدين بالعطايا.. يا سميع كل نجوى.. يا منتهى كل شكوى.. يا كريم الصفح.. يا عظيم المن.. يا مقيل العثرات.. يا مبتديا بالنعم قبل استحقاقها..أغفر لنا وأرضى عنا وتب علينا ولا تحرمنا لذة النظر لوجهك الكريم > > ************ > > الحمد لله الذى تواضع كل شيء لعظمته، الحمد لله الذي استسلم كل شيء لقدرته، الحمد لله الذي ذل كل شيء لعزته، الحمد لله الذي خضع كل شيء لملكه > > ************ > > اللهم إني أستغفرك لكل ذنب .. خطوت إليه برجلي .. أو مددت إليه يدي .. أو تأملته ببصري .. أو أصغيت إليه بأذني .. أو نطق به لساني .. أو أتلفت فيه ما رزقتني ثم استرزقتك على عصياني فرزقتني ثم استعنت برزقك على عصيانك .. فسترته علي وسألتك الزيادة فلم تحرمني ولا تزال عائدا علي بحلمك وإحسانك .. يا أكرم الأكرمين اللهم إني أستغفرك من كل سيئة ارتكبتها في بياض النهار وسواد الليل في ملأ وخلاء وسر وعلانية .. وأنت ناظر إلي اللهم إني أستغفرك من كل فريضة أوجبتها علي في آناء الليل والنهار.. تركتها خطأ أو عمدا أونسيانا أو جهلا.. وأستغفرك من كل سنة من سنن سيد المرسلين وخاتم النبيين سيدنا محمد صلى الله عليه وسلم.. تركتها غفلة أو سهوا أو نسيانا أو تهاونا أو جهلا أو قلة مبالاة بها .. أستغفر الله العظيم .. وأتوب إليه .. مما يكره الله قولا وفعلا .. وباطنا وظاهرا > > دعاء لا تجعله يقف عندك أرسله لغيرك لعل الله ينفعه به

الف الف مبروك جعلة الله من مواليد السعادة ان شاء الله يكون فعلا مثل (عمر الفاروق) في هداه وتقواة وورعة ودينة

السلام عليكم اخ شادي تم ارسال الميل ارجو اعلامي ان تم استلامة

السلام عليكم اخي احب اكسس تم ارسال الميل - الصورة المرفقة اعلاة اوفيس 2007 شكرا و

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

السلام عليكم الكود Sub شهرجديد() On Error Resume Next ActiveSheet.Unprotect Range("C6").Select Selection.EntireColumn.Hidden = True Range("A1").Select Selection.EntireRow.Hidden = True Selection.EntireColumn.Hidden = True Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select Selection.SpecialCells(xlCellTypeVisible).Select Selection.Copy Sheets.Add Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Selection.Columns.AutoFit Selection.Rows.AutoFit Application.CutCopyMode = False Selection.Locked = True Selection.FormulaHidden = False With Selection.Validation .Delete .Add Type:=xlValidateTextLength, AlertStyle:=xlValidAlertStop, _ Operator:=xlLess, Formula1:="0" .IgnoreBlank = False .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With With ActiveWindow .DisplayGridlines = False .DisplayHeadings = False End With Range("A5").Select Selection.ColumnWidth = 3 Range("B5,K5:Q5").Select Selection.ColumnWidth = 4 Range("C5").Select ActiveWindow.FreezePanes = True Range("C5,E5:I5").Select Selection.ColumnWidth = 5 Range("D5").Select Selection.ColumnWidth = 19 Range("J5").Select Range("J5,R5").Select Selection.ColumnWidth = 10 Range("A2").Select Selection.ClearContents Columns("D:D").Select Selection.Rows.AutoFit With ActiveSheet.PageSetup .PrintTitleRows = "$2:$4" .PrintTitleColumns = "" End With ActiveSheet.PageSetup.PrintArea = "" With ActiveSheet.PageSetup .LeftHeader = "حرر في تاريخ &D" .CenterHeader = "مسير الرواتب لفرع/" .RightHeader = "&""Courier New,غامق""&11 " .LeftFooter = "المراجع:" & Chr(10) & "Name" & Chr(10) & "sign" .CenterFooter = _ "&""Arial,غامق""&10صفحة &P من &N&""Arial,عادي""&12" & Chr(10) & "&""Courier New,عادي""اعتماد مدير شئون الموظفين" & Chr(10) & "الاسم:" & Chr(10) & "التوقيع:" .RightFooter = "&8&Z&F&12" & Chr(10) & "اعتماد رئيس قسم الحسابات" & Chr(10) & "الاسم:" & Chr(10) & "التوقيع" .LeftMargin = Application.InchesToPoints(0.47) .RightMargin = Application.InchesToPoints(0.48) .TopMargin = Application.InchesToPoints(0.6) .BottomMargin = Application.InchesToPoints(1#) .HeaderMargin = Application.InchesToPoints(0.4) .FooterMargin = Application.InchesToPoints(0.4) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .CenterHorizontally = False .CenterVertically = False .Orientation = xlLandscape .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = True .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = False .PrintErrors = xlPrintErrorsDisplayed End With Range("a4:r5").Select ActiveWindow.Zoom = True Range("A4:D5").Select Selection.AutoFilter Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select Selection.Sort Key1:=Range("B5"), Order1:=xlAscending, Key2:=Range("C5") _ , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _ :=xlSortNormal Range("C5").Select ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowSorting:= _ True, AllowFiltering:=True ActiveWorkbook.Save Selection.AutoFilter Field:=3, Criteria1:="<>000", Operator:=xlAnd ActiveWindow.SelectedSheets.PrintPreview End Sub وبالنسبة لموضوع ادراج الماكرو يوجد الكثير من المشاركات التي شرح بها الماكرو و بالصور ارجو الإطلاع عليها

السلام عليكم اخي شادي فضلا ضع ايميلك وسوف نحاول ارسال الملفات لك

الأخ كمال جرب المرفقات جرب مجلد 10 واذا مانفع جرب مجلد 11 ان شاء الله يتم تصحيح المشكلة هذه المجلدات من هذا المنتدى وهي من اعداد احد الأساتذة الكبار بهذا المنتدى يارب تنتهي المشكلة عندك exelSet.rar

السلام عليكم ممكن تحاول على اوفيس 2003 انشاء الله يشتغل تمام

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

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