[已解决]为何这个双重循环出错,M和N都为0

棋行天下黄

for K=1 TO 3
if k=1 then M=3 AND N=22
if K=2 THEN M=25 AND n=26
IF K=3 THEN M=30 AND N=36
For i = m To n
      If Cells(i, 7) < Range("G59") Then
      Range(Cells(i - 1, 1), Cells(i - 1, 13)).Borders(xlEdgeBottom).Color = -16776961         '绘制红色平均线
         Range(Cells(i - 1, 11), Cells(i - 1, 11)).FormulaR1C1 = "分部大盘基本任务达成率" & f
         Range(Cells(i - 1, 10), Cells(i - 1, 13)).MergeCells = True
            Range(Cells(i - 1, 1), Cells(i - 1, 13)).Borders(xlEdgeBottom).Weight = xlMedium  '底边框为中等宽度的线
            Exit For
        End If
Next i
NEXT K
结果程序出错，M和n不是想要的数值，总是0，非要把实际的M,N带入循环，把循环代码依次写3回才行，求指点！

最佳答案

月排行榜 / 总排行榜

FnG

2014-3-20 21:17

把第二到四行的and换成冒号
你要的是m=3和n=22，这是两个结果，要分两个语句写，你用and连起来变成一个语句了，这一句起不了赋值作用，这仅仅是一个判断句，判断m=3 and n=22,结果是false.

跳转到最佳答案楼层

FnG

把第二到四行的and换成冒号
你要的是m=3和n=22，这是两个结果，要分两个语句写，你用and连起来变成一个语句了，这一句起不了赋值作用，这仅仅是一个判断句，判断m=3 and n=22,结果是false.

zjdh

没看见你对M赋值啊

棋行天下黄

zjdh 发表于 2014-3-20 21:18
没看见你对M赋值啊

但是我写成 if k=1 then
                                     m=3
                                    N=22
                                 END IF 也是M，N都为0不知道何原因