[已解决]mod（1-9，10）=2，怎么换成vb的

love586 · 发表于 2022-3-21 21:46

本帖最后由 love586 于 2022-3-22 16:27 编辑

公式：mod（1-9，10）=2，怎么换成vb的，
网上搜的都是求余数，求高手

还有一个问题
vb：
arr=123
brr=234
例如：结果是这：jg（i，j）=arr & brr

我想改成：jg（i，j）= IF MOD(mid（arr & brr，1，1）+mid（arr & brr，2，1）,10)=mid（arr & brr，5，1）,10) Then arr & brr Else ""
也就是： jg（i，j）= IF(MOD(mid（123234，1，1）+mid（123234，2，1）,10)=mid（123234，5，1）,10),123234,"")

求大佬解答一下

最佳答案

月排行榜 / 总排行榜

林木水

2022-3-22 12:11

括号里面改成你原来的值，如果原来的代码有双引号就再加一对
Application.Evaluate("MOD(-8,10)")

跳转到最佳答案楼层

林木水 · 发表于 2022-3-22 12:11

括号里面改成你原来的值，如果原来的代码有双引号就再加一对
Application.Evaluate("MOD(-8,10)")

love586 · 发表于 2022-3-22 16:27

林木水发表于 2022-3-22 12:11
括号里面改成你原来的值，如果原来的代码有双引号就再加一对
Application.Evaluate("MOD(-8,10)")

p = Application.Evaluate("MOD(-9,10)")结果是1这个方法不行的，不过也谢谢你
我找到了正确方法了：（1+10-9）mod 10 结果是2

林木水 · 发表于 2022-3-22 16:34

love586 发表于 2022-3-22 16:27
p = Application.Evaluate("MOD(-9,10)")结果是1这个方法不行的，不过也谢谢你
我找到了正确方法了 ...

是2呀，不是Application.Evaluate("MOD(-8,10)")
你Application.Evaluate("MOD(-9,10)")肯定是1
2 mod 10 肯定是2

love586 · 发表于 2022-3-25 11:03

林木水发表于 2022-3-22 16:34
是2呀，不是Application.Evaluate("MOD(-8,10)")
你Application.Evaluate("MOD(-9,10)")肯定是1
2 mod ...

嘿嘿，不过你的是对的，14mod10 等4，这种我看得懂。
大佬帮看一下这个：

vb 同一行等于第一值，怎么写？
vb
h=["36-51"]
循环h=36时，下一次加1，h值最大是51
arr=range("G & h")
brr=range("J & h:FX & h")
crr=range("J53:FX53")
drr=range("J54:FX54")
如果 arr=brr 那么
输出:arr&crr&drr
否则输出：空
G36时输出到("J56")对应着每一行的每个单元格。
G37时输出到("J57")对应着每一行的每个单元格。以此类推下来

复制代码

林木水 · 发表于 2022-3-25 11:59

love586 发表于 2022-3-25 11:03
嘿嘿，不过你的是对的，14mod10 等4，这种我看得懂。
大佬帮看一下这个：

看不明白你要做个啥，你放个附件说明一下看看

love586 · 发表于 2022-3-25 12:11

林木水发表于 2022-3-25 11:59
看不明白你要做个啥，你放个附件说明一下看看

111151.rar (34.11 KB, 下载次数: 0)

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