Jump to content
أوفيسنا

koky_dar

01 New pie
  • Content Count

    35
  • Joined

  • Last visited

Community Reputation

1 Neutral

About koky_dar

  • Rank
    Name

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    محاسب

Recent Profile Visitors

460 profile views
  1. السلام عليكم الاخوة الكرام اريد المساعدة في بناء قاعدة خاصة بفصح عمليه انتخاب ( إقتراع ) لديا حوالي 20 مرشح وياتي الناخبين لاختيار 7 مرشيحن فقط من المرشيحن بحيث اذا اختار الناخب عدد اقل او اكثر من 7 مرشيحن يكون تصويتة باطل واذا اختار 7 مرشحين يكون صوته صحيح ويتم حساب الصوت الصحيح للمرشح في النهاية لفرز الفائزين وفي النهاية يتم حساب عدد اجمالي الاصوات التي ادلت بصوتها , وعدد الاصوات الصحيحية , وعدد الاصوات الباطلة , وعدد الاصوات الصحيحية لكل مرشح اتمني الافادة , وشكرا
  2. السلام عليكم و رحمة الله و بركاته عندي قاعدة بيانات تحتوي علي حقل " العنوان" ولكن بعض السجلات تكون العناوين بها غير كاملة يعني احيانا يكون العنوان مكتوب : دمنهور فقط او ابو حمص فقط عايز اعمل استعلام يجيبلي من حقل العنوان السجلات اللي بتحتوي علي كلمه واحدة فقط وليس عنوان كامل
  3. مشكوووووووووور بارك الله في حضرتك وزادك علماً اشتغل بشكل اكثر من رائع مساعدة اخيرة انا اسف اني بتقل علي حضرتك ازاي اخلي الخلية C1 تحتوي علي اسم الشيت ؟ في كل شيت جديد من اللي هيتعمل !
  4. بارك الله فيك أستاذنا الفاضل و زادك علماً ونفع بك أنا جربت الكود دا وشغال تمام بس محتاج تعديل من حضرتك دلوقتي انا عندي شيت وليكن بأسم ahmed فيه معادلات وتنسيقات عايز لما انفذ الكود بتاع حضرتك بدل ما ينشأ شيت جديد فارغ , ينشأ نسخة من شيت ahmed بنفس التنسيقات والمعادلات وبدون اي قيم هل ينفع عمل ذلك ؟ ولك جزيل الشكر و التقدير .
  5. السلام عليكم ورحمه الله وبركاته لدي هذا الكود الخاص بالبحث داخل عدة شيتات الكود يعمل بشكل سليم عند البحث عن أسم او نص !!ولكن عند البحث عن رقم لا يبحث فيرجي من الخبراء مراجعة الكود واخباري بالسبب ولكم جزيل الشكر Sub seach() Dim sh As Worksheet, rng As Range, x As Byte, a As Byte, d As Long, e As Long, y As Long Application.ScreenUpdating = False Set sh = Sheets("Search") sh.Range("A5:J1000").Clear Set rng = sh.Range("A2") x = Sheets.Count For a = 1 To x If Sheets(a).Name <> "Search" Then Sheets(a).Select d = Cells(1000, 1).End(xlUp).Row + 1 For y = 2 To d
  6. السلام عليكم ورحمه الله وبركاته اخواني الاعزاء هل هناك من طريقه لإدخال البيانات في الاكسل عن طريق الصوت ؟؟
  7. الف شكر يا أخي الفاضل اشتغلت تمام وقامت بالمطلوب ربنا يجزيك خير و يبارك في حضرتك تقبل تحياتي 🌷🌷
  8. السلام عليكم ورحمة الله وبركاته لو سمحتم محتاج مساعدة في التقريب لقيمه أصغر عندي خليه فيها رقم 2.6666 عايز اخلي الناتج يتقرب ل 2.50 وخليه اخري فيها رقم 1.3333 عايز اقرب الرقم ل 1.25 حربت دالة Round down بس مظبتطش معايا
  9. السلام عليكم ورحمه الله وبركاتة الأخوة الكرام خبراء الاكسيل مرفق ملف يحتوي علي صفحتين صفحة DATA وبها البيانات المراد ترحيلها وصفحة المساعد المراد ترحيل البيانات اليها كما هو موضح بالتنسيق داخلها محتاج مساعدة منكم في ترحيل بيانات من عدة اعمدة داخل صفحة الي صفحة اخري مع الالتزام بالتنسيق الجديد في الصفحة التي يتم الترحيل اليها وشاكر لكم مساعدتكم الدائمة و دعمكم لنا مساعدة في الترحيل.xlsx
  10. تسلم ايدك ويكفي مساهمتك ومساعدتك ..... وربنا يزيدك ويزدنى علم علي ايدي خبرائنا الأفاضل تسلم ايدك يا استاذنا وفعلا دا المطلوب بالظبط , ربنا يجازي حضرتك كل خير يارب علي مجهودك الرائع دا
  11. دا مثال فقط اليوم ليس له عدد صفحات محددة اخي الفاضل , فممكن يبقي صفحة وممكن صفحتين و ممكن يوصل ل 10 صفحات وهكذا والف شكر علي اهتمامك ومساعدتك
×
×
  • Create New...