عبد الفتاح كيرة

اجعل اإعدادات كما بالصورة

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

السلام عليكم هذا فديو يشرح التصفية المتقدمة التى تتميز بإمكانية نقل البيانات المفلترة إلى شيت آخر كما تمكننا من مميزات أخرى ========== الفديو ========== وقتا ممتعا الملف المستخدم بالشرح بالمرفقات الجزء الثانى التصفية المتقدمة شرح.zip

تصورى أن هذا ما تريده officna-kemas2.rar

تفضل ملفك بعد إصلاحه و جيد محاولتك تعديل الكود حسب طلبك officna-kemas.zip

أخى معتصم الكود المكتوب فى المودويل غير مرتبط بعنصر ( ورقة أو مصنف ....) و غير مرتبط بحدث لكن هذا لا يمنع أن نشير من داخله لأى من هذه العناصر نشير لورقة أو فورم مثلا userform1.show كود يستدعى نموذج هذه وظيفته يمكنك إسناده لزر أمر بحيث ينفذ عند نقر الزر مثلا كما يكتب بالمودويل الوظائف التى يمكن استدعاؤها بدلالة اسمها و معاملاتها

مرحبا أخ يوسف إذا ضربت عدد الأماكن فى الأحداث الخاصة بكل منها سينتج عدد كبير من العناصر لكن سأذكر لك أهم حدث فى كل عنصر بالنسبة للورقة الشيت أهم حدث هو التنشيط activate و التغيير change أما الفورم فأهم أحداثه حدث انطلاق الفورم يعنى تشغيله initialize وفى هذا الحدث نضع كل ما نريد تنفيذه على أدوات التحكم كمربعات النصوص و غيرها و كذلك تحديد المدى من الخلايا أو الأكثر و كثير جدا بحيث يكون كل هذا ظاهرا و جاهزا عند انطلاق الفورم بالنسبة للأدوات زر الأمر حدثه الأهم و الافتراضى هو النقر click أما مربع النص فأهم أحداثه change التغيير و هذا لا يقلل من أهمية الأحداث الأخرى فأنت تحتاج إليها حسب الكود الذى تكتبه و هناك أحداث يندر استعمالها مثل presskey وهو مختص بضغط أى زر من لوحة المفاتيح إذا وضعت فى ذهنك السؤالين اللذين شرحناهما ستزيد قدرتك على فهم الأكواد المكتوبة أما ما سيقابلك من أحداث جديدة عليك فشأنها سهل لأن القاعدة العامة موجودة و الله أعلم

هذا شىء آخر هناك معادلات تعتمد على القيم فى الخلايا المصدر إليها فهذه تتأثر لو أرسلت الشيت الذى تظهر به الأخطاء ربما نساعدك بإذن الله

