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

حسونة حسين

أوفيسنا
  • Posts

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

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

  • Days Won

    30

كل منشورات العضو حسونة حسين

  1. اخى الكريم @dodo222 الملف (الفصل الثاني ) الذي ارفقته وضعت فيه الكود ويعمل بدون اي مشاكل مع ان الشيت كما ارفقت محمى
  2. اخى @ميلان كل بند من البنود التي في الصفحه بمعنى اصح كل اختيار زى مثلا marital status بها عدد اختيارات مثل single marriad وهكذا لابد من كتابه هذه الخيارات تحت بعض في عامود من شيت الاكسيل وهكذا باقي الخيارات لكي اتمكن من برمجه الكود
  3. نعم لكن يوجد بيانات غير موجوده في الصفحه بسبب تقريبا حفظ الصفحه html موضحا في الصورة كما ان الشيت به عواميد قليله بالنسبه للبيانات التى في الموقع
  4. ارفق ملف ليرى الاخوة الاعضاء والاساتذه المشكله ليتمكنوا من حلها بدون ارفق مرفق هذا تضييع للوقت
  5. وعليكم السلام ورحمة الله وبركاته من ملف الاكسل اتبع الخطوات الاتيه File ___ advanced ازل علامه الصح من Use system separators كما بالصورة الاتيه ثم استبدل العلامه التى تريدها من الصورة الاتيه
  6. وعليكم السلام ورحمة الله وبركاته اطلع على هذا الرابط لعله يفيدك
  7. وعليكم السلام ورحمة الله وبركاته اين رابط الموقع او يمكنك حفظ صفحه ال html ورفعها هنا بعد ان يتم ضغطها باي برنامج ضغط
  8. بعد اذن الأستاذ حسين عدل هذا السطر If format(x,"dd")= 14 then الى If format(x,"dd")>= 14 then
  9. الشكر لله اخى والحمد لله الذي بنعمته تتم الصالحات
  10. وعليكم السلام ورحمه الله وبركاته الصورة لا تعبر عن شيء يمكنك شرح المطلوب بالكتابه مع الاشارة على الصورة ليتضح المطلوب
  11. يمكنك الاستفاده من هذا الموضوع
  12. بعد اذن الاستاذ @محي الدين ابو البشر اخى @فوزى فوزى عدل السطر For i = 1 To UBound(d, 2): d(1, i) = 1 * Split(d(1, i), "/")(0): Next الى For i = 1 To UBound(d, 2): d(1, i) = 1 * Split(d(1, i), "/")(1): Next وايضا السطر x = Application.Match(1 * Split(ws.Range("E7"), "/")(0), d, 0) الى x = Application.Match(1 * Split(ws.Range("E7"), "/")(1), d, 0) عسي ان يكون طلبك ان شاء الله
  13. عند تحميل الملف تظهر هذه الرساله عذرًا، هذا الملف مصاب بفيروس. يُسمَح للمالك فقط بتنزيل الملفات التي تضم فيروسات. كما يمكنك كتابه رقم الواتس في تعليق جديد وسوف نقوم بتعديل الرقم الجديد ان شاء الله
  14. وعليكم السلام ورحمة الله وبركاته اخى احمد ارفق الملف الذي به مشكله واشرح كيف تحدث المشكله ليري الاساتذه والاخوة حلا لمشكلتك ان شاء الله
  15. بعد اذن الأستاذ ابراهيم اضف هذا السطر قبل end sub ws.Range("C" & L2 + 1).Resize(x) = Me.TextBox2.Value
  16. اخى @فوزى فوزى ارفق ملف بعد ان تعمل التغييرات التي تريدها في الشيت وشكل النتائج المطلوبه اشرح في الشيت الخطأ والصواب مفروض يكون ايه
  17. وعليكم السلام ورحمة الله وبركاته هذه مواضيع لعلها تفيدك ان شاء الله مقارنه بن عمودين يحتوي كل منهما على 3000 صف مقارنة بين عمودين طريقة مقارنة بين عمودين مقارنة بين عمودين واستخراج الباقى بالعمود الثالث مطابقة بين عمودين
  18. اخى @فوزى فوزى هذا الملف يخص @وايلي حبيب انا شغلت الملف فقط والباسورد الذي كتبها صاحب الموضوع لا تفتح الاكواد
  19. وعليكم السلام ورحمة الله وبركاته هذه الخطوات ان شاء الله تحل المشكله 1 انقر فوق قائمة ابدأ 2- نسخ اختصار Microsoft Excel الي سطح المكتب الخاص بك 3-انقر بزر الماوس الأيمن فوقه واختر خصائص (Properties)ثم انقر فوق علامة تبويب التوافق(compatibility Tab) 4- set check on run this program in compatibility mode for 5-Apply then OK
  20. تم اضافه الملف المرفق في المشاركه الاولى عن طريق الرابط في هذه المشاركه لانه هو الملف الوحيد الذي به البرنامج كامل ملفين وليس ملف واحد فقط
  21. الملف يعمل على ويندوز ١٠ سواء اوفيس ٢٠١٠ او اوفيس ٢٠٢١ انا جربت لك علي ويندوز ٧ ٦٤ بت اوفيس ٢٠١٠ ظهر الخطأ الذي تتحدث عنه ان شاء الله غدا هجرب لك على ويندوز ٧ اوفيس ٢٠١٦
  22. اخى @فوزى فوزى ما هو نوع الويندوز ما هو نوع الاوفيس وهل الاوفيس ٣٢ بت ام ٦٤ بت
  23. عند وضع الفولدر temp وبه الملف names في ال c الطبيعي ان الملف يفتح معك عادى مثل اي ملف اكسل معني انه تظهر لك هذه الصورة انك لم تضع الفولدر وبه الملف في الC ضع صورة لملف names وهو في الC
×
×
  • اضف...

Important Information