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

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله لطالما أردت طرح هذا الموضوع الهام جداً والشيق جداً والمفيد جداً .. ولكن يبدو أن الزهايمر يلعب دوراً هاماً في حياتي .. عموماً ذكرني عنوان موضوع رأيته الآن بهذا الموضوع ، فأحببت أن أشارككم هذا الكود الرائع والمتميز .. الكود يقوم بالمهام التالية .. في بداية تنفيذ الكود يمكنك الكود من اختيار الطابعة المطلوب الطباعة عليها .. من خلال الصور سأقوم بالطباعة على ملف بامتداد XPS .. حتى لا أهدر أوراقي (سامحوني .. دا مش بخل دا حرص مش كدا ولا ايه يا فلاحجي (لأنه أكتر واحد هيفهمني )) حسناً رأيتم الصورة معبرة ..أليست كذلك؟ نقرنا على زر الأمر PRINT ...فظهرت نافذة تتيح لنا إمكانية اختيار الطابعة ثم نضغط أوك لننتقل للنافذة التالية في النافذة التالية يتيح الكود كتابة عدد النسخ المراد طباعتها وبشكل افتراضي يكون عدد النسخ نسخة واحدة فقط ، ويمكن تغيير عدد النسخ المطلوبة هنا تظهر لك أوراق العمل الموجودة في المصنف عدا ورقة العمل النشطة المسماة Data ، يمكنك الكود من اختيار أوراق العمل المراد طباعتها بكل سهولة ثم أخيراً يتم تنفيذ أمر الطباعة ..في المثال الموضح سأقوم بتنفيذ أمر الطباعة لملف بامتداد XPS .. حيث يتم كتابة اسم الملف وتحديد المسار الذي سيحفظ فيه الملف ثم اوك قمت بتحديد مسار حفظ الملف بامتداد XPS على سطح المكتب وها هو الملف وقد طبع ورقتي العمل Sheet1 و Sheet3 فقط ، لأنني حددتهما من خلال النوافذ التي تظهر وأخيراً إليكم الكود الرائع الذي يقوم بكل هذه المهام الرائعة Sub PrintSelectedSheets() Dim I As Integer Dim TopPos As Integer Dim SheetCount As Integer Dim PrintDlg As DialogSheet Dim CurrentSheet As Worksheet Dim Cb As CheckBox Dim Numcop As Long Dim Cnt As Integer Dim X As String Application.Dialogs(xlDialogPrinterSetup).Show Application.ScreenUpdating = False If ActiveWorkbook.ProtectStructure Then MsgBox "المصنف محمي", vbCritical Exit Sub End If Set CurrentSheet = ActiveSheet X = CurrentSheet.Name Set PrintDlg = ActiveWorkbook.DialogSheets.Add SheetCount = 0 TopPos = 40 For I = 1 To ActiveWorkbook.Worksheets.Count Set CurrentSheet = ActiveWorkbook.Worksheets(I) If Application.CountA(CurrentSheet.Cells) <> 0 And CurrentSheet.Visible Then SheetCount = SheetCount + 1 PrintDlg.CheckBoxes.Add 78, TopPos, 150, 16.5 PrintDlg.CheckBoxes(SheetCount).Text = CurrentSheet.Name TopPos = TopPos + 13 End If Next I PrintDlg.Buttons.Left = 240 With PrintDlg.DialogFrame .Height = Application.Max(68, PrintDlg.DialogFrame.Top + TopPos - 34) .Width = 230 .Caption = "اختر أوراق العمل المراد طباعتها" End With PrintDlg.Buttons("Button 2").BringToFront PrintDlg.Buttons("Button 3").BringToFront Numcop = Application.InputBox("أدخل عدد النسخ للطباعة:", "كم عدد النسخ?", 1, Type:=1) If Numcop = 0 Then ElseIf Len(Numcop) > 0 Then End If CurrentSheet.Activate Application.ScreenUpdating = True If SheetCount <> 0 Then If PrintDlg.Show Then For Each Cb In PrintDlg.CheckBoxes If Cb.Value = xlOn Then If Cnt = 0 Then Worksheets(Cb.Caption).Select Else Worksheets(Cb.Caption).Select Replace:=False End If Cnt = Cnt + 1 End If Next Cb ActiveWindow.SelectedSheets.PrintOut copies:=Numcop End If Else MsgBox "كل أوراق العمل فارغة", 64 End If Application.DisplayAlerts = False PrintDlg.Delete Sheets(X).Select End Sub تقبلوا جميعاً وافر تقديري واحترامي حمل الملف من هنا تحميلك للملف يدعم صاحب الموضوع .. فلا تبخل بدقيقة من وقتك .. وللعلم يمكنك عدم تحميل الملف ونسخ الكود في موديول في المصنف الخاص بك ، وستجد الكود جاهز للعمل لديك بدون تحميل الملف .. دمتم على طاعة الله ...

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله اطلعت منذ قليل على مشاركة لأخونا الغالي محمد حسن المحمد ، في موضوع خواطر إكسيلية ، وفي المشاركة أدرج معادلة رائعة تقوم بمعرفة السنة الكبيسة أو العادية من خلال عدد أيام شهر فبراير .. رابط المشاركة من هنا فتذكرت أن لدي ملف به أربعة عشر طريقة بالمعادلات لمعرفة السنة الكبيسة من السنة العادية في الملف المرفق : يتم وضع السنة في الخلية D4 بهذا الشكل مثلاً 2015 أو 2016 أو اكتب السنة التي تريد معرفة ما إذا كانت سنة كبيسة أم لا .. المعادلات موجودة في النطاق D7:D20 ، وتعطي النتيجة TRUE إذا كانت السنة كبيسة ، وتعطي القيمة FALSE إذا كانت السنة عادية وليست كبيسة .. قم بالذهاب إلى إدارة الأسماء Name Manager لتجد أن هناك نطاقات مسماة ، سوف تستخدم في المعادلات .. النطاق الأول المسمى Year يشير إلى الخلية D4 التي بها السنة المراد اختبارها ثم أربعة نطاقات لأربعة شهور ...الأول ليناير بهذا الشكل : اسم النطاق jan1st والمعادلة المرتبطة بهذا الاسم في إدارة الأسماء =DATE(year,1,1) حيث يشير إلى أول يوم في شهر يناير في السنة المحددة في الخلية D4 ... ونفس الكلام لثلاثة نطاقات للشهور feb1st و mar1st و april1st وآخر النطاقات المسماة هو febDays لحساب عدد أيام شهر فبراير للسنة المحددة في الخلية D4 =DATE(year,2,ROW('leap year check'!$A$1:INDEX('leap year check'!$A$1:$A$29,DAY(EOMONTH(feb1st,0))))) وأخيراً إليكم المعادلات المستخدمة لحساب ومعرفة ما إذا كانت السنة كبيسة أم غير كبيسة =DATE(year+1,1,1)-jan1st=366 =DATE(year,2,29)<>mar1st =DAY(EOMONTH(feb1st,0))=29 =WEEKDAY(feb1st)<>WEEKDAY(mar1st) =YEAR(jan1st)=YEAR(jan1st+365) =DATE(year,2,30)=mar1st =DAY(DATE(year,3,0))=29 =WEEKDAY(jan1st)=WEEKDAY(apr1st) =SUMPRODUCT(--(WEEKDAY(DATE(year,ROW($A$2:$A$12),1))=WEEKDAY(jan1st)))=2 =WEEKDAY(feb1st+1)<>WEEKDAY(EDATE(feb1st,12)) =SUMPRODUCT(--(WEEKDAY(febDays)=WEEKDAY(feb1st)))=5 =WEEKDAY(feb1st)=WEEKDAY(EOMONTH(feb1st,0)) =WEEKDAY(feb1st)=WEEKDAY(DATE(year,10,17)) =((MOD(year,4)=0)*((MOD(year,100)<>0)+(MOD(year,400)=0))=1) أرجو أن ينال الموضوع إعجابكم وأترككم مع الملف المرفق حمل الملف من هنا كان معكم أخوكم أبو البراء من منتدى أوفيسنا تقبلوا تحياتي

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

