رفع مشکل کد

[alisabet]

سلام علیکم :
اساتید گرامی کد زیر را ملاحظه فرمائید این کد عمل نمیکند اما...

Private Sub CommandButton1_Click()
For Each c In userform1.Controls
If c.Tag = 1 Then
For i = 1 To 6
If c.ControlTipText = i Then
c.Caption = i
End If
Next i
End If
Next c
End Sub

کد زیر که بجز یک خط مشابه کد بالا است در مقدار تعیین شده بنحو صحیح عمل میکند

Private Sub CommandButton1_Click()
For Each c In userform1.Controls
If c.Tag = 1 Then
For i = 1 To 6
If c.ControlTipText =5 Then
c.Caption = i
End If
Next i
End If
Next c
End Sub

خواهشمند است اساتید محترم آموزش دهند که ایراد کد اول کجاست و چطوری حل میشود

[abootorab]

سلام علیکم : اساتید گرامی کد زیر را ملاحظه فرمائید این کد عمل نمیکند اما...

Private Sub CommandButton1_Click() For Each c In userform1.Controls If c.Tag = 1 Then For i = 1 To 6 If c.ControlTipText = i Then c.Caption = i End If Next i End If Next c End Sub

کد زیر که بجز یک خط مشابه کد بالا است در مقدار تعیین شده بنحو صحیح عمل میکند

Private Sub CommandButton1_Click() For Each c In userform1.Controls If c.Tag = 1 Then For i = 1 To 6 If c.ControlTipText =5 Then c.Caption = i End If Next i End If Next c End Sub

خواهشمند است اساتید محترم آموزش دهند که ایراد کد اول کجاست و چطوری حل میشود

با درود
شما در کد اول در سطری که مشخص کرده اید در واقع دارید یک متغیر رشته ای رو با یک متغیر عددی مقایسه میکنید که این عمل امکان پذیر نیست و به خواسته شما عمل نمیکند، در کد دوم با اینکه شما یک عدد به ControlTipText نسبت داده اید اما با توجه به ماهیت ControlTipText که یک رشته می باشد در زمان اجرای کد، عددد شما بصورت یک رشته توسط کامپایلر خوانده می شود و در این حالت خواسته شما عملی می شود.
و اما راه حل: شما می بایست در کد اول، سطر مورد نظر را (If c.ControlTipText = i Then) به یکی از دو حالت زیر اصلاح کنید. (در واقع طرفین تساوی می بایست از یک نوع متغیر باشند)

If Val(c.ControlTipText) = i Then 

یا

If c.ControlTipText = Trim(Str(i)) Then 

[alisabet]

بسيار عالي - متشكر