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

السّلام عليكم و رحمة الله و بركاته بارك الله فيك و لك أخي و أستاذي الغالي " أبو محمّد الأمين " على المداخلات المميّزة و المعلومات التّقنيّة القيّمة التي تقدّمها لنا دومًا على طبق من ذهب جزاك الله خير الجزاء و زادها بموازين حسناتك و نفع بك الاسلام و المسلمين فائق إحتراماتي

من الأيقونة التي تفتح بها القائمة اذهب إلى ------> خيارات إكسيل -----> مركز التوثيق ------> إعدادات مركز التوثيق ------> خيارات الخصوصية ثم أزل علامة الصح عن العبارة : إزالة المعلومات الشخصية من خصائص الملف عند الحفظ

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

السلام عليكم البرنامج من خلال موقع محاسبة دوت نت رابط البرنامج http://infotechaccountants.com/forums/topic/106133-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D8%AC-%D8%A7%D8%AF%D8%A7%D8%B1%D8%A9-%D8%A7%D9%84%D8%AA%D8%AF%D9%82%D9%8A%D9%82-%D8%A7%D9%84%D8%AF%D8%A7%D8%AE%D9%84%D9%8A-%D9%86%D8%B3%D8%AE%D8%A9-%D8%AA%D8%AC%D8%B1%D9%8A%D8%A8%D9%8A%D8%A9/

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

يمكن استعمال هذه المعادلة =VLOOKUP(D1,{1,"يناير";2,"فبراير";3,"مارس";4,"ابريل";5,"مايو";6,"يونيو";7,"يوليو";8,"اغسطس"},2,0) او هذه =INDEX({"يناير";"فبراير";"مارس";"ابريل";"مايو";"يونيو";"يوليو";"اغسطس"},MATCH(D1,{1;2;3;4;5;6;7;8},0)) او هذه (صفيف) =INDEX({"يناير";"فبراير";"مارس";"ابريل";"مايو";"يونيو";"يوليو";"اغسطس"},MATCH(D1,ROW($A$1:$A$8),0)) اخيراً و ليس اخراً هذه =CHOOSE(D1,"يناير","فبراير","مارس","ابريل","مايو","يونيو","يوليو","اغسطس")

هل يمكن ان يكون هذا ما تقصده (مثال) exemple.rar

السلام عليكم اشارك بهذا التقويم الذي يجمع التقويم الميلادي والهجري وقد صممته قديما للصيام واتمنى ان ينتفع فيه باعمال ممائلة المرفق 2003 تقويم الصيام.rar تقبلوا تحياتي وشكري ===================================== تم تعديل الملاحظة التي اورده الاخ منسق مع اضافة ورقة لاظهار الشهر الحالي تقويم الصيام.rar =====================================

بسم الله ما شاء الله عليك أبو حنين ..رائع ومدهش وكل أفكارك متميزة بناءً على الفكرة الرائعة للأخ الحبيب أبو حنين يمكن أتمتة العملية بأكملها بإنشاء ورقة عمل ووضع القيم المطلوبة ووضع قيم الليست بوكس ثم الطباعة وأخيراً حذف ورقة العمل إليك الكود الغير مجرب ولكنه يحمل الفكرة كاملة إن شاء الله Sub Test() Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets.Add With ActiveSheet .Range("A4").Resize(1, 4).Value = Array("المادة", "الكمية", "سعر الوحدة", "الإجمالي") .Range("A5").Resize(ListBox1.ListCount, 4).Value = ListBox1.List .PrintOut .Delete End With Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

وجت المشكلة فين اتفضل الملف المعدل مع امكان اضافة عدد لا محدود من الشيتات تضاف الى ComBox التعديل.rar ايه الاخبار ؟ طمنى

أخي الكريم أسامة قم بالإطلاع على الرابط التالي لربما يفيدك في طلبك .. الرابط من هنا

شكرا جاري التحميل

استاذي الغالي بحار الاكسس اتمني لما تخلص لو امكن يعني تعرفني هنا عشان افتح الاميل بتاعي

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

اوكيه انت هتكون الادمن وتنشاء حسابات اخرى وتحدد الصلاحيات تمام ؟

أخي وائل أخوكم في الله = أبو محمد الأمين يعني فقط غيرت الاسم نزولا عند رغبة بعض الاخوة و وضعت صورة

شكرا لاهتمامك استاذي الغالي انا عايز اعمل برنامج خاص بمكتبه لبيع الادوات المدرسية ومعنديش خبره كتيره

صدقنى حاولت فيه من ساعة اخر مشاركة مع حضرتك لان انا فى الاصل مبرمج اكسس وخبرتى حوالى 60% فى الاكسل لوتحب اعمل لحضرتك برنامج صغير بالاكسس بعطيك افضل تقارير وسهولة فى الادخال انا فى الخدمة

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

ساحاول

السلام عليكم أستاذ ابو حامد

ارفقلى folder مضفوط به برنامج access وملف word

بارك الله فيك أخي وحبيبي أبو حنين على هذا المجهود والنشاط الرائع بالمنتدى للمزيد يمكنك مشاهدة الفيديو التالي https://www.youtube.com/watch?v=wjp7sdd4th8

