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

يا ابن مصر قلنا قبل كدا (كل السبل تؤدي إلى أوفيسنا ، ولكن أوفيسنا تأبه لكل أحد) أظنك فاهمني يا ابن بلدي بارك الله فيك على ملفك الرائع ..أنت دائما السهل الممتنع .. أيها المدهش (سألقبك بهذا اللقب إذا سمحت لي) تقبل تحياتي أيها المدهش

تنور المنتدى أبو نواف تفضل الملف المرفق Hide Unhide YK.rar

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

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

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

السلام عليكم ورحمة الله وبركاته الاساتذة الكرام والاخوة الاعزاء جزاكم الله خيرا قمت بتعديل بسيط على الاضافة التي ارسلها الاستاذ محمود الشريف بارك الله فيه لكي يعمل الكود بالشكل الصحيح وهو تنفيذ الامر عند اختيار (YES) وايقاف التنفيذ عند اختيار (NO) وفقكم الله جميعا واعطاكم الصحة والعافية Sub مسح_الرصد() Dim UnionRange As Range Application.ScreenUpdating = False a = MsgBox("أبو محمد عباس", 36, "هل تريد تصفير الرصد ؟") If a = vbYes Then With ActiveSheet Set UnionRange = Union(Range("F6:H55,J6:L55,O6:O55,R6:T55,V6:X55,AA6:AA55,AD6:AF55,AH6:AJ55,AM6:AM55,AP6:AR55"), _ Range("AT6:AV55,AY6:AY55,BB6:BD55,BF6:BH55,BK6:BK55,BN6:BP55,BR6:BT55,BW6:BW55,BZ6:CB55,CD6:CF55"), _ Range("CU6:CU55,CP6:CR55,CL6:CN55,CI6:CI55,F206:H255,J206:L255,O206:O255,R206:T255,V206:X255,AA206:AA255"), _ Range("AD206:AF255,AH206:AJ255,AM206:AM255,AP206:AR255,AT206:AV255,AY206:AY255,BB206:BD255,BF206:BH255,BK206:BK255,BN206:BP255"), _ Range("BR206:BT255,BW206:BW255,BZ206:CB255,CD206:CF255,CU206:CU255,CP206:CR255,CL206:CN255,CI206:CI255,F406:H455,J406:L455"), _ Range("O406:O455,R406:T455,V406:X455,AA406:AA455,AD406:AF455,AH406:AJ455,AM406:AM455,AP406:AR455,AT406:AV455,AY406:AY455"), _ Range("BB406:BD455,BF406:BH455,BK406:BK455,BN406:BP455,BR406:BT455,BW406:BW455,BZ406:CB455,CD406:CF455,CU406:CU455,CP406:CR455"), _ Range("CL406:CN455,CI406:CI455,F606:H655,J606:L655,O606:O655,R606:T655,V606:X655,AA606:AA655,AD606:AF655,AH606:AJ655"), _ Range("AM606:AM655,AP606:AR655,AT606:AV655,AY606:AY655,BB606:BD655,BF606:BH655,BK606:BK655,BN606:BP655"), _ Range("BR606:BT655,BW606:BW655,BZ606:CB655,CD606:CF655,CU606:CU655,CP606:CR655,CL606:CN655,CI606:CI655")) UnionRange.ClearContents End With Cancel = False End If Application.ScreenUpdating = True Range("F1").Select End Sub تعديل الاضافة على كود المسح.rar

اخى الفاضل بعد إذن ابن بلدي الغالي وأخى الحبيب أ.ياسر، جرب الملف المرفق لربما به طلبك تحياتي Hide&Unhide.rar