الأخ zine pef بارك الله فيك و شكرا لك الأخ new4a شكرا لك و بارك الله فيك أحببت أن أضيف أنه لابد لمن يكتب الأكواد أن يجيب عن سؤالين الأول أين سينفذ الكود ( مصنف ورقة نموذج أداة تحكم " كنترول " .." الثانى : متى سينفذ الكود ؟ و هذا يقصد به الحدث فتكون الإجابة مثلا: فى المصنف - عند فتحه فى الشيت عند تنشيطه فى الشيت عند تغيير قيمة أى خلية فى الشيت عند حساب الورقة فى النموذج عند تشغيله فى مربع النص عند الكتابة فيه فى الليست بوكس عند تحديد قيمة فيها فى الصورة عند مرور الماوس عليها و هكذا أما إجابة السؤال الأول فتكون فى القسم الأيسر من القائمة وأما الحدث فيكون فى القسم الثانى على اليمين الصورة

Module لكتابة كود منفصل يمكن استدعاؤه من أى مكان Sheet كود مخصص لأحداث الصفحة كحدث تنشيط activate الصفحة أو حدث التغيير change " تغيير قيمة أى خلية " وغيرهما ThisWorkbook أكواد تنفذ فى أحداث المصنف و هذه تشمل طبعا كل الشيتات و يمكن أن نضع فيه كودا ينفذ فى أحد الصفحات لكن ينفذ عند أحد أحداث المصنف فالكود واحد فى الثلاثة لكن الحدث مختلف لارتباطه بأحد الأنواع وكمثال عملى : الكود range("a1")="kemas" نضعه فى Module و نخصص له زر أمر ينفذه هذا الزر فى أحد الصفحات طبعا أو حتى فى نموذج " فورم" نضعه فى أحد أحداث شيت معين و ليكن الحدث activate فعند تنشيط هذه الصفحة يتم تنفيذ الكود فى الخلية المحددة " انتبه لحدث التنفيذ" و نضعه فى ThisWorkbook فسينفذ عند فتح المصنف و لذلك يجب أن نزيد عليه اسم الورقة التى بها الخلية المقصودة فيصير sheets(1).range("a1")="kemas" هنا ينفذ الكود عند فتح المصنف وفى الورقة رقم 1 والخلية a1 فيها هذا ما تيسر لى شرحه الآن أرجو أن تكون انتفعت بذلك

تصلح هذه أيضا =IF(AND(D17="";E17="");"";E17+(D17/1000))

عليكم السلام و رحمة الله يوجد شرح للأستاذ يحيى حسين لهذه الدالة راجع الروابط http://www.officena.net/ib/index.php?showtopic=28522 http://www.officena.net/ib/index.php?showtopic=29734

عليكم السلام و رحمة الله أخانا الحبيب خالد بارك الله فيك

تفضل باستخدام التنسيق الشرطى للعمود f تلوين خانات اتوماتيك.zip

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

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

الكود Dim myrng As Range Dim myc As Range Set myrng = Sheets(1).Range("f2:f1000") If Target.Row > 1 And Target.Column > 5 And Target.Column < 7 Then For Each myc In myrng If myc = Range("g2") Or myc = Range("h2") Or myc = Range("i2") Then myc.Interior.ColorIndex = 3 Else myc.Interior.ColorIndex = xlNone End If Next myc End If المرفق تلوين خاناتkemas اتوماتيك.zip

أخى معاذ عندنا 51 شيتا الأول به عمود البيانات من الصف الأول و العمود الأول وحتى الصف الخمسين من نفس العمود عندنا حلقة تكرار من 1 إلى خمسين فى المتغير i بداية ستكون قيمة i = 1 إذن سينفذ الآتى شيت رقم 1 انسخ الخلية التى رقم صفها = i = 1 و عمودها =1 يعنى a1 انسخها إلى مكان اللصق شيت رقم 2 ( i+1) فى الخلية a1 , بتكرار الحلقة ستزيد قيمة i بمقدار 1 كل مرة حتى خمسين و بزيادتها يتغير كل من رقم صف الخلية المنسوخة رقم الشيت المنسوخ إليه أرجو أن أكون أفدتك

تذييل الصفحة ينقسم ل 3 أجزاء يمين يسار وسط يمكن إدراج الصفوف السفلية كتذييل صفحة خلية خلية باستخدام علامة الربط & يعنى مثلا فى جزء الكود الخاص بتذييل الوسط يمكننا إدراج الكود التالى .CenterFooter = Sheets(1).Range("a84") & Range("b84") & Range("c84") & Range("d84") & Range("e84") & Range("f84") & Range("g84") & Range("h84") & Chr(10) & Range("b85") الشرح تذييل وسط الصفحة = وصل الخلايا فى الصف 84 من العمود a إلى العمود h ثم ننزل للسطر التالى باستخدام Chr(10 و هى تعنى الانتقال للسطر التالى تماما كما تضغط مفتاح الإدخال ثم نأخذ ما نريد من خلايا السطر التالى بنفس الطريقة ويمكننا إدراج فراغات " " كما نريد و ننفذ كل ذلك على السطور السفلية التى نريدها كم ننفذ ذلك مع تذييل اليمين و تذييل اليسار جربوا هذا الملف الناجح و لعل الفكرة وصلت طباعة الصفوف السفلية بالكود.zip

استخدم الكود التالى For i = 1 To 50 Sheets(1).Cells(i, 1).Copy Sheets(i + 1).Range("a1") Next i المرفق copy 1 to 50.zip

عفوا يبدو أننى رفعت الملف القديم بالغلط تفضل الديناميكى التام kemas3.rar

السلام عليكم تفضل هذا طلبك الديناميكى kemasالتام .zip

شكرا أخى zine pef و هذا بعض ما تعلمناه هنا فى منتدانا الغالى بارك الله فيك سأحاول النظر فيما تريد أخى الجزيرة إن شاء الله جرب المرفق الديناميكى التام -معدل.zip

أخانا الفاضل ممكن ترسم لنا الشكل الذى تريده لأن الشرح النظرى غير مفهوم لدى الوضع الحالى : شريط التمرير يغير الصفوف بحيث يعرض الصف كاملا

مرحبا يا أخى المعادلة لم أرفعها إلا بعد التجربة وهى تعمل جيدا شاهد المرفق زيادة أشهر على تاريخ معين.zip