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

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

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

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

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

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

السلام عليكم الاخ الكريم / MoChekEs بارك الله فيك استخدم الكود التالي لتنفيذ طلبك الرقم السري لاظهار الاوراق هو ( 333 ) كما في الكود Sub hide_all_sheets() x = InputBox("ادخل كلمة السر.... ??") If x <> "333" Then GoTo 10 If [U1] <> False Then [U1] = False: GoTo 10 [U1] = True 10 For i = 2 To Sheets.Count Sheets(i).Visible = [U1].Value Next i End Sub تقبل خالص تحياتي اخفاء واظهار كل اوراق العمل.rar اخفاء واظهار كل اوراق العمل.rar

و عليكم السلام و رحمة الله وبركاته اخي الكريم آمل مراعات التالي لاحقا جزاك الله خيرا

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

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

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

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

اخى الفاضل نحن لا نطبقها على نفس العمود .. تطبقها في العمود المجاور كدالة .. ابتداءا من اول خلية اكتب =TRIM(C2) وبعد ان تقوم بالاكمال الى اخر اسم عندك تستطيع تحديد هذه الأسماء والسحب بزر الفأرة الأيمن للماوس الى العمود الاصلي واختر نسخ هنا كقيم copy here as values ثم احذف العمود الذي به الداله .. وبذلك يتبقي لك الأسماء وفقط بدون فراغات بينها تحياتى

أي رقم أعلى من خمس عشرة خانة، سوف يقوم إكسيل بقلبه إلى صفر، وهذه حدود قيود برمجية على إكسيل لن تستطيع تجاوزها. الحل بنفس طريقة الأخ الكريم عبدالباري، قم بتنسيق الخلايا على شكل نص، ولكن يجب أن يكون التنسيق قبل أن تُدخل القيم؛ وإلا فستبقى القيمة المُدخلة على شكل التدوين العلمي Scientific Notation . بالتوفيق، عبدالله،،،

أخى الكريم بارك الله فيكم وجزاكم الله خيرا واثراء للموضوع يمكن من خلال كود اظهار جميع الألوان بأرقامها والكود يربط بزر داخل اى صفحة بملف العمل ويقوم الكود بالتوضيح للون + الرقم الكود كالتالى 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 وتقبل منى وافر الاحترام والتقدير

أخى فى الله الأستاذ الكبير // أبو محمد عباس ضع هذه الجزئية قبل نهاية الكود If MsgBox("أبو محمد عباس", 36, "هل تريد تصفير الرصد ؟") = vbNo Then Cancel = True End If وتقبل منى وافر الاحترام والتقدير

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

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

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

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

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

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

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

استعمل الإجماليات مضبوط مع بعض التعديل فى عرض 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