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

السلام عليكم ورحمة الله وبركاته إخواني الكرام وأحبابي في الله أقدم لكم اليوم موضوع خفيف دمه ظريف ، ومفيد جداً جداً إلى أبعد مما تتصور ...الموضوع يتمركز حول استخدام كلمة NOT والتي تعكس القيمة أي إذا كانت القيمة True فإنها تصبح False ، وإذا كانت القيمة False تصبح القيمة True ... وإليكم أمثلة تطبيقية لتأكيد المعلومة وكيفية الاستفادة منها المثال الأول : Sub ToggleFormulaBar() Application.DisplayFormulaBar = Not Application.DisplayFormulaBar End Sub نجد نفس السطر اللي على اليسار هو هو كما على اليمين ، فقط أضفنا كلمة NOT والتي تعكس القيمة فإذا كان شريط المعادلات مخفي أصبح ظاهراً ، وإذا كان شريط المعادلات ظاهراً أصبح مخفياً .. سأدرج بقية الأمثلة مع ذكر الفائدة من كل كود ، والفكرة نفسها في كل الأمثلة ------------------------------------------------------------------------------------------ المثال الثاني : Sub ToggleShowZeros() ActiveWindow.DisplayZeros = Not ActiveWindow.DisplayZeros End Sub الكود لإظهار القيم الصفرية وإخفائها المثال الثالث : Sub ToggleGridlines() ActiveWindow.DisplayGridlines = Not ActiveWindow.DisplayGridlines End Sub الكود لإظهار خطوط الشبكة وإخفائها المثال الرابع : Sub ToggleDisplayHeadings() ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings End Sub الكود لإظهار عناوين الصفوف والأعمدة المثال الخامس : Sub ToggleScrollBars() ActiveWindow.DisplayHorizontalScrollBar = Not ActiveWindow.DisplayHorizontalScrollBar ActiveWindow.DisplayVerticalScrollBar = Not ActiveWindow.DisplayVerticalScrollBar End Sub الكود لإظهار أشرطة التمرير الأفقية والرأسية وإخفائها المثال السادس : Sub ToggleWorkbookTabs() ActiveWindow.DisplayWorkbookTabs = Not ActiveWindow.DisplayWorkbookTabs End Sub الكود لإظهار تبويبات المصنف أي أسماء أوراق العمل المبوبة وإخفائها المثال السابع : Sub ToggleStatusBar() Application.DisplayStatusBar = Not Application.DisplayStatusBar End Sub الكود لإظهار شريط الحالة وإخفائه المثال الثامن : Sub ToggleShowFormulas() ActiveWindow.DisplayFormulas = Not ActiveWindow.DisplayFormulas End Sub الكود لإظهار المعادلات في ورقة العمل وإخفائها (التعامل هنا ليس مع شريط المعادلات) المثال التاسع : Sub ToggleShowColumns() Columns("I:J").Hidden = Not Columns("I:J").Hidden End Sub الكود يقوم بإظهار الأعمدة I و J وبالطبع إخفائها أرجو أن يكون الموضوع نال إعجابكم ... وهذه صورة من الملف المرفق حمل الملف من هنا وأخيراً تقبلوا وافر تقديري واحترامي

فيديو لإظهار قيم نتائج متعددة باستخدام دوال If, small, index, iferror وهو ما تعجز عنه دالة vlookup ودوال index مع match وتغنى عن دالة Vlook2all اليكم الرابط

حياك الله استاذ كرار يبدو اني خلطت الأمور هو فعلا كذلك ... الذي خلط الأمور هو اني مهتم بنموذج البداية ويهمني ان تظهر الأيقونة بدل مفتاح الأكسس ولاحظ حتى لو اخترنا الأيقونة يدويا .. ان الوضع هو نفسه .. لا تتأثر ايقونة الملف نفسه ولكن تتأثر النماذج والتقارير . انت ترغب في تغيير ايقونة القاعدة نفسها .. يدويا كما ذكرت في الردود السابقة بعمل اختصار ومن ثم اختيار الايقونة طريقة اخرى عند التحزيم انا استخدم access developer extension وهو يسمح لك بإختيار ايقونه وينشئ عنك الإختصار على سطح المكتب وقائمة ابداء. في 2010 اعتقد لديك package solution يقوم بنفس المهمة . الموضوع هذا من اولة فيه لخبطه ههههههه. اعتذر بالتوفيق