حياك الله استاذ سعيد ... ان شاء الله تكون بخير ... اعتقد ان عنوان الموضوع يختلف عن المطلوب ... فالمطلوب رصيد مواد واردة و صادرة ... و حاولت ان احفظ نسخة بتنسيق اقدم من 2010 لكن ظهرت رسالة خطأ ... آسف ...

السلام عليكم ورحمة الله وبركاته جزاكم الله خيراً ..أخي الحبيب أبو البراء.. على هذه المعادلات الرائعة والكثيفة أمام دالة قدمتها لأستاذنا الكبير يحيى حسين ..جزاكم الله وإياه خيراً على ما تقدمونه. بارك الله...(من أعجبه شيء من أمر صاحبه فليبرّك ) ليقل بارك الله ..خير من خمسة وخميسة ..ودقوا على الخشب ..وعيني باردة ..فإنها بدع لا تمتّ بصلة إلى الدين . الحديث: حدثناه أبو العباس محمد بن يعقوب ، ثنا بحر بن نصر ، ثنا ابن وهب ، أخبرني يوسف بن طهمان ، عن محمد بن أبي أمامة بن سهل بن حنيف ، أنه سمع أباه يقول : اغتسل أبي سهل بن حنيف فنزع جبة كانت عليه يوم حنين حين هزم الله العدو ، وعامر بن ربيعة ينظر ، قال : وكان سهل رجلا أبيض حسن الخلق ، فقال له عامر بن ربيعة : ما رأيت كاليوم قط ، ونظر إليه فأعجبه حسنه حين طرح جبته ، فقال : ولا جارية في سترها بأحسن جسدا من جسد سهل بن حنيف ، فوعك سهل مكانه ، واشتد وعكه ، فأتى رسول الله صلى الله عليه وآله وسلم ، فأخبره أن سهل بن حنيف وعك ، وأنه غير رائح معك ، فأتاه رسول الله صلى الله عليه وآله وسلم ، فأخبروه بالذي كان من شأن عامر ، فقال رسول الله صلى الله عليه وآله وسلم : " علام يقتل أحدكم [ ص: 509 ] أخاه ، ألا بركت ، إن العين حق ، توضأ له " ، ثم قال رسول الله صلى الله عليه وآله وسلم : " إذا رأى أحدكم شيئا يعجبه فليبرك فإن العين حق " . " هذه الزيادات في الحديثين جميعا مما لم يخرجاه . والسلام عليكم ورحمة الله وبركاته

