اريد نسخ بيانات في Label

[محمد الورفلي1]

السلام عليكم

اريد اختصار لهذا الشكل

 

Private Sub UserForm_Activate()

Label17 = [c3]
Label18 = [c4]
Label19 = [c5]
Label20 = [c6]
Label21 = [c7]
Label22 = [c8]
Label23 = [c9]
Label24 = [c10]
Label25 = [c11]
Label26 = [c12]
Label27 = [c13]
Label28 = [c14]
Label29 = [c15]
Label30 = [c16]
Label31 = [c17]
Label32 = [c18]
Label37 = [d3]
Label38 = [d4]
Label39 = [d5]
Label40 = [d6]
Label41 = [d7]
Label42 = [d8]


End Sub

 

10.21.rar

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

Private Sub UserForm_Activate()
    Dim i As Long

    For i = 17 To 32
        Me.Controls("Label" & i) = Range("C" & i - 14)
    Next i
    For i = 37 To 42
        Me.Controls("Label" & i) = Range("D" & i - 34)
    Next i
End Sub

 

[سليم حاصبيا]

جرب هذا الماكرو

Private Sub UserForm_Activate()
Dim i%
For i = 17 To 42
If i <= 32 Then Me.Controls("Label" & i) = Range("c" & i - 14)
  If i = 33 Then  i = 37
  Me.Controls("Label" & i) = Range("d" & i - 34)
 next
End Sub

 

[محمد الورفلي1]

السلام عليكم استاذ ياسر

شكراً بارك الله فيك

 

ممكن شرح وافي  لموضوع  الحلقات التكرارية  فقط  :::  في موضوع منفصل طلباً من فضلك

 

 

11 دقائق مضت, سليم حاصبيا said:

جرب هذا الماكرو

Private Sub UserForm_Activate()
Dim i%
For i = 17 To 42
If i <= 32 Then Me.Controls("Label" & i) = Range("c" & i - 14)
  If i = 33 Then  i = 37
  Me.Controls("Label" & i) = Range("d" & i - 34)
 next
End Sub

 

شكراً استاذ سليم

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

[محمد الورفلي1]

استاذ ياسر  ما الذي يرمز له  رقم 17  ورقم 32

 

    For i = 17 To 32

 

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

تم شرح الحلقات التكرارية في موضوع "افتح الباب وادخل لعالم البرمجة" .. أنصحك بالإطلاع على هذه الحلقات وإن شاء الله تفيدك

[محمد الورفلي1]

اطلعت عليه لكن كان كثر الردود من الاعضاء في المنتدي

شتت الموضوع واعتقد انه كان فقرة في في علم البرمجة ما اقصدة استاذ ياسر    ان يكون موضوع بالحلقات فقط بجميع اشكالها

متى ما تسنى لك وقت   وشكراً مره اخرى

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

الموضوع منفصل عن الردود تماماً .. وإليك رابط الحلقة التي تحدثت فيها عن الحلقات التكرارية كما يوجد فيديوهات على اليوتيوب في قنوات مختلفة قتلت هذا الموضوع شرحاً