تغيير رقم ثابت الى متغير

[ابو ذكري]

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

بعد التحية لجميع الاخوة الكرام

لي رجاء عند الاخوة خبراء ال VBA

في الكود

Sub hidunusee()
Dim rng As Range
Dim cell As Range
Set rng = Range("a10:a30")
For Each cell In rng
    If cell.Value <> 405 Then
            cell.EntireRow.Hidden = True
    End If
    If cell.Value = 405 Then
            cell.EntireRow.Hidden = False
    End If
    Next cell
End Sub

اريد استبدال القيمة 405 بقيمة متغيرة او قيمة خلية A1 مثلا

تنفيذ الكود بمجرد الضغط على انتر

العمل على ورقة عمل واحدة داخل الشيت

مرفق ملف للتوضيح

كروت عملاء.rar

[سليم حاصبيا]

ؤقض الجهاز التعامل مع ملقك

لقد عملت لك ملفاً بديلاً (بشبه ما عتدك)

اي تفيير في قيمة الخلية B2 ينفذ الكود مباشرة و هناك زر لاظهار الصفوف

اذا كانت قيمة الخلية B2 غير موجودة قي العامود الاول يتم اظهار كل الصفوف

 

Show cols.rar

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

وعليكم السلام

بدون تجربة الكود واعتماداً على الكود الذي أرفقته أخي الكريم .. تم التعديل بالشكل التالي (وضعت تعليق على السطر الجديد)

Sub HidUnused()
    Dim rng     As Range
    Dim cell    As Range
    Dim x       As Variant
    
    Set rng = Range("A10:A30")
    
    'تم إضافة متغير وتعيين قيمة له ثم يستخدم المتغير في الكود
    x = Range("A1").Value 'Or x=405
    
    For Each cell In rng
        If cell.Value <> x Then
            cell.EntireRow.Hidden = True
        ElseIf cell.Value = x Then
            cell.EntireRow.Hidden = False
        End If
    Next cell
End Sub