ربما يكون هذا ما تريد talween.rar

السلام عليكم ورحمة الله وبركاته... معلومة قرأتها وأحببت أن أتحفكم بها وهي: كيف نعرف السنة الميلادية ..كبيسة أو غير كبيسة "عادية".. =IF(DAY(EOMONTH(DATE(A1;2;1);0))=29;"سنة كبيسة";"سنة عادية") حيث نضع تاريخ السنة في الخلية A1 و المعادلة في B1 تتعلق المادلة بحساب شهر شباط 29 يوم كبيسة...28 يوم عادية تقبلوا تحياتي العطرة ...والسلام عليكم ورحمة الله وبركاته. للاطلاع على دوال أكثر ومعادلات تتعلق بمعرفة السنة الكبيسة راجع الرابط التالي:أربعة عشر معادلة لمعرفة السنة الكبيسة لأبي البراء ياسر خليل .

وعليكم السلام تفضل المعادلة من نوع الصفيف تجدها في العمود H قم بسحبها إلى الأسفل =INDIRECT("'القرآن كاملا'!D"&SUM(IF((F2='القرآن كاملا'!B$2:B$7000)*(G2='القرآن كاملا'!C$2:C$7000);ROW('القرآن كاملا'!C$2:C$7000);0))) تفضل التبويب الموضوعى لآيات القرآن1.rar

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

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

السلام عليكم ورحمة الله وبركاته... الأصمعي حفظ لنا كثيراً من اللغة العربية ...أما الأعرابي فكان أباً للشعر وأماً.... أرجو أن تستمتعوا بمشاهدة هذا الفيديو بعيداً عن الأكواد والمعادلات رجوعاً إلى الأصالة والكرم...السمن العربي ...والعسل المصفى ...و...و...إلخ.

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

