Emad Sabry

مش محتاج كود للبحث او الاستبدال انت ظلل على الجزء اللى عاوز تستبدله ورح ل home ومن find and select اختار replace وفى find what اكتب اسم الكلمة اللى عاوز تستبدلها وفى replace أكتب الكلمة اللى عاوز تستبدل بيها واختار replace all

استخدم الكود التالى قبل الاستخدام روح ل page layout ومن theme تختار colors ثم customize color وعند accent 2 اختار اللون الاصفر وعند accent 3 اختار اللون الارجوانى وبعدين تستخدم الكود التالى وطبعا ممن تعدل فى الارقام اللى .001 و .04 وهكذا لحد ما توصل لطريقة دمج اللونين اللى عاوزهم وتعدل فى الارفام بما لا يزيد عن الواحد الصحيح ملحوظة انت عدل فى النسب المئوية زى ما انت عاوز لحد ما يكون شبه القديم .. مفيش كود هيخليلك الالوان زى ما هى لانك دامج لونين فى بعض دا اولا ثانيا لانك بتمسح الالوان دى فى الاول وعندك المثال بالشيت Sub Emad() For G = 4 To 10 If Cells(G, 15) < 30 Then If Cells(G, 9).Value > Range("G1").Value Then Cells(G, 2).Interior.Pattern = xlPatternNone Cells(G, 3).Interior.Pattern = xlPatternNone Cells(G, 9).Interior.Pattern = xlPatternNone MsgBox ("ÇáãæÙÝ : " & " " & Cells(G, 2) & " " & "¡ íäÊåí ÇáÅÔÊÑÇß ÈÊÇÑíÎ : " & " " & Cells(G, 9) & " " & "¡ æÈÇÞí ãä ÇáÃíÇã : " & Cells(G, 15) & " " & "íæã ") With Range(Cells(G, 2), Cells(G, 3)).Interior .Pattern = xlPatternRectangularGradient .Gradient.RectangleLeft = 0.01 .Gradient.RectangleRight = 0.04 .Gradient.RectangleTop = 0.02 .Gradient.RectangleBottom = 0.6 .Gradient.ColorStops.Clear End With With Range(Cells(G, 2), Cells(G, 3)).Interior.Gradient.ColorStops.Add(0) .ThemeColor = xlThemeColorAccent2 End With With Range(Cells(G, 2), Cells(G, 3)).Interior.Gradient.ColorStops.Add(1) .ThemeColor = xlThemeColorAccent3 End With With Cells(G, 9).Interior .Pattern = xlPatternRectangularGradient .Gradient.RectangleLeft = 0.01 .Gradient.RectangleRight = 0.04 .Gradient.RectangleTop = 0.02 .Gradient.RectangleBottom = 0.6 .Gradient.ColorStops.Clear End With With Cells(G, 9).Interior.Gradient.ColorStops.Add(0) .ThemeColor = xlThemeColorAccent3 End With With Cells(G, 9).Interior.Gradient.ColorStops.Add(1) .ThemeColor = xlThemeColorAccent2 End With End If End If Next End Sub Emad.xlsm

أنت عاوز نفس الالوان اللى فى كود ا/شوقى استخدم نفس الكود بس اعكس الالوان علشان يكون الكود بالشكل دا Sub MM() For G = 4 To 10 If Cells(G, 15) < 30 Then If Cells(G, 9).Value > Range("G1").Value Then Cells(G, 2).Interior.ColorIndex = xlNone Cells(G, 3).Interior.ColorIndex = xlNone Cells(G, 9).Interior.ColorIndex = xlNone MsgBox ("ÇáãæÙÝ : " & " " & Cells(G, 2) & " " & "¡ íäÊåí ÇáÅÔÊÑÇß ÈÊÇÑíÎ : " & " " & Cells(G, 9) & " " & "¡ æÈÇÞí ãä ÇáÃíÇã : " & Cells(G, 15) & " " & "íæã ") Cells(G, 2).Interior.ColorIndex = 40 Cells(G, 3).Interior.ColorIndex = 42 Cells(G, 9).Interior.ColorIndex = 40 End If End If Next End Sub