وجزيت خيراً بمثل ما دعوت لي أيها الصقر .. بارك الله فيك ومشكور على مرورك العطر بالموضوع

السلام عليكم ورحمة الله تعالى وبركاته كنت قد بدات هذا الموضوع من قبل وهو خاص بجعل العميل يرسل لك تقييم عن برنامجك او رسالة خاصة بالاخطاء الفنيه . كل هذا يرسله العميل لك بالبريد الاليكترونى ووجدنا انه من الصعوبة فتح كل بريد وارد لرؤية اللتقييم به ومن الصعب الحصول على فلترة لتلك الايمالات لاستخلاص منها درجات التقييم خاصة وان كان عدد مبيعات برامجك كبيرة فهدانا الله الى انشاء قاعدة بيانات لتكون منصة لاستقبال البيانات التى يرسلها عملاؤنا من جميع انحاء العالم وكان السؤال كيف سيتم الاستغناء عن ارسال ميل خاص بكل تقييم ؟؟ وكيف سيتم ربط قاعدة البيانات لديك كمصمم بكل برنامج تبيعه لعملاؤك لمعرفة ذلك يرجى متابعة هذا الموضوع بكل صفحاته بتعليقاته شرح بسيط مع الصور صورة نموذدج التقييم ملاحظة بسيطة ارجو كتابة الاسم عند ارسال التقييم فى زر ارسال التقييم قمت بادراج كود الربط الذى سيربط نموذج التقييم بالجدول المرفوع على سيكوال سيرفير هذا الكود ستجدونه هنا فى موقع ميكروسوفت الرسمى https://support.microsoft.com/en-us/kb/892490 والان منصة استقبال التقييمات وهو عبارة عن نموذج مربوط برمجيا بقاعدة سيكوال سيرفير هذا النموذج يمكنه الاتصال بكل برنامج تبيعه للعملاء دن الحاجة الى ستقبال الميل لن يتم ارفاق قاعدة البيانات الخاصة باستقبال التقييمات الان فقط سيتم ارفاق نموذج التقييم فقط وارجوا منكم ارسال تعليقاتكم وتقييماتكم من نموذج التقييم وهى ستصلنى ان شاء الله وسارفقها لاحقا نموذج التقييم.rar

شكرا أستاذ وائل وأتمنى انى أكون دائما عند حسن الظن أشكرك أستاذ ياسر على ردك وكلامك الجميل ومرفق ملف بالتطبيق معادلات البحث بقيم متعددة.rar

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

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

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

اخوانى بارك الله فيكم شكر الله لكم جهدكم المشكلة لدى لا تكمن فى انشاء قاعدة البيانات ولكن المشكلة فى كيفية ارسال العميل لى التقييم فانا لا اريد العميل ان يرسل لى ايميل بالتقييم فسوف اشق على نفسى بقرائة كافة الايملات الواردة واستخلاص المعلومات منها على حدا ما فكرت به واعكف الان على تنفيذه بعون الله اتممت جزء كبير جدا منه 1 - قمت بانشاء قاعدة بيانات لدى اسميتها منصة استقبال التقيمات 2 - قمت بانشاء جدول به خمسة حقول (اسم البرنامج - اسم المستخدم - التقييم - الايميل - التعليقات) 3 - قمت برفع هذا الجدول على قاعدة بيانات سيكوال موجودة على استضافة 4 - وفى كل برنامج ابيعه انشئت النموذج المذكور سلفا والخاص بالتقييم 5- اى (قمت بربط هذا النموذج بالجدول الموجود على سيكوال ) عند الارسال فسيقوم النموذج بارسال المعلومات الخاصة بالتقيم وربطها بقاعدة البيانات لدى من اى مكان على وجه هذه الارض جارى تجهيز المرفق ان شاء الله سيتم ارفاقه هنا ليستفيد الجميع