اخواني الكرام هذه بعض الاكواد المنفصلة و البسيطة التي قد تهم البعض وخاصة المبتدئين مثلي وارجوا من الاخوة الكرام كل من لديه كود يضيفه وأجر الجميع على الله وتسهيلاً على اخواننا في متابعة الموضوع اردت وضع فهرس بالمشاركات التي تحتوي على الاكواد وهنا الفهرس مقسم على ثلاثة أجزاء يحتوي على هذه المشاركات وهذه الملفات من النوع (Pdf) ............................................................ الجزء الأول من فهرس الأكواد المنفصلة (ملف Pdf) الجزء الأول.rar ............................................................ الجزء الثاني من فهرس الأكواد المنفصلة (ملف Pdf) الجزء الثاني.rar ............................................................ الجزء الثالث من فهرس الأكواد المنفصلة (ملف Pdf) الجزء الثالث.rar ............................................................ و هذه النسخة الاولى من برنامج محفظة الاكواد جمعت فيها جميع اكواد هذه الحلقات من هذا الموضوع المحفظة المفرغة من تصميم الاستاذ الكبير خبور جزاه الله خيرا محفظة اكواد_النسخة1.rar أخوكم محمد يحياوي

السلام عليكم نموذج فواتير منوع (مبيعات /مشتروات/ مردوات المبيعات/مردودات المشتروات) بامكانية: الترحيل والبحث والتعديل وحذف الكل طلب للاخ تامر جمال جعلته هنا لفائدة الجمع الكريم ______________.rar

بسم الله و ما شاء الله اهداء لمن قام بكل عمل و لا ينتظر مقابله اقل ما يقال لكم "عندما تنتهى كلمات الابداع عندكم و تبدأ من جديد و تنتهى عندكم" بارك الله لكم مدونة اعمال ايقونات الماس لمنتدى اوفيسنا _ شارك بتعديلاتك فكرة المدونة هى سهولة الوصول و البحث فى المنتدى 1_دليل هاتف متطور_ الاستاذ / احمد حمور-ابوعبدالله 2_برنامج دليل الهاتف على طريقة سامسونج جالكسي_ الاستاذ / شوقى ربيع 3_برنامج تسيير شئون الموظفين_ الاستاذ / شوقى ربيع 4_برنامج تسيير الأشخاص_ الاستاذ / شوقى ربيع 5_برنامج تتبع المضفين والاليات لشركات الصغيرة_ الاستاذ / شوقى ربيع 6_برنامج نظام الوثائق لاخي واستاذنا أبوعبدالله (هجري وميلادي)_ الاستاذ / ضاحى الغريب 7_برنامج دليل الهاتف بفور مميز جدا (شوقي ربيع)_ الاستاذ / شوقى ربيع 8_نظام الإتصالات الإدارية_ الاستاذ / احمد زمان 9_دليل هاتف عصري , نسخه عربيه v2_ الاستاذ / احمد حمور-ابوعبدالله 10_فورم للبحث والتعديل والاضافة في دليل الهاتف_ بدأه الاستاذ / أبو محمد عباس 11_برنامج شئون موظفين - بسيط_ الاستاذ / وائل مراد 700 12_شئون الموظفين الاصدار الثاني - تجريبي - قوائم خبورية مميزة_ الاستاذ / ضاحى الغريب 13_برنامج متابعة حركة السيارات_ الاستاذ / ضاحى الغريب 14_نموذج مستحقات نهاية الخدمة - ضاحي الغريب_ الاستاذ / ضاحى الغريب 15_جلب صورة الموظف بدلالة الرقم القومى _ الاستاذ / سعيد بيرم 16_نموذج لشيت مرتبات العاملين بالتربية والتعليم_ الاستاذ / سعيد بيرم 17_برنامج مرتبات للقطاع الخاص_ الاستاذ / سعيد بيرم 18_دعوة عامة بمبادرة - قاعدة بيانات شئون الموظفين_ الاستاذ / ضاحى الغريب 19_عقود العمل_ الاستاذ / ضاحى الغريب 20_قاعدة بيانات شئون الخريجيين_ الاستاذ / ضاحى الغريب 21_برنامج بيانات الموظفين - الاصدار الثالث_ الاستاذ /A L M A I S T R O 22_برنامج بيانات الموظفين - الاصدار الرابع (جديد)_ الاستاذ /A L M A I S T R O 23_برنامج بيانات الموظفين(مفتوح المصدر)_ الاستاذ /A L M A I S T R O 24_برنامج نوته شخصية لحفظ ارقام هواتف والايميلات_ الاستاذ / عبدالله المجرب 25_فورم لادراج صور وحفظها والتعديل عليها مع قاعدة بيانات_ الاستاذ / عماد الحسامى 26_الاصدار الرابع : فورم اضافة وبحث وتعديل مرن مع استعراض الصور (تحكم كامل بالصورة )_ الاستاذ / عبدالله باقشير 27_دليل الهاتف الإصدار الثاني , استيراد سجلات من ملف/ نسخ قاعدة البيانات_ الاستاذ / عبدالله باقشير 28_برنامج حافظة شخصية للهواتف والإيميلات ( بإمكانية البحث السريع )_ الاستاذ / عبدالله باقشير 29_برنامج ادارة شؤون الموظفين_ الاستاذ / عبدالله باقشير 30_برنامج نظام الوثائق : إضافة - تعديل - حذف - بحث - تقارير_ الاستاذ / ابو عبدالله 31_برنامج : شئون العاملين (التربية والتعليم )_ الاستاذ / ابو الاء 32_مكتبة الموقع - برنامج بيانات الموظفين (الاصدار الثانى)_ الاستاذ /A L M A I S T R O 33_HR Version 2_ الاستاذ / احمد فضيلة 34_HR_ الاستاذ / احمد فضيلة 35_برنامج متابعة شئون الموظفين + الاقامات التى اوشكت على الانتهاء_ الاستاذ/ ahmedbakr 36_جلب الصور بواسطة المعادلات فقط_ الاستاذ / عماد الحسامى 37_برنامج السكرتير الخاص - على اكسل_ الاستاذ / احمدزمان 38_برنامج بسيط للحضور والانصراف في رمضان_ الاستاذ / ياسر الحافظ

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

