اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

زكي 1979

عضو جديد 01
  • Posts

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

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

السمعه بالموقع

0 Neutral

عن العضو زكي 1979

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    موظف
  • البلد
    الجزائر
  • الإهتمامات
    العلوم

اخر الزوار

بلوك اخر الزوار معطل ولن يظهر للاعضاء

  1. شكرا جزيلا استاذي ابو عيد على المحاولة لكن الكود لا يعمل بشكل صحيح الكود المطلوب هو منع المستخدم من فتح الملف وليس اتلافه مع الحفاظ على التنسيقات الموجودة بالكود والمتعلقة باخفاء ادوات الاكسل وترك الواجهة فقط تظهر
  2. السلام عليكم ورحمة الله وبركاته عندي ملف اكسل استخدمت فيه أكواد لاخفاء أدوات الاكسل والتولبارز و... المهم أريد اضافة دالة if على الكود بحيث بحلول تاريخ معين ينغلق هذا الملف تماما بدون اظهار اي نافذة أو اي شيء أخر يعني عند النقر على الملف لا يظهر شيء. هل هذا ممكن او مستحيل مع انني وجدت في اليوتوب طرق لم تنفع معي. الملف مرفق ......وشكرا expare file excel.xlsm
  3. شكرا جزيلا جدا جدا أخي العبقري ali mohamed ali لكن الرجاء التعديل قليلا في المعادلة بحيث يحتفظ كل عميل بقيمة المبالغ في الخانة المقابلة لاسمه . لانه الان يمسح الخلية بمجرد كتابة اسم عميل جديد وشكرا. ملف مرفق مساعدة في تعديل المعادلة.xlsm
  4. الرجاء المساعدة في ايجاد حل لهذا المطلوب: مطلوب معادلة او كود ترحيل قيمة خلية متغيرة (مبلغ مستحق الدفع) بعد البحث عن صاحبه في ورقة أخرى وسط قائمة عملاء اخرين. الملف مرفق مطلوب كود او معادلة ترحيل من ورقة لأخرى حسب شرط معين.xlsm
  5. شكرا جزيلا استاذي الكريم وبارك الله لك في اهلك جميعا. الف شكر
  6. اخي زيزو شكرا جزيلا على الكود. يعمل بشكل جميل لكن هناك مشكلة فيه. انه عند اعادة البحث يبقى البحث السابق موجود مع انه غير متطابق مع تاريخ البحث.
  7. هذا الكود اخي مخصص للبحث وفق عمود معين . العمود الذي اخترته انت فيه حروف فقط
  8. هذا الكود للبحث وأستخلاص نتائج من مجموعة شيتات لكن المشكل أنه يستخرج نتائج شيت واحدة فقط. كما أنه لا يسمح بتكرار الأستعلام اكثر من مرة. اين الخطأ أيها المبدعون؟ Sub Searching() i = 8 For sh = 2 To Sheets.Count For Each C In Sheets(sh).Range("F8:F" & Sheets(sh).Cells(Rows.Count, "F").End(xlUp).Row) If C = Sheets(1).[B3] Then Sheets(1).Cells(i, 1) = Sheets(sh).Name Sheets(1).Cells(i, 2) = Sheets(1).[B3] For j = 3 To 9 Sheets(1).Cells(i, j) = Sheets(sh).Cells(C.Row, j + 4).Value Next i = i + 1 End If Next Next End Sub programe.xlsm
×
×
  • اضف...

Important Information