[已解决]请教，用VBA设计这个公式要什么写

爷们679

取B列最后三位数  乘   15  加上  D列  加上  8   ,然后再除以  16   ,最后把得到的余数放在   J列
特殊情况  如果   J列  等 于   0   那么变成 16

最佳答案

月排行榜 / 总排行榜

fjmxwrs

2017-10-27 17:26

用VBA设计这个公式，是想用自动定义函数吗代码如下

1. Function myMod(R1 As Range, R2 As Range)
   
2.     Dim s1, s2, i
   
3.     s1 = Right(R1.Value, 3)
   
4.     s2 = R2.Value
   
5.     i = (s1 * 15 + s2 + 8) Mod 16
   
6.     If i = 0 Then i = 16
   
7.     myMod = i
   
8. End Function

复制代码

然后，在J8输入公式

1. =mymod(B7,D7)

复制代码

下拉完成

跳转到最佳答案楼层

fjmxwrs

1. =IF(MOD(RIGHT(B7,3)*15+D7+8,16),MOD(RIGHT(B7,3)*15+D7+8,16),16)

复制代码

fjmxwrs

用VBA设计这个公式，是想用自动定义函数吗代码如下

1. Function myMod(R1 As Range, R2 As Range)
   
2.     Dim s1, s2, i
   
3.     s1 = Right(R1.Value, 3)
   
4.     s2 = R2.Value
   
5.     i = (s1 * 15 + s2 + 8) Mod 16
   
6.     If i = 0 Then i = 16
   
7.     myMod = i
   
8. End Function

复制代码

然后，在J8输入公式

1. =mymod(B7,D7)

复制代码

下拉完成