วน loop ToggleButton ทำอย่างไร
Posted: Wed Mar 10, 2021 8:42 pm
ผมต้องการวน loop ToggleButton โดยผมมี ToggleButton1 ถึง 17 ต้องทำอย่างไรครับ แต่ติด error ตรงตำแหน่ง If ToggleButton(i) ผมไม่แน่ใจว่าผมเขียนถูกหรือไม่ ถ้าผิดช่วยแก้ให้หน่อยครับ
Code: Select all
Private Sub cmdAdd_Click()
Dim i As Long
For i = 1 To 17
If ToggleButton(i).Value = True Then
Drng.End(xlDown).Offset(0, i) = "1"
Else
Drng.End(xlDown).Offset(0, i) = ""
End If
Next i
End Sub
แนบตัวอย่างไฟล์มาด้วยจะได้ช่วยทดสอบให้ได้ครับ