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

طريقة لتحديد عدد صفوف


الردود الموصى بها

بسم الله الرحمن الرحين

صباح الخير يا اهل الخير

 

انا اريد فكرة او طريقة او كود لتحديد عدد صفوف في شيت واحد

مثلا اريد 300 صفوف و عدم امكانية اضافة صف اخر

اشكركم جميعا

  • Like 2
رابط هذا التعليق
شارك

الاخ الكريم / shakhawan

بارك الله فيك

علي حسب فهمي للطلب و ع السريع اليك هذا الكود البسيط

ارجو ان اكون قد فهمت الطلب كما تريد .... معلهش صايمين بقا ... هههه

رمضان كريم

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
    Rows("301:301").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Selection.EntireRow.Hidden = True
Application.ScreenUpdating = True
End Sub

جزاك الله خيرا

 

 

 

تحديد عدد الصفوف في شيت معين.rar

  • Like 1
رابط هذا التعليق
شارك

جزاك الله خيرا

يا استاذي حمادة عمر همشي ابوي اسمها عمر يعني بمعنى اخر انت اخوي

اريد واحد منكم تصيح غلط املائيبسم الله الرحمن الرحين

اشكرك حبيبي فكرة كود جميل جدا

اعتذر بسبب لغتي عربية

الله طول عمرك 

رابط هذا التعليق
شارك

كود رائع

لكن المطلوب كود يحدد عد الاعمده ايضاً

 

الاخ الكريم / علي حسن

بالنسبة لطلبك سيكون باستخدام نفس الكود تقريبا ولكن بخصوص الاعمدة ليكون

الكود بالشكل التالي

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
    Columns("J:J").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.EntireColumn.Hidden = True
Application.ScreenUpdating = True
End Sub

ويتم تحديد العمود المطلوب الاخفاء او الحذف من بعده من هذا السطر

 Columns("J:J").Select

ارجو ان يكون هو المطلوب

جزاك الله خيرا

  • Like 1
رابط هذا التعليق
شارك

جزاك الله خيرا

يا استاذي حمادة عمر همشي ابوي اسمها عمر يعني بمعنى اخر انت اخوي

اريد واحد منكم تصيح غلط املائيبسم الله الرحمن الرحين

اشكرك حبيبي فكرة كود جميل جدا

اعتذر بسبب لغتي عربية

الله طول عمرك 

 

السلام عليكم

الاخ الكريم / shakhawan

يمكنك انت بنفسك تعديل ذلك من خلال زر تعديل اسفل المشاركة نفسها الموجود بها الخطأ

وان لم يمكنك ذلك يمكنك مخاطبة احد مشرفين الموقع

جزاك الله خيرا

رابط هذا التعليق
شارك

ويمكن ايضا الجمع بين الكودين

لاخفاء مجموعة من الصفوف ابتداءا من صف معين

واخفاء مجموعة من الاعمدة ابتداءا من عمود معين في ورقة معينة

ليكون الكود كما يلي

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
   Rows("301:301").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Selection.EntireRow.Hidden = True

    Columns("J:J").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.EntireColumn.Hidden = True
Application.ScreenUpdating = True
End Sub
  • Like 2
رابط هذا التعليق
شارك

السلام عليكم

الأخ الكريم / محمد

بارك الله فيك

مرور طيب وكريم من أخ كريم

جزاك الله خيرا

رمضان كريم

رابط هذا التعليق
شارك

استاذى الخلوق 

/ استاذ حمادة عمر

وعليكم السلام

وجزاكم الله خيرا

 على كلامك الراقي

لي طلب بسيط في نفس الموضوع

وهي احياناً نجد خلفية زرقاء مموهة وفي الشيت عدد محدود من الاعمدة والصفوف كيف ذلك ؟

رابط هذا التعليق
شارك

الاخ الكريم / محمد

تقبل تحياتي

ومعذرة لم افهم المقصود من السؤال ... صايمين بقا ... ههههه

برجاء لو ارفاق الملف الذي تقصده وموجود به هذه الخلفية التي تقصدها

جزاك الله خيرا

رابط هذا التعليق
شارك

استاذى الخلوق 

/ استاذ حمادة عمر

تقبل الله منكم

وسوف ابحث في ذاكراتي على الملف المطلوب

واتمنى ان لا تحرج لي ذاكرتي اكل بدل  الملف بسبب الصيام ( ابتسامة )

تم تعديل بواسطه محمد ابو البـراء
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information