请帮忙解释下面语句意思-2'填写遗漏值DimnAsI-查字典问答网
分类选择

来自刘懿的问题

  请帮忙解释下面语句意思-2'填写遗漏值DimnAsIntegerDimarrR()AsInteger,arrB()AsIntegerReDimarrR(5),arrB(5)DimrAsRangeDimkAsLongDimtAsIntegerarrR(0)

  请帮忙解释下面语句意思-2

  '填写遗漏值

  DimnAsInteger

  DimarrR()AsInteger,arrB()AsInteger

  ReDimarrR(5),arrB(5)

  DimrAsRange

  DimkAsLong

  DimtAsInteger

  arrR(0)=9

  arrB(0)=9

  Range("B3:AX7").Value=""

  Forn=2To50

  k=9

  DoWhileCells(k,n).Text=""

  k=k+1

  Loop

  Fort=1To5

  DoWhileCells(k,n).Text=""

  k=k+1

  Loop

  arrR(t)=k

  arrB(t)=k

  k=k+1

  Ifn65530ThenExitFor

  Cells(t+2,n)=arrR(t)-arrR(t-1)-1

  ElseIfn>34Then

  IfCells(k,n).End(xlDown).Cells.Row>65530ThenExitFor

  Cells(t+2,n)=arrB(t)-arrB(t-1)-1

  EndIf

  Nextt

  Nextn

  ExitSub

  EndIf'IfTarget.Value=Sheets("双色球").Cells(i,2)

  Nexti

  Else'IfLen(Target.Value)=7

  ExitSub

  EndIf'IfLen(Target.Value)=7

  EndSub

1回答
2020-04-05 09:34
我要回答
请先登录
盛毅

  DoWhileCells(k,n).Text=""

  循环执行条件是如果表格行K列N的内容是“”(空的)就继续循环执行

2020-04-05 09:38:24

最新问答

推荐文章

猜你喜欢

附近的人在看

推荐阅读

拓展阅读

  • 大家都在看
  • 小编推荐
  • 猜你喜欢
  •