وجزيت خيراً أيها المتهرب من ذكر اسمه .. قلت لك مش هسيبك بارك الله فيك وجزيت خيراً على مساهمتك الجميلة والرد عليها بهذا السطر CommandButton1.Caption = IIf(CommandButton1.Caption = "1", "2", "1") أبسط وأيسر

السلام عليكم ورحمة الله وبركاته لدي استفسار بسيط بخصوص الدالة if وان شاء الله اجد لديكم الجواب ارغب عندما اضع في خانة مرتجع الشركة اي قيمة ويكون رصيد الصنف اصلا صفر يظهر لي رسالة تذكير مرتجع خطأ وليس بيع بالسالب .. ارفقت ملف للايضاح اكثر وشكرا للجميع مقدما Book1.rar

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

بسم الله الرحمن الرحيم اخوانى الكرام السلا م عليكم ورحمة الله وبركاتة اقدم لكم اليو م فيديو جديد وحصرى وهو عن كيفية عمل Check Box Control in Excel بالمعادلات لمشاهدة الفيديو من هنا https://youtu.be/l1YLu7azI50 المرفقات تشيك بوكس.rar

السلام عليكم جرب هذه الطريقة القرآن العظيم كاملا موثقا1.rar

هذا المرفق لحل الطلب الذي قمت بطلبة لتحميل من هنا

=IFERROR(INDEX(Table1[القيمة];MATCH(A2;Table1[[المخالفة ]];0);1);"") السلام عليكم ورحمة الله اكتب هذه المعادلة و اسحب نزولا

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

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

أين الأخوة الكرام بارك الله فيهم ولا حرمنا الله من توجيهاتهم * لا أعرف لدى شعور أن الجميع في اجازة اليوم هل هناك مباراة هامة وأنا لا ادرى (ابتسامة) أم أننا اثقلنا عليكم. عموما بعد تنقلى وتصفحى بين العديد من أعمال الأخوة الأفاضل وخاصة الأخ المبدع ياسر خليل يبدوا أننى سأكتفى بمحاولة خوض غمار تلك المواضيع مضطرا وربنا يستر ونخرج منها سالمين (لم اكن اود بصدق أن ادخل في هذا الطريق بتوسع حرصا على وقت خدمة الهدف الأساسي لموضوعى بشكل مباشر وليتنى وجدت في قسم الاكسيس مثل الأخ الفاضل ياسر أبو البراء في علمه وتواضعه حفظك الله أخانا الحبيب ونفع الله بك وتقبل منك ومن جميع الأخوة المحترمين في هذا المنتدى الكريم والله المستعان) اقترح على الأخوة فكرة إنشاء موضوع مثبت يتم فيه تجميع المشاركات التى تهتم بالمبتدئين فقط بغية أن يأخذوا الطريق الصحيح (دون توسع مفرط) من بدايته وان يسيروا فيه بخطوات منهجية واضحة تمكنهم من الاعتماد على انفسهم في بعض الاعمال البسيطة بالبرمجة بتوجيه وارشاد من الأخوة المحترفين) أخيرا إليكم ما وعدت به ملف به بيانات عن سور وآيات القرآن وشكرا جزيلا للجميع جزاكم الله خيرا (هناك ملفات أخرى لم استطع رفعها لأن حجمها اكبر من حجم الرفع ولا يمكن تقسيمها لوحدة موضوعها) والآن أقترح على أخى ياسر غلق الموضوع للرفع بيانات آيات القرآن العظيم.rar بيانات سور القرآن العظيم.rar Quran Details برنامج يعطيك تفاصيل كاملة عن القرآن وعن كل سورة.rar

جزاك الله خيراااا أخي وفتح عليك في الدنيا والآخرة،،،وإن شاء الله سوف أعمل بنصيحتك.

اذا ممكن ترفق مثال للتعديل عليه ... أو إطلع على هذا المثال ... RIT2.rar

استاذ سعيد لما ضغت الزر ظهرت رسالة don لكن التغيير الوحيد هو رمز النموذج و التقرير

