saad abed

اخى حسام شروحاتك جميلة شكرا لك

اخى محى الدين شكرا لك جزاك الله خيرا

اخى صلاح المصرى كما اشار الاخ وائل الاسيوطى في رابط الشرح للاجابه على سؤالك نعم يمكن بطريقتين اولا بالمجال الديناميكى وهو يزيد او ينقص بزيادة ونقص البيانات من صيغ ادارة الاسماء تحرير سمى المجال باسم يدل على العمل او باختيارك ثم في refer to ضع المعادله =OFFSET(Sheet1!$A$1,0,0,COUNTA(Sheet1!$A:$A),4) الطريقة الاسهل حدد بياناتك واضغط ctr+t لانشاء جدول جديد واختار الجدول كمصدر للبيانات ويمكن تحديث التقرير تلقائىه بالكود التالى Sub RefreshPivotTables() Dim pivotTable As PivotTable For Each pivotTable In ActiveSheet.PivotTables pivotTable.RefreshTable Next End Sub

اخى م/ياسر فتحى إنا لله وإنا إليه راجعون لله ماأخذ وله ماأعطى،وكل شئ عنده بأجل مسمى فلتصبر ولتحتسب

اخى ياسر جزاك الله خيرا استكمل دروسك فنحن في الانتظار

اخى خالد مواضيعك ممتازة جزاك الله خيرا

اخى العزيز ابوالبراء اشكرك على النصائح الغالية واتمنى فتح مواضيع تفاعلية كهذه نشارك معك وتنصحنا بما هو واجب فى كتابة الاكواد ننتظر مواضيع كثيره كالفقه الافتراضى نفترض مساءله وحلها اشكرك

Sub saadabed() Dim X As Long For X = 1 To 147 Sheets("Table").Columns("a").Offset(, X).EntireColumn.Hidden = True Next Range("a1,c1,e1,j1,o1,z1").EntireColumn.Hidden = False End Sub اخوانى الاعزاء تلميذ من تلاميذ الاخ ياسر يحاول ان يشارك معكم استخدام حلقات التكرارية لاخفاء كل الاعمده ثم اظهار المطلوب منها فقط

اخى الزبارى موضيعك مميزة جزاك الله خيرا

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

حبيبى ابويوسف عمل ممتاز بارك الله فيك

اخى انس دروبى الف الف مبروووووووووووك ننتظر برنامج انس المحاسبى

السّلام عليكم و رحمة الله و بركاته ألف ألف مبروك للإخوة الأفاضل : حسام " الصّقر " ياسر العربي إبراهيم أبو ليله نتمنى لكم التوفيق والى الامام ثلاثتكم اعزاء علينا اخوكم سعد عابد

اخى ابوعيد جزاك الله خيرا اكواد رائعة يا ريت شرح كود الترحيل على الاسطر ولك الشكر

كل عام وانت بخير كل عام وكل مشرفى ومديرى الموقع بخير كل سنة وكل أعضاء المنتدى واصدقائى واحبائى بالف خير اخوكم / سعد عابد

احنا متابعين الدروس بشغف حتى ولو لم نستطيع الرد عليها

اخى ياسر العربى الله أفكار جديده اظن هي بداية للوصول للحماية الكاملة انت اول من لفت نظرنا لربط الفيجوال بيسيك بالاكسيل والله ان من وجهه نظرى يخصص قسم الاكسيل مع لغات البرمجه جزاك الله خيرا في انتظار الشرح

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

اخى ابراهيم ابوليله قلت لك اعمالككلها جميله ومبهره جزاك الله خيرا الله عليك يكفيك انك ارسلت البرنامج مفتوح المصدر البرنامج متعوب عليه جزاك الله خير الجزاء وجعله فى ميزان حسناتك وفقكم الله

اخى ابراهيم اعمالك كلها جميله جزاك الله خيرا اتا لم اجد البرنامج فى المرفقات ام هو شرح فقط

اخى ياسر العربى اظن انى فهمت انت تتصور الفورم وشكله وتصمم الصورة على انها خلفية والازرار تصمم لوحدها كصورة منفرده وتضيفها في مكانها وضفت في الصورة مكان ظهور الكلام تكست اليس كذلك

اخى ياسر العربى اسال الله العظيم رب العرش العظيم ان يفتح عليك أبواب رحمته وصلت لكيف اربط الاكسيل بالفيجوال الله عليك نتابع الشرح بشغف هناك سؤال اخر مهم بالنسبه لى بعض الناس بتصدر الفورم لبرامج الفوتوشوب ليجمل شكله حاولت ولكنه لم يقبل التنسيق (صدرت من الاكسيل userform name.frm) برنامج الفوتوشوب وبرنامج اخر ادرو ولم يقبل ايضا كيف احسن شكل الفورم على برامج الصور اشكرك اخى ياسر

اخى ياسر العربى الله الله ايه الحﻻوه دى اتابع الشرح على المحمول وانا منبهر ركز كيف اجعل اﻻكسيل مجرد قاعدة بيانات كيف اربط بينا فيجوال6 مع اﻻكسيل هل اﻻكواد فى هذه الحاله تختلف الموضوع هام جدا وجديد وفقكم الله اتابعك بشغف

وعليكم السلام اخى م/ياسر فتحى كود ممتاز من الممكن استخدامه فى الحماية ان الاكواد تلغى فى حالة فتح الملف بطريقة غير شرعية

اخى الحبيب م/ياسر فتحى اكواد ممتازة ومفيده شكرا لك وفقكم الله