Toggle Multiple Values Worksheet BeforeDouble Click Event

Rem الكود يوضع في حدث ورقة العمل حيث تقوم بالنقر كليك يمين على اسم ورقة العمل
Rem View Code
Rem تقوم بلصق الكود في حدث ورقة العمل
Rem -------------------------------------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Rem الإعلان عن المتغيرات
    Dim v, e, rng As Range

    Rem جملة شرطية لتحديد الخلية الهدف المراد التعامل معها
    If Target.Address = "$D$1" Then

        Rem هذا السطر يلغي خاصية النقر المزدوج في الخلية الهدف
        Rem وتهدف خاصية النقر المزدوج في أي خلية تحرير محتوى الخلية
        Cancel = True

        Rem تحديد الخلية التي سيتم التأثير فيها بمجرد النقر المزدوج في الخلية الهدف
        Set rng = Range("D3")

        Rem مصفوفة أحادية الأبعاد بالقيم التي سيتم التعامل معها بالتناوب
        v = Array("ABC", "DEF", "GHI", "JKL", Empty)

        Rem جملة شرطية تختبر الخلية المراد التأثير فيها فإذا كانت الخلية فارغة
        If rng.Value = Empty Then

            Rem يتم تعيين القيمة صفر للمتغير
            e = 0

        Rem أما إذا لم تكن الخلية المراد التأثير فيها فارغة
        Else

            Rem يتم البحث عن قيمة الخلية في المصفوفة أحادية الأبعاد لمعرفة رقم الفهرس
            e = Application.Match(rng.Value, v, 0)

        Rem نهاية الجملة الشرطية
        End If

        Rem إذا كانت الخلية المراد التأثير فيها تحتوي على قيمة غير مرغوب فيها
        Rem يتم مسح محتويات الخلية المراد التأثير فيها
        Rem أما إذا لم يكن هناك خطأ يتم جلب القيمة الجديدة حسب رقم الفهرس داخل المصفوفة
        If Not IsError(e) Then rng.Value = v(e) Else rng.Value = Empty

    Rem نهاية الجملة الشرطية التي تحدد الخلية الهدف
    End If
End Sub