حياك الله استاذ سعيد ... اخ و استاذ عزيز ... و هذه طريقة بدون استعلام ... RIT2.rar

تمام اخي ... ان شاء الله ارفعه لك اليوم

هذا هو الحل شكرا جزيلا وجزاك الله كل خير

اخي احمد استخدم مربع البحث في الاعلى ... و ستجد ما لذ و طاب من الامثلة بهذا الخصوص ...

اتمنى ان يكون هذا هو المطلوب ... 3 للحل.rar

اخي الكريم ابو يوسف يكفيني مرورك الكريم هذا بارك الله فيك تقبل فائق احترامي

بارك الله فيك سيد ياسر خليل عين المطلوب شكر جزيلا

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

إن شاء الله ننتظر النسخة الأخرى حالما يتيسر لك الأمر أخي الحبيب محمد الريفي نحتفظ بالروائع من الأعمال .. فلا تجرمنا من تحفك الفنية

اليوم باذن الله سنقوم بشرح المصفوفات (المصفوفات)Arrays Arrays (المصفوفات) : يتم التخزين في المصفوفة باحجام ثابتة و متتابعة و تكون العناصر من نفس النوع يعني مثل (string , integer ) يتم استخدام Arrays (المصفوفة) في تخزين البيانات و سهولة ترتيب الاكواد و اختصارها و تستخدم دائما في المشاريع الكبيرة . وتعريف أبسط : هي عبارة عن مجموعة من المتغيرات من نفس النوع مخزنه في مصفوفة نروح لمثال لتطبيق عدد من المتغيرات String كالاتي Dim aa As String Dim bb As String Dim cc As String Dim dd As String Dim ee As String Dim ff As String Dim gg As String aa = "ياسر" bb = "محمد" cc = "اسيل" dd = "ابو البراء" ee = "ابو يوسف" ff = "الفلاحجي" gg = "عبد العزيز" الكود السابق هو الاعلان عن متغيرات متعددة من نوع استرنج وتم تعريفهم باسفلهم طيب اللي فات متغيرات واحنا أخدناها من قبل طيب ايه نظام المصفوفات دي نشوف الكود التالي Dim aa(6) As String aa(0) = "ياسر" aa(1) = "محمد" aa(2) = "اسيل" aa(3) = "ابو البراء" aa(4) = "ابو يوسف" aa(5) = "الفلاحجي" aa(6) = "عبد العزيز" الكود اللي فات دا بيعبر عن مصفوفه بسيطة تتكون من سبع عناصر مع العلم اننا قمنا بتحديد العدد 6 في الاعلان ؟؟؟؟ لانه المصفوفة بتبدأ من الصفر كما ظهر في التعريف اسفل الاعلان وممكن نكتبها بطريقة اخرى ايضا مثل الكود التالي Dim aa() As String = {"ياسر", "محمد", "اسيل", "ابو البراء", "ابو يوسف", "الفلاحجي", "عبد العزيز"} انا هنا لم احدد عدد العناصر داخل المصفوفة وسيبنا الاقواس مقفوله بدون رقم ولكن قمنا بتعريفها بجانب الاعلان وهي بنفس الاعداد بترتيبهم من جانب علامة يساوي يعني الطريقة دي هي نفس اللي فوقها نستطيع اختبار النتيجة عن طريق عمل تكست بوكس واحد وزر للاختبار ونضع الكود التالي داخل الزر لاظهار النتيجة في التكست بوكس TextBox1.Text = aa(0) ايه اللي هيظهر لما نطبق الكود دا هيظهر لينا ياسر في كلتا الحالتين السابقتين من كتابة المصفوفة طيب المصفوفه اللي اخدناها دي تعتبر مصفوفة ذات البعد الواحد مصفوفة الone dimensional (البعد الواحد) ودي صورة توضيحية لكيفية عملها وتستطيع تغيير الارقام في الكود التالي كما هي موضحه بالصور واشوف النتيجة 'اكتب واحد من الاسطر الاتية كل مره وشوف النتيجة TextBox1.Text = aa(0) TextBox1.Text = aa(1) TextBox1.Text = aa(2) TextBox1.Text = aa(3) TextBox1.Text = aa(4) TextBox1.Text = aa(5) TextBox1.Text = aa(6) طيب دي مصفوفة مكونة من صف واحد فقط ازاي نقدر نحدد صفوف اكتر ودا في القسم الثاني من شرحنا المصفوفة ذات البعدين Two dimensional (البعدين) وهذه المصفوفة تتميز بتخزين اعمدة وصفوف متعددة طبعا اخواتنا عارفين في الاكسيل ان موجود صفوف واعمدة ولما نحدد خلية عن طريق كود برمجي بنحددها كدا Cells(1, 2).Select يبقي الخلية كما بالصورة هي المحددة بالكود هتفهموا الصورة دي يبقي كدا عرفنا المصفوفة ذات البعدين طيب نشوف كود المصفوفة دي بيتكتب ازاي Dim aa(2, 3) As String aa(0, 0) = "ياسر" aa(0, 1) = "محمد" aa(0, 2) = "اسيل" aa(0, 3) = "ابو البراء" '-------------------- aa(1, 0) = "ابو يوسف" aa(1, 1) = "الفلاحجي" aa(1, 2) = "عبد العزيز" aa(1, 3) = "ياسر1" '--------------------- aa(2, 0) = "ياسر2" aa(2, 1) = "ياسر3" aa(2, 2) = "ياسر4" aa(2, 3) = "ياسر5" TextBox1.Text = aa(2, 1) ركزو معايا المفروض دي عبارة عن ثلاثة صفوف واربعة اعمدة وبنعلن عنها كدا (2,3) لان الصفر عندنا يعتبر عمود وصف طيب الكود السابق دا التكست بوكس1 الناتج هيكون ايه ؟؟؟؟؟؟؟ هيطلع ياسر3 طيب صور توضيحية عشان نتأكد الجدول السابق بيبين لينا تقاطع الصفوف مع الاعمدة والارقا موضحه بالجدول العلوي والاسفل منه يوضح البيانات الموجودة بداخل الجدول مثلا طيب نشوف الصورة دي ياريت تكون الصورة وضحت اكتر بالنسبة للمصفوفات من نوع المتعددة الابعاد Arrays Multi dimension وممكن نكتبها بالطريقة الاخرى هكذا Dim aa(,) As String = {{"ياسر", "محمد", "اسيل", "ابو البراء", "ابو يوسف", "الفلاحجي", "عبد العزيز"}, {"1", "2", "3", "4", "5", "6", "7"}, {"8", "9", "10", "11", "12", "13", "14"}} TextBox1.Text = aa(0, 2) نيجي نشوف نتيجة الكود دا ايه هي الاول لازم نعرف ان كل اقواس مغلقة تعتبر صف يبقي عندنا كام صف ثلاثة وست اعمدة لان لدينا ست قيم في كل صف طيب التكست بوكس اللي في الكود هتساوي ايه اولها الصف وهو صفر يعني الصف الاول والثاني العمود ورقمة 3 يعني القيمة الرابعة لان الصفر يعتبر واحد وهي "أسيل" طبعا الكود معكوس هنا لما تنسخ وتحط داخل البرنامج هتوضح معاك ارجو أن أكون قد وفقت في الشرح . الردود والاستفسارات عن سلسلة دروس الفيجوال بيسك دوت نت في امان الله . تقبلو تحياتي ياسر العربي يتبع

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

