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

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

تنور المنتدى أبو نواف تفضل الملف المرفق 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

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

تم االتوصل الي حل اليكم الحل ليستفيد الجميع السطر الاول لنقل التركيز الي النموذج الفرعي (faray3) السطر الثاني لنقل التركير الي مربع النص (رقم الصنف) Me.faray3.SetFocus Form!faray3![رقم صنف].SetFocus

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

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

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

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

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

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

يااخى الكريم الخليه الواحده فى الاكسيل تستوعب 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 دائما ممتاز ويفي بالغرض وجربت الكثير من التصفيات بهذه الخاصية الرائعة وجدتها ممتازة تقبل فائق احترامي وتقديري

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

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

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

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

اليك الحل على طريقتين m_79.rar

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

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

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

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

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

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

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

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

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

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

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

السلام عليكم Range("b9: c9").Value. ورقه301 = .Range("f9: g9").Value. ورقه301 المعنى أنسخ القيم الموجودة في الخليتين b9 و c9 إلى الخليتين f9 و g9 من نفس الورقة تحياتي

وعليكم السلام الغي الخيار كما هو موضح في الصورة:

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

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

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

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

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

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

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

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

السلام عليكم ورحمة الله أخي الكريم، جرب المرفق لعل فيه المطلوب... أخوك بن علية المرفق : كشف ديون.rar