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

السلام عليكم 🙂 اخي@Khalf نتشرف بوجود اسمك مع قائمة خبراء الاكسس 🙂 يسألني البعض عن معيار اختيار الخبير ، وجوابي وبكل بساطة ، ان يشارك بالاجابة ، وكون اجاباته موفقه 🙂 جعفر

اخى الكريم لا يحدث معى اى مشكلة وشوف بنفسك -يمكنك استخدام هذا الكود بناءاً على مسميات الصفحات لديك Sub test() Sheets("casher").Range("A3:D18").Copy Sheets("sales").Range("A14:d25").PasteSpecial _ Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone End Sub 13.xlsm

السلام عليكم ورحمة الله وبركاته سـبحـان الله وبحمده*عدد خلقه*ورضاء نفسه*وزنة عرشه*ومداد كلماته جزاكم الله خيرا وجعل كل ايامكم رضا(وبارك الله فى مبرمجه)تقويم الصيام(معدل).xls والسلام عليكم ورحمة الله وبركاته

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

الف مبروك اخي خلف .. تستحق وأكثر زادك الله علما ونفعا لإخوانك

كان عليك استخدام خاصية البحث بالمنتدى للوصول لكيفية تحويل ملف الإكسيل الى ملف تنفيذى تحويل ملف الاكسيل الى تنفيذى ثم تنصيب الملف بالصور وهذا ايضاً شرح تحويل ملف الاكسل الى exe ثم تغيير الايقونة ثم Setup (شوقي ربيع)

السلام عليكم تفضل الملف لعل فيه ما تريد... احتساب الحضور و الانصراف2.xlsx

وعليكم السلام ورحمة الله وبركاته اليك حل المشكلة بطريقتين 1 - الكود Private Sub تفصيل_Print(Cancel As Integer, PrintCount As Integer) If Me.num1.Value = Me.num2.Value Then Me.num1.BackColor = RGB(255, 0, 0) End If End Sub 2 - التنسيق الشرطي تحياتي sole2.rar

للأسف جدا صعب و الأصعب عنوان الموضوع

وعليكم السلام-تفضل وعليك فقط بدراسة المعادلة الأساسية الموجودة بالعمود K وهو عمود رقم الكود ومهمتها الأساسية جلب رقم الكود دون تكرار وستجد ان باقى المعادلات معتمدة على هذه المعادلة -بارك الله فيك =IFERROR(INDEX($B$2:$B$600,MATCH(0,INDEX(COUNTIF($K$1:K1,$B$2:$B$600),),0)),"") الفاتورة.xlsx

وعليكم السلام-من فضلك شوف هذا الفيديو https://www.youtube.com/watch?v=5FglGNvVcyY

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

مبارك اخي خلف ......... اعانك الله

الف . الف . مبروك . اخي الكريم .... تستاهل

