اسم ليبل الفورم هو اسم الخلية

[omhamzh]

السلام عليكم ورحمة الله وبركاته الاساتذة مشرفى المنتدى

احتاج كودين للفورم

الاول لجعل بدأ من Label7 caption = C4, ,Label6 caption = B4,,Label5 caption = a4 وهكذا حتى LABEL26

بحيث اذا تغير الاسم فى الخلية يتغير فى الليبل

الكود الاخر 

كود ل TextBox26

لكى تظهر ناتج طرح التكست بوكس من A:L-M:V

بارك الله فيكم وجزاكم كل الخير

form1.xlsm

[omhamzh]

وجدت الكود لتغير الليبل اخواتى الاساتذة وها هو للافادة للاخوة من تصميم الاستاذ ياسر خليل ابو البراء

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
        If Intersect(Range("A4:V4"), Target) Is Nothing Then
            Exit Sub
        Else
            UserForm1.Label5.Caption = Range("A4").Value
            UserForm1.Label6.Caption = Range("b4").Value

        End If
    On Error GoTo 0
End Sub

وبورقة العمل

Private Sub UserForm_Initialize()
Label5.Caption = Range("A4").Value

و كود

كود ل TextBox26

لكى تظهر ناتج طرح التكست بوكس من A:L-M:V

للاستاذ حماده عمر

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

TextBox26.Value = Val(TextBox2) + Val(TextBox3) + Val(TextBox4) + Val(TextBox5) + Val(TextBox6) + Val(TextBox7) + Val(TextBox8) + Val(TextBox9) + Val(TextBox10) + Val(TextBox12) + Val(TextBox12) - Val(TextBox13) - Val(TextBox14) - Val(TextBox15) - Val(TextBox16) - Val(TextBox17) - Val(TextBox18) - Val(TextBox19) - Val(TextBox20) - Val(TextBox21) - Val(TextBox22)

End Sub

 

بارك الله فيكم 

[omhamzh]

احتاج تغير حدث الكود من تحريك الماوس الى عند حدوث تغير او بمجرد الكتابة

 

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

TextBox26.Value = Val(TextBox2) + Val(TextBox3) + Val(TextBox4) + Val(TextBox5) + Val(TextBox6) + Val(TextBox7) + Val(TextBox8) + Val(TextBox9) + Val(TextBox10) + Val(TextBox12) + Val(TextBox12) - Val(TextBox13) - Val(TextBox14) - Val(TextBox15) - Val(TextBox16) - Val(TextBox17) - Val(TextBox18) - Val(TextBox19) - Val(TextBox20) - Val(TextBox21) - Val(TextBox22)

End Sub

لان الكود يعمل عند تحريك الماوس فقط

بارك الله فيكم