اخفاء عدد من الصف1 عند اختيارة من قائمة منسدلة

[صالح احمد المريسي]

ارجو المساعدة وهل ممكن تطبيق فكرتي 

وهي عند اختيار عدد Book1.rar من القائمة المنسدلة يختفي العدد من الصف 1 وعند انتهاء الشخص من المهمة يظهر مرة اخرى العدد في الصف1

[صالح احمد المريسي]

للرفع

[صالح احمد المريسي]

للرفع

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

أخي الكريم

يرجى دائماً بدل الرفع أن توضح بأسلوب آخر فقد يكون المطلوب مبهم أو يحتاج إلى مثال تطبيقي ..عموماً إليك الكود التالي في حدث الورقة حسب ما فهمت ...

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cell As Range
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Row > 2 And Target.Column = 10 Then
        For Each Cell In Range("J1:Q1")
            If Cell.Value = Target.Value Then Cell.NumberFormat = ";;;"
        Next Cell
    End If
    If Target.Row > 2 And Target.Column = 15 Then
        For Each Cell In Range("J1:Q1")
            If Cell.Value = Target.Offset(, -5).Value Then Cell.NumberFormat = "General"
        Next Cell
    End If
End Sub

 

كود آخر يفي بالغرض بدون استخدام الحلقات التكرارية

 

Private Sub Worksheet_Change(ByVal Target As Range)    Dim Found As Range
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Row > 2 And Target.Column = 10 Then
        Set Found = Range("J1:Q1").Find(What:=Target.Value, LookAt:=xlWhole)        If Not Found Is Nothing Then Found.NumberFormat = ";;;"    End If
    If Target.Row > 2 And Target.Column = 15 Then
        Set Found = Range("J1:Q1").Find(What:=Target.Offset(, -5).Value, LookAt:=xlWhole)        If Not Found Is Nothing Then Found.NumberFormat = "General"    End If
End Sub

 

Custom-Format-Worksheet-Change.rar

تم تعديل أغسطس 28, 2015 بواسطه ياسر خليل أبو البراء

[صالح احمد المريسي]

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

[صالح احمد المريسي]

للرفع

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

الموضوع صعب إلى حدٍ ما وسيتسبب في ثقل التعامل مع الملف ..أفضل أن تكتفي بما وصلنا إليه حيث أنه يؤدي المطلوب وفي حالة أردت إظهار قيمة عليك بالكتابة في العمود الأخير ..

[صالح احمد المريسي]

اشكرك وتشكر على ماتقدم