نجوم المشاركات

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

بسم الله وعلى بركة الله نبدأ اول شئ ؟ خلينا نخلص الاشياء اللى راح تحتاج الى التجهيز بالأكسس بس علشان نقدر نفهم الموضوع من اخوانا الكرام ياللى فاهمينه صح واعذرونى وتحملونى فى الغياب والانقطاع المفاجئ والذى قد يكون متكرر فى الفترة المقبلة الى أن يأذن الله تعالى ويتمم شفاء والدى على خيـر هو وكل مريض هذا حمل الولد الوحيد لأبيه سوف اتابع بقدر الامكان اولا بصراحة دخلت على الفيديو الخاص بشرح الباش مهندس @Amr Sobhy الذى اشار اليه وهو مشكورا وضع معه مرفق يحتوى على قاعدة أكسس و مجلدات كثيرة بكل صدق مررت سريعا وان شاء الله لى إن أذن ربى لى عودة ولكن مبدئيا حتى افهم الموضوع جيدا سوف تدور نقاشات واستفسارات كثيرة وحتمية بعد التمعن جيدا فى الفيديو فقط قمت بتجربة قاعدة الاكسس والتى تحتاج تسجيل للمكتبة التى اخبرنا عتها الباش مهندس @Amr Sobhy سوف ارفق لكم القاعدة بتعديل بسيط حتى يمكن التسجيل للمكتبات واضافتها اليا من الملف الدفعى بمجرد فتح قاعدة البيانات كما قمنا بها مسبقا فى الجزء الأول ملاحظة هامة تم تعديل الملف الدفعى ليعمل كمسئول من تلقاء نفسه بمجرد فتح قاعدة بيانات الاكسس حتى يتمكن الجميع بما فيهم من ليس له دراية بطريقة تسجيل المكتبات بتشغيلها كمسئول متطلبات التشغيل : Framework الاصدار 4 ------------------------------------------------------------------------------- يمكن تحميل الملف الاتى هو يقوم بالتحديثات اللازمة سواء ويندوز 7 , 10 , 11 إذهب الى موقع التحميل : من هنا ( تحميل مباشر من mediafire .. من رفعي انا على حسابي الشخصي بالموقع ) ميزات برنامج All in one Runtimes: سهل الاستخدام و مفيد للغاية في تقليل الزمن الضروري للبحث عن الأدوات كلٍ على حدا. مجاني بشكل كامل و يقدم الكثير من الفائدة و يمكنه حمايتك من المواقع التي قد تصيب جهازك بفيروسات سيئة عند التحميل منها. يعمل بشكل ذكي حيث يقوم بتحديد ما يحتاجه حاسبك و لن يقوم بتثبيت كل الأدوات بشكل عشوائي. يقدم مجموعة كبيرة من الأدوات الضرورية في حاسبك و أهمها: .NET Framework 4.6 + Updates Java Runtime Environment 8 DirectX 9.0c Extra files General runtime files Microsoft Visual C++ Runtimes (v2005 – v2015) Microsoft Visual J# 2.0 SE Microsoft Silverlight 5 Shockwave Player 12 (Internet Explorer Plugin) ------------------------------------------------------------------------------- لكبر حجم المرفق تم تقسيمه على قسمين برجاء وضع القسمين معا فى نفس المسار ليتم فك الضغط بنجاح 626302988_VBA_ZatcaIntegrationV2.part1.rar 1345862990_VBA_ZatcaIntegrationV2.part2.rar

السلام عليكم ورحمة الله وبركاته اخواني كما تعلمون انه خلال الفتره القادمه في بداية سنة 2023 سوف يتم تطبيق المرحلة الثانية من متطلبات الفاتورة الاكترونيه في المملكة العربية السعودية وسبق انه تم النقاش في المرحله الاولى في هذه المواضيع رمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية: 1. https://www.officena.net/ib/topic/112126-موضوع-مهم-للنقاش-ماهو-مستقبل-الاكسس-بعد-تطبيق-المرحله-الثانيه-للفاتوره-الاكترونيه/ 2. الموضوع والمرفقات النهائية لرمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية 3. https://www.officena.net/ib/topic/112589-مكتبة-الموقع-الفاتورة-السعودية-المبسطة/ وتم حلها بشكل كامل ولله الحمد وهذا بفضل الله ثم بجهود اخواننا الكرام جزاهم الله خير وبارك فيهم وبعلمهم وهذه المواصفات المطوبة للمرحلة الثانيه تحت الرابط التالي https://zatca.gov.sa/ar/E-Invoicing/SystemsDevelopers/Pages/E-Invoice-specifications.aspx وكما تعلمون ان بعض المبرمجين لهم برامج تعمل على الاكسس عند عملائهم وبكل تاكيد راح يتطلب منهم تحديث برامجهم لمتطلبات الفاتوره الأكثرونية المرحله الثانيه وإلا سوف يخسر عملائه ويقع في احراج ارجوا من أساتذتنا الكرام ومبرمجينا الافاضل النظر في هذا الموضوع بعين الاعتبار لاننا بحاجة ماسه جدا لحل هذا الموضوع ووضع امثله عليه حتى يستفيد منه الجميع ويتحقق الهدف السامي اللي قام عليه هذا المنتدى القدير