بعد اذن استاذ شوقى رجع الالوان للخلايا اللى عاوزها واستخدم الكود بالشكل دا Sub MM() For G = 4 To 10 If Cells(G, 15) < 30 Then If Cells(G, 9).Value > Range("G1").Value Then MsgBox ("ÇáãæÙÝ : " & " " & Cells(G, 2) & " " & "¡ íäÊåí ÇáÅÔÊÑÇß ÈÊÇÑíÎ : " & " " & Cells(G, 9) & " " & "¡ æÈÇÞí ãä ÇáÃíÇã : " & Cells(G, 15) & " " & "íæã ") End If End If Next End Sub

غير الفاصلة , إلى فاصلة منقوطة ;

استخدم المعادلة دى فى الحلية G6 وانزل بيها اوتوفيل =IF(F6<=TIME(13,0,0),20,40) وبعدين ايه لزمة زر للحفظ وزر للطباعة ما انت قبل ما تقفل دوس save ولو عاوز تطبع دوس ctrl + P أو روح file واختار Print

أستخدم الكود دا فى حدث الورقة الرئيسية Private Sub Workbook_Open() Call MM End Sub 2.xlsm

اتبع الخطوات دى مش المعادلة لو عاوز تبدأ باليوم الأول ليكون بالشكل التالى 29/11/2018 هتروح ل control Panel وتختار Region أو Region and language على حسب نسخة الويندوز الخاصة بيك ومن format أختار (English (United kingdom بدلا من united states ودوس أوك أو تسيب اللى فوق زى ما هى وتروح ل additional settings هتظهرلك قائمة تروح ل date وعند short time غيره إلى الشكل التالى غير الشكل M/d/yyyy إلى d/M/yyyy

اتبع الخطوات الموجودة فى اخر مشاركة الخاصة ب control Panel https://www.officena.net/ib/topic/87279-مساعدة-فى-دالة-الصلاحية/?tab=comments#comment-552560

الدالة مظبوطة على فكرة والنواتج سليمة بس انت المفروض تغير فى دالة أنت عامل من 61 : 77 المفروص تكون من 61 : 74 والباقى مظبوط والنواتج مظبوطة فى حالة الاختلاف ايضا

رسالة تنبيه عند تغير الوقت.xlsm

استخدم الكود التالى فى مديول Sub Emad() Dim i, lastrow As Long lastrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row 'غير الشيت إلى الشيت الذى تريده For i = 1 To lastrow ' غير ال 1 الى رقم الصف الذى تريده If Cells(i, 1) = Date - 10 Then 'غير ال 1 الى رقم العمود الذى تريده وغير ال 10 الى الرقم الذى تريده يظهر تنبيه قبله هنا هيظهر التنبيه قبل التاريخ ب 10 ايام MsgBox "لقد قاربت الاجازة على الانتهاء" ' أكتب الرسالة التى تودها فوق Cells(i, 1).Interior.ColorIndex = 3 'هذا الكود لتلوين الخلية Else Cells(i, 1).Interior.ColorIndex = xlNone ' هذا لإلغاء التلوين فى حالة تغير التاريخ End If Next End Sub وضع هذ الكود فى workbook Private Sub Workbook_Open() Call Emad End Sub وهذا معناه عند فتح ملف الاكسل يظهرلك رسالة التنبيه

معادلة if بسيطة و circular reference زى المعادلة دى وهتحطها فى f10 أول مرة هتغير فيها من أولى ثانية هتظهرلك صفر رجع الى أولى ثانى وبعد كده مش هتتغير القيمة تانى =IF(E4="أولى",F4,F10) بس هتقابلك مشكلة فى كل مرة هتغير فى مثلا اولى ل ثانية هتظهرلك رسالة تقولك ان فى circular reference بس نقدر نتغلب عليها أنك تروح ل file وبعدين option وبعدين formulas حط علامة صح جنب enable iteractive calculation وبعدين ok مش هتظهرك رسالة ومش هتتغير قيمة الخلية

استخدم المعادلة بالشكل التالى =IF(LEN(A2)<8,TEXT(EDATE(A2-1,B2),"m/yyyy"),TEXT(EDATE(A2-1,B2),"d/m/yyyy")) ولازم يكون format cell الخاص ب A2 هنا Text وطبعا لما تكتب فى a2 هتبدأ بالشهر الاول يعنى هتقول 11/29/2018 لأنك لو عكست النتيجة هتظهر خطأ أما لو عاوز تبدأ باليوم الأول ليكون بالشكل التالى 29/11/2018 هتروح ل control Panel وتختار Region أو Region and language على حسب نسخة الويندوز الخاصة بيك ومن format أختار (English (United kingdom بدلا من united states ودوس أوك أو تسيب اللى فوق زى ما هى وتروح ل additional settings هتظهرلك قائمة تروح ل date وعند short time غيره إلى الشكل التالى غير الشكل M/d/yyyy إلى d/M/yyyy

استخدم الكود البسيط التالى Sub Emad() Range("E3:F3").Select Range("E3:F3").Copy Range("E3:F3").PasteSpecial xlPasteValues Range("A1").Select Application.CutCopyMode = False End Sub

انت مش محتاج دالة روح للخلية اللى فيها التاريخ ودوس كليك يمين وبعدين format cell وبعدين تنزل ل custom وتحط الشكل التالى فى type dmyyyy

انت ممكن تعدل الصياغة زى ما تحب تانى حاجة ايه فكرة انك تقوله انت مثلا غايب فى العملى و الدرجة الكلية يعنى لو كان مجموعه الكلى 18 من 20 وغايب فى العملى يعتبر برضه راسب على حسب ما انت شرحت فانا كتبت السبب الاساسى من وجهة نظرى وانت ممكن ترفع ملف وتكتب فيه الصياغات اللى عاوزها وهيتم مساعدتك فيها لان مش كلنا بنفهم فى موضوع التدريس والكنترول

هتعمل select على a3:a7 وبعدين هتروح ل conditional formatting وتختار new rule وانزل للاخر و اختار اللى اوله formula وحط المعادلة دى =AVERAGE(b3:m3)<5 وبعدين هتدوس على format وتروح fill هتلاقى pattern color اختار اللون الاحمر وتحته pattern style اختار الشكل التالت هتلاقى لما تقف عليه بالسهم 50% ظهرتلك وبعدين ok

حالات الرسوب اللى اعتمدتها بالدالة غياب عملى وتحريرى غياب عملى غياب تحريرى ربع عملى + ربع تحريرى ربع عملى ربع تحريرى كلية اذا لم تعمل معك الدالة استبدل , بالفاصلة المنقوطة ; =IF(OR(E10="",F10="",G10=""),"",IF(AND(E10="غ",F10="غ"),"راسب لغيابه بالعملى والتحريرى",IF(E10="غ","راسب لغيابه بالعملى",IF(F10="غ","راسب لغيابه بالتحريرى",IF(AND(F10<F9,E10<E9),"ربع عملى + ربع تحريرى",IF(E10<E9,"ربع عملى",IF(F10<F9,"ربع تحريرى",IF(G10<G9,"كلية","ناجح"))))))))

تعمل وهتلاقيها متعلمة بالصفر دوس كليك يمين وبعدين format cell ومن custom شوف الشكل اللى مستخدمه لظهور الشهر والسنة فقط وطبقه على كل الخلايا اللى عاوزها دالة الصلاحية.xlsx

استخدم هذه الدالة =EDATE(A2-1,B2)

فى جوجل اكتب تعلم vba أوفيسنا هتلاقى كتب وفيديوهات وموضوعات بتشرح باستفاضة ودا احدى الكتب لتعلم Vba https://www.officena.net/ib/topic/51244-لاول-مره-على-الانترنت-كتاب-تعلم-لغه-ال-vba-باللغه-العربيه-إكسيل/

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

انت كدا عاوز تعمل كومبو بوكس وعلشان تعمل كومبو بوكس لازم تعدل فى كل الاكواد علشان تبقى مرتبطة مع كومبو بوكس وليس B1 فدا اسهل طريقة عملتهالك كان لازم تقول من الاول انك عاوز كدا لان كدا هنغير كل الاكواد

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