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

koky_dar

عضو جديد 01
  • Posts

    35
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل منشورات العضو koky_dar

  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 e = sh.Cells(1000, 1).End(xlUp).Row + 1 If rng = Left(Cells(y, 1), Len(rng)) Then sh.Cells(e, 1) = Sheets(a).Name sh.Cells(e, 2) = Cells(y, 3).Address sh.Cells(e, 3) = Cells(y, 1) sh.Cells(e, 4) = Cells(y, 2) sh.Cells(e, 5) = Cells(y, 3) sh.Cells(e, 6) = Cells(y, 4) sh.Cells(e, 7) = Cells(y, 5) sh.Cells(e, 8) = Cells(y, 6) sh.Cells(e, 9) = Cells(y, 7) sh.Cells(e, 10) = Cells(y, 8) End If Next End If Next Sheets("Search").Select Application.ScreenUpdating = True End Sub
  6. السلام عليكم ورحمه الله وبركاته اخواني الاعزاء هل هناك من طريقه لإدخال البيانات في الاكسل عن طريق الصوت ؟؟
  7. الف شكر يا أخي الفاضل اشتغلت تمام وقامت بالمطلوب ربنا يجزيك خير و يبارك في حضرتك تقبل تحياتي 🌷🌷
  8. السلام عليكم ورحمة الله وبركاته لو سمحتم محتاج مساعدة في التقريب لقيمه أصغر عندي خليه فيها رقم 2.6666 عايز اخلي الناتج يتقرب ل 2.50 وخليه اخري فيها رقم 1.3333 عايز اقرب الرقم ل 1.25 حربت دالة Round down بس مظبتطش معايا
  9. السلام عليكم ورحمه الله وبركاتة الأخوة الكرام خبراء الاكسيل مرفق ملف يحتوي علي صفحتين صفحة DATA وبها البيانات المراد ترحيلها وصفحة المساعد المراد ترحيل البيانات اليها كما هو موضح بالتنسيق داخلها محتاج مساعدة منكم في ترحيل بيانات من عدة اعمدة داخل صفحة الي صفحة اخري مع الالتزام بالتنسيق الجديد في الصفحة التي يتم الترحيل اليها وشاكر لكم مساعدتكم الدائمة و دعمكم لنا مساعدة في الترحيل.xlsx
  10. تسلم ايدك ويكفي مساهمتك ومساعدتك ..... وربنا يزيدك ويزدنى علم علي ايدي خبرائنا الأفاضل تسلم ايدك يا استاذنا وفعلا دا المطلوب بالظبط , ربنا يجازي حضرتك كل خير يارب علي مجهودك الرائع دا
  11. دا مثال فقط اليوم ليس له عدد صفحات محددة اخي الفاضل , فممكن يبقي صفحة وممكن صفحتين و ممكن يوصل ل 10 صفحات وهكذا والف شكر علي اهتمامك ومساعدتك
  12. السلام عليكم ورحمه الله وبركاته ,, الاخوة الأفاضل عندي ملف اكسيل يحتوي علي مجموعة من ال sheets باسماء الايام 1-4-2017 2-4-2017 3-4-2017 وهكذا الي اخر صفحة باسم 30-4-2017 وكل ورقة من دول بتحتوي علي بيانات ومعادلات واخر سطر في كل ورقة عبارة عن اجمالي تعاملات اليوم السؤال : ازاي اعمل صفحة رئيسية تحتوي علي اسماء جيمع ال sheets وقصاد كل اسم ورقة يتكتب أخر سطر فى الورقة ( اللى هو اجمالي تعاملات اليوم ) أتمني الاجابة علي استفساري ولكم جزيل الشكر
  13. السلام عليكم ورحمه الله وبركاته لدي استفسار واتمني الاجابة عليه هل من الممكن عمل تنسيق لجدول بكود ماكرو مباشرة بمعني عايز اعمل جدول من مسلسل رقم 1 لمسلسل رقم 100 بحيث اخلي المستخدم يدخل فى خليه اول قيمه ولتكن 1 و اخر قيمه ولتكن 100 , ثم يضغط على زر بناء جدول فيقوم الاكسيل بعمل جدول بشكل اتوماتيكي يبدأ من رقم 1 وينتهي ب 100 ويقوم بتنسيقة بكافة الحدود ولكم جزيل الشكر
  14. السلام عليكم ورحمه الله و بركاته ارجوا من الاخوة الكرام مساعدتي فى بناء قاعدة بيانات صحيحة حيث اني اعمل فى خزنه وطبيعه عملي ان معي 3 دفاتر يتم فيها كتابه ايصالات للشخص الذى يقوم بالسداد حيث ياتي الشخص ومعه طلب يريد دفع المبلغ المستحق عليه فاقوم بفتح الدفتر المختص بطلبه واقوم فيه بكتابه رقم ايصال السداد و الاسم و المبلغ وتاريخ اليوم الحالي الذى اعمل فيه , و لدي 3 دفاتر تحصيل اقوم بكتابه ايصالات تحصيل فيها كل يوم وهي : 1- دفتر رقم 1 ويختص بتحصيل الضرائب ( و يحتوي على رقم الايصال , واسم القائم بالسداد , و المبلغ المسدد ) 2- دفتر رقم 2 ويختص بتحصيل الرسم ( و يحتوي على رقم الايصال , واسم القائم بالسداد , و المبلغ المسدد ) 3- دفتر رقم 3 ويختص بتحصيل الطلبات ( و يحتوي على رقم الايصال , واسم القائم بالسداد , و المبلغ المسدد ) المطلوب بناء قاعدة بيانات بحيث يتم فيها تسجيل اليوم على مدار الشهر والسنه , وادخال بيانات التحصيل الخاصة بكل دفتر حيث خلال اليوم اقوم بتحصيل ما يقارب من 500 ايصال مقسمة الى ايصالات ضرائب وايصالات رسم وايصالات طلبات اتمني تكون الصورة وصلت ليكم بشكل كامل و فى انتظار مقتراحاتكم وشكرا
  15. السلام عليكم ورحمه الله وبركاته الاخوة الاعزاء قمت بعمل قاعدة بيانات بسيطه تحتوي على جدول , و 2 يوزر فورم , وتقرير اريد ان احفظ القاعدة كملف نهائى يفتح على الفورم الرئيسى كبرنامج نهائى للمستخدم دون فتح خيارات الاكسس . ولكم جزيل الشكر
  16. ربنا يجازيك خير واسف على المقاطعة السابقة لاني كما اخبرتك خبرتي قليله بالاكسس واختلط علي الامر قمت بالتجربة وفعلا فتح معي الطباعة .. الف شكر ليك اخى الفاضل , ولكن لي سؤال اخير هل هذا الامر سيقوم بطابعة كافة صفحات التقرير ؟ ام اول صفحه فقط ؟
  17. اسف انا خبرتى قليله فى الاكسيس بس مش مفروض الي حضرتك كتبته دا لفتح التقرير ؟ انا عايز اقوم بعمل زر لطباعة التقرير بعد فتحه
  18. السلام عليكم ورحمه اللي وبركاته برجاء الافادة فى طريقة عمل زر لطباعة التقرير فى اكسيس 2007 ولكم جزيل الشكر .
  19. تم التعديل الف شكر يا ابو حنين ربنا يجازيك خير يارب
  20. شىء اخير معلش انا اسف عايز الغى شرط اكمال كافه البيانات يعنى ممكن المحامى يبقى جايب ال 10 عرايض بتوعه رسم واحد فبالتالى باقى الخانات ليس لها حاجة انى اكتب فيها 0 فممكن نخلى شطر الاملاء يتوقف عند اول خانه للرسم ؟ بمعنى اكتب : اسم المحامى 10 عرائض 10 ضريبة تصنيف الرسم يبقى عدد 10 * رسم 45 ويحفظ على كدا دون الحاجة لاكمال باقى الخانات وشكرا
×
×
  • اضف...

Important Information