على النعمه انت 100 الميه وشكلك بتقول كلام كبير قوى بس انا ولا فاهم اى شئ .. أعذرنى الله اعلم بحالى لو انا قدرت افهم قليلا المشكلة مش فى قاعدة الاكسس ولا الاكتيف اكس اللى فى المكتبات الداخليه للاكسس مطلقا المشكلة ان الملف الدفعى نفسه اللى يسجل مكتبات الـ Dll الخارجية التى يتم الاستعانه بها هو الذى يعمل بالاصدار NET Framework 4.6 افتح الملف الدفعى باسم Register فى المرفق من المجلد Tools انا استخدمت هذا السطر لتسجيل المكتبات C:\Windows\Microsoft.NET\Framework\v4.0.30319\regasm.exe وذلك لتفادى كل المشكل التى واجهتها بشبح الاصدار الاول حى يعمل على انطمة 7 و 10 و 11 >> 32 /64 لا تبدأ بالاعتراض اصبر وتريس احمد ربنا انك لم تشارك فى هذا الموضوع الشبح اسال اللى حضر واللى قرأ واللى اغمى عليه من عدم النوم بالايام والليالى

انت تانى وشبح الفاتورة الإلكترونية مصدقنا خلصنا منها يا رااااااااااااااااجل

السلام عليكم ورحمة الله وبركاتة الأخوة الكرام المطورين بلغة VBA او Access كما تقولون الحل ان شاء الله انك تطوير المرحلة الثانية كمكتبة بلغة متطورة مثل ال C# او Java ويتم اضافتها فى برنامجكم ابدأو فى التنفيذ وانا هساعدكم بأذن الله

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

السلام عليكم ورحمة الله وبركاته تحية طيبة وبعد اهدى هذا الشيت الى منتدى اوفيسنا واساتذته الذين تعلمنا على ايديهم واهديه الى مهندس المنتدى مهندس طارق محمود الذى لم يبخل على فى تقديم الحلول والمساعدات ، وحقيقة وجودى فى منتدى اوفيسنا يعد تكريما لى وشرف الشيت سهل الاستخدام ولا يحتاج الى شرح يوجد ايقونة باسم الصور اذا حبيت تضيف صورة للطالب وبجوار زر الصور زر اخر لمعاينة الصورة ان حبيت تعمل معاينة للصور 1795607452_.xlsm

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

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

وعليكم السلام 🙂 ضع هذا الكود في احداث النموذج وسيؤدي العمل : Option Compare Database Option Explicit Dim Goto_L As Boolean ' Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer) If ApplyType = 1 Then Goto_L = True End If End Sub Private Sub Form_Current() If Goto_L = True Then DoCmd.GoToRecord , , acLast Goto_L = False End If End Sub . . جعفر New Microsoft Access Database.zip

أعترض 🙂 ، لم أشارك ولم أقرأ التفاصيل ولكن لا أعتقد أن vba عاجز عن الحل، وشكرا لكم. همممم اعتقد بأن اخونا عمرو قصده ، بأنها اسهل بلغة #C او Java 🙂 جعفر

مبارك عليك استاذي @AbuuAhmed الترقية ونفع الله بك وزادك الله من فضله اعتذر على التأخير بسبب ظروفى فى تقديم التبريكات والتهنئة وقطعا ان هذ تكليف وليس تشريف لذا اعانكم الله ونفع بكم وجعل ما تقدمون فى موازين اعمالكم ولكن ان حضرت متأخرا أفضل من ان ألا آتى أبدا واجمل باقة ورد لورد المنتدى اخانا الحبيب @AbuuAhmed

