اذهب الي المحتوي
بحث مخصص من جوجل فى أوفيسنا
Custom Search

Emad Sabry

03 عضو مميز
  • Content Count

    176
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    1

Emad Sabry last won the day on نوفمبر 23 2018

Emad Sabry had the most liked content!

السمعه بالموقع

64 Excellent

2 متابعين

عن العضو Emad Sabry

  • الإسم الفعلي
    الإســم

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    _
  • بلد الإقامة
    Egypt

اخر الزوار

1,081 زياره للملف الشخصي
  1. انا عملتلك فلتر انت الغى خلية c3 اشتغل زى اللى فى الصورة كدا وعلشان تلغى الفلتر تدوس على السهم تانى وتختار select all وبالنسبة للتاريخ بعد ما تكتب 1 روح للخلية الخاصة بالتاريخ ودوس من الكيبورد ;+ctrl هيظهرلك تاريخ اليوم تلقائى بدون تحديث فلتر الفواتير.xlsx
  2. أى حاجة بتزود النقدية عندك مدين زى عملية البيع ، مرتجعات (مردودات) الشراء ، سند قبض أى حاجة بتقلل النقدية تبقى دائن عكس اللى فوق يعنى الفلوس اللى بتاخدها فى ايدك دا مدين ، والفلوس اللى بتدفعها دا دائن
  3. أنت عامل data validation لتاريخ شهر أغسطس فى العمود A فهو كدا مش هيظهر غير شهر 8 وبدل ما انت كاتب التواريخ من data validation كقائمة أختار date بدل list واكتب تاريخ البداية والنهاية أما لو انت بتكتب كذا شهر أستخدم filter
  4. مش محتاج كود للبحث او الاستبدال انت ظلل على الجزء اللى عاوز تستبدله ورح ل home ومن find and select اختار replace وفى find what اكتب اسم الكلمة اللى عاوز تستبدلها وفى replace أكتب الكلمة اللى عاوز تستبدل بيها واختار replace all
  5. استخدم الكود التالى قبل الاستخدام روح ل 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
  6. أنت عاوز نفس الالوان اللى فى كود ا/شوقى استخدم نفس الكود بس اعكس الالوان علشان يكون الكود بالشكل دا 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
  7. بعد اذن استاذ شوقى رجع الالوان للخلايا اللى عاوزها واستخدم الكود بالشكل دا 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
  8. استخدم المعادلة دى فى الحلية G6 وانزل بيها اوتوفيل =IF(F6<=TIME(13,0,0),20,40) وبعدين ايه لزمة زر للحفظ وزر للطباعة ما انت قبل ما تقفل دوس save ولو عاوز تطبع دوس ctrl + P أو روح file واختار Print
  9. أستخدم الكود دا فى حدث الورقة الرئيسية Private Sub Workbook_Open() Call MM End Sub 2.xlsm
  10. اتبع الخطوات دى مش المعادلة لو عاوز تبدأ باليوم الأول ليكون بالشكل التالى 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
  11. اتبع الخطوات الموجودة فى اخر مشاركة الخاصة ب control Panel https://www.officena.net/ib/topic/87279-مساعدة-فى-دالة-الصلاحية/?tab=comments#comment-552560
  12. الدالة مظبوطة على فكرة والنواتج سليمة بس انت المفروض تغير فى دالة أنت عامل من 61 : 77 المفروص تكون من 61 : 74 والباقى مظبوط والنواتج مظبوطة فى حالة الاختلاف ايضا
×
×
  • اضف...