السلام عليكم، هاك طريقة تصلح لحالتك إن شاءَ الله. ربما بدت وكأنها معقدة لكنها بسيطة جدا إن فهمت الفكرة. 1. لنفرض أن لديك ثلاث وقات عمل Worksheet ، أسماؤها (12.2014) وَ (11.2014) وَ (10.2014) على التوالي. كل الأوراق لها نفس التصميم بالضبط، حيث الحقل الأول (م: مسلسل)، والثاني (الإسم)، والثالث (Check_Dup) وهو حقل للفحص يمكن إخفاؤه فيما بعد، والرابع (الراتب)، والخامس (تاريخ السداد)، وهكذا. ولنفرض أن أقصى عدد أسماء في الورقة الواحدة هو خمسون إسما. 2. في ورقة العمل (10.2014) ، في خلية C2 ، إطبع الدالة التالية =countif('10.2014'!$B:$B,B2)+countif('11.2014'!$B:$B,B2)+countif('12.2014'!$B:$B,B2) إنسخ الدالة أعلاه على جميع خلايا العمود C ، بدءاً من C2 إلى C51 . كرر طباعة الدالة في ورقتي العمل الأخريين. الدالة أعلاه سوف تحسب تكرار الأسماء في الورقات الثلاث. فلو إفترضنا أنك كررت إسم "عبدالله" في ورقتين، فسوف يكون مجموع الأسماء (2). ولو كررت إسم "عبدالكريم" خمس مرات في الورقات الثلاثة بشكل عشوائي تحت العمود B ، فسوف تحسبه الدالة السابقة بشكل دقيق، وتضع لك المجموع 5 أمام الإسم، حيثما تكرر. 3. على ورقة العمل (10.2014) ، قم بتضليل الخلايا من B2 إلى B51 ، ثم من قائمة Home ، ثم Conditional Formatting ، ثم New Rule ، ثم Use Formula to determine which cells to format ، ثم في حقل الدالة Formual ، إطبع الدالة التالية: =C2>1 ثم Format ، ثم تبويب Fill ، ثم اختر لونا مناسباً لتضليل الأسماء المتكررة - وليكن الأحمر الفاتح مثلا. ثم OK ، ثم OK ، ثم OK . حتى تخرج من الـ Conditional Formatting . كرر هذه الخطوة في الورقتين الأخريين؛ (11.2014) وَ (12.2014) . وظيفة التهيئة المشروطة هذه أن تفحص خلايا العمود C المقابلة لخلايا العمود B ، فإن وجدت الرقم أكثر من 1 (أي أن تكرر أكثر من مرة)، تقوم بتلوين الخلية B بلون أحمر. أرفقت لك كتاب عمل Workbook فيه تطبيق شامل لكل الخطوات أعلاه، وإن إشكل عليك شيء فضع سؤالك هنا وسأعود إليه غداً أو بعد غد إن شاءَ الله. وفقكم الله، عبدالله،،، Dup_Names_Detector v02.zip

السلام عليكم بعد اذن استاذى الكبير والحبيب ابومحمد عباس جزاه الله خيرا حل اخر لاثراء الموضوع معادله =SUMPRODUCT(('Vacation Sheet'!$H$2:$H$100='حل بالمعادلات'!$G2)*('Vacation Sheet'!$M$2:$M$100='حل بالمعادلات'!H$1)) او =COUNTIFS('Vacation Sheet'!$H$1:$H$100;'حل بالمعادلات'!$A2;'Vacation Sheet'!$M$1:$M$100;B$1) او حل ب pivottable وفى النهايه ارجو ان تحقق المطلوب Vacation Sheet.rar

تفضل أخى الكريم التوقيع بمجرد الكتابه فى اخرى مع حذف التوقيع بمجرد مسح محتوى الخليه التى كتبنا فيها الكود التالى يحقق لك ذلك الكود المستخدم يوضع فى حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A2:A10")) Is Nothing Then With Target(1, 2) .Value = Range("k1") If Intersect(Target, Range("A2:A10")) = "" Then .Value = "" End If End With End If End Sub التوقيع بشرط الكتابة.rar

