مساعدة لتصميم برنامج صغير

[المسلم العربي]

أرجوالمساعدةعلى ايجاد أكواد لتصميم البرنامج الموضح اسفله
و أتمنى أن لا تكون الأكواد مرتبطة بخلايا في الاكسل 
 

Offecena.rar

[ياسر العربى]

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

يرجى التأكد من النتائج

تحياتي

 

Offecena.rar

[ياسر العربى]

وأرى انك لا تريد العمل على الشيتات وكأنك تريده برنامج تنفيذي
تفضل البرنامج تنفيذي
تحياتي

Project1.rar

[المسلم العربي]

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

[المسلم العربي]

أرجو التوضيح ؟؟؟؟؟؟؟؟؟
 

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

جرب الكود التالي عله يفي بالغرض

Private Sub CommandButton4_Click()
    Dim i As Long
    Dim c As Long
    Dim x As Long
    Dim k As Long

    x = 11
    For i = 1 To 8
        c = c + (Me.Controls("TextBox" & i).Value * x)
        x = x - 1
    Next i
    k = c Mod 100

    UserForm2.TextBox10 = k
    UserForm1.Hide
    UserForm2.Show
End Sub