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

حسونة حسين

أوفيسنا
  • Posts

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

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

  • Days Won

    30

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

  1. انظر اخي ليس يوجد مشاكل بالنسخ @Khorsheed Omar
  2. كيف تقوم بعمليه النسخ اخى @Khorsheed Omar
  3. السلام عليكم ورحمه الله وبركاته وبها نبدأ اي موضوع اخى @Khorsheed Omar كيف تقوم بعمليه النسخ لانى جربت النسخ وتم النسخ وليس به مشاكل
  4. اخى الكريم @dodo222 الملف (الفصل الثاني ) الذي ارفقته وضعت فيه الكود ويعمل بدون اي مشاكل مع ان الشيت كما ارفقت محمى
  5. اخى @ميلان كل بند من البنود التي في الصفحه بمعنى اصح كل اختيار زى مثلا marital status بها عدد اختيارات مثل single marriad وهكذا لابد من كتابه هذه الخيارات تحت بعض في عامود من شيت الاكسيل وهكذا باقي الخيارات لكي اتمكن من برمجه الكود
  6. نعم لكن يوجد بيانات غير موجوده في الصفحه بسبب تقريبا حفظ الصفحه html موضحا في الصورة كما ان الشيت به عواميد قليله بالنسبه للبيانات التى في الموقع
  7. ارفق ملف ليرى الاخوة الاعضاء والاساتذه المشكله ليتمكنوا من حلها بدون ارفق مرفق هذا تضييع للوقت
  8. وعليكم السلام ورحمة الله وبركاته من ملف الاكسل اتبع الخطوات الاتيه File ___ advanced ازل علامه الصح من Use system separators كما بالصورة الاتيه ثم استبدل العلامه التى تريدها من الصورة الاتيه
  9. وعليكم السلام ورحمة الله وبركاته اطلع على هذا الرابط لعله يفيدك
  10. وعليكم السلام ورحمة الله وبركاته اين رابط الموقع او يمكنك حفظ صفحه ال html ورفعها هنا بعد ان يتم ضغطها باي برنامج ضغط
  11. بعد اذن الأستاذ حسين عدل هذا السطر If format(x,"dd")= 14 then الى If format(x,"dd")>= 14 then
  12. الشكر لله اخى والحمد لله الذي بنعمته تتم الصالحات
  13. وعليكم السلام ورحمه الله وبركاته الصورة لا تعبر عن شيء يمكنك شرح المطلوب بالكتابه مع الاشارة على الصورة ليتضح المطلوب
  14. يمكنك الاستفاده من هذا الموضوع
  15. بعد اذن الاستاذ @محي الدين ابو البشر اخى @فوزى فوزى عدل السطر 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) عسي ان يكون طلبك ان شاء الله
  16. عند تحميل الملف تظهر هذه الرساله عذرًا، هذا الملف مصاب بفيروس. يُسمَح للمالك فقط بتنزيل الملفات التي تضم فيروسات. كما يمكنك كتابه رقم الواتس في تعليق جديد وسوف نقوم بتعديل الرقم الجديد ان شاء الله
  17. وعليكم السلام ورحمة الله وبركاته اخى احمد ارفق الملف الذي به مشكله واشرح كيف تحدث المشكله ليري الاساتذه والاخوة حلا لمشكلتك ان شاء الله
  18. بعد اذن الأستاذ ابراهيم اضف هذا السطر قبل end sub ws.Range("C" & L2 + 1).Resize(x) = Me.TextBox2.Value
  19. اخى @فوزى فوزى ارفق ملف بعد ان تعمل التغييرات التي تريدها في الشيت وشكل النتائج المطلوبه اشرح في الشيت الخطأ والصواب مفروض يكون ايه
  20. وعليكم السلام ورحمة الله وبركاته هذه مواضيع لعلها تفيدك ان شاء الله مقارنه بن عمودين يحتوي كل منهما على 3000 صف مقارنة بين عمودين طريقة مقارنة بين عمودين مقارنة بين عمودين واستخراج الباقى بالعمود الثالث مطابقة بين عمودين
  21. اخى @فوزى فوزى هذا الملف يخص @وايلي حبيب انا شغلت الملف فقط والباسورد الذي كتبها صاحب الموضوع لا تفتح الاكواد
  22. وعليكم السلام ورحمة الله وبركاته هذه الخطوات ان شاء الله تحل المشكله 1 انقر فوق قائمة ابدأ 2- نسخ اختصار Microsoft Excel الي سطح المكتب الخاص بك 3-انقر بزر الماوس الأيمن فوقه واختر خصائص (Properties)ثم انقر فوق علامة تبويب التوافق(compatibility Tab) 4- set check on run this program in compatibility mode for 5-Apply then OK
×
×
  • اضف...

Important Information