الاستاذ الفاضل ابو حنين
احب ان اهنئك والاسره الكريمه بعيد الفطر المبارك اعاده الله عليكم وعلى الامه الاسلامية باليمن والبركات
اسمح لى ان اعرض عليكم هذا السؤال وارجو ان تستوعب عطشى من التعلم من شخصكم الكريم
احب ان اعرف معنى الحدث التالى الموجود فى كود الفورم وشرح سطوره(اوامره) .
Private Sub UserForm_Initialize()
Set sh = Sheets("æÑÞÉ1")
With sh
'.Activate
LsRow = .Cells(Rows.Count, "A").End(xlUp).Row
On Error Resume Next
ListBox1.Clear: For A = 2 To LsRow
ListBox1.AddItem .Cells(A, 1): ListBox1.List(C, 1) = Format(.Cells(A, 2), "dd-mm-yyyy")
ListBox1.List(C, 2) = .Cells(A, 3)
C = C + 1
Next
For j = 0 To ListBox1.ListCount - 1
TextBox4 = Val(TextBox4) + Val(ListBox1.Column(2, j))
Next
On Error Resume Next
Dim MyValue As Collection, Cl As Range
Set MyValue = New Collection
For Each Cl In .Range("a2:a" & LsRow)
MyValue.Add Cl.Value, Cl.Text
Next Cl
For i = 1 To MyValue.Count
Me.ComboBox1.AddItem MyValue(i)
Next i
End With
End Sub
رغم تكرار معظم اوامره فى حدث
Private Sub ComboBox1_Change()
وكل عام وانتم بخير