|
楼主 |
发表于 2020-2-19 20:22
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
谢谢,这样可以了
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
10
For d = 6 To 14
Cells(6, d).Select
delay 0.1
If ToggleButton1.Value = False Then
Cells(6, d).Select
Exit Sub
End If
Next
For r = 6 To 14
Cells(r, 14).Select
delay 0.1
If ToggleButton1.Value = False Then
Cells(r, 14).Select
Exit Sub
End If
Next
For d1 = 14 To 6 Step -1
Cells(14, d1).Select
delay 0.1
If ToggleButton1.Value = False Then
Cells(14, d1).Select
Exit Sub
End If
Next
For r = 14 To 6 Step -1
Cells(r, 6).Select
delay 0.1
If ToggleButton1.Value = False Then
Cells(r, 6).Select
Exit Sub
End If
Next
GoTo 10
End If
End Sub
|
|