รบกวนผู้รู้หน่อยครับ
Posted: Fri Nov 24, 2017 11:11 am
พอดีช่วยแก้ Error ให้ทีครับ
Lectorwhile = 0
Sumlectortime = 0
For Lectorwhile = 0 To Lectorwhile = 7
If Sheets("ข้อมูลนำเข้า").TextBox&(Lectorwhile + 1).Caption >= 0 Then
Sumlectortime = Sumlectortime + Sheets("ข้อมูลนำเข้า").TextBox&(1 + Lectorwhile).Text
End If
Next Lectorwhile
รบกวนหน่อยนะครับ
Lectorwhile = 0
Sumlectortime = 0
For Lectorwhile = 0 To Lectorwhile = 7
If Sheets("ข้อมูลนำเข้า").TextBox&(Lectorwhile + 1).Caption >= 0 Then
Sumlectortime = Sumlectortime + Sheets("ข้อมูลนำเข้า").TextBox&(1 + Lectorwhile).Text
End If
Next Lectorwhile
รบกวนหน่อยนะครับ