تفضل اخي فورمة ادخال.rar

اخي علي بدل هذا الكود الطويل جداً الملي بالشروط و الاستنتاجات اقترح علبك هذا الكود البسيط (جربه ولن نتدم) لانه لا يفرق بين الحرف الصغير a و الحرف الكبير A Sub DoMyOrder() Dim R As Integer Application.ScreenUpdating = False Sheets("Sheet1").Range("i2:l31").ClearContents For R = 2 To 31 For t = 2 To 5 With Sheets("Sheet1") Select Case UCase(.Cells(R, t).Value) Case "A" .Cells(R, t + 7) = 90 Case "B" .Cells(R, t + 7) = 80 Case "C" .Cells(R, t + 7) = 70 Case "D" .Cells(R, t + 7) = 60 Case "E" .Cells(R, t + 7) = 50 Case Else .Cells(R, t + 7) = "" End Select End With Next Next Application.ScreenUpdating = True End Sub

شكرا اخي ياسر تم حل المشكلة كالتالي: قمت بعمل End لكل If لحالها كالتالي : Sub DoMyOrder() Dim R As Integer For R = 2 To 31 If Sheet1.Cells(R, 2) = "" Then Sheet1.Cells(R, 9) = "" ElseIf Sheet1.Cells(R, 2) = "A" Then Sheet1.Cells(R, 9) = "90" ElseIf Sheet1.Cells(R, 2) = "B" Then Sheet1.Cells(R, 9) = "80" ElseIf Sheet1.Cells(R, 2) = "C" Then Sheet1.Cells(R, 9) = "70" ElseIf Sheet1.Cells(R, 2) = "D" Then Sheet1.Cells(R, 9) = "60" ElseIf Sheet1.Cells(R, 2) = "E" Then Sheet1.Cells(R, 9) = "50" End If '================================ If Sheet1.Cells(R, 3) = "" Then Sheet1.Cells(R, 10) = "" ElseIf Sheet1.Cells(R, 3) = "A" Then Sheet1.Cells(R, 10) = "90" ElseIf Sheet1.Cells(R, 3) = "B" Then Sheet1.Cells(R, 10) = "80" ElseIf Sheet1.Cells(R, 3) = "C" Then Sheet1.Cells(R, 10) = "70" ElseIf Sheet1.Cells(R, 3) = "D" Then Sheet1.Cells(R, 10) = "60" ElseIf Sheet1.Cells(R, 3) = "E" Then Sheet1.Cells(R, 10) = "50" End If '============================== If Sheet1.Cells(R, 4) = "" Then Sheet1.Cells(R, 11) = "" ElseIf Sheet1.Cells(R, 4) = "A" Then Sheet1.Cells(R, 11) = "90" ElseIf Sheet1.Cells(R, 4) = "B" Then Sheet1.Cells(R, 11) = "80" ElseIf Sheet1.Cells(R, 4) = "C" Then Sheet1.Cells(R, 11) = "70" ElseIf Sheet1.Cells(R, 4) = "D" Then Sheet1.Cells(R, 11) = "60" ElseIf Sheet1.Cells(R, 4) = "E" Then Sheet1.Cells(R, 11) = "50" End If '======================== If Sheet1.Cells(R, 5) = "" Then Sheet1.Cells(R, 12) = "" ElseIf Sheet1.Cells(R, 5) = "A" Then Sheet1.Cells(R, 12) = "90" ElseIf Sheet1.Cells(R, 5) = "B" Then Sheet1.Cells(R, 12) = "80" ElseIf Sheet1.Cells(R, 5) = "C" Then Sheet1.Cells(R, 12) = "70" ElseIf Sheet1.Cells(R, 5) = "D" Then Sheet1.Cells(R, 12) = "60" ElseIf Sheet1.Cells(R, 5) = "E" Then Sheet1.Cells(R, 12) = "50" End If Next End Sub بارك الله فيك لقد توصلت لها من خلال الرد الأخير الخاص بحضرتك شكرا جزيلاً

