excel goto功能怎么用

excel goto功能怎么用

public sub f_goto()

goto msgB
msgbox "aaaaaaaaaaaaaaaaa"

msgB:
msgbox "bbbbbbbbbbbbbbbbbb"
end sub

定义一个boolean类型变量 用exit for 推出循环 用if end if 判断代码是否需要执行 dim gonext as boolean '定义一个boolean类型变量 for ii = min to max gonext = true 'boolean 变量赋值 j = ii for k = 1 to n seq(k) = 0 next k for k = n to 1 step -1 seq(k) = (j mod q) if (seq(k) = 0) then 'goto nxii gonext = false ‘改变boolean变量值 exit for '退出for k 循环 end if j = (j - seq(k)) / q for l = n to k + 1 step -1 if (seq(l) <= seq(k)) then gonext = false '改变boolean变量值 exit for '退出for i 循环 'goto nxii end if next l if gonext = false then exit for '判断是否推出for k 循环 next k '输出 if gonext then '判断是否执行代码 for k = 1 to n sheets(1).cells(rowid, k) = (seq(k)) next k rowid = rowid + 1 end if 'nxii: next ii