[已解决]修改VBA程式码

lkk0063 · 发表于 2017-9-27 16:45

本帖最后由 lkk0063 于 2017-9-28 08:08 编辑

是否可修改程式码，若 Val(X)=FQ时，D栏位显示空白

最佳答案

大灰狼1976

2017-9-27 17:08

If x <> "FQ" Then brr(i, 1) = IIf(Val(x) = Day(arr(i, 3)), "OK", "NG")

大灰狼1976 · 发表于 2017-9-27 16:51

brr(i, 1) = IIf(Val(x) = Day(arr(i, 3)), "OK", "")
或
If Val(x) = Day(arr(i, 3)) Then brr(i, 1) = "OK"

lkk0063 · 发表于 2017-9-27 17:00

大灰狼1976 发表于 2017-9-27 16:51
brr(i, 1) = IIf(Val(x) = Day(arr(i, 3)), "OK", "")
或
If Val(x) = Day(arr(i, 3)) Then brr(i, 1) = ...

不好意思,主要需求如下：
1.将 16122309-0208 其中 02(即-0208 第二位与第三位) 与 1/2 中的 2(即1月2日的2)比对，相同 -> OK, 不同->NG
2.若 Val(X)=FQ时，D栏位显示空白
需满足以上两个条件

大灰狼1976 · 发表于 2017-9-27 17:08

If x <> "FQ" Then brr(i, 1) = IIf(Val(x) = Day(arr(i, 3)), "OK", "NG")

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