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

محمد صغير شعبان

عضو جديد 01
  • Posts

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

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

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

4 Neutral

عن العضو محمد صغير شعبان

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

  • Gender (Ar)
    ذكر
  • Job Title
    𝗧𝗲𝗮𝗰𝗵𝗲𝗿
  • البلد
    𝗬𝗲𝗺𝗲𝗻
  • الإهتمامات
    المعرفة وحب التعلم

اخر الزوار

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

  1. السلام عليكم ورحمة الله وبركاته الاخوة الاعزاء ارجو منكم مساعدتي في عمل كود او تعديل الكود الموجود بالملف المرفق في عمل تعرفة للاستهلاك متغيرة بحيث اذا تم ادخالها في الشيت يستجيب الكود دون اجراء اي تعديل فيه بمعنى يكون التعديل في التعرفة عبر النطاقات المجودة في الشيت وبحسب تدرج الاستهلاك المتغير التصاعدي الموجود بجانب التعرفة وجزاكم الله الف خير مساعدة.xlsm
  2. استطيع التعديل منه والتنسيقات والفلترة بينما اللست بوكس بيكون ثابت
  3. هي اضافة يتم تثبيتها من خارج الاكسل ثم تضيفها الى صندوق الادوات
  4. شكرا للاخ حسين مأمون على اجابته انا اضفت الى اليوزرفورم احدى الملحقات تسمى Spreadsheet1 وكنت بحاجة الى كود يطبق بنفس الطريقة اللست بوكس فهل هذا ممكن عمليا ارجو الافادة ولكم كل الشكر
  5. السلام عليكم ورحمة منه وبركاته مجددا وونزولا عند رغبة اخونا كمال علي طارق تم عمل مختصر لبيان ما نحتاجه اظهر بيانات الجدول في التكست بوكسات اعلى الجدول عندما اضغط بالماوس على اي صف فتظهر بياناته في الاعلى جرب.xlsm
  6. صدق التحايا لكل أعضاء المنتدى وفي المقدمة المعلق على طرحي طلب المساعدة كما اعتذر للجميع عن الدخول المباشر اما بالنسبة للطلب واضح جدا لم استطع ارفاق ملف العمل لكبر حجمه كونه جزء من نظام مشروع مياه بقاعدة بيانات كبيرة جدا وهو مشروع خيري والانترنت لدينا في ريف اليمن لا يسعفنا بالشكل المطلوب وكان الغرض من هذا الطلب هو ايجاد كود يظهر معلومات الجدول بالاسفل في صناديق الادخال التي في أعلى التكست بوكس والكمبوبكس بمجرد الضغط على اي صف في الجدول أسفل أو التنقل بالكيبورد عموما اشكر الجميع فمن لديه المساعدة سوف أكون شاكرا له وممتنا مع تحياتي للجميع
  7. هل ممكن اعزائي الكرام جزاكم الله خير كود لاظهار صفوف الجدول في صناديق التكسبوكسات للاضافة الملحقة في اكسل كما بالصورة المرفقة بحيث اذا ضغطت بالماوس على الصفوف تتغير بحسب الصف جزاكم الله خير
  8. شكرا جزيلا استاذ محمد وبارك الله فيك وجعل الله ذلك في ميزان حسناتك والله يزيد في الرجال من امثالك
  9. اخواني الكرام لدي الكود التالي وهو خاص بالبحث في كل اوراق العمل حاولت اصلاحه ليبحث فقط في صفحات محددة كأن يبحث في الشيت الثالث والرابع والخامس والسادس ويترك البحث في باقي الشيتات ... ارجو المساعدة ... وكتب الله اجوركم الملف كبير جدا ويتكون من اكثر من 30 شيت ونحن لدينا نت ضعيف جدا في اليمن والكود لا يحتاج سوى اسنثناء لبعض الصفحات من البحث شكرا لك Private Sub TextBox19_Change() TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = "" TextBox4.Value = "" TextBox5.Value = "" TextBox6.Value = "" TextBox7.Value = "" TextBox8.Value = "" TextBox9.Value = "" TextBox10.Value = "" TextBox11.Value = "" TextBox12.Value = "" TextBox13.Value = "" TextBox14.Value = "" TextBox15.Value = "" TextBox16.Value = "" TextBox17.Value = "" TextBox18.Value = "" Dim x As Worksheet ListBox1.Clear k = 0 For Each x In ThisWorkbook.Worksheets ss = x.Cells(Rows.Count, 2).End(xlUp).Row For Each C In x.Range("c3:c" & ss) b = InStr(C, TextBox19) If b > 0 Then ListBox1.AddItem ListBox1.List(k, 0) = x.Cells(C.Row, 1).Value ListBox1.List(k, 1) = x.Cells(C.Row, 2).Value ListBox1.List(k, 2) = x.Cells(C.Row, 3).Value ListBox1.List(k, 3) = x.Cells(C.Row, 4).Value ListBox1.List(k, 4) = x.Cells(C.Row, 5).Value ListBox1.List(k, 5) = x.Cells(C.Row, 6).Value ListBox1.List(k, 6) = x.Cells(C.Row, 7).Value ListBox1.List(k, 7) = x.Cells(C.Row, 8).Value ListBox1.List(k, 😎 = x.Cells(C.Row, 9).Value ListBox1.List(k, 9) = x.Cells(C.Row, 10).Value ListBox1.List(k, 10) = x.Cells(C.Row, 11).Value ListBox1.List(k, 11) = x.Cells(C.Row, 12).Value ListBox1.List(k, 12) = x.Cells(C.Row, 13).Value ListBox1.List(k, 13) = x.Cells(C.Row, 14).Value ListBox1.List(k, 14) = x.Cells(C.Row, 15).Value ListBox1.List(k, 15) = x.Cells(C.Row, 16).Value ListBox1.List(k, 16) = x.Cells(C.Row, 17).Value ListBox1.List(k, 17) = x.Cells(C.Row, 18).Value k = k + 1 End If Next C Next x End Sub
  10. شكرا على الاجابة لقد ذكرت اخفاء واظهار الاعمدة ولم تذكر اخفاء واظهار الصفوف وحددت مدى معين 10 اعمده والمطلوب مدى غير محدد وايضا الصفوف
  11. السلام عليكم ورحمة الله وبركاته اخواني الكرام احتاج إلى مساعدتكم احتاج كود للطباعة بحيث يتجاوز او يخفي او يحذف الصفوف والاعمدة الفارغة في الشيت ويطبع فقط الاعمدة والصفوف التي بها بيانات وبعد الطباعة تعود الصفوف والاعمدة الى الجدول كما كانت مع شكري لكم
×
×
  • اضف...

Important Information