الطريقة الاولى ممكن اصدر تقارير البرنامج الى ملفات word الطريقة الثانية ملفات word موجودة على الجهاز عن النقر فى البرنامج استدعى الملف من الجهاز مثال نماذج استمارات موجودة على الورد يمكن طبعها من البرنامج فاى من الطريقتين تريد

السلام عليكم وجدت بعد البحث طلبي جزيت خيرا

استفسار هل تود تصدير تقارير الى الوورد او تستدعة ملفات موجودة على الجهاز من صيغة وورد وتفتحها من الاكسس

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

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

الحمدلله تم عمل المطلوب تفضل جرب المرفق Balance1.rar

اخى الكريم ابوحماده الاخ الحبيب ياسر خليل قالها قبل كدا قويه الكود من غير مرفق زى السلطه بدون طماطم بالله عليك تقدر تاكل السلطه بدون طماطم يفضل ارفاق ملف ووضع الكود بالضغط على هذه العلامه <> والصق الكود تقبل تحياتى

دائماً ننتظر مواضيعك الشيقة والمميزة .. بارك الله فيك وجزاك الله خيراً

السّلام عليكم و رحمة الله و بركاته بارك الله فيك و لك .. جزاك الله خير الجزاء و زادك من علمه و فضله أخي الفاضل " الزباري " حسب الصّورة .. يبدو أنّ كل أفكارك أحلى من عسل البسبوسة التي على جهازك إحتراماتي

اتفضل البرنامج لو اعجبك اضغط على اعجاب مناوبات الاطباء.rar

بعد ان اخي ياسر نفس الشيء لكن بالمعادلات فرز اسماء salim.rar

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

الحمد لله الذي بنعمته تتم الصالحات هذا بفضل الله عزوجل وحده .. فقل الحمد لله رب العالمين تقبل وافر تقديري واحترامي

السلام عليكم الاخ الكريم ايمن .... لم تفسر طلبك او المقصود بالخطاء وقد يكون الحل كما بالمرفق والخطاء ; بدلاا من , Book1.rar

وعليكم السلام ورحمة الله وبركاته أخي الفاضل أبو يحيى الجبلاوي إليك الموضوع التالي فيه تفصيل للمطلوب إن شاء الله الرابط من هنا تقبل تحياتي

وعليكم السلام ورحمة الله وبركانه كيف تم الحصول على رصيد الإجازات للسنوات 2014 و 2013 ؟ الرجاء إرفاق للتوضيح والعمل عليه

استعمل هذا الكود Range("A2").Resize(ListBox1.ListCount, 4).Value = ListBox1.List

https://msdn.microsoft.com/en-us/library/office/fp179695.aspx

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

هذا الكود يسمح لك بتحديد الخلية المحمية فقط دون ان يسمح بأي اجراء عليها(حذف--- تعديل---نسخ ---الخ) و يخفي المعادلة ايضاً و لا يأخذ بالحسبان الا المعادلات ( جربه و اعطني رأيك) Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Unprotect If Target.HasFormula Then With Target .Locked = True .FormulaHidden = True End With With ActiveSheet .Protect .EnableSelection = xllockedCells End With End If End Sub

انسخ هذا الكود الى حدث الصفحة و اعطني رأيك Private Sub Worksheet_SelectionChange(ByVal Target As Range) '''''''''''''''''''''''''''''''''''''''''''''''''''''''' Application.ScreenUpdating = False If Target.HasFormula = True Then Application.DisplayFormulaBar = False ActiveSheet.Protect Application.ScreenUpdating = True Exit Sub Else Application.DisplayFormulaBar = True ActiveSheet.Unprotect End If Application.ScreenUpdating = True End Sub

السلام عليكم اخي الحبيب / عباس السماوي بارك الله فيك عند اعرف انك ومن الاكيد ( قدها وقدود ) الحمد لله انك اهتديت لما تريد تقبل خالص تحياتي واي استفسار معك دائما ان شاء الله جزاك الله خيرا

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

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

السلام عليكم اخي الحبيب / عباس السماوي بارك الله فيك بالنسبة للكود فهو كود عادي يعمل علي اي نسخة اكسيل 2003 - 2007- 2010 بدون اي مشاكل هل يظهر لديك اي نوع من انواع الخطأ عند تنفيذ الكود ... برجاء ارسال صورته في انتظار ردك

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

السلام عليكم استاذي الحبيب عبدالله المجرب هكذا بيكون حسب عمود a:f اخر خليه فيها بيانات في كلا هذه الاعمدة يقوم يتعمدها كتحديد للطباعة والله اعلم Private Sub Worksheet_Change(ByVal Target As Range) Dim thded As HPageBreak Dim rngCol As Range Dim arow As Range On Error Resume Next For Each thded In ActiveWindow.SelectedSheets.HPageBreaks thded.Delete Next thded Set rngCol = ActiveSheet.Range("a2:f" & Cells(Rows.Count, "a:f").End(xlUp)) Do Set arow = rngCol(1) Set rngCol = rngCol.ColumnDifferences(Comparison:=arow) rngCol.Select ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Range("a2").End(xlDown).Offset(2, 0) Loop Until arow = rngCol(1) End Sub