حسونة حسين

وعليكم السلام ورحمة الله وبركاته 

الاوفيس لو كان ٦٤ بت

قم بازالته وتنصيب اوفيس ٣٢ بت

ثم اعمل ريجستر للاداه مره اخري

السلام عليكم ورحمة الله وبركاته وبها نبدأ

يمكنك استخدام خاصية "البحث والاستبدال" (Ctrl + H) مع تنسيق خاص لتحقيق ذلك.

1. اضغط Ctrl + H لفتح نافذة "استبدال".

2. أدخل القيمة التي تبحث عنها في حقل "البحث عن".

3. اترك حقل "استبدال بـ" فارغًا.

4. اضغط على زر "تنسيق" (Format) في قسم "استبدال بـ".

5. اختر لون التعبئة (Fill color) الذي تريده.

6. اضغط "موافق" (OK).

7. اضغط "استبدال الكل" (Replace All).

سيتم تلوين جميع الخلايا التي تحتوي على القيمة التي تبحث عنها باللون الذي اخترته.

جزاكم الله خيرا اخى

وجعله الله في ميزان حسناتك يوم القيامة 

في 12‏/8‏/2025 at 12:06, a.h.a.h.hemdan said:

والمطلوب اخفاء واظهار الصفوف بناء علي الشرط بخانة الشريحة بناء علي المبلغ المدخل في خانة الدخل السنوي والصفوف التى لا ينطبق عليها الشرط تختفي

هذا طلبك في المشاركه الرئيسيه 

كده طلبك انتهي فيما يخص اخفاء السطور ام لم ينتهى

يرجى فتح موضوع جديد بالطلب الجديد

اول ورقه مطبوعه ستكون بهذا الشكل

وثانى ورقه مطبوعه ستكون بهذا الشكل

صح كده ولا انا فهمت حاجه تانيه

ما الفائده من هذه التقسيمات

تفضل

Sub Clean_Trim()
    Dim rng As Range
    Set rng = sheet1.Range("C2:C46023")
    rng.Value = Evaluate("INDEX(CLEAN(TRIM(" & rng.Address & ")),)")
End Sub

وعليكم السلام ورحمة الله وبركاته اخي عبدالله بشير

تعديل بسيط للكود

Private Sub Worksheet_Calculate()
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    
    Dim cell As Range
    Dim rngHide As Range
    
    For Each cell In Me.Range("E6:E12")
        If cell.Value = 0 Then
            If rngHide Is Nothing Then
                Set rngHide = cell
            Else
                Set rngHide = Union(rngHide, cell)
            End If
        End If
    Next cell
    
    Me.Range("E6:E12").EntireRow.Hidden = False
    If Not rngHide Is Nothing Then
        rngHide.EntireRow.Hidden = True
    End If
    
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

وعليكم السلام ورحمة الله وبركاته 

استخدم هذا المعادله واسحبها الي قدر ما تحتاج من الصفوف

=CLEAN(TRIM(C2))

وعليكم السلام ورحمة الله وبركاته 

حضرتك محتاج توزيعهم من اجل الطباعه فقط 

اي تاتي ب اول ٩٠ اسم ويتم طباعتهم كما في الصورة التاليه

ثم يتم طباعتها 

ثم تاتي الدفعه الثانيه

من الاسماء من ٩١ الي ١٨٠ 

في نفس الخلايا الأولى 

ام ماذا

يرجي الاستفاضه في شرح المطلوب

وعليكم السلام ورحمة الله وبركاته 

ارفق ملف اخي

وعليكم السلام ورحمة الله وبركاته

بارك الله فيك 

الملف يعمل بلا اي مشاكل

وعليكم السلام ورحمة الله وبركاته 

بارك الله فيك ابو حبيبه وجعله الله في ميزان حسناتك 

وعليكم السلام ورحمة الله وبركاته 

تم رفع الملف بالمشاركه الاولي في الموضوع جزى الله عنا خيرا استاذنا الغالي ياسر خليل

اللهم اغفر له وارحمه وعافه واعف عنه وأكرم نزله ووسع مدخله واغسله بالماء والثلج والبرد ونقه من الذنوب والخطايا كما ينقى الثوب الأبيض من الدنس اللهم ادخله فسيح جناتك يارب العالمين مع النبيين والصديقين والشهداء والصالحين وحسن أولئك رفيقا 

اسأل الله العظيم رب العرش العظيم أن يشفيه شفاء لا يغادر سقما طهور ان شاء الله

السلام عليكم ورحمة الله وبركاته

قم بتصميم شكل الملف الذي تريد مضيفا بعض البيانات وسوف تجد كل المساعده التي تريدها ان شاء الله

وعليكم السلام ورحمة الله وبركاته 

بارك الله فيك وجعله الله في ميزان حسناتك 

باقى الفصول التي تقوم برفعها ان شاء الله سوف يتم ارفاقها في المشاركه الاولي في هذا الموضوع لتعم الاستفاده

وعليكم السلام ورحمة الله وبركاته 

ارفق ملف للعمل عليه

وجزاكم مثله استاذ مجدى

تم تحديث الملف يوم الخميس الموافق 10 - 04 - 2025

تفضل اخي

رابط شرح الموضوع والمرفق

السلام عليكم ورحمة الله وبركاته 

لحل مشكله اللغه العربيه

قم بإزالة علام الصح واضغط ok

ثم قم بعمل اعاده تشغيل الجهاز

وعليكم السلام ورحمة الله وبركاته 

ارفق ملف للعمل عليه ولفهم المطلوب

هذا الموضوع مخالف لقوانين المنتدي

××××××××

موضوع مكرر
××××××××
يغلق
××××××××