بحث مخصص من جوجل فى أوفيسنا
![]()
Custom Search
|
نجوم المشاركات
Popular Content
Showing content with the highest reputation on 09/12/20 in all areas
-
السلام عليكم 🙂 اخي@Khalf نتشرف بوجود اسمك مع قائمة خبراء الاكسس 🙂 يسألني البعض عن معيار اختيار الخبير ، وجوابي وبكل بساطة ، ان يشارك بالاجابة ، وكون اجاباته موفقه 🙂 جعفر3 points
-
اخى الكريم لا يحدث معى اى مشكلة وشوف بنفسك -يمكنك استخدام هذا الكود بناءاً على مسميات الصفحات لديك Sub test() Sheets("casher").Range("A3:D18").Copy Sheets("sales").Range("A14:d25").PasteSpecial _ Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone End Sub 13.xlsm3 points
-
السلام عليكم ورحمة الله وبركاته سـبحـان الله وبحمده*عدد خلقه*ورضاء نفسه*وزنة عرشه*ومداد كلماته جزاكم الله خيرا وجعل كل ايامكم رضا(وبارك الله فى مبرمجه)تقويم الصيام(معدل).xls والسلام عليكم ورحمة الله وبركاته3 points
-
3 points
-
2 points
-
كان عليك استخدام خاصية البحث بالمنتدى للوصول لكيفية تحويل ملف الإكسيل الى ملف تنفيذى تحويل ملف الاكسيل الى تنفيذى ثم تنصيب الملف بالصور وهذا ايضاً شرح تحويل ملف الاكسل الى exe ثم تغيير الايقونة ثم Setup (شوقي ربيع)2 points
-
السلام عليكم تفضل الملف لعل فيه ما تريد... احتساب الحضور و الانصراف2.xlsx2 points
-
2 points
-
2 points
-
وعليكم السلام-تفضل وعليك فقط بدراسة المعادلة الأساسية الموجودة بالعمود K وهو عمود رقم الكود ومهمتها الأساسية جلب رقم الكود دون تكرار وستجد ان باقى المعادلات معتمدة على هذه المعادلة -بارك الله فيك =IFERROR(INDEX($B$2:$B$600,MATCH(0,INDEX(COUNTIF($K$1:K1,$B$2:$B$600),),0)),"") الفاتورة.xlsx2 points
-
وعليكم السلام-من فضلك شوف هذا الفيديو https://www.youtube.com/watch?v=5FglGNvVcyY2 points
-
الف الف مبروك للأخ @Khalf تستحق هذه الترقية زادك الله علما وخلقا ونفع الله بك وبعلمك1 point
-
1 point
-
1 point
-
تم معالجة الامر بالنسبة لزر "حفظ " والباقي فيما بعد لضيق الوقت 1- تم تحسين مظهر اليوزر من حيث التنسيق 2- لا تتم عملية الترحيل الى الشيت الا اذا كانت كل التكست بوكسات (الرقم القومى / رقم الكود/ الاسم / المصروف) غير فارغة نظهر رسالة بعدد التكست بوكسات الفارغة 3- الكود لا يسمح بتكرار البيانات (اي بيانات مكررة يقوم الكود بحذفها على الفور 4- يمكن التنقل والعمل داخل الشيت حتى ولو كان اليوزر ظاهراً 5- جربي وهاتي رأيك YARA_uSER.xlsm1 point
-
1 point
-
السلام عليكم ورحمة الله تفضلي الملف المرفق لعل فيه ما تريدين... بن علية حاجي التقرير.rar1 point
-
1 point
-
جزاكم الله كل خير، متألقون دائماً أهل هذا المنتدى، متألق أستاذ جعفر، بعلمكم، بأسلوبكم الراقي، شكراً لرقة عبارتك ولطفك الجم، وآمل أن أكون عند حسن الظن.1 point
-
كيف ستفعل بهذه العشرين أو أكثر! هل ستلجأ إلى فتح التصميم وإعادة رصف الصور في كل مرة؟! أقترح عليك استخدام النموذج المستمر؛ لتتخلص من العرض والطول الزائدين، خاصة وأنت ستخدم نموذج الأصناف داخل نموذج آخر..1 point
-
1 point
-
لكنك خالفت هذه النقطة! ولجأت إلى عنوان النافذة لتستخدمه كمحدد! (باراميتر).. بعد فحصك لعنوان النافذة المطابق لطلبك استخدمت المجمع (Dictionary) لتخزين مقبض النافذة المطابق لشرطك، وكان يالإمكان استخدام الدالة ShowWindow مباشرة مع ذلك المقبض، والاسنغناء كليا عن المجمع.. في كل الأحوال أنت بحاجة إلى محدد؛ سواءً استخدمت الطبقة أو العنوان كمحدد! وإلا سوف تقوم الدالة ShowWindow بتطبيق الإجراء على جميع النوافذ..1 point
-
1 point
-
ملاحظة فاتتني، يمكن أن تربط الكود بمربع سرد وحوار، وهناك عدة خيارات للتعامل مع نوافذ البرامج، وأهم ما في الكود أنك لن تحتاج إلى الحصول على اسم الكلاس الخاص بالتطبيق المراد التحكم بنافذته، والذي يطلب كباراميتر لبعض الإي بي آي.1 point
-
السلام عليكم ورحمة الله وبركاته الحمد لله تم اكتشاف الخطأ بالكود هو عند الخروج من الدوار فور قبل نتيجة الدالة الصورة توضح المقال الخطأ هنا 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 ربما هذا الدالة الطويلة لن يستفيد منها أحد!! ولكن تلك المعلومة البسيطة هامة جدا حتي لا يقع أحد في مثل ما وقعت به (أعلم أن جميعكم أساتذتي لا يخفي عليكم مثل هذا ولكن للتوثيق ولربما مر من هنا مبتدأ مثلي فتفده تلك المعلومة). (أن الكود يسير من الأعلي الي الأسفل فمن الواجب أن ننتبه أن لا ننهي الكود قبل اتمام احتساب النتائج! كما هو موضح بالأعلي) وجزاكم الله خيرا جميعا1 point
-
عفرا فين انت من هذه الإجابة الممتازة ؟!!! أين الضغط على الإعــــــجــــــاب ؟!!!💙1 point
-
1 point
-
جرب هذا الملف قبل تنفيذ الماكرو شاهد رؤوس الجداول في الصفحتين الثانية والثالثة و بعد تنفيذه ترى كيف اصبحت اصغط على الزر Run 1-يتم ترتيب البيانات حسب الجدول في الصفجة الأولى 2-يدرج الجدول القديم في الخلية I3 Échelles aléatoires.xlsm1 point
-
السلام عليكم نصيحة اخي ابتعد عن الديكورات والالوان لانه سيجعل برنامجك تقيلا وركز على الجوهر قبل المظهر ولا باس بالالوان الخفيفة البسيطة هذا اولا. ثانيا وجدت فورم بالمنتدى خزنته منذ مدة واعتقد انه للسيد العيدروس جزاه الله خيرا فيه طلبك بالتمام والكمال ان شاء الله اذا كان الفورم يحقق طلبك الغي جميع اوامر الطباعة بالصفحات لان الفورم يقوم بعملها الزرين في صفحة الطباعة المحددة هي اوامر الطباعة طبعا لم اجرب الطباعة لانه ليس لذي طابعة وانا نقلت الفورم الى ملفك فقط واي خطأ بالنتائج فليس بمقدوري اصلاحه وستجد المعونة من الخبراء ان شاء الله برنامج طباعة الشهايد.xlsb1 point
-
1 point
-
السلام عليكم تم عمل المطلوب بمعية عمود مساعد (في Sheet2) والمعادلات في الملف المرفق.... بن علية حاجي عدد المسددين اليوم.xls1 point
-
موضوع شيق والشكر الى الاستاذ أبو إبراهيم الغامدي للتوضيح الرائع1 point
-
الأسياب في عدم الحصول على النتائج الصحيحة (الجدول يجب ان يجتوي معلومات فقط دون وجود خلايا مدمجة أو اشياء غريبة داخله) 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 Sub1 point
-
1 point
-
الشرح عادي وبسيط لو عايز بعد شهر تعدي خلية الشهر المظلل بالاصفر وتعمل المعادلة بعد الشهر الاول ولو شهرين تعدي خليتين اي شهرين وتعمل المعادلة بعدهم ولو بعد 90 يوم اي 3 شهور تعدي 3 خلايا وتعمل المعادلة بعدهم لو مش عارف ابعتلي الملف اظبتهولك كله1 point
-
وعليكم السلام-يمكنك استخدام هذه المعادلة لجمع الأرقام الموجبة =SUMPRODUCT(--($A$2:$A$1500>-1),$A$2:$A$1500) وهذه المعادلة لجمع الأرقام السالبة =-SUMPRODUCT(--($A$2:$A$1500<0),$A$2:$A$1500) جمع المبلغ بالسالب1.xlsx1 point
-
1 point
-
وعليكم السلام .. تم تحرير عمود الكمية 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.xlsm1 point
-
وعليكم السلام-لا يوجد دالة اصلاً بهذا الإسم .... الدالة اسمها DATEDIF وليس Dateif1 point
-
بارك الله فيك استاذ محمد ولإثراء الحل -يمكنك استخدام هذه الدالة المعرفة 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.xls1 point
-
تفضل اخى الكريم اتبع الخطوات الموجودة بهذا الرابط للوصول لحل المشكلة ولكم جزيل الشكر 6 Working Solutions to Fix “Microsoft Excel has Stopped Working” Error Message وهذا فيديو ايضاً للشرح1 point
-
1 point
-
وعليكم السلام -المنتدى تعليمى من المقام الأول وليس لتقديم البرامج الجاهزة... فهل تتخيل ان يقوم احد بتصميم برنامج كامل لك على الجاهز ؟!! عليك برفع ملف مدعوم بشرح كافى عن المطلوب مع وضع البيانات المطلوب وان شاء الله ستلقى المساعدة من الأساتذة !!!!!! أو لو قمت بإستخدام خاصية البحث بالمنتدى , كما نبهنا كثيراً لوجدت برنامج أكثر من ممتاز وبه أكثر مما تطلب لأستاذنا الكبير ضاحى الغريب له منا كل المحبة والإحترام برنامج إدارة الإيجارات - الاصدار الأول - ضاحي الغريب وهنا برنامج اخر باللغة العربية واللغة الإنجليزية ... بمقابل مادى أفضل برنامج عقارات لإدارة كافة الأنشطة العقارية متوفر باللغة العربية والإنجليزية فممنوع من قبل ادارة المنتدى رفع اى شيئ على الخاص1 point
-
وعليكم السلام-تفضل رابط التحميل : https://www.up-4ever.org/0yc50q0spzhx سريال التنشيط : KGFVY-7733B-8WCK9-KTG64-BC7D8 باسورد فك الضغط www.mrelhlawany.com1 point
-
وعليكم السلام- اخى الكريم من فضلك فقد نبهنا على هذا الأمر كثيراً ان لا تقوم برفع اى مشاركة الا بعد استخدام خاصية البحث بالمنتدى ولم تجد المطلوب ... ولكن طلبك تكرر كثيراً بالمنتدى -تفضل مشكلة في اللغة العربية1 point
-
اجعل المعادلة هكذا حتى تستطيع قراءة شهر 8 مثلاً =SUMPRODUCT((Sheet1!C2:C45<>"الغاء")*(Sheet1!F2:F45<>"محصل")*(Sheet1!D2:D45="معارض - Bmw")*(Sheet1!E2:E45)*(Sheet1!G2:G45=MONTH(S1))) Sum_pro1.xlsx1 point
-
وعليكم السلام-يمكنك استخدام هذه المعادلة ابتداءاً من الخلية M5 سحباً للأسفل =INDEX($E5:$J5,MATCH($K5,$E$4:$J$4,0))/$L5 الاداري1.xls1 point
-
1 point
-
جرب هذا الكود 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 Sub1 point
-
السلام عليكم ورحمة الله وبركاته بارك الله فيكم اخواني الكرام لدي قاعدة بيانات موجودة في ورقة اكسل فيها شركات متعددة وتواريخ مختلفة كما الشكل التالي من ورقة اخرى اريد معرفة اعلى سعر في العمود ( اعلى ) لشركة اسمنت العربية بين تاريخ 01-03-2013 و 01-04-2013 هل توجد معادلة او معادلات لايجاد المطلوب الملف في المرفقات ايجاد اعلى سعر بين تاريخين لشركة معينة.rar1 point