بحث مخصص فى أوفيسنا

ياسر خليل أبو البراء

المراقبين
  • Content count

    12,276
  • تاريخ الانضمام

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

  • Days Won

    387

ياسر خليل أبو البراء last won the day on January 13

ياسر خليل أبو البراء had the most liked content!

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

6,931 Excellent

عن العضو ياسر خليل أبو البراء

  • الرتبه
    مراقب عام
  • تاريخ الميلاد

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    Teacher
  • Location
    مصر
  • Interests
    Programming - Chess

Contact Methods

  • MSN
    yahk777@hotmail.com
  • Yahoo
    yakh777@yahoo.com

اخر الزوار

8,929 زياره للملف الشخصي
  1. اطلع على الفيديو التالي عله يفيدك في كيفية مسح النطاق ..الموضوع بسيط حاول أن تتعلم الأمور البسيطة
  2. ارفق ملفك للإطلاع عليه .. ومحاولة العمل عليه إن شاء الله
  3. قد يكون هناك نطاقات مسماة مخفية .. لأن الرسالة مرتبطة بوجود نطاق مسمى بنفس الاسم ابحث في فهرس الموضوعات الخاصة بي عن إظهار وإخفاء النطاقات المسماة ، فقد يفيدك الموضوع في التوصل لحل إن شاء العلي القدير
  4. وعليكم السلام انسخ الدالة المعرفة التالية (للأخ الحبيب مختار حسين) وضعها في موديول عادي Standard Module (من خلال Insert ثم اختر الأمر Module) Function MokhtarCountif(MyVal As String, AddressRange As Range) As Long Dim C As Range, Total As Long, Arr() As String, J As Integer Application.Volatile True For Each C In AddressRange.Cells Arr = Split(C, " ") For J = LBound(Arr) To UBound(Arr) If Arr(J) = MyVal Then On Error Resume Next Total = Total + 1 On Error GoTo 0 End If Next J Next C MokhtarCountif = Total End Function ثم استخدم المعادلة التالية في ورقة العمل بهذا الشكل =MokhtarCountif("الله",C2:C5)
  5. جرب في الخلية المجاورة للخلية D2 المعادلة التالية =VALUE(SUBSTITUTE(SUBSTITUTE(D2,"٬",""),"٫",""))
  6. غير السطر التالي If Application.WorksheetFunction.CountBlank(sh.Cells) <> sh.Cells.CountLarge Then ليصبح بهذا الشكل بفرض أن النطاق هو A1:B3 If Application.WorksheetFunction.CountBlank(sh.range("A1:B3")) <> sh.range("A1:B3").Count Then
  7. يمكن وضع أوراق العمل الثمانية في مصفوفة والعمل عليها فقط Sub Test() Dim sh As Worksheet Application.ScreenUpdating = False For Each sh In Sheets(Array("Sheet1", "Sheet2")) 'Put Your Sheet Names Here If Application.WorksheetFunction.CountBlank(sh.Cells) <> sh.Cells.CountLarge Then sh.PrintPreview 'Change PrintPreview To PrintOut End If Next sh Application.ScreenUpdating = True End Sub
  8. أي لاونجي ..الكود واضح أهو .. لو فيه حاجة مش واضحة استفسر عنها ، بس حاجة واحدة مش كل الكود
  9. وجزيت خيراً بمثل ما دعوت لي أخي الكريم الحمد لله الذي بنعمته تتم الصالحات
  10. وعليكم السلام جرب الكود التالي Sub Test() Dim ws As Worksheet Dim sh As Worksheet Dim arr As Variant Dim str As String Dim x As Long Dim i As Long Dim j As Long Set ws = Sheets("BUY") Set sh = Sheets("STORE") arr = ws.Range("E2:FJ" & ws.Cells(Rows.Count, 5).End(xlUp).Row).Value Application.ScreenUpdating = False For x = 2 To sh.Cells(Rows.Count, 1).End(xlUp).Row str = sh.Cells(x, 1).Value For i = UBound(arr, 1) To LBound(arr, 1) Step -1 For j = UBound(arr, 2) - 5 To LBound(arr, 2) Step -6 If arr(i, j) <> "" And arr(i, j) = str Then sh.Cells(x, 6).Value = arr(i, j + 1) sh.Cells(x, 7).Value = arr(i, j + 2) sh.Cells(x, 8).Value = arr(i, j + 3) sh.Cells(x, 10).Value = arr(i, j + 4) sh.Cells(x, 9).Value = arr(i, j + 5) GoTo Skipper End If Next j Next i Skipper: Next x Application.ScreenUpdating = True End Sub
  11. وعليكم السلام جرب الكود التالي Sub Test() Dim sh As Worksheet Application.ScreenUpdating = False For Each sh In ThisWorkbook.Worksheets If sh.Name <> "الرئيسية" And Application.WorksheetFunction.CountBlank(sh.Cells) <> sh.Cells.CountLarge Then sh.PrintPreview 'Change PrintPreview To PrintOut End If Next sh Application.ScreenUpdating = True End Sub
  12. تمام الأسطر المشار إليها عدل فيها براحتك بحيث يناسب ملفك وهذا هو المقصد من الكود أن يكون مرن ويمكن تعديله بسهولة تقبل تحياتي
  13. دور على السطر في الكود اللي فيه جملة DisplayRightToLeft وشيل السطر دا وهيظبط معاك زي ما إنت عايز
  14. جرب تحذف الجزء الأخير من السطر من أول الفاصلة ورقم 16
  15. إن شاء الله يفضل شغال وجرب بنفسك وشوف ولو قابلتك مشكلة أعطنا صورة للمشكلة لنتمكن من تقديم المساعدة المطلوبة