اريد ان اقوم بعمل ورقه عليها ارقام 1 2 3 وهكذا وفى الخانه اللى تحتيها بعمل معادله =A1 مثلا لكتابه نفس الرقم اللى فوق تلقائيا. ولكنى اريد ان يكون الرقم بالمقلوب لاننى سوف اقوم بطباعته هكذا ووضعه على استاند ذو وجهين فيبان الرقم من الناحيتين. ولم اجد طريق لعكس الرقم غير ان اقوم بعمل رقم رقم عن طريق الرسم وعكسه. وبالتالى هذا الكلام لن استطع من خلاله انجاز الارقام لكونها كثيره وايضا لا يمكن تطبيق معادله انى اسمع الارقم تلقائيا. ومرفق ملف بالمطلوب Book1.rar

بدون الحاجة لحماية الورقة بكلمة مرور أو غيره إليك الكود التالي يمنع الوقوف على في الخلية إذا كانت تحتوي على معادلة ( بشرط لا يوجد دمج لهذه الخلية مع خلية أخرى ) Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select End Sub

مع الشكر الجزيل للأخ جلال محمد على مشاركته القيمة جدا.. ولكن ما رأيك أخي عبدالهادي لو قمنا بـ "هندسة" كاملة لورقتك؟ بدلاً من الدوائر، سنستخدم خلايا حمراء وحروفاً بيضاء غليظة. وبدلاً من أكواد الفي بي سنستخدم التنسيق الشرطي مع بعض المعادلات البسيطة. أعدت تصميم ورقتك بطريقة تختلف عن القديمة. لديك جدولان، الأول به المواد والدرجات الكُبرى والصُغرى، والثاني جدول كبير يحتوي على أسماء الطلاب (يتسع لخمسين طالباً وأكثر)، ويحتوي على درجات المواد والمجاميع. وعن طريق التنسيق الشرطي المدمج مع دالة VLookup ، يتم فحص الخلايا، وأي منها نقص عن القيمة الصُغرى يتم تحويل لون الخلية إلى أحمر. وقمت بتغيير نوع الملف من xls إلى xlsx ، حتى نتلافى مشاكل النسخ. الغرض ليس تغيير طريقتك في العمل، فربما كانت أفضل من طريقتي مائة مرة، لكن الهدف هو البحث دوماً عن بدائل وطُرق، وتوسيع الخبرات في العمل على إكسيل. وفقكم الله لكل خير... عبدالله،،، Scores v01.zip

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

ولا حرمنا الله منك أبو نواف ..بارك الله فيك مش عايزنها تبقا مرة وتعدي ، ومتفوتش علينا تاني عايزينك معانا

بصراحة كلمة الشكر لا توفيكم جميع شكرا بحجم السماء شكرا كثر حبات الرمال ابدعتم جميعا بارك الله فيكم اخواني لا حرمني الله منكم

يا اخى الفاضل الكود يعمل تلقائي والأزرار دي موضوعه ليك انت علشان تقدر تظهر القوائم .. مش عاوزها احذفها ب Delete وخلاص اتفضل ملف الأستاذ ياسر بدون أزرار تحياتي Hide Unhide YK.rar

السلام عليكم تفضل المرفق 444_2.rar

أخى فى الله الأستاذ // محمد القمجى بارك الله فيكم والشكر موصول للمهندس // ياسر فتحى لإرفاقه نموذج عملى مطبق به الكود أخى فى الله الأستاذ القدير // ياسر خليل (( ابو البراء )) بارك الله فيكم وما العبد لله إلا تلميذا بمنتديات أوفيسنا التعليمية فأنا أتعلم من دروسكم وشروحاتكم وتقبلوا منى وافر الاحترام والتقدير

أخى فى الله الأستاذ الكبير // أبو محمد عباس نحمد الله عز وجل أنكم توصلتم للإجابه على استفساركم والشكر موصول للأستاذ // القدير أبو البراء (( ياسر خليل )) لسلسله الدروس الشيقة والمفيدة لكل طالب علم كذلك الشكر موصول للمهندس // ياسر فتحى البنا على محاولته وتقبلوا منى جميعا وافر الاحترام والتقدير

