اذهب الي المحتوي
أوفيسنا

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

  1. سليم حاصبيا

    سليم حاصبيا

    أوفيسنا


    • نقاط

      3

    • Posts

      8,723


  2. Ali Mohamed Ali

    Ali Mohamed Ali

    المشرفين السابقين


    • نقاط

      2

    • Posts

      11,621


  3. احمد بدره

    احمد بدره

    الخبراء


    • نقاط

      2

    • Posts

      979


  4. عمرو_

    عمرو_

    الخبراء


    • نقاط

      1

    • Posts

      149


Popular Content

Showing content with the highest reputation on 07 أغس, 2020 in all areas

  1. مثال عما أقصده هذا الكود Sub test() Dim sh As Worksheet ActiveWindow.DisplayWorkbookTabs = True For Each sh In Sheets sh.Range("A1") = sh.Name Next ActiveWindow.DisplayWorkbookTabs = False End Sub
    2 points
  2. السلام عليكم لدي ملف رائع للعلامة عبد الله باقشير لكن يوجد اشكال بسيط في زر الطباعة حيث بعد الضغط على زر الطباعة يتم توجيه الى معاينة قبل الطباعة وفي هذه الصفحة عند عمل طباعة تظهر نافذة تطلب التسجيل بفورمةxps اريد تعطيل ظهور هذه النافذة و اجراء الطباعة بصفة عادية و شكرا للجميع فورم ادخال و تعديل مرن مع الطباعة 1.xls
    1 point
  3. اليكم رابط برنامج عواصم العالم والدول كاملا اصدار رقم 1 https://top4top.io/downloadf-1654wznys1-rar.html ارجو ان ينال اعجابكم وهو يعتبر متكامل لجميع دول العالم وعواصمها واعلامها والقارة التى تقع فيها كل دولة ومستعد لتلقى اى ملاحظات للتعديل فى الاصدار الثانى واحب هنا ان اشكر مشرفين الموقع والاستاذ محمد طاهر للتشجيع المستمر وانا لم اتعلم شيئ الا من هذا الموقع الرائع وهذا رابط اخر علــى الميديا فاير اطلس العالم 1
    1 point
  4. اخي الكريم لتحديد مسار قاعدة البيانات فقط اضف CurrentProject.Path و في مثل الرابط اعلاه للصورة يكون كالتالي Me.image1.Picture = CurrentProject.Path & "C:\Program Files/1.jpg" و اذا كانت الصورة في مجلد فقط اكتب اسم الملجد Me.image1.Picture = CurrentProject.Path & " اسم المجلد" & "C:\Program Files/1.jpg"
    1 point
  5. تم تعديل كود حذف التكرار الروضة.xlsm
    1 point
  6. عليكم السلام ورحمة الله وبركاته قم بالذهاب إلى pirnters and faxs وقم بالوقوف على طابعة قد أضفتها لجهاز الكمبيوتر واضعط كليك يمن واختر set as defult pirnter إن لم تكن هناك طابعة مضافة للجهاز قم بإضافة طابعة واتبع التعليمات السابقة
    1 point
  7. شكرا لك اخي الكريم mooon984 علي كلاماتك الطيبه. اما بالنسبه لاستفسارك يمكنك استخدام البرنامج فى شركتك. المقصود بكلامي لمن يقوموا ببيع البرنامج بدون وجه حق. تقبل تحياتي
    1 point
  8. تفضل-يمكنك استخدام هذه المعادلة =SUMIF(Sheet1!$B:$B,$B2,Sheet1!$F:$F) Total.xlsx
    1 point
  9. فيديوووو جديد جديد جديد كيفية جلب بيانات من عدة ملفات ووضعها في ملف واحد في الفيديو دة تقدر تجمع بيانات من ملف فيه اكثر من ملف اكسيل إلى ملف اكسيل واحد وكمان تقدر تعمل تقارير جميلة تبهر بيها مديرك sales-data.rar
    1 point
  10. هذا فورم للاستاذ عماد غازي عله ان يفيدك change back color button automaticaly.xlsm
    1 point
  11. ربما كان المطلوب Sub Calcul_For_Me() Dim i%, ALL% Dim Fm1$, Fm2$ Dim st$ ALL = Sheets("Total").Cells(Rows.Count, 1).End(3).Row If ALL < 5 Then Exit Sub With Range("B5:C" & ALL) .ClearContents .Interior.ColorIndex = xlNone End With For i = 5 To ALL st = "ISREF('" & Cells(i, 1) & "'!A1" & ")" If Evaluate(st) Then Fm1 = "=SUM('" & Cells(i, 1) & "'!C6:C21)" Fm2 = "=SUM('" & Cells(i, 1) & "'!D6:D21)" ' Cells(i, 2).Formula = Fm1 ' Cells(i, 3).Formula = Evaluate(Fm2) 'OR for values Only Cells(i, 2) = Evaluate(Fm1) Cells(i, 3) = Evaluate(Fm2) Else Cells(i, 2) = "I cant Find This Sheet: " & _ "" & Cells(i, 1) & "" Cells(i, 2).Interior.ColorIndex = 35 End If Next End Sub الملف مرفق tlayt kamal.xlsm
    1 point
  12. السلام عليكم مشاركه مع اخوانى واساتذتى جزاهم الله خيرا 💐 بعد بعض البحث تم العمل على المثال الاخير المرفق من الاستاذ سامى عند فتح المثال سيتم فتح ع النموذج MainMenu ستجد به زرين ريسيت وتعيين اضغط رسيت ثم انظر للاعدادت كما بالصوره ستجد انه قد تم ازاله النموذج MainMenu ووضع القيمه الافتراضيه none اختار من الكمبو اى نموذج تريد ثم اضغط الزر تعيين ثم انظر الاعدادات مره اخرى ان شاء الله يكون ما تريد MyMenu1.accdb
    1 point
  13. السلام عليكم قمت بعمل تعديل على عمود ( لحمة ) و ( فراخ ) إن شاء الله يناسبك المصنف1.xlsx
    1 point
  14. السلام عليكم نظرا للطلب على عمل نسخة احتياطية اضع بين ايديكم افضل تطبيق للنسخة الاحتياطية حيث يتيح لك اختيار مكان النسخة على فلاشة او على هارد ديسك استعملها منذ مدة ولا اعرف من قام بتصميمها سحبتها من هذا القروب الرائع ونشكر من صممها بدون ما نعرفه backupform.accdb
    1 point
  15. ehab ali926 فــــين الضــغــط على الإعجــاب لهـــذه الإجـــابـــة الممتازة ؟!!!💙
    1 point
  16. وعليكم السلام تفضل ربما يكون هذا هو المطلوب calender1.rar
    1 point
  17. هذا الكود بيمسك السجل الحالي لكي تتم DoCmd.RunCommand acCmdSelectRecord وهذا الكود بيحذف اللي حدد من قبل DoCmd.RunCommand acCmdDeleteRecord
    1 point
×
×
  • اضف...

Important Information