请各位大神帮帮忙吧，进来看一下吧

l738528696 · 发表于 2023-4-4 04:43

宏代码提示next缺少for，但是前边是有for的，求各位大神帮忙检查一下，到底是哪里的问题，谢谢了。

iu950 · 发表于 2023-4-4 08:22

你再好好检查一下，缺少一个 End If

心的启点 · 发表于 2023-4-4 08:29

有时缺少end if也会提示缺少for，所以要养成写循环或判断时一定要把下面next 及end if 先写好再写中间代码。

Yalishanda30 · 发表于 2023-4-4 08:30

加上少掉的end if也会出错

心的启点 · 发表于 2023-4-4 08:34

问题就在这

tanglf188 · 发表于 2023-4-4 09:23

少了End If，多条件嵌套最好写成select格式，每一层都是平行的，再多也不怕
      Select Case Crr1(i - 1, 1)
         Case Is = Crr1(i - 1, 2)
            Crr1(i, 2) = Crr1(i - 1, 2)
         Case Is < Crr1(i - 1, 2)
            Crr1(i, 2) = Application.max(Crr1(i - 1, 1), Crr1(i - 1, 2) - tiaojie)
         Case Is > Crr1(i - 1, 2) '也可以写成 Case Else
            Crr1(i, 2) = Application.min(Crr1(i - 1, 1), Crr1(i - 1, 2) + tiaojie)
      End Select

yynrzwh · 发表于 2023-4-4 10:20

Crr = datearr(Arr(1, 1), Arr(UBound(Arr), 1))

l738528696 · 发表于 2023-4-4 17:07

谢谢各位大神帮忙，但是添加缺失的end if后运行代码提示错误代码13，类型不匹配，还得各位大神帮忙检查一下，谢谢

		自动登录	找回密码
密码			免费注册