هلا سامي يمكنك عمل مرجع لشيت معين مع خليتها عن طريق الدالة Indirect جرب المعادلة التالية: INDIRECT("'"&$A2&"'!$H$1")

دائما وأبدا سهل ممتنع رائع ومدهش مذهل ومبدع تسلم يا ابن مصر ..

السلام عليكم، إحدى مشاكل العمل على النطاقات Ranges من خلال أكواد في بي هي البطء الملحوظ في الأداء، خاصة في حدث Worksheet_Change ، حيث يُجبر إكسيل على مراقبة أي تعديل يجريه المستخدم على النطاق المطلوب، وهذا يكلفه الكثير من الطاقة ويُصبح مصدر إزعاج للمستخدم. قابلت هذه المشكلة قديماً حين عملت على نموذج إكسيل يحاكي بطاقة الأداء المتوازن والمعروفة بـ Balanced Scorecards . ومصدر المشكلة آنذاك أنني احتجت إلى تنفيذ عشرات التنسيقات الشرطية، بينما Excel 2003 ينفذ ثلاثة تنسيقات شرطية كحد أقصى. لكن المشكلة حُلّت تماماً في النسخ التالية لإكسيل. ولو كنت مكانك ،لفكرت ملياً في إعادة النظر إلى النموذج بالكامل، والإستغناء عن كتابة الأكواد تحت تأثير الأحداث، إلا في أضيق الحدود، خصوصاً أن التنسيق الذي تهتم به - وفق النموذج الذي أرفقته - يمكن عمله ببعض دوال إكسيل المركبة مع التنسيقات الشرطية. وجهة نظر، والله أعلى وأعلم، عبدالله،،،

أخى أ / محمود الشريف سلمت يداك وهذا تطبيق على الكود + إضافة حضرتك على كود الأستاذ القدير ياسر خليل حفظه الله تطبيق كود تصفير الرصيد.rar

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

أخى الكريم بارك الله فيكم وجزاكم الله خيرا واثراء للموضوع يمكن من خلال كود اظهار جميع الألوان بأرقامها والكود يربط بزر داخل اى صفحة بملف العمل ويقوم الكود بالتوضيح للون + الرقم الكود كالتالى Sub MZM_colors56() '57 colors, 0 to 56 Dim i As Long Dim str0 As String, str As String Cells(1, 1) = "Interior" Cells(1, 2) = "Font" Cells(1, 3) = "HTML" Cells(1, 4) = "RED" Cells(1, 5) = "GREEN" Cells(1, 6) = "BLUE" Cells(1, 7) = "COLOR" For i = 0 To 56 Cells(i + 2, 1).Interior.ColorIndex = i Cells(i + 2, 2).Font.ColorIndex = i Cells(i + 2, 2).Value = "[Color " & i & "]" str0 = Right("000000" & Hex(Cells(i + 2, 1).Interior.Color), 6) 'Excel shows nibbles in reverse order so make it as RGB str = Right(str0, 2) & Mid(str0, 3, 2) & Left(str0, 2) 'generating 2 columns in the HTML table Cells(i + 2, 3) = "#" & str Cells(i + 2, 4).Formula = "=Hex2dec(""" & Right(str0, 2) & """)" Cells(i + 2, 5).Formula = "=Hex2dec(""" & Mid(str0, 3, 2) & """)" Cells(i + 2, 6).Formula = "=Hex2dec(""" & Left(str0, 2) & """)" Cells(i + 2, 7) = "[Color " & i & "]" Next i End Sub وتقبل منى وافر الاحترام والتقدير

الف شكر للجميع وأرجو من الجميع قبل تحياتى وانا فعلا عاجز عن الشكر ( أ/ محمد الريفى - السيد / أبو محمد )

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

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

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