تم معالجة الامر بالنسبة لزر "حفظ " والباقي فيما بعد لضيق الوقت 1- تم تحسين مظهر اليوزر من حيث التنسيق 2- لا تتم عملية الترحيل الى الشيت الا اذا كانت كل التكست بوكسات (الرقم القومى / رقم الكود/ الاسم / المصروف) غير فارغة نظهر رسالة بعدد التكست بوكسات الفارغة 3- الكود لا يسمح بتكرار البيانات (اي بيانات مكررة يقوم الكود بحذفها على الفور 4- يمكن التنقل والعمل داخل الشيت حتى ولو كان اليوزر ظاهراً 5- جربي وهاتي رأيك YARA_uSER.xlsm

أحسن الله إليكم، شكراً على تشجيعكم أخي الفاضل.

السلام عليكم ورحمة الله تفضلي الملف المرفق لعل فيه ما تريدين... بن علية حاجي التقرير.rar

ما شاء الله تبارك الله تستاهل اخي اللقب ... والى الامام ...

الف مبروك للاستاذ @Khalf يستحق ذلك اجابات جميلة وموفقة واخلاق راقية

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

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

الف مبروووووك أخي Khalf

لكنك خالفت هذه النقطة! ولجأت إلى عنوان النافذة لتستخدمه كمحدد! (باراميتر).. بعد فحصك لعنوان النافذة المطابق لطلبك استخدمت المجمع (Dictionary) لتخزين مقبض النافذة المطابق لشرطك، وكان يالإمكان استخدام الدالة ShowWindow مباشرة مع ذلك المقبض، والاسنغناء كليا عن المجمع.. في كل الأحوال أنت بحاجة إلى محدد؛ سواءً استخدمت الطبقة أو العنوان كمحدد! وإلا سوف تقوم الدالة ShowWindow بتطبيق الإجراء على جميع النوافذ..

وعليكم السلام ورحمة الله وبركاتة test.accdb

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

السلام عليكم ورحمة الله وبركاته الحمد لله تم اكتشاف الخطأ بالكود هو عند الخروج من الدوار فور قبل نتيجة الدالة الصورة توضح المقال الخطأ هنا If AutoAmount <= (Amount + 100) And AutoAmount >= (Amount - 100) Then Exit For <<====================== here a wrong tstAmont = "AmountCalculit: " & AutoAmount & vbCrLf & _ "Until date: " & IIf(stopDat > 0, stopDat, EndDate) Else كان يجب أن يكتب هكذا If AutoAmount <= (Amount + 100) And AutoAmount >= (Amount - 100) Then tstAmont = "AmountCalculit: " & AutoAmount & vbCrLf & _ "Until date: " & IIf(stopDat > 0, stopDat, EndDate) Exit For <<=============== must write here after calculate function Else ربما هذا الدالة الطويلة لن يستفيد منها أحد!! ولكن تلك المعلومة البسيطة هامة جدا حتي لا يقع أحد في مثل ما وقعت به (أعلم أن جميعكم أساتذتي لا يخفي عليكم مثل هذا ولكن للتوثيق ولربما مر من هنا مبتدأ مثلي فتفده تلك المعلومة). (أن الكود يسير من الأعلي الي الأسفل فمن الواجب أن ننتبه أن لا ننهي الكود قبل اتمام احتساب النتائج! كما هو موضح بالأعلي) وجزاكم الله خيرا جميعا

عفرا فين انت من هذه الإجابة الممتازة ؟!!! أين الضغط على الإعــــــجــــــاب ؟!!!💙

الف شكر اساتذتي الافاضل جزاكم الله خير

جرب هذا الملف قبل تنفيذ الماكرو شاهد رؤوس الجداول في الصفحتين الثانية والثالثة و بعد تنفيذه ترى كيف اصبحت اصغط على الزر Run 1-يتم ترتيب البيانات حسب الجدول في الصفجة الأولى 2-يدرج الجدول القديم في الخلية I3 Échelles aléatoires.xlsm

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

sum(اجمالي المدين)

السلام عليكم تم عمل المطلوب بمعية عمود مساعد (في Sheet2) والمعادلات في الملف المرفق.... بن علية حاجي عدد المسددين اليوم.xls

موضوع شيق والشكر الى الاستاذ أبو إبراهيم الغامدي للتوضيح الرائع

الأسياب في عدم الحصول على النتائج الصحيحة (الجدول يجب ان يجتوي معلومات فقط دون وجود خلايا مدمجة أو اشياء غريبة داخله) 1- وجود حلايا مدمجة داحل الجدول 2 - وجود Object غريبة (Lines ) بالاضافة الى تكست بوكس (السن في أول أكتوبر) الكود المطلوب بعد ازالة الدمج Sub from_sheet_to_other1() Dim B As Worksheet Dim MH As Worksheet Dim F_rg As Range Dim Cret$, Rot%, Rod%, m% Application.ScreenUpdating = False Set B = Sheets("البيانات") Set MH = Sheets("المحولين") If B.AutoFilterMode Then _ B.Range("A7").AutoFilter Rot = MH.Cells(Rows.Count, 1).End(3).Row Rot = IIf(Rot < 8, 11, Rot + 1) Rod = B.Cells(Rows.Count, 1).End(3).Row Set F_rg = B.Range("A7:k" & Rod) Cret = "حول" F_rg.AutoFilter 11, Cret On Error Resume Next B.Range("A8:K" & Rod).SpecialCells(12).Copy _ MH.Range("A" & Rot) B.Range("A8:K" & Rod).SpecialCells(12).EntireRow.Delete On Error GoTo 0 If B.AutoFilterMode Then _ B.Range("A7").AutoFilter Application.ScreenUpdating = True End Sub

الشرح عادي وبسيط لو عايز بعد شهر تعدي خلية الشهر المظلل بالاصفر وتعمل المعادلة بعد الشهر الاول ولو شهرين تعدي خليتين اي شهرين وتعمل المعادلة بعدهم ولو بعد 90 يوم اي 3 شهور تعدي 3 خلايا وتعمل المعادلة بعدهم لو مش عارف ابعتلي الملف اظبتهولك كله

وعليكم السلام-يمكنك استخدام هذه المعادلة لجمع الأرقام الموجبة =SUMPRODUCT(--($A$2:$A$1500>-1),$A$2:$A$1500) وهذه المعادلة لجمع الأرقام السالبة =-SUMPRODUCT(--($A$2:$A$1500<0),$A$2:$A$1500) جمع المبلغ بالسالب1.xlsx

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

وعليكم السلام .. تم تحرير عمود الكمية Y وفك تقييده , كما تم دمج المعادلات طبقاً للمطلوب بهذه المعادلة بعمود القيمة =IFERROR(IF($U5="نقلة",$Z5,IF(AND(Y5>=SUMIF(data!$A$18:$A$21,$AA5,data!$B$18:$B$21),$U5="طن"),($Y5*$Z5),$Z5*SUMIF(data!$A$18:$A$21,$AA5,data!$B$18:$B$21))),"") 12346.xlsm

وعليكم السلام-لا يوجد دالة اصلاً بهذا الإسم .... الدالة اسمها DATEDIF وليس Dateif

بارك الله فيك استاذ محمد ولإثراء الحل -يمكنك استخدام هذه الدالة المعرفة Function Ahmed_Date(myid As Variant, Optional stype As Byte = 1) As Variant If myid = "" Then Ahmed_Date = "": Exit Function Dim n As Byte, governrate As Variant If stype = 1 Then Ahmed_Date = DateSerial(IIf(Left(myid, 1) = 2, 19, 20) & Mid(myid, 2, 2), Mid(myid, 4, 2), Mid(myid, 6, 2)) ElseIf stype = 2 Then governrate = Array("01-ÇáÞÇåÑÉ", "02-ÇáÅÓßäÏÑíÉ", "03-ÈæÑÓÚíÏ", "04-ÇáÓæíÓ", "11-ÏãíÇØ", "12-ÇáÏÞåáíÉ", "13-ÇáÔÑÞíÉ" _ , "14-ÇáÞáíæÈíÉ", "15-ßÝÑ ÇáÔíÎ", "16-ÇáÛÑÈíÉ", "17-ÇáãäæÝíÉ", "18-ÇáÈÍíÑÉ", "31-ÇáÈÍÑ ÇáÃÍãÑ", "32-ÇáæÇÏì ÇáÌÏíÏ" _ , "19-ÇáÅÓãÇÚíáíÉ", "21-ÇáÌíÒÉ", "22-Èäí ÓæíÝ", "23-ÇáÝíæã", "24-ÇáãäíÇ", "25-ÃÓíæØ", "34-ÔãÇá ÓíäÇÁ", "35-ÌäæÈ ÓíäÇÁ" _ , "26-ÓæåÇÌ", "27-ÞäÇ", "28-ÃÓæÇä", "29-ÇáÃÞÕÑ", "33-ãØÑæÍ", "88-ÎÇÑÌ ãÕÑ") For n = 0 To 27 If Mid(myid, 8, 2) = Left(governrate(n), 2) Then Ahmed_Date = Right(governrate(n), Len(governrate(n)) - 3) Exit For End If Next Else Ahmed_Date = IIf(Mid(myid, 13, 1) Mod 2 = 0, "ÃäËì", "ÐßÑ") End If End Function وعليك بوضع هذه المعادلة فى عمود محل الميلاد بداية من الخلية M6 =Ahmed_Date(E6,2) تنسيق 2020 عام-1.xls

تفضل اخى الكريم اتبع الخطوات الموجودة بهذا الرابط للوصول لحل المشكلة ولكم جزيل الشكر 6 Working Solutions to Fix “Microsoft Excel has Stopped Working” Error Message وهذا فيديو ايضاً للشرح

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

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

وعليكم السلام-تفضل رابط التحميل : https://www.up-4ever.org/0yc50q0spzhx سريال التنشيط : KGFVY-7733B-8WCK9-KTG64-BC7D8 باسورد فك الضغط www.mrelhlawany.com

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

اجعل المعادلة هكذا حتى تستطيع قراءة شهر 8 مثلاً =SUMPRODUCT((Sheet1!C2:C45<>"الغاء")*(Sheet1!F2:F45<>"محصل")*(Sheet1!D2:D45="معارض - Bmw")*(Sheet1!E2:E45)*(Sheet1!G2:G45=MONTH(S1))) Sum_pro1.xlsx

وعليكم السلام-يمكنك استخدام هذه المعادلة ابتداءاً من الخلية M5 سحباً للأسفل =INDEX($E5:$J5,MATCH($K5,$E$4:$J$4,0))/$L5 الاداري1.xls

بارك الله فيك استاذ عبد اللطيف وزادك الله من فضله

جرب هذا الكود Sub DeleteEmptyRowsAndColumns() x = ActiveSheet.UsedRange.Row - 1 y = ActiveSheet.UsedRange.Rows.Count LastRow = x + y Application.ScreenUpdating = False For r = LastRow To 1 Step -1 If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete Next r m = ActiveSheet.UsedRange.Column - 1 n = ActiveSheet.UsedRange.Columns.Count LastColumn = m + n For c = LastColumn To 1 Step -1 If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete Next c Application.ScreenUpdating = True End Sub

السلام عليكم ورحمة الله وبركاته بارك الله فيكم اخواني الكرام لدي قاعدة بيانات موجودة في ورقة اكسل فيها شركات متعددة وتواريخ مختلفة كما الشكل التالي من ورقة اخرى اريد معرفة اعلى سعر في العمود ( اعلى ) لشركة اسمنت العربية بين تاريخ 01-03-2013 و 01-04-2013 هل توجد معادلة او معادلات لايجاد المطلوب الملف في المرفقات ايجاد اعلى سعر بين تاريخين لشركة معينة.rar