创建计算指定数字所在分区序数和除余的自定义函数

玉阳山人 · 发表于 2024-10-13 21:24

本帖最后由玉阳山人于 2024-10-13 21:26 编辑

1.lcf).gif

创建指定数字所处分区和除余的自定义函数.zip (46.08 KB, 下载次数: 4)

敬请老师们按附件里的说明和运算规则，创建个自定义函数为盼。谢谢！

玉阳山人 · 发表于 2024-10-14 13:00

敬请老师们按1楼附件里的说明和运算规则，创建个自定义函数为盼。谢谢！

lss001 · 发表于 2024-10-15 10:28

本帖最后由 lss001 于 2024-10-17 21:19 编辑

[attach]3066457[/attach玉阳山人发表于 2024-10-14 13:00
敬请老师们按1楼附件里的说明和运算规则，创建个自定义函数为盼。谢谢！

以下附件仅考虑
最后一个参数为单值
使用方法请参考附件例子

自定义函数 (2).rar (72.2 KB, 下载次数: 1)

玉阳山人 · 发表于 2024-10-15 12:21

lss001 发表于 2024-10-15 10:28
以下附件仅考虑
最后一个参数为单值
使用方法请参考附件例子

谢谢老师！

玉阳山人 · 发表于 2024-10-17 12:56

lss001 发表于 2024-10-15 10:28
以下附件仅考虑
最后一个参数为单值
使用方法请参考附件例子

Function FQUYU(ByVal a As Range, ByVal b As Range, _
   ByVal c As Range, ByVal d As Range, _
   ByVal e As Range)

   Dim x, y, i, j, arr, brr
   If VBA.IsArray(a) Then
      arr = a: x = UBound(arr, 1): y = UBound(arr, 2)
      ReDim brr(1 To x, 1 To y)
      For i = 1 To x
         For j = 1 To y
            If arr(i, j) = "" _
                  Or arr(i, j) * 1 < c _
                  Or arr(i, j) * 1 > d Then
                  brr(i, j) = ""
            Else
                  If e = 0 Then
                     brr(i, j) = Int((arr(i, j) - c) * b / (d + 1 - c)) & (arr(i, j) Mod b)
                  ElseIf e = 1 Then
                     brr(i, j) = Int((arr(i, j) - c) * b / (d + 1 - c))
                  ElseIf e = 2 Then
                     brr(i, j) = arr(i, j) Mod b
                  Else
                     brr(i, j) = ""
                  End If
            End If
         Next
      Next
      FQUYU = brr
   Else
      If a = "" Or a * 1 < c Or a * 1 > d Then
         crr = ""
      Else
         If e = 0 Then
            crr = Int((a - c) * b / (d + 1 - c)) & (a Mod b)
         ElseIf e = 1 Then
            crr = Int((a - c) * b / (d + 1 - c))
         ElseIf e = 2 Then
            crr = a Mod b
         Else
            crr = ""
         End If
      End If
      FQUYU = crr
   End If
End Function

老师：上边的代码运算结果完全正确！只是在后三个参数设置忘了缺省情况下的默认值。
1.参数3可缺省，缺省情况下默认为0；
2.参数4可缺省，缺省情况下默认为9；
3.参数5可缺省，缺省情况下默认为0.

lss001 · 发表于 2024-10-17 15:01

玉阳山人发表于 2024-10-17 12:56
Function FQUYU(ByVal a As Range, ByVal b As Range, _
ByVal c As Range, ByVal d As Range, _
...

请参考楼上更新附件

玉阳山人 · 发表于 2024-10-17 17:58

lss001 发表于 2024-10-15 10:28
以下附件仅考虑
最后一个参数为单值
使用方法请参考附件例子

自定义函数 (2).zip (73.64 KB, 下载次数: 2)

lss001老师：如截图AQ:AT所示，按说缺省AQ2:AT4指定的任意（三、四、五）参数，都应该仍然显示正确结果。验证后发现只有在缺省参数3（AQ列）时，结果正确，AR:AT列则只能显示第一行结果，AR6:AT6以下却都显示空白，是怎么回事？

lss001 · 发表于 2024-10-17 21:21

玉阳山人发表于 2024-10-17 17:58
lss001老师：如截图AQ:AT所示，按说缺省AQ2:AT4指定的任意（三、四、五）参数，都应该仍然显示 ...

参考3楼更新附件

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

[求助] 创建计算指定数字所在分区序数和除余的自定义函数

评分

评分

评分