ابحث عن هذا السطر If InStr(1, .Cells(T, 2), txt, vbTextCompare) = 1 Then ********************************************************************* ثم امسحه و غيره بهذا السطر If .Cells(T, 2) Like "*" & txt & "*" Then

تفضل ... 3 نموذج.rar

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

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

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

استاذ ياسر خليل انا جربتها على سنة 1900 لم تعمل وممكن حضرتك تشوف المعادلة دي كدة بتنفع مع اي سنة على افتراض أن السنة موجودة بالخلية A3 =IF(A3<>"",IF(OR(MOD(A3,400)=0,AND(MOD(A3,4)=0,MOD(A3,100)<>0)),"سنة كبيسة","سنة بسيطة"),"")

بصراحة ملفك يعتبر من المراجع المهمة حيث أنه اشتمل على كل آيات القرآن الكريم هذا ما استطعت عمله خدمة لكتاب الله تعالى أولا وقبل كل شيء ادخل علي شيت (القرآن كاملا) ثم اكمل كتابة أسماء السور مرتبة في العمود G ثانيا : لاحظ التعليمات ثالثا : تفضل التبويب الموضوعى لآيات القرآن2.rar

اقصد ماذا تحتاج انت ؟ يوزر عادي ( يحق له الدخول على محافظته فقط ) و سوبر يوزر ( يحق له الدخول على كل المحافظات ) هل هذا ما تريده ...

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

هل يوجد يوزر لديك له صلاحية محافظتين او ثلاث ... ام لليوزر اما صلاحية محافظة واحدة او كل المحافظات ...

اولا جعلت حقل المحافظة قائمة منسدلة ( سوف ارى ان شاء الله ماذا يمكن ان اعمل بالنسبة لاعطاء يوزر كل الصلاحيات ) ثم نقلت اسم اليوزر من نموذج الادخال الى النموذج الرئيسي uuu = Me.username [Forms]![Form1]![User] = uuu ثم عند فتح نموذج كمبيوتر الذي مصدره الاستعلام كمبيوتر و الذي شرطه في حقل المحافظة DLookUp("[cons]";"user";"[username]='" & [Forms]![Form1]![User] & "'")