أعترض 🙂 ، لم أشارك ولم أقرأ التفاصيل ولكن لا أعتقد أن vba عاجز عن الحل، وشكرا لكم.

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

أعتذر، رفعت لك ملفا مختلفا بالخطأ ، الآن جرب بعد رفع المثال الصحيح.

السلام عليكم اخي ابو جودي 🙂 الله ان شاء الله يعطيك الصحة والعافية ووالدك الكريم ، وما تشوفون شر ان شاء الله 🙂 مكتبة الموقع تسمح لك بإرفاق ملفات اكبر ، فوضعت المجلد هنا : https://www.officena.net/ib/files/file/403-المجلد-vba_zatcaintegration-v2/ . جعفر

اضفت لك تعديل الفصل علي الملف بطريقة سهلة بدلالة رقم الصف في الشيت لان عندك بيانات متكررة وما يكون فيه خلل في التعديل بعد حفظ البيانات فعل خاصية Edit ثم دبل كليكSelect Row علي اي صف تريد تغير بيانات الفصل تظهر في التكست اعلاه ثماختار من قائمة الكمبوبوكس الفصل الجديد قم OK عاوزك تضبط المدرسين في الحصص زود عليهم احسن من قعدتهم علي الموبايلات تاركين الطلبة (ههههه) جرب وقلي النتيجة Fawzy 10.xlsm

جرب وخبرنا مثال للدائن والمدين_01.accdb

استاذي @ابوبسمله هل ينفع اعملها بالكود و كيفية تنفيذها

وعليكم السلام ورحمة الله بإضافة قوائم منسدلة للتوقيت من... إلى... (ساعات ودقائق) وللتاريخ ومعادلات مساعدة تم عمل المطلوب في الملف المرفق... أرجو أن يفي ما تريده... ملاحظة : تم إضافة كلمة سرية لحماية الملف من التعديل وهي: 123 نموذج ساعات1.xlsx

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

عليكم السلام وورحمة الله وبركاته ..... احبك الله الذي احببتني من اجله وجزاك الله خيرا علي دعائك الطيب واللهم يتقبل منا ومنكم صالح الاعمال وادعوا الله ان اكون عند حسن ظنكم في اليك الفورم بعد التعديلات يمكن اضافة مدرسي التربية والتعليم دفعة واحدة وتوزع الجداول كما شئت وادعوا الله ان يلتزموا بها ربنا يصلح حال المدرسين لانهم هم الاساس في بناء المجتمع من ليست بوكس المدرسين اختار المدرسين وبعد اختار المدرس الهدف يلي هاتنسخ منه البيانات ثم Ubdate list ثم Save Data .... تظهر لك رسالة تاكيد الخفظ والترحيل لةورقة العمل وبعد رسالة تخيرك الاحتفاظ بالقائمة القديمة المحفوظة مسبقا ولا تعملك قائمة جديدة جرب الملف واعلمني بالنتيجة وبالتوفيق فوزي 9 اوفيسنا.xlsm

الشرح عن طريقة عمل الامر iif في الاستعلام ، ولكني عملتها في VBA وكنت استطيع عملها في برنامج Notepad ، فقط لأشرح طريقة عملها بخطوات سهله ، ثم تجميعها (بحذف علامة _ ) وجعل الجملة في سطر واحد ، ثم اخذها الى الاستعلام 🙂

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

وعليكم السلام 🙂 شكرا لكم جميعا 🙂 سبق وان تم مناقشة الموضوع هنا (لا ادري اذا كلمة المرحلة الثانيه يغيّر من الموضوع) : رمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية: 1. https://www.officena.net/ib/topic/112126-موضوع-مهم-للنقاش-ماهو-مستقبل-الاكسس-بعد-تطبيق-المرحله-الثانيه-للفاتوره-الاكترونيه/ 2. الموضوع والمرفقات النهائية لرمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية 3. https://www.officena.net/ib/topic/112589-مكتبة-الموقع-الفاتورة-السعودية-المبسطة/ جعفر

شكرا لك .. أعتقد أنه من حقك أن تعلن عن منتجك .. ولكن في قسم (إعلانات شخصية بأجر للاعضاء) نحن هنا نتبادل المعرفة . وموضوعك إعلان تجاري ولكن بصيغة مغلفة

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

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

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

سلمك الله من كل سوء وشر وما انا الا طالب علم اتعلم معكم .... كيفية تنفيذ ذلك نعم بالتاكيد ولكن اين كود الاختبار المقصود فالمثال ؟ بالتوفيق

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