السلام عليكم هذه الطريقة في توليد الأرقام صالحة لأي برنامج بمعنى ليس بالضرورة أن يكون منجز بالإكسل ملاحظة 1 يمكن توليد أكثر من 100 صف أفقيا كما هو الآن و ذلك بتغيير المتغير x و يمكن توليد أكثر من عشر أعمدة رأسيا كما هو الآن و ذلك بتغيير المتغير y كما أن الكود يقوم بالتأكد من تشابه الأرقام التسلسلية فإن كانت هناك مشكلة يخبرك بها و يقوم بتلوين الخلايا المتشابهة ملاحظة 3 كل هذه الحيل لا تنطلي على متخصص في الإكسل لكن المعروف أن المتخصص لا يشتري برنامجا بل يصنعه بنفسه . و السلام عليكم توليد سريل نمبر.rar

جزيت خيرا شيخ والله ممتاز

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

تمت معالجة الامر (كلمة السر) salim أحرف صغيرة الملف 2010 اذا كان عندك 2003 يمكن التغيير حماية الصفوف من التغيير ة salim.rar

جزيت خيرا اضافة ظهور الاسماء تظهر تلقائيا مع الجمع

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

وعليكم السلام استخدم الكود اللي استعملناه في الاستعلام: في النموذج ، وبعد ان تدخل اسم ولي الامر ، استخدم الكود اعلاه (وليس الاستعلام) في msgbox ، وسيحسب لك المتبقي عليه ويخبرك بذلك جعفر