حياكم الله اخواني المرفق لم يفتح لدي لإختلاف الإصدار ولكن حبيت اشارككم بفكرة. انا اقترح اضافة حقل تاريخ لإضافة اخر قيمة ومن خلالة نستخدم دالة Dmax لآخر تاريخ . دالة Dlast لا تحضر نتائج صحيحة دائما وتعتمد على عوامل كثيرة . بالتوفيق

تفضل ... لكن بشرط عدم حذف اي سجل ... و ادخال البيانات بالتسلسل ... المتوسط المتحرك 2.rar

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله استناداً إلى الموضوع في الرابط التالي من هنا قمت بتطوير كود بحيث يمنع التكرار في العمود الأول ، وفي نفس الوقت يسمح للنسخ لخلية واحدة فقط ، أما إذا تم النسخ لأكثر من خلية فإنه يتم التراجع عن الأمر ومسح الخلايا المنسوخة ها هو الكود يوضع في حدث ورقة العمل ، ويتم التعامل مع العمود الأول Private Sub Worksheet_Change(ByVal Target As Range) Dim Cl As Variant, Dat As Variant Dim DupCtr As Double Dim LastRow As Long If Not Application.Intersect(Target, Columns("A:A")) Is Nothing Then Application.EnableEvents = False If Target.Cells.Count > 1 Then Dat = Target.Formula For Each Cl In Dat If Cl <> "" Then MsgBox "Change Only One Cell At A Time", , "Too Many Changes!" Application.Undo: Application.CutCopyMode = False GoTo Skipper End If Next Cl End If '========================================================================= LastRow = Cells(Rows.Count, "A").End(xlUp).Row DupCtr = Application.WorksheetFunction.CountIf(Range(Cells(1, "A"), Cells(LastRow, "A")), Target.Text) If DupCtr > 1 Then MsgBox "You Have Entered A Duplicate" Target.ClearContents: Target.Activate GoTo Skipper End If End If Skipper: Application.EnableEvents = True End Sub أرجو أن يكون الموضوع مفيد لكم حمل الملف من هنا تقبلوا وافر تقديري واحترامي

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

116 _ طباعة أوراق عمل محددة حسب الاختيار مع إمكانية اختيار الطابعة وعدد النسخ _ الاستاذ / ياسر خليل أبو البراء 117 _ المحافظة على مرونة جدول (لا نطاق ) في ورقة محمية فنزيد صفوفه _ الاستاذ / محمد حسن المحمد 118 _ خواطر إكسيلية _ الاستاذ / محمد حسن المحمد و مشاركات الاعضاء

تفضل المطلوب تغيير في بعض المعادلات salim.rar

ابو جنى حبي اذا صارلك مجال لاتنساني فدوة

وعليكم السلام انا اعطيتك الجواب من الناحية البرمجية ، وليس من الناحية المحاسبية ، والاخ عبد الله قدور متخصص في مجال المحاسبة وبرمجتها ، لذا انصحك ان تتبع نصائحه ، وخصوصا بسبب ملاحظاتك الاخيرة ، والتي حذرك هو منها مسبقا 1. نعم يمكن عمل هذا برمجيا ، ولكن ماذا اذا اخطأت في معلومة واردت تغييرها !! 2. لا اعرف ولكن السؤال الصحيح هو (ونرجع مرة ثانية الى نصائح الاخ عبدالله قدور) ، لماذا الترحيل الى جدول مؤقت ؟ مادامت البيانات الاصلية موجودة في جداول المشتريات والمبيعات ، فيمكنك استعمالها مباشرة من هناك ، عن طريق استعلام (مثلا) ، وبهذه الطريقة ، تتخلص من المشكلتين معا ، طبعا هذا رأي مهندس مدني هاوي البرمجة ولا يفهم شئ في المحاسبة جعفر

