بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
264 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
5
أبومروان last won the day on يوليو 4 2023
أبومروان had the most liked content!
السمعه بالموقع
193 Excellentعن العضو أبومروان
البيانات الشخصية
-
Gender (Ar)
ذكر
-
Job Title
مهندس زراعي
-
البلد
مصر
-
الإهتمامات
كل ما هو مفيد
اخر الزوار
1,651 زياره للملف الشخصي
-
الصادق ـ ح started following أبومروان
-
أبومروان started following بحث عن برنامج ارشفة الكترونية , مكتبة الموقع - حساب ضريبة الدخل علي الاكسيل طبقا لتعديلات قانون الضرائب رقم7 لسنه 2024 , جمع الوقت و 6 اخرين
-
-
وعليكم السلام جرب الكود التالي لعله يفيد حضرتك ولعله المطلوب Sub Export_PDF() Dim SH As Worksheet, R As Range, File_name As String Set SH = ThisWorkbook.Worksheets("Sheet3 (2)") File_name = SH.Range("p8").Value Set R = SH.Range("A1:x35") R.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & File_name End Sub 6666.xlsm 118.pdf
-
ممكن تستخدم الاكواد الاتيه للاخفاء الصفوف واظهارها Sub اخفاء() Dim Cl As Range For Each Cl In Range("a3:a103") If Cl.Value = Range("k2") Then Cl.EntireRow.Hidden = True End If Next Cl End Sub Sub اظهار() Dim Cl As Range For Each Cl In Range("a3:a103") If Cl.Value = Range("k2") Then Cl.EntireRow.Hidden = False End If Next Cl End Sub
-
HID_SH.rar
-
أ/ @رشاد احمد ارفقت لحضرتك في المشاركه السابقه الملف جاهز عندالتغير سوف يتم استدعاء المطلوب وحول تقرا الموضع هيفيدك ويساعدك للوصول لافضل حل وفهم الكود
-
وعليكم السلام ورحمه وبركاته جرب المرفق لعله الملطلوب تم الاستعانه بالموضوع ادناه السيارات 24.xlsm ودا الكود المستخدم عدل عليه براحتك حسي الاحتياج Sub Trans_Data() '????? ??? ???????? ???? ?????? '????? ???? '?? ??? ????? ?? 15/11/2017 '????? ?? ????? ?? ??????? ???? ????? ???? '================ Application.ScreenUpdating = False Application.Calculation = xlCalculationManual '??????? ?? ????? ???????' Dim Main As Worksheet, sh As Worksheet ' ??????? ?? ?????????? Dim Arr As Variant, Temp As Variant '(i,j)??????? ?? ????? ???????? ?????? ( p ) ????? ???????? ??????? Dim i As Long, j As Long, p As Long ' ??????? ?? ??????? ???? ??? ??? ????? ???? Dim dep As String Set Main = Sheets("1") Set sh = Sheets("2") '======= ' ??? ??????? ??????? sh.Range("A5:AC" & Main.Range("B" & Rows.Count).End(xlUp).Row).ClearContents ' ????? ???????? dep = sh.Range("e2").Value ' ???????? ?????? Arr = Main.Range("A3:AC" & Main.Range("B" & Rows.Count).End(xlUp).Row).Value ' ????? ???????? ????? ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) ' ??? ???????? ?????? For i = 1 To UBound(Arr, 1) '??? ???? ????? If Arr(i, 4) Like "*" & dep & "*" Then 'If Arr(i, 101) = dep Then ' ?????? ?????? ??? ???????? ????? p = p + 1 ' ??? ???????? ????? For j = 1 To UBound(Arr, 2) ' ????? ???????? ????? ?? ???????? ?????? ??? ????? Temp(p, j) = Arr(i, j) Next End If Next ' ???? ??????? ????? ????? '??? ???????? ???????? If p > 0 Then sh.Range("A5").Resize(p, UBound(Temp, 2)).Value = Temp sh.Range("A5:AC" & Rows.Count).Borders.Value = 0 '??? ?????? ??????? sh.Range("A5:AC" & Cells(Rows.Count, 2).End(xlUp).Row).Borders _ .Weight = xlMedium ' .Weight = xlThin ' .Weight = xlMedium ' .Weight = xlThick Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub
-
وعليكم السلام ورحمه الله راجع الرابط ادناه للاستاذ @أ / محمد صالح اكثر من رائع لعله بفيدك
-
السلام عليكم ورحمه الله
- 1 reply
-
- 1
-
والسلام عليكم ورحمة الله وبركاته
- 1 reply
-
- 1
-
مشكلة فقدان كلمة المرور بنبة المصنف
أبومروان replied to sayed darwish's topic in منتدى الاكسيل Excel
السلام عليكم ورحمه الله -
وعليكم السلام عليكم ورحمة الله وبركاته
-
برجاء ارفق ملف اكسل به المطلوب لعله تجد ما تريد
-
وعليكم السلام راجع المرفق ادناه
-
دالة xlookup غير موجودة فى اوفيس 2019
أبومروان replied to Mr. shehata's topic in منتدى الاكسيل Excel
السلام عليكم ورحمه الله وبركاته راجع الموضوع ادناه