وعليكم السلام انا غيرت في الجدول ، وجعلت الامكانية ، لكل نموذج اسم مستقل الوحدة النمطية التي تقوم بالعمل: Function myName(F) myName = DLookup("[frm_Caption]", "tbl_frm_Caption", "[frm_Name]='" & F & "'") End Function ونناديها سواء على حدث "تحميل النموذج" او "فتح النموذج" ، هكذا: Me.Caption = myName(Me.Name) والنتيجة جعفر 365.for form.Caption.mdb.zip

اخواني احتاج كتاب يشرح اوامر الاستعلام و كتاب للماكرو .. وشكرا

بسم الله ماشاء الله ربنا يبارك فيكم ويجزيكم خير حلول رائعه من اساتذه المنتدى سامحنى استاذى ابوالبراء فاننى (احبط ) احيانا نتيجة لعدم التفاعل -------. واليكم فهذه حلول متواضعه بجانب حلولكم والحقيقة كان هذا سؤال من احد الناس فوجدت انه يستاهل التفكير فاحببت ان اطرحه واشاركه معكم حتى نبدع جميعا واتمنى من الجميع تقديم المزيد والمزيد من الحلول الحل الاول =IF(MID(CONCATENATE(A1,IF(B1<>"","/",""),B1,IF(C1<>"","/",""),C1,IF(D1<>"","/",""),D1,IF(E1<>"","/",""),E1),1,1)="/", REPLACE(CONCATENATE(A1,IF(B1<>"","/",""),B1,IF(C1<>"","/",""),C1,IF(D1<>"","/",""),D1,IF(E1<>"","/",""),E1),1,1,""), CONCATENATE(A1,IF(B1<>"","/",""),B1,IF(C1<>"","/",""),C1,IF(D1<>"","/",""),D1,IF(E1<>"","/",""),E1)) الحل الثانى =A1& IF(AND(A1<>"",COUNTA(B1:E1)),"/","")& B1 & IF(AND(B1<>"",COUNTA(C1:E1)),"/","") & C1 & IF(AND(C1<>"",COUNTA(D1:E1)),"/","") & D1 & IF(AND(D1<>"",COUNTA(E1)),"/","") & E1 الحل الثالث دالة UDF وليست من اعدادى بل منقوله =ConcatRange(A1:F1,"/") Option Explicit Function ConcatRange(R As Range, Optional sDelim As String = " ") As String 'If no delimiter specified, delimiter will be a space Dim C As Range Dim V As Variant Dim COL As Collection Dim I As Long Set COL = New Collection For Each C In R If C <> "" Then COL.Add C.Text Next C ReDim V(0 To COL.Count - 1) For I = 0 To UBound(V) V(I) = COL(I + 1) Next I ConcatRange = Join(V, sDelim) End Function Concatenate%20formula.rar

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

تفضل أخي هذا الكود عسى يفيدك هو غلق الفورم بعد 10 ثواني وبإمكانك التحكم في التوقيت ActiveWorkbook.close.rar

اخي العزيز مرفق لك كتابين بالعربي ارجو ان تستفيد منهما ولا تنسى الدعاء للكاتبين والمرسل تحياتي,,, ADO & DAO.rar