vb的FOR循环
发布时间：2020-12-17 07:54:41 所属栏目：百科 来源：网络整理
导读：'afix的数据筛选 Public Sub chooseDate() MsgBox ("数据筛选开始") With ActiveSheet r = 2 starts: If Sheets("afix").Cells(r,1) = "" Then GoTo ends r = r + 1 '下移一行 GoTo starts ends: MsgBox ("结束") MsgBox ("FOR循环") 'For i = 1 To 10 Step 1
|
'afix的数据筛选 Public Sub chooseDate() MsgBox ("数据筛选开始") With ActiveSheet r = 2 starts: If Sheets("afix").Cells(r,1) = "" Then GoTo ends r = r + 1 '下移一行 GoTo starts ends: MsgBox ("结束") MsgBox ("FOR循环") 'For i = 1 To 10 Step 1 ' If i = 2 Then ' GoTo temps ' End If ' MsgBox i 'temps: Next i For i = 1 To 5 Step 1 If i <> 2 Then MsgBox i End If Next i MsgBox ("FOR结束") End With End Sub （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |