Jump to content
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

Leaderboard

Popular Content

Showing content with the highest reputation since 10/13/2020 in all areas

  1. المعذرة استاذ علي لم الحظ ردك لا بعد ان رفعت الملف جرب هذا الملف Facture.xlsx
    4 points
  2. وعليكم السلام لا يمكنك عمل هذا بمعادلة فلكوب العادية الا بعد عمل عمود مساعد او يمكنك استخدامها بطريقة مباشرة بعد جلب أول عمود بالفاتورة بهذه المعادلة المصفوفة (Ctrl+Shift+Enter) =IFERROR(INDEX(التفاصيل!$C$4:$C$800,SMALL(IF($F$6=التفاصيل!$A$4:$A$800,ROW($A$4:$A$800)-3),ROW(A1))),"") برنامج فواتير.xlsx
    4 points
  3. تفضل هذه المعادلة لعد أحرف الخلية =LEN(A4) أما بالنسبة لتحديد كتابة 31 حرف أو أقل فقط بالخلية فهذا يتم من خلال DataValidation كما بالصورة وتم تنفيذ ذلك على الملف بالفعل دالة عدد الاحرف.xlsx
    4 points
  4. بارك الله فيك استاذ محي ... ولإثراء الحل -يمكنك استخدام هذه المعادلة , مصفوفة (Ctrl+Shift+Enter) =SUMPRODUCT(0+(0&TRIM(MID(SUBSTITUTE(B2,"+",REPT(" ",10)),ROW($A$1:$A$10)*10-9,10)))) معادلة جمع1.xlsm
    4 points
  5. يمكنك هذا بهذه المعادلة =IF(ROWS($A$1:A1)>DAY(EOMONTH(DATE($D$2,$F$2,1),0)),"",DATE($D$2,$F$2,ROWS($A$1:A1))) 81.xlsx
    4 points
  6. تفضل اليك طلبك - وهذا شكل القائمة المنسدلة بالملف المرفق ... كما بالصورة 0001 .xlsm
    4 points
  7. بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته للتسهيل على من يقوم بعمل جداول أرقام عربي ويحاول إيجاد نوع خط يظهر الأرقام واضحة فهذا الكود يمكن عن طريقه سرد جميع الخطوط الموجودة وإظهار الأرقام باستخدام هذه الخطوط برجاء التجريب وإرسال تعليق لتحسن هذا الكود - تم تعــديــل المـــلف جميع اسماء الخطوط1.xls
    3 points
  8. وعليكم السلام استاذ حسين العربى مشاركة مع استاذ ازهر عبد العزيز ارجو ان تكون موفقة test-root.rar
    3 points
  9. اتفضل اليك تعديل اخر الان تعمل مع اربع ملفات اكسل تم تم Fayz.rar
    3 points
  10. حيث أنك لم ترقع ملف للمعاينة جرب هذا الملف Fuction_split_name.xlsm
    3 points
  11. وعليكم السلام-تفضل هذا الكود Sub PrintPDF() Call Save_PDF End Sub Function Save_PDF() As Boolean Dim Thissheet As String, ThisFile As String, PathName As String Dim SvAs As String Application.ScreenUpdating = False Thissheet = ActiveSheet.Name ThisFile = ActiveWorkbook.Name PathName = ActiveWorkbook.Path SvAs = PathName & "\" & Thissheet & ".pdf" On Error Resume Next ActiveSheet.PageSetup.PrintQuality = 600 Err.Clear On Error GoTo 0 On Error GoTo RefLibError ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=SvAs, Qua
    3 points
  12. Try this File Jack_Numeration.xlsm
    3 points
  13. السلام عليكم استشارني صديق بشأن معادلة لبيان حالة سجل المتابعة لتبيان اذا ما كان تم انجازه قبل أو في أو بعد الوقت أو ما زال قيد الانجاز كما هو موضح فى الشكل و الملف المرفق، فاعددت له المثال المرفق عن طريق المعادلات و بصرف النظر عن الحلول الأخرى الممكنة باستخدام الاكواد ، اتصور انه ربما توجد حلول افضل بالمعادلات أيضا ، لذا طرحته للفائدة و الاستفادة والاستزادة من مقترحات الأخوة الكرام =IF(D3=E3,"بحسب المخطط",IF(E3>D3,"متأخر",IF(E3="",IF(D3<TODAY(),"فات الوقت","قيد الإنجاز"),"متقدم"))) =IF(D13=E13,"On Time",IF(E13>D13,"Delayed",IF(E13="",IF(D13<TODAY(),"Overdu
    3 points
  14. وهذه مشاركة مع أخي الاستاذ . حسام Kanory.rar
    3 points
  15. السلام عليكم تفضل هذه المحاولة ارجو ان تكون طلبك Root111.rar
    3 points
  16. اذا اردت حذف يومين تحتارهما اليك هذا الملف (صفحة Salim) date_without 2 days.xlsx
    3 points
  17. تمام حبيبنا، وأحب أن أطمئنك، التشكيل الآلي ليس مستحيلا، فقد جربته بطرق بدائية، وبماكرو بسيط، وقد ضبطت به نصوصا كثيرة، وكانت النتيجة مرضية، علما بأني لست متخصصا في البرمجة، غاية ما هنالك أنني باحث في مجال العلوم الشرعية واللغوية، وقد أحتاج لبعض الخدمات المساعدة، فأسأل بعض إخواني، والحاجة -كما يقولون- أم الاختراع.
    2 points
  18. جرب هذا الماكرو لعله يفي بالغرض Sub TRANS() Dim ws1 As Worksheet Dim ws2 As Worksheet Dim lr1, lr2 Set ws1 = Sheets("جدول المبيعات") Set ws2 = Sheets("قائمة المبيعات") lr1 = ws1.Cells(Rows.Count, 1).End(xlUp).Row lr2 = ws2.Cells(Rows.Count, 2).End(xlUp).Row + 1 ws1.Range("b6:b" & lr1).Copy ws2.Range("b" & lr2) ws1.Range("c6:c" & lr1).Copy ws2.Range("e" & lr2) End Sub ترحيل.xlsm
    2 points
  19. تم اضافة هذا السطر في بداية الكود If DCount("*", "Table1") = DMax("[id]", "table1") Then MsgBox "الترقيم تلقائي في جدول1 مضبوطة وليس في اي نواقص": Exit Sub اليك الملف بعد اضافة test2.rar
    2 points
  20. السلام عليكم ورحمة الله ربما تقصد هذا الشكل التنقل بين السجلات.xlsm
    2 points
  21. بعد ادن اخي محي الدين و زيادة في اثراء الموضوع هذا الكود Option Explicit Sub test_1() Dim arr(), i%, t%, itm, col% Dim B As Worksheet Dim Tas As Worksheet Set B = Sheets("البيان") Set Tas = Sheets("التصنيفات") B.Range("D2").CurrentRegion.ClearContents Dim Rg As Range Set Rg = Tas.Range("B2:D20") For i = 1 To Rg.Cells.Count If Rg.Cells(i) <> "" Then ReDim Preserve arr(t) arr(t) = Rg.Cells(i) t = t + 1 End If Next t = 2 For i = 2 To 9 For Each itm In arr If InStr(B.Cells(i, 2), itm) Then col = Rg.Find
    2 points
  22. عفواً مع العلم (لخخخلث google غشاخخ yahoo) هماك خطأ في جدول البيان احتياطاً Sub test() With Sheet1 lr = .Cells(Rows.Count, 2).End(xlUp).Row For i = 2 To lr x = Split(.Cells(i, 2), " ") Set fin = Sheet2.Range("b2:d20").Find(x(4)) .Cells(i, 3) = Sheet2.Cells(1, fin.Column) Next End With End Sub تصنيف الوصف.xlsm
    2 points
  23. اخي الكريم طلبك واضح لكنه عدت طلبات في طلب واحد بالنسبة لموضوع قاعدة البيانات على سيرفر خارجي فالموضوع سهل جدا لكن يجب قبل البدء ان تكون جميع المسميات باللغة الانجليزية يجب ان لا يكون هنالك مسافات بين المسميات في الجدول لأنك ستواجه مشكلة في حال اردت ان تبني تقارير داخل السيرفر فلن تتعرف التقارير على المسافات و لن تعمل معك اخيرا اتبع الشرح على هذا الرابط مشاركة قواعد البيانات على الانترنت آخرا في حال واجهتك اي صعوبات فأنا في خدمتك فالموضوع بسيط للغاية ما هي الفائدة من رفع قاعدة البيانات على سيرفر خارجي تستطيع ترقية تصاميمك على الاك
    2 points
  24. عليكم السلام استاذ AboBahaa تفضل التعديل ارجو ان يكون طلبك تحديث حساب العمر2.rar
    2 points
  25. هل جربت هذا Docmd.Open Docmd.OpenReport "NameForReport", acViewReport
    2 points
  26. السلام عليكم مبدئيا هذا حل باستعمال دالة مستحدثة (تم تسميتها Reversestr)... في الملف المرفق... 1 (3).xlsm
    2 points
  27. وعليكم السلام - يمكنك استخدام هذه المعادلة =IFERROR(index($C$5:$C$51,match(0,index(countif($AF$4:af4,$C$5:$C$51),),0)),"") الحساب اليومي1.xlsx
    2 points
  28. صديقى انا وضعت لك كود (جسب طلبك) ولست مسؤولاً عن ما يضعه الغير ان كان صحيحاً ام لا
    2 points
  29. تفضل لا يمكنك العمل بهذه الدالة قبل 1900 ولكن هناك دالة معرفة وهى XDATEYEARDIF ..... وهذا هو كودها Function XDATEYEARDIF(xdate1, xdate2) As Long Dim YearDiff As Long Dim i As Long, D1 As String, D2 As String D1 = xdate1 For i = 1 To 7 D1 = Replace(D1, Format(i, "dddd"), "") D1 = Replace(D1, Format(i, "ddd"), "") Next i D2 = xdate2 For i = 1 To 7 D2 = Replace(D2, Format(i, "dddd"), "") D2 = Replace(D2, Format(i, "ddd"), "") Next i YearDiff = Year(D2) - Year(D1) If DateSerial(Year(D1), Month(D2), Day(D2)) < CDate(D1) Then YearDiff = YearDiff - 1 XDATEYEARDIF = YearDiff
    2 points
  30. ارفع الملف نفسه لا يمكن التعامل مع صورة
    2 points
  31. 2 points
  32. يسرني ويسعدني أن أضع بين يديكم برنامج التدريب الالكتروني قمت بتصميمه من الصفر أخذ مني جهد ووقت كبير . استفدت من خبراء هذا المنتدى المبارك. لي طلب أن تدعو لوالدي وجميع مرضى المسلمين والمسلمات بالشفاء العاجل. هذا المشروع أضعه صدقة جارية لكل طالب علم ، و كل مشارك في هذا المنتدى . أسأل الله أن يتقبل منا ومنكم صالح الأعمال . ولا تنسونا من دعواتكم الصادقة في ظهر الغيب . اترك البرنامج لكم لتكتشفوا أسراره 😄 اضف مرفقات موجوده ProTraining20.zip
    2 points
  33. السلام عليكم ورحمة الله وبركاته أستاذي العزيز جرب الملف الآتي عملت فيه كودين واحد لإضافة درجة القرار والأخر لحذفها في حالة قررت التراجع عن قرار الإضافة إن شاء الله يلبي طلبك اضافة درجة القرار للطلاب1.xlsm
    2 points
  34. وعليكم السلام-تم عمل المطلوب وزيادة ... فقد تم تنسيق شكل الفاتورة وعمل قواءم منسدلة لأسماء الأصناف وأسماء العملاء حتى يتم الأختيار من بينهم وان لا يوجد مجال للخطأ عند الكتابة -بارك الله فيك وأتمنى ان ينال إعجابك فاتورة_3.xlsm
    2 points
  35. بارك الله فيك استاذ محي الدين وهذا ماكرو اخر لنفس الهدف (زيادة في اثراء الموضوع) Option Explicit Sub Expand_Me() Dim i%, M%, y%, x As Byte M = 2 y = Sheets("Feuil1").Range("A1"). _ CurrentRegion.Rows.Count If y = 1 Then Exit Sub With Sheets("Feuil2") .Range("A1").CurrentRegion.ClearContents .Range("A1").Resize(, 14).Value = _ Sheets("Feuil1").Range("A1").Resize(, 14).Value For i = 2 To y x = Sheets("Feuil1").Range("G" & i) .Range("A" & M).Resize(x, 14).Value = _ Sheets("Feuil1").Range("A" & i).Re
    2 points
  36. 2 points
  37. بعد اذن الاستاذ بن علية حاجي هذا حل آخر بالكود مرفق شيت العمل.xlsm
    2 points
  38. في هذه الحالة جرب هذا الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) Range("J23").MergeArea = Application.WorksheetFunction.Sum(Application.ActiveWindow.RangeSelection) End Sub نموذج استلام اجهزة (1).xlsm
    2 points
  39. السلام عليكم جرب المرفق لعل في فيه ما تريد (تم عمل المطلوب بالمعادلات -بتحفظ في حالة تشابه الأسماء-)... مرفق شيت العمل.xlsx
    2 points
  40. أما عن القائمة، فسوف أجمع ما عندي إن شاء الله وأرسله لك. وأما عن الأقواس، فإنها إذا تم استبدالها بأمر عام بالقوسين {} مثلا، فكثيرا ما يحدث خلل في نص الآية نفسه، حيث تتغير أول كلمة في الآية إلى كلمة أخرى.
    1 point
  41. الأخ العزيز مصطفى شاهين: أسأل الله تعالى أن يستجيب دعواتك الطيبة، ولك مثل ذلك. أذكر أنك منذ مدة اقترحت أن نضيف هذه الخاصية لإضافة البيان البحثية، ويومها أخبرتني أنها متبعة في أكثر من جامعة، وأرسلت لي رابطاً لأحد مواضيع الأخ (أبو عاصم المصري)، لكن لم أفكر بشكل عملي في ذلك، حتى صادف أن وضع الأخ (أبو عاصم) أكثر من موضوع حول هذه المشكلة وتفاعلنا معه، وصادف في نفس اليوم أن أحد الأشخاص طلب مني بحثاً على خمسات، وكان من شروط فهرس الأعلام الالتزام بهذه المنهجية في الترتيب، فسبحان الله جاءت كل هذه الأمور مع بعضها، مما دفعني لإضافة هذه الخاصية، وأنا مسرور أنها لاقت إحسانك، وألف شكر لك على اقتراحاتك ا
    1 point
  42. ممکن تعطينا نسخة مصغرة منه ، علی رغم من عدم ظهور هذه المشكلة امامي من قبل لكن نريد ان نشوفه
    1 point
  43. السلام عليكم تفضل هذه المحاولة ارجو ان تكون مفيدة ملاحظة : حسب ما فهمت من طلبك فان المرفق لا يشابه طلبك لذا هذه المحاولة لطريقتين الاستعلام الاول : اذا كان الباركود كامل ونريد استخراج الوزن الاستعلام الثاني : اذا كان الموجود الوزن وجزء من الباركود ونريد الباركود الكامل Root220.rar
    1 point
  44. وعليكم السلام ورحمة الله وبركاته مرحبا اخي الكريم اجتهدت بقدر المستطاع ان يكون المطلوب مناسب لك ولكني وجدت اخطاء التي لم افهمها جيداً مثل 1 - حقل الاسم وحقل رقم الهوية / وجدت به تكرار وهذا غير صحيح = فيجب عدم تكرار البيانات 2 - قمت بتقسيم البيانات الى جدولين ( جدول المستضيف + جدول المرافقين ) تم اضافية بيانات الجدول الاول ( tblHost ) ولم استطع اضافة بيانات المرافقين في جدول ( tblEscorts ) فارجو ان يكون لديك طريقة مناسبة لادخال هذه البيانات او تفريغ الجداول والبدء من جديد Db_Camp.rar اي تعديلات جديدة بالخدمة اخي الكريم تحياتي
    1 point
  45. أخي الكريم // MKAREEM بارك الله فيك وجزاك خيرا اولا: لك دعوة كريمة بتغيير اسم الظهور الي اللغة العربية حسب سياسة منتدانا ولسهولة التعامل والمتابعة . ثانيا :- بالنسبة للملف عذرا لم انتبه ان محرر الكواد مغلق لاني بصفة عامة اتركه مفتوح المصدر للاستفادة منه وتطويعه لاي عمل اخر مرفق الملف مفتوح مع تحياتي الشيكات الأصدار الثاني.rar
    1 point


×
×
  • Create New...