اريد اختصار الاكواد التالية وتعديلها لتنفيذها بالفورم

[ابو يوسف العلفي]

مع العلم بان هناك تكست بوكسات تظهر وتختفي بحسب القيمة يعنى من T1-T15 ثابتة ومن T16-T29  بحسب القيمة اذا كان في الاعدادات قيمة لها ستظهر مالم ستكون مخفية في الفورم موضح ذلك في الكود الثالث :-

 

Private Sub CommandButton1_Click()

æÑÞÉ24.Activate
Application.ScreenUpdating = False

   lru = æÑÞÉ24.Range("e" & Rows.Count).End(xlUp).Row + 1

æÑÞÉ24.Cells(lru, 5).Value = TxtDate.Value
æÑÞÉ24.Cells(lru, 6).Value = TextBox3.Value
æÑÞÉ24.Cells(lru, 7).Value = TextBox4.Value
æÑÞÉ24.Cells(lru, 9).Value = T1.Value
æÑÞÉ24.Cells(lru, 10).Value = T2.Value
æÑÞÉ24.Cells(lru, 11).Value = T3.Value
æÑÞÉ24.Cells(lru, 12).Value = T4.Value
æÑÞÉ24.Cells(lru, 13).Value = T5.Value
æÑÞÉ24.Cells(lru, 14).Value = T6.Value
æÑÞÉ24.Cells(lru, 15).Value = T7.Value
æÑÞÉ24.Cells(lru, 16).Value = T8.Value
æÑÞÉ24.Cells(lru, 17).Value = T9.Value
æÑÞÉ24.Cells(lru, 18).Value = T10.Value
æÑÞÉ24.Cells(lru, 19).Value = T11.Value
æÑÞÉ24.Cells(lru, 20).Value = T12.Value
æÑÞÉ24.Cells(lru, 21).Value = T13.Value
æÑÞÉ24.Cells(lru, 22).Value = T14.Value
æÑÞÉ24.Cells(lru, 23).Value = T15.Value
æÑÞÉ24.Cells(lru, 24).Value = T16.Value
æÑÞÉ24.Cells(lru, 25).Value = T17.Value
æÑÞÉ24.Cells(lru, 26).Value = T18.Value
æÑÞÉ24.Cells(lru, 27).Value = T19.Value
æÑÞÉ24.Cells(lru, 28).Value = T20.Value
æÑÞÉ24.Cells(lru, 29).Value = T21.Value
æÑÞÉ24.Cells(lru, 30).Value = T22.Value
æÑÞÉ24.Cells(lru, 31).Value = T23.Value
æÑÞÉ24.Cells(lru, 32).Value = T24.Value
æÑÞÉ24.Cells(lru, 33).Value = T25.Value
æÑÞÉ24.Cells(lru, 34).Value = T26.Value
æÑÞÉ24.Cells(lru, 35).Value = T27.Value
æÑÞÉ24.Cells(lru, 36).Value = T28.Value
æÑÞÉ24.Cells(lru, 37).Value = T29.Value

    MsgBox "Êã ÇáÊÑÍíá ÈäÌÇÍ"

 TextBox3.Value = ""
 TextBox4.Value = ""
 T1.Value = ""
 T2.Value = ""
 T3.Value = ""
 T4.Value = ""
 T5.Value = ""
 T6.Value = ""
 T7.Value = ""
 T8.Value = ""
 T9.Value = ""
 T10.Value = ""
 T11.Value = ""
 T12.Value = ""
 T13.Value = ""
 T14.Value = ""
 T15.Value = ""
 T16.Value = ""
 T17.Value = ""
 T18.Value = ""
 T19.Value = ""
 T20.Value = ""
 T21.Value = ""
 
 TextBox3.SetFocus
 
Application.ScreenUpdating = True
End Sub

------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

كود لجمع ال30 التيكست بوكس في خلية واحدة هل ممكن استبدالها باستخدام وضع متغير واستخدام الدوال ؟

Private Sub Total_Change()
Total.Value = TextBox3.Value + T1.Value + T2.Value + Value + T3.Value + T4.Value + T5.Value + T6.Value + T7.Value + T8.Value + T9.Value + T10.Value + T11.Value + T12.Value + T13.Value + T14.Value + T15.Value + T16.Value + T17.Value + T18.Value + T19.Value + T20.Value + T21.Value

End Sub

-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

 

Private Sub UserForm_Activate()
Me.TxtDate = Format(Date, "yyyy/mm/dd")
'ßæÏ ÇÙåÇÑ ÇÓãÇÁ ÇáãÕÑæÝÇÊ Ýí ÇáÝæÑã
Application.ScreenUpdating = False
æÑÞÉ3.Activate
    L1.Caption = [aw8]
    L2.Caption = [aw9]
    L3.Caption = [aw10]
    L4.Caption = [aw11]
    L5.Caption = [aw12]
    L6.Caption = [aw13]
    L7.Caption = [aw14]
    L8.Caption = [aw15]
    L9.Caption = [aw16]
    L10.Caption = [aw17]
    L11.Caption = [aw18]
    L12.Caption = [aw19]
    L13.Caption = [aw20]

If [aw21] <> "" Then
L14.Caption = [aw21]
Else
L14.Visible = False
T14.Visible = False
End If
If [aw22] <> "" Then
L15.Caption = [aw22]
Else
L15.Visible = False
T15.Visible = False
End If
If [aw23] <> "" Then
L16.Caption = [aw23]
Else
L16.Visible = False
T16.Visible = False
End If
If [aw24] <> "" Then
L17.Caption = [aw24]
Else
L17.Visible = False
T17.Visible = False
End If
If [aw25] <> "" Then
L18.Caption = [aw25]
Else
L18.Visible = False
T18.Visible = False
End If
If [aw26] <> "" Then
L19.Caption = [aw26]
Else
L19.Visible = False
T19.Visible = False
End If
If [aw27] <> "" Then
L20.Caption = [aw27]
Else
L20.Visible = False
T20.Visible = False
End If
If [aw28] <> "" Then
L21.Caption = [aw28]
Else
L21.Visible = False
T21.Visible = False
End If
If [aw29] <> "" Then
L22.Caption = [aw29]
Else
L22.Visible = False
T22.Visible = False
End If
If [aw30] <> "" Then
L23.Caption = [aw30]
Else
L23.Visible = False
T23.Visible = False
End If
If [aw31] <> "" Then
L24.Caption = [aw31]
Else
L24.Visible = False
T24.Visible = False
End If
If [aw32] <> "" Then
L25.Caption = [aw32]
Else
L25.Visible = False
T25.Visible = False
End If
If [aw33] <> "" Then
L26.Caption = [aw33]
Else
L26.Visible = False
T26.Visible = False
End If
If [aw34] <> "" Then
L27.Caption = [aw34]
Else
L27.Visible = False
T27.Visible = False
End If
If [aw35] <> "" Then
L28.Caption = [aw35]
Else
L28.Visible = False
T28.Visible = False
End If
If [aw36] <> "" Then
L29.Caption = [aw36]
Else
L29.Visible = False
T29.Visible = False
End If

Application.ScreenUpdating = True

   
    
End Sub