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

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

قام بنشر

السلام عليكم

اخوانى الكرام والاساتذة الافاضل

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

مثل الدالة

=SUBTOTAL(9;X19:X1600)

هل الدالة

=COUNTIF(C2:C101;"غ")

لها نفس الميزة وما هو الرقم الذي يكتب قبلها

اول اى دالة اخرى تقوم بنفس عملها وتتجاهل الصفوف المخفية

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

قام بنشر

أستاذى ( خالد القدسى ) حضرتك عرضت نموذج لدالة ( subtotal ) إن بيتم كتابة رقم قبل المعادلة لتجاهل الصفوف المخفية وهذا ليس رقم تجاهل ولكنة من مكون الدالة لتجعلها تقوم بوطيفة معينة دون الأخرى ، ويسمى ( function - num ) أى رقم عند كتابتة يؤدى وظيفة معينة

بمعنى أخر هه الدالة يمكن أن تقوم بدل العديد من الدوال ومنها على سبيل المثال عند كتابة رقم ( 1) تعمل عمل دالة ( avarage ) ، وعند كتابة رقم ( 2 ) تعمل عمل دالة ( count ) وعند كنابة رقم ( 3 ) تقوم بعمل دالة ( counta ) ، وعند كتابة رقم ( 4 ) تقوم بعمل دالة ( max ) .....................الخ

أما عند كتابة رقم ( 9 ) فهى تقوم بعمل الدالة ( sum ) أى تكون دالة بديلة لدالة ( الجمع ، sum ) وهكذا أستاذى

أما عن الدالة إللى حضرتك بتنوه عنها لحساب الصفوف المخفية فهى ممكن أن تقوم بذلك وإلى خضرتك الدليل بالأضافة ألى دالة صفيف تقوم بنفس العمل وغيرها كثير

تجاهل الصفوف المخفية.rar

  • Like 3
قام بنشر

السلام عليكم

الاساتذة الكرام

يبدو اننى لم احسن شرخ المطلوب

فالمطلوب هو العكس

اى ان الدالة تسقط من حساباتها الصفوف المخفية

يعنى اذا كان الغياب 15 في حالة كل الصفوف ظاهرة

بعد اخفاء 5 سفوف مثلا تصبح نتيجة الدالة 10 فقط

اى لا تحسب الصفوف المخفية

والدوال التى ذكرتها تقوم بذلك ولكن في عمليات الجمع

قام بنشر

السلام عليكم

اتذكر قبل فترة طويلة قليلا طرحت موضوع مشابه

وقد قام بالحل احد الاساتذة الافاضل اظنه استاذ احمد زمان او استاذ خبور لا اتذكر بالضبط ولكن فقدت الملف السابق

مع زحمة الملفات

قام بنشر

رائع استاذ احمد

فعلا يعمل تمام مع الاخفاء بواسطة التصفية

اما مع الاخفاء اليدوي فلا يعمل

وهكذا تم حل جزء كبير وفقك الله ورضى عنك

قام بنشر

ولكن نسيت كيف اعرفها في ملفي

اطلعت على مثل ذلك من ولكن طال الزمن وشاب الراس

ارجو ان تذكرنى بخطوات تعريف الدالة على الملف

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

قام بنشر

السلام عليكم

 

افتح ال vba  باستخدام  alt+F11

 

ثم من قائمة insert  اختر  module

 

ثم ضع فيه الكود 

Function countifvis(r, t)
For Each c In r
If c.EntireRow.Hidden = False Then
If c = t Then countifvis = countifvis + 1
End If
Next
End Function 

ثم جرب كتابتها في شيت الاكسيل (countifvis)

 

رضى الله عنك وعن والديك وارضاكم في الدنيا والاخرة

قام بنشر

السلام عليكم

الاخ الحبيب / احمد عبد الناصر

 

بارك الله فيك

وممتار ورااائع اخي احمد   +

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

قام بنشر

السلام عليكم

مساء الخير

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

سؤال اخير اخي

لقد اطلعت في احدى المواضيع على ان الدالة

COUNTIFS

لا تعمل مع اكسيل 2003

هل لو قمت بتعرفها بطريقتك الاحترافية هذه يمكن ان تعمل في اكسيل 2003

او هل يوجد دالة مشابه لها في 2003

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