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

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

قام بنشر

السلام عليكم ورحمة الله وبركاته

أولا أود شكر جميع القائمين على هذا المنتدى والمساهمين والمشاركين.. فبارك الله فيكم اجمعين على مد يد العون لاخوانكم

وجزاكم الله عنا وعن جميع المسلمين خير الجزاء ..

أدخل المنتدى حسب توفر الانترنت لدي وحسب وقتي... لكني اعتقد أنكم بفضل الله قادرون وكنتم كذلك كما رأيت في المشاركات..

مع انه ليس لدي الا القليل عن اكسل ..

فقلت سأجد بإذن الله ضالتي هنا

أرجوا ممن يضع الحل التوضيح والتفصل كي أطبقه ... فإني لا اريد النسخ واللصق فقط.. حتى استيطع حل مشكلتي فعليا بما هو موجود لدي

لان الملف المرفوع هو كمثال فقط..

لقد رفعت ملفاً للمثال فقط ، كي أوضح ما أريده فقط ..

كما هو في الملف عبارة عن تقرير .. أقوم بتعبئته شخصيا.. والعداد حتى 37 صف كله على سبيل المثال..

قد أقوم بتعبئة جميع التقرير أي حتى 37 واطبعه مباشرة على الطابعه والتالي لا اريد اخفاء اي صف

اما ان قمت بتعبئة حتى 10 مثلا ، فاخفي الأعمدة A10 حتى A37 أي حتى العداد الاخير رقم 37 ليتبقى لدي النتيجة النهائية في اخر الصف ويرتفع ويقترب نحو اخر صف قمت بتعبئته

قصدي سيتضح عند الانتقال من ورقة 1 الى ورقة 2

--

المشكلة :

في كل مرة اخفي الصفوف يدويا.. فهل من حل كي تخفى تلقائيا بمجرد اني لا اقوم بتعبئتها بقيم أكبر من الصفر.. مع اخراج اخر صف اريده وهو النتائج ( العملية النهائية )

الصف A47

PrintExa.zip

قام بنشر (معدل)

السلام عليكم

اخب الملف الذي ارفقته قد يكون اكل 2007

لذا لم استطع رؤيته

عموما ارسل لك ملف 2003 ارجو انك تستطيع قراءته

الكود الذي به هو

 Private Sub CommandButton1_Click()
  With Sheets("Sheet1")
    With .UsedRange
       For i = 3 To 41
        If .Cells(i, 8).Value <= "0" Then
          .Cells(i, 8).EntireRow.Hidden = True
        End If
Next i
End With
End With

End Sub

و هذا الكود يعني انه بالورقة التي تسمي شيت1

بالصفوف من الصف الثالث و حتي الواحد والاربعون

اذا كانت الخليه التي احداثيها الصف 3 العمود 8

او الصف الرابع العمود 8 وهكذا قيمتها اصغر من او تساوي صفر

اذا تحقق هذا الشرط اخفاء الصف الذي به هذا الشرط محقق

وهكذا لاخر صف وهو صف 41

ارجو ان اكون وفقت بالتوضيح

تحياتي

hide.rar

تم تعديل بواسطه aah_aah2008
قام بنشر

السلام عليكم أستاذ : عادل

بارك الله فيك و لك و عليك و حواليك

كود رائع لطالما بحثت عنه

لكن هل ممكن أن تضيف إمكانية إظهار الكل لنتمكن من استخدام الصفحة بعد الطباعة لإدخال بيانات جديدة

ولك كل الشكر

10.gif

قام بنشر

السلام عليكم أستاذ : اكسيلجي

عفوا ما رأيت إبداعك إلا بعد أن أدرجت مشاركتي

و لحسن الحظ تواردت أفكاري مع إبداعك فحققت لي ما طلبت

جزاك الله خيرا و جعله في ميزان حسناتك مثاقيل كثيرة

أيسم إبراهيم

10.gif

قام بنشر

السلام عليكم ورحمة الله

شكرا اخي aah_aah2008 على ردودك السريعة دائما ومع كل الاعضاء