نعم , المعادلة تجدها في الخلية F1 وهي معادلة صفيف =IF(SUM(IF((((H3:AM3="X")*(OFFSET(H3:AM3;0;1)<>"X"))+((H3:AM3<>"X")*(OFFSET(H3:AM3;0;1)="X")));1;0))>=5;5;SUM(IF((((H3:AM3="X")*(OFFSET(H3:AM3;0;1)<>"X"))+((H3:AM3<>"X")*(OFFSET(H3:AM3;0;1)="X")));1;0))) تفضل Book14.rar

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

جرب هذا الملف نقل مجموع salim.rar

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

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

والله يا ابومصطفى لو اخبرتنا اسماء النماذج (اللي ياللون الاحمر) من اول مشاركة ، لكان الموضوع محلول من زمان ، لكنك للأسف ما رضيت ، رغم طلباتي بالنسبة الى نموذج فاتورة المبيعات ، استعملت الاستعلام الالحاقي qry_1_BillCr : . بالنسبة الى نموذج فاتورة المشتريات ، استعملت استعلام التحديث qry_2_BillSr : . ونتيجة أول سجل في النماذج: جعفر 354.برنامج الفواتيرالناجح المعدل.accdb.zip 354.برنامج الفواتيرالناجح المعدل.accdb.zip

تم معالجة الامر New salim.rar

وجزيت خيراً أخي وحبيبي حسام عيسى صقر المنتدى نورت الموضوع بردك الجميل

=INDEX(Data!$A$2:$M$17;MATCH($B5;Data!$A$2:$A$17;0);MATCH($E$3;Data!$A$2:$M$2;0)) السلام عليكم ورحمة الله اكتب هذه المعادلة فى الخلية E5 ثم اسحب نزولا

تفضل اخى الكريم جرب المعادله بهذا الشكل ( على حسب ما فهمت من طلبك =IF(AND(C6>=50;C6<=60);"Mahmoud";"") تقبل تحياتى

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

السلام عليكم دالة الصفيف kh_MatchArray لارجاع ارقام صفوف سجلات حسب شروط الوسائط: عبارة عن صفيف يحقق (شرط / شروط) في عمود معين من قاعدة البيانات ادخل الشروط التي تريدها من 1 الى 30 الاستخدام : كشوفات الحساب التقارير بانواعها الميزة : لا ترهق الجهاز في المثال المرفق استخدمتها لقاعدة بيانات عدد سجلاتها اكثر من 15000 سجل والسبب انها معادلة وحدة نتائجها صفيف لهذا توضع على اكثر من خلية ولكن مكان تعديلها الخلية الاولى لوضعها مع تحديد باقي الصفوف الموضوعة فيها . اضغط F2 لتحرير الصيغة ثم اضغط CTRL+SHIFT+ENTER اذا حاولت تعدل اي خلية موضوعه فيها الدالة (جزء من صفيف الدالة) تظهر لك رسالة ( لا يمكنك تعديل جزء من صفيف) استخدم حينها ESC لانهاء تحرير الدالة . طبعا نتائجها ارقام الصفوف التي تحقق الشرط اعلى نطاق الدالة والاخرى رقم صفر بمعنى لا يحقق الشرط وهي اسفل النطاق تضعها في عمود يمين او يسار الكشف المتبقي علينا نستخدم دالة INDEX لاظهار الاعمدة الت نريدها من قاعدة البيانات كود الدالة: Option Explicit '============================================= '============================================= Function kh_MatchArray(ParamArray Array1() As Variant) Dim Ar() As Long Dim x As Integer, xx As Integer, xxx As Integer Dim iCont As Long, i As Long, ii As Long xx = UBound(Array1) If xx = -1 Then GoTo kh_Err iCont = UBound(Array1(0), 1) ReDim Ar(1 To iCont, 1 To 1) For i = 1 To iCont xxx = 1 For x = 0 To xx xxx = xxx * IIf(CBool(Array1(x)(i, 1)), 1, 0) Next If xxx Then ii = ii + 1: Ar(ii, 1) = i Next kh_MatchArray = Ar kh_Err: Erase Ar End Function المرفق 2003-2007 kh_MatchArray.rar