اختصار الكود حسب المثال المرفق

كود :
   Dim MM(11) As String

    MM(0) = "جانفي"

    MM(1) = "فيفري"

    MM(2) = "مارس"

    MM(3) = "افريل"

    MM(4) = "ماي"

    MM(5) = "جوان"

    MM(6) = "جويلية"

    MM(7) = "اوت"

    MM(8) = "سبتمبر"

    MM(9) = "اكتوبر"

    MM(10) = "نوفمبر"

    MM(11) = "ديسمبر"

    '=================================

    Dim MM1 As String, MM2 As String, MM3 As String, MM4 As String, _

        MM5 As String, MM6 As String, MM7 As String, MM8 As String, _

        MM9 As String, MM10 As String, MM11 As String, MM12 As String

    '=================================



    Select Case Combo2.Text

        Case "جانفي"

            MM1 = MM(0):     MM2 = MM(1):     MM3 = MM(2):     MM4 = MM(3)

            MM5 = MM(4):     MM6 = MM(5):     MM7 = MM(6):     MM8 = MM(7)

            MM9 = MM(8):     MM10 = MM(9):    MM11 = MM(10):    MM12 = MM(11)

        Case "فيفري"

            MM1 = MM(1):     MM2 = MM(2):     MM3 = MM(3):     MM4 = MM(4)

            MM5 = MM(5):     MM6 = MM(6):     MM7 = MM(7):     MM8 = MM(8)

            MM9 = MM(9):     MM10 = MM(10):    MM11 = MM(11):    MM12 = MM(0)

        Case "مارس"

            MM1 = MM(2):     MM2 = MM(3):     MM3 = MM(4):     MM4 = MM(5)

            MM5 = MM(6):     MM6 = MM(7):     MM7 = MM(8):     MM8 = MM(9)

            MM9 = MM(10):     MM10 = MM(11):    MM11 = MM(0):    MM12 = MM(1)

        Case "افريل"

            MM1 = MM(3):     MM2 = MM(4):     MM3 = MM(5):     MM4 = MM(6)

            MM5 = MM(7):     MM6 = MM(8):     MM7 = MM(9):     MM8 = MM(10)

            MM9 = MM(11):     MM10 = MM(0):    MM11 = MM(1):    MM12 = MM(2)

        Case "ماي"

            MM1 = MM(4):     MM2 = MM(5):     MM3 = MM(6):     MM4 = MM(7)

            MM5 = MM(8):     MM6 = MM(9):     MM7 = MM(10):     MM8 = MM(11)

            MM9 = MM(0):     MM10 = MM(1):    MM11 = MM(2):    MM12 = MM(3)

        Case "جوان"

            MM1 = MM(5):     MM2 = MM(6):     MM3 = MM(7):     MM4 = MM(8)

            MM5 = MM(9):     MM6 = MM(10):     MM7 = MM(11):     MM8 = MM(0)

            MM9 = MM(1):     MM10 = MM(2):    MM11 = MM(3):    MM12 = MM(4)

        Case "جويلية"

            MM1 = MM(6):     MM2 = MM(7):     MM3 = MM(8):     MM4 = MM(9)

            MM5 = MM(10):     MM6 = MM(11):     MM7 = MM(0):     MM8 = MM(1)

            MM9 = MM(2):     MM10 = MM(3):    MM11 = MM(4):    MM12 = MM(5)

        Case "اوت"

            MM1 = MM(7):     MM2 = MM(8):     MM3 = MM(9):     MM4 = MM(10)

            MM5 = MM(11):     MM6 = MM(0):     MM7 = MM(1):     MM8 = MM(2)

            MM9 = MM(3):     MM10 = MM(4):    MM11 = MM(5):    MM12 = MM(6)

        Case "سبتمبر"

            MM1 = MM(8):     MM2 = MM(9):     MM3 = MM(10):     MM4 = MM(11)

            MM5 = MM(0):     MM6 = MM(1):     MM7 = MM(2):     MM8 = MM(3)

            MM9 = MM(4):     MM10 = MM(5):    MM11 = MM(6):    MM12 = MM(7)

        Case "اكتوبر"

            MM1 = MM(9):     MM2 = MM(10):     MM3 = MM(11):     MM4 = MM(0)

            MM5 = MM(1):     MM6 = MM(2):     MM7 = MM(3):     MM8 = MM(4)

            MM9 = MM(5):     MM10 = MM(6):    MM11 = MM(7):    MM12 = MM(8)

        Case "نوفمبر"

            MM1 = MM(10):     MM2 = MM(11):     MM3 = MM(0):     MM4 = MM(1)

            MM5 = MM(2):     MM6 = MM(3):     MM7 = MM(4):     MM8 = MM(5)

            MM9 = MM(6):     MM10 = MM(7):    MM11 = MM(8):    MM12 = MM(9)

        Case "ديسمبر"

            MM1 = MM(11):     MM2 = MM(0):     MM3 = MM(1):     MM4 = MM(2)

            MM5 = MM(3):     MM6 = MM(4):     MM7 = MM(5):     MM8 = MM(6)

            MM9 = MM(7):     MM10 = MM(8):    MM11 = MM(9):    MM12 = MM(10)

    End Select

    '===================================================

    

    '===========================================

    ARetraite2.Field109 = MM1 & " - " & Combo1

    ARetraite2.Field110 = MM2 & " - " & Combo1

    ARetraite2.Field111 = MM3 & " - " & Combo1

    ARetraite2.Field112 = MM4 & " - " & Combo1

    ARetraite2.Field113 = MM5 & " - " & Combo1

    ARetraite2.Field114 = MM6 & " - " & Combo1

    ARetraite2.Field115 = MM7 & " - " & Combo1

    ARetraite2.Field116 = MM8 & " - " & Combo1

    ARetraite2.Field117 = MM9 & " - " & Combo1

    ARetraite2.Field118 = MM10 & " - " & Combo1

    ARetraite2.Field119 = MM11 & " - " & Combo1

    ARetraite2.Field120 = MM12 & " - " & Combo1

    

    ARetraite2.Field97 = MM1 & " -  " & Combo1 + 1

    ARetraite2.Field98 = MM2 & " -  " & Combo1 + 1

    ARetraite2.Field99 = MM3 & " - " & Combo1 + 1

    ARetraite2.Field100 = MM4 & " -  " & Combo1 + 1

    ARetraite2.Field101 = MM5 & " -  " & Combo1 + 1

    ARetraite2.Field102 = MM6 & " - " & Combo1 + 1

    ARetraite2.Field103 = MM7 & " - " & Combo1 + 1

    ARetraite2.Field104 = MM8 & "  -   " & Combo1 + 1

    ARetraite2.Field105 = MM9 & " - " & Combo1 + 1

    ARetraite2.Field106 = MM10 & " - " & Combo1 + 1

    ARetraite2.Field107 = MM11 & " - " & Combo1 + 1

    ARetraite2.Field108 = MM12 & " - " & Combo1 + 1

    

    ARetraite2.Field85 = MM1 & " -  " & Combo1 + 2

    ARetraite2.Field86 = MM2 & " -  " & Combo1 + 2

    ARetraite2.Field87 = MM3 & " - " & Combo1 + 2

    ARetraite2.Field88 = MM4 & " -  " & Combo1 + 2

    ARetraite2.Field89 = MM5 & " -  " & Combo1 + 2

    ARetraite2.Field90 = MM6 & " - " & Combo1 + 2

    ARetraite2.Field91 = MM7 & " - " & Combo1 + 2

    ARetraite2.Field92 = MM8 & "  -   " & Combo1 + 2

    ARetraite2.Field93 = MM9 & " - " & Combo1 + 2

    ARetraite2.Field94 = MM10 & " - " & Combo1 + 2

    ARetraite2.Field95 = MM11 & " - " & Combo1 + 2

    ARetraite2.Field96 = MM12 & " - " & Combo1 + 2

    

    ARetraite2.Field73 = MM1 & " -  " & Combo1 + 3

    ARetraite2.Field74 = MM2 & " -  " & Combo1 + 3

    ARetraite2.Field75 = MM3 & " - " & Combo1 + 3

    ARetraite2.Field76 = MM4 & " -  " & Combo1 + 3

    ARetraite2.Field77 = MM5 & " -  " & Combo1 + 3

    ARetraite2.Field78 = MM6 & " - " & Combo1 + 3

    ARetraite2.Field79 = MM7 & " - " & Combo1 + 3

    ARetraite2.Field80 = MM8 & "  -   " & Combo1 + 3

    ARetraite2.Field81 = MM9 & " - " & Combo1 + 3

    ARetraite2.Field82 = MM10 & " - " & Combo1 + 3

    ARetraite2.Field83 = MM11 & " - " & Combo1 + 3

    ARetraite2.Field84 = MM12 & " - " & Combo1 + 3

    

    ARetraite2.Field61 = MM1 & " -  " & Combo1 + 4

    ARetraite2.Field62 = MM2 & " -  " & Combo1 + 4

    ARetraite2.Field63 = MM3 & " - " & Combo1 + 4

    ARetraite2.Field64 = MM4 & " -  " & Combo1 + 4

    ARetraite2.Field65 = MM5 & " -  " & Combo1 + 4

    ARetraite2.Field66 = MM6 & " - " & Combo1 + 4

    ARetraite2.Field67 = MM7 & " - " & Combo1 + 4

    ARetraite2.Field68 = MM8 & "  -   " & Combo1 + 4

    ARetraite2.Field69 = MM9 & " - " & Combo1 + 4

    ARetraite2.Field70 = MM10 & " - " & Combo1 + 4

    ARetraite2.Field71 = MM11 & " - " & Combo1 + 4

    ARetraite2.Field72 = MM12 & " - " & Combo1 + 4

    '===========================================



    ARetraite2.Show