مرحبا... المعادلة المستعملة في الكود لا أعرفها... أما التي أعرفها واكتشفتها مؤخرا هي معادلة "هيرون" والتي صيغتها : =SQRT(s*(s-a)*(s-b)*(s-c)) حيث: a، b، c هي أطوال أضلاع المثلث و s = (a + b + c)/2 وليس لي جواب آخر....

استاذ محمد ، هل كان قصدك 2003 🙂 جعفر

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

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

وجهة نظر معقولة ✔️

ما لا يُدرَكُ جُله .. لا يُترك كُله 😊 بارك الله فيك مهندسنا ووالدنا العزيز خالد 🙂 مثالك هو أحد السيناريوهات الكثيرة التي قد تحصل .. وعندك حق في هذا .. ولكن أنا كان جل تفكيري في الموضوعات التي بإقرار صاحب الموضوع على حصوله على الإجابة الأفضل وقد يشير إليها ( ولكنه لا يضغط على الزر ) .. !! وكذلك المواضيع التي تُحل ويمضي عليها فترة من الزمن ( ليست بالقليلة ) ولا يضغط صاحبها على الزر أيضا !! وهذه هي المواضيع التي أشرت على أنها قد تمثل 70% من مواضيع المنتدى .. ( هذا العدد كبير في نظري ) .. سؤالي كان : أنتركها هكذا كما هي ؟؟ أم نعين صاحبها على هذا الزر المسكين فنضغطه نيابة عنه ؟ 😅

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

تتمة : والقائمة الموجودة في هذا الموضوع ( دروس وشروح وتطبيقات وأفكار _ مواضيع مهمة مثبتة) أيضا تحتاج لتحديث مستمر .. وترتيب وتصنيف وتنسيق 🙂

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

وعليكم السلام اخي جعفر بدخل في الموضوع مباشرة القوانين وضعت للتنظيم وليست للتنفير اغلب اعضاء الموقع ممن يسهموا في تقديم الحلول ومشاركة الخبرات يكتبون باسماء مستعارة فالهدف نشر المعرف وتقديم يد العون للاخرين كل بمجهوده والتضييق على البعض منهم باغلاق مواضيعهم او تحريرها بدون اسباب موضوعية امر يدعو للتعجب اخيرا قالت العرب : من شدد نفر و من تراخى تألف واصدق من ذلك قوله عز وجل " فَبِمَا رَحْمَةٍ مِّنَ اللَّهِ لِنتَ لَهُمْ ۖ وَلَوْ كُنتَ فَظًّا غَلِيظَ الْقَلْبِ لَانفَضُّوا مِنْ حَوْلِك " اكتفي بما سبق والله الموفق .

جرب جساب الفرق بين تاريخين.xlsx

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

ماشاء الله بارك الله بك .. تمت التجربة بنجاح

غفر الله لك ولوالديك استاذنا ابو جودى

في البداية ...شكرا لمجهودك العظيم وفي النهاية ..هو لا طويل ولا اقصير ..لاني حاولت اجربه ولم افلح لاني حينما وجدت CREAT TABLE تصورت انه سيعمل جدول بالتغييرات

السلام عليكم ورحمة الله منذ أن وضعت طلبك بقيت أحاول فيه إلى اليوم وهذا لقلة معرفتي بـ VBA، وأقدم لك نتيجة عملي وتعديلاتي المتواضعة على الأكواد في الملف المرفق (ربما يقوم أحد الأعضاء بتحسينها وتبسيطها)... بن علية حاجي قرعة متعددة الاختيار (1).xls

السلام عليكم هذه طريقة بسيطة بالكود لإخفاء واظهار اعمدة فصلته هنا لتعم الفائدة اولا تعمل كود رئيسي مثل هذا Sub kh_ColumnHidden(ColumnAddres As String) Columns("C:W").EntireColumn.Hidden = True Columns(ColumnAddres).EntireColumn.Hidden = False End Sub حيث انه يقوم باخفاء جميع اعمدة المواد ويظهر النطاق الخاص بالمادة المشار اليه بالمتغير ColumnAddres ثم تعمل اكواد لربطها بالازرة تعين فيها اعمدة المادة التي تريد اظهارها مثل هذا Sub M() kh_ColumnHidden "C:E" End Sub المرفق 2003 اظهار واخفاء اعمدة.rar

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