بارك الله فيك أخي الحبيب سليم أنا عندي ليك هدية بمناسبة هديتك بس في الليل عشان النت في البيت ضعيف جداً

1-عدم الرغبه فى التعلم معظم الاعضاء لا يوجد عندهم رغبه فى تعلم واضافه شئ جديد لخبرتهم فالبعض وهم كثر يطلب طلبه وينتظر الرد ثم يترك المنتدى ويمكن لا يدخله مره اخرى ولم يفكر لو كل واحد مننا فكر بالمنطق ده يبقى هذا الصرح العلمى العظيم لن يستمر فالمتأمل فى هذا المنتدى يجد الاساتذه معدودين على صوابع اليد والباقى خبراتهم محدوده علما ان عدد الاعضاء حتى هذه اللحظة (106946) فكيف يخدم بضع اشخاص هذا العدد 2- عملية البحث على الرغم ان معظم الموضوعات الجديده مكرره وتم الاجابة عليها من سنوات عديده فهذا الصرح العلمى من اكثر من 10 سنوات اعتقد من 2004 م فان العضو قبل ان يقوم بعملية البحث يعمل موضوع جديد على طول اتمنى من الزملاء حاجتين 1- قبل طرح موضوعك استخدم خاصية البحث 2- حاول بقدر الامكان تعلم كيف تم عمل طلبك / اسال ليس فى السؤال من حرج ويوجد العديد من الحلقات والشروحات وعلى سبيل المثال لا للحصر حلقات افتح الباب للاستاذ العلامه / ياسر خليل وحلقات الاستاذ/ محمود الشريف وحلقات الاستاذ / ضاحى تعلم اليوم شئ جديد لتفيد غيرك غدا وتقدم للمنتدى ما قدمه لك ويستمر المنتدى ممتد الى ابد الابد اتبع لا تعطينى سمكة ولكن علمنى كيف اصطاد نريد اضافه كل يوم للمنتدى خبير واستاذ متمكن جديد يخدم الاعضاء فى الفترة المقبله اسف على الاطاله ولكنها مجرد وجه نظر وتقبلوا احترامى وتقديرى

أستاذي حسام أعتذر لعدم الرد في أوانه بسبب انقطاع الكهرباء. لدي اقتراح ما رأيك لو سجلت في ملف صوتي الشرح مع توضيح كتابي برؤوس أقلام لأجزاء من الكود التي لا يستطيع فهمها إلا من هو خبير في الأكواد.

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

هلا احمد عدلت لك الكود... المشكلة بسيطة وهى انك تستخدم خلية مدمجة merged بدلا عن خلية عادية Book1.zip

استعمل الإجماليات مضبوط مع بعض التعديل فى عرض sql الصق التالى مكان الموجود SELECT المبيعات.cus, المبيعات.sales, Last(المبيعات.price) AS SumOfprice, Max(المبيعات.Date) AS Maxمنdate FROM المبيعات GROUP BY المبيعات.cus, المبيعات.sales; تاريخ اخر طلبية.rar

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

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

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

هل هذا ما تقصده هامور.rar

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

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

وإليك ملف آخر سيعجبك Hide Unhide.rar

إليك الملف به أكثر من خيار اختر ما يناسبك Ribbon II.rar

جرب الملف التالي Ribbon.rar

و عليكم السلام و رحمة الله وبركاته اخي الكريم تم تعديل الكود ليعمل على 18 صف فقط مثال: فلنفترض أننا سنقوم بإدخال أحد الأرقام بالخلية B426 فسنجد أن الكود يعمل على النطاق بدءاً من A417 الى F435 Bank Accounts.rar

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

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

نعم , يمكن انشاء استعلام على الجدول , و تكتب الجملة التالية في حقل الشروط In (select name1 from filter1) و نفس الشي بالنسبة للحقل الآخر

اخي ايهاب جرب المرفق ترحيل من جدول لجدول.zip