كما اشكر مشرفنا ابو عبدالله والذي دائما بعد الامثلة الكثيرة نلاحظة يتحفنا بنفس المثال ولكن بطرق واكواد مختصرة وسهلة وخفيفة

فجزاكم الله خير الجزاء جميعا

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

قام بنشر

السلام عليكم

اخي aysam لك الشكر اخي علي اطراؤك

اخي الحبيب اكسلنجي سلمت يداك اخي

اخي KHMB اشكرك اخي علي كلماتك الجميله فمثلها ما يشجعنا لعمل ماهو اكبر ان شاء الله

مع العلم ان جميع الاخوه متفاعلين مع كافة الاسئلة التي تصدر من الاعضاء و لكن وقت العمل

قد يداهمنا فلانستطيع حتي الاطلاع علي الاسئله رغما عن انه قد يكون المنتدي مفتوح امامنا

و لكننا نقوم باعمال اخري فلا نستطيع حتي النظر اليه

وكل عام وحضراتكم جميعا بكل خير وصحة و عافية

تحياتي

قام بنشر

الاخ الكريم aah_aah2008

بارك الله فيك ، لقد فهمت الكود الذي وضعته ، وطبقته، ونجح معي.. فجزاك الله خيرا

الاخ الفاضل أبو عبد الله

جزاكم الله خيرا على ماتفضلتم به ... وسأحاول اضافة للطريقة الاولى استخدام الطريقة التي وضعتها..

فبارك الله فيك

أمدكم الله في العلم جميعا

قام بنشر

أخي العزيز JOMA

هذه إضافة بسيطة للفكرة لعلها تفيد يتم فيها إخفاء الصفوف والأعمدة الفارغة عند الطباعة فقط وبعد الطباعة يعود الوضع لما كان عليه أي بدون إخفاء اختصاراً للخطوات حيث الهدف من الإخفاء غالباً يكون للطباعة ، علماً بأنه تم اعتماد فكرة ال PREVIEW قبل الطباعة لإعطاء فرصة لتعديل الهوامش وإعدادات الطباعة الأخرى قبل الطباعة النهائية .

تحياتي

أبو عبدالله

HIDE_UNHIDE_EMPTY_ROWS_AND_COLUMNS_IF_PRINT.rar

قام بنشر

السلام عليكم أستاذ : أبو عبدالله

بارك الله فيك و لك و عليك و حواليك

عمل رائع و متكامل لطالما بحثت عنه

ما شاء الله عليك لديك إمكانية قراءة ما يدور بعقول تلاميذك في المنتدى - فيم يفكرون؟؟؟ وماذا يحتاجون؟؟؟

إنها إمكانيات أستاذ كبير

كل عام وأنتم بخير

10.gif

قام بنشر

أخي الحبيب / أيسم

أشكرك بشدة على دعواتك الجميلة ولك بمثلها اللهم آمين وأشكرك على كلماتك الرائعة ولكن للتوضيح أنا تلميذ صغير في مدرسة أوفيسنا الرائعة والعامرة بأساتذتها وأعضائها جميعاً . ورمضان كريم يا عم أيسم .

تحياتي

أبو عبدالله

قام بنشر

أخي العزيز / محمدي

إن كنت فهمت استفسارك بشكل صحيح فأنت تقصد أن الأعمدة بعد العمود J لاتظهر وذلك بسبب قيام صاحب الملف بإخفاء هذه الأعمدة وتستطيع إظهارها بتحديد العمود J من عند رأس العمود والتحرك بالماوس قليلا بعده أثناء التحديد ثم ماوس يمين ثم اختار UNHIDE ولإعادة إخفاء تلك الأعمدة حددها ثم بنفس الطريقة اختار HIDE .

ارجو الإفادة إن كان هذا ليس ما تقصده .

تحياتي

أبو عبدالله

قام بنشر

جميل جدا

رأيت أخر اضافتك الجميلة اخ ابو عبدالله

جزاك الله خيرا وبارك الله فيك

رعاك الله

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information