Jump to content
بحث مخصص من جوجل فى أوفيسنا
Custom Search

Emad Sabry

03 عضو مميز
  • Content Count

    172
  • Joined

  • Last visited

  • Days Won

    1

Emad Sabry last won the day on November 23 2018

Emad Sabry had the most liked content!

Community Reputation

61 Excellent

2 Followers

About Emad Sabry

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    _
  • Location
    Egypt

Recent Profile Visitors

1,015 profile views
  1. مش محتاج كود للبحث او الاستبدال انت ظلل على الجزء اللى عاوز تستبدله ورح ل home ومن find and select اختار replace وفى find what اكتب اسم الكلمة اللى عاوز تستبدلها وفى replace أكتب الكلمة اللى عاوز تستبدل بيها واختار replace all
  2. استخدم الكود التالى قبل الاستخدام روح ل 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
  3. أنت عاوز نفس الالوان اللى فى كود ا/شوقى استخدم نفس الكود بس اعكس الالوان علشان يكون الكود بالشكل دا 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
  4. بعد اذن استاذ شوقى رجع الالوان للخلايا اللى عاوزها واستخدم الكود بالشكل دا 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
  5. غير الفاصلة , إلى فاصلة منقوطة ;
  6. استخدم المعادلة دى فى الحلية G6 وانزل بيها اوتوفيل =IF(F6<=TIME(13,0,0),20,40) وبعدين ايه لزمة زر للحفظ وزر للطباعة ما انت قبل ما تقفل دوس save ولو عاوز تطبع دوس ctrl + P أو روح file واختار Print
  7. أستخدم الكود دا فى حدث الورقة الرئيسية Private Sub Workbook_Open() Call MM End Sub 2.xlsm
  8. اتبع الخطوات دى مش المعادلة لو عاوز تبدأ باليوم الأول ليكون بالشكل التالى 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
  9. اتبع الخطوات الموجودة فى اخر مشاركة الخاصة ب control Panel https://www.officena.net/ib/topic/87279-مساعدة-فى-دالة-الصلاحية/?tab=comments#comment-552560
  10. الدالة مظبوطة على فكرة والنواتج سليمة بس انت المفروض تغير فى دالة أنت عامل من 61 : 77 المفروص تكون من 61 : 74 والباقى مظبوط والنواتج مظبوطة فى حالة الاختلاف ايضا
  11. استخدم الكود التالى فى مديول 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 وهذا معناه عند فتح ملف الاكسل يظهرلك رسالة التنبيه
  12. معادلة if بسيطة و circular reference زى المعادلة دى وهتحطها فى f10 أول مرة هتغير فيها من أولى ثانية هتظهرلك صفر رجع الى أولى ثانى وبعد كده مش هتتغير القيمة تانى =IF(E4="أولى",F4,F10) بس هتقابلك مشكلة فى كل مرة هتغير فى مثلا اولى ل ثانية هتظهرلك رسالة تقولك ان فى circular reference بس نقدر نتغلب عليها أنك تروح ل file وبعدين option وبعدين formulas حط علامة صح جنب enable iteractive calculation وبعدين ok مش هتظهرك رسالة ومش هتتغير قيمة الخلية
  13. استخدم المعادلة بالشكل التالى =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
  14. استخدم الكود البسيط التالى Sub Emad() Range("E3:F3").Select Range("E3:F3").Copy Range("E3:F3").PasteSpecial xlPasteValues Range("A1").Select Application.CutCopyMode = False End Sub
×
×
  • Create New...