excel整除性数组公式

excel整除性数组公式,excel,excel-formula,Excel,Excel Formula,是否有一个公式或数组公式可以指示F1中的数字是否可被单元格A1:D9中的任何数字整除 注意。尝试以下小型用户定义功能: Public Function IsDivisible(rng As Range, v As Long) As Boolean Dim r As Range IsDivisible = False For Each r In rng If v Mod r.Value = 0 Then IsDivisible =

是否有一个公式或数组公式可以指示F1中的数字是否可被单元格A1:D9中的任何数字整除


注意。

尝试以下小型用户定义功能:

Public Function IsDivisible(rng As Range, v As Long) As Boolean
    Dim r As Range
    IsDivisible = False

    For Each r In rng
        If v Mod r.Value = 0 Then
            IsDivisible = True
            Exit Function
        End If
    Next r
End Function
例如:

用户定义的函数UDF非常易于安装和使用:

ALT-F11将显示VBE窗口 ALT-I ALT-M打开一个新模块 粘贴内容并关闭VBE窗口 如果保存工作簿,则自定义项将与工作簿一起保存。 如果在2003年以后使用Excel版本,则必须保存 文件的格式为.xlsm而不是.xlsx

要删除UDF,请执行以下操作:

如上所述打开VBE窗口 清除代码 关闭VBE窗口 要使用Excel中的自定义项,请执行以下操作:

=My1

要了解有关宏的更多信息,请参阅:

有关自定义项的详细信息,请参见:


必须启用宏才能使其工作

尝试以下小型用户定义函数:

Public Function IsDivisible(rng As Range, v As Long) As Boolean
    Dim r As Range
    IsDivisible = False

    For Each r In rng
        If v Mod r.Value = 0 Then
            IsDivisible = True
            Exit Function
        End If
    Next r
End Function
例如:

用户定义的函数UDF非常易于安装和使用:

ALT-F11将显示VBE窗口 ALT-I ALT-M打开一个新模块 粘贴内容并关闭VBE窗口 如果保存工作簿,则自定义项将与工作簿一起保存。 如果在2003年以后使用Excel版本,则必须保存 文件的格式为.xlsm而不是.xlsx

要删除UDF,请执行以下操作:

如上所述打开VBE窗口 清除代码 关闭VBE窗口 要使用Excel中的自定义项,请执行以下操作:

=My1

要了解有关宏的更多信息,请参阅:

有关自定义项的详细信息,请参见:

必须启用宏才能使其工作

类似于:

{=MIN(MOD(F1, A1:D9))}
如果其中任何一个数字是因子,则将为0。

类似于:

{=MIN(MOD(F1, A1:D9))}
如果其中任何一个数字是因子,则为0。

SUMPRODUCT数组中的“交易” 再次感谢他才华横溢,感谢他“强迫”我进一步调查此事

公式 您可以使用以下公式:

由计算零余数出现次数的公式得出:

=SUMPRODUCT(--(MOD(F$1,$A$1:$D$9)=0))
这就引出了我为什么要进一步调查的原因

我想从出现次数计数中排除1和F1,81中的值,即,如果唯一的零出现次数是数字1或81,则公式将显示FALSE,以下两个公式会显示FALSE:

=SUMPRODUCT(--(MOD(F$1,$A$1:$D$9)=0),--($A$1:$D$9>1),--($A$1:$D$9<$F$1))
如果发现此类事件,则返回TRUE,否则返回FALSE

工作手册 升降箱

所以我在工作表上玩了“一点”来学到很多东西

SUMPRODUCT阵列中的“交易” 再次感谢他才华横溢,感谢他“强迫”我进一步调查此事

公式 您可以使用以下公式:

由计算零余数出现次数的公式得出:

=SUMPRODUCT(--(MOD(F$1,$A$1:$D$9)=0))
这就引出了我为什么要进一步调查的原因

我想从出现次数计数中排除1和F1,81中的值,即,如果唯一的零出现次数是数字1或81,则公式将显示FALSE,以下两个公式会显示FALSE:

=SUMPRODUCT(--(MOD(F$1,$A$1:$D$9)=0),--($A$1:$D$9>1),--($A$1:$D$9<$F$1))
如果发现此类事件,则返回TRUE,否则返回FALSE

工作手册 升降箱

所以我在工作表上玩了“一点”来学到很多东西


谢谢@Gary的学生。这对我现在很有帮助,但我想知道是否可以在没有VBA的情况下完成,比如内置函数。谢谢你的关注,这意味着很多。您能否解释一下在这种情况下,即在标准模块中,Public的实际用途。2.当我假设IsDivisible=False在这里只是为了说明一个观点,并且它默认为False时,有没有可能我错了?谢谢@Gary的学生。这对我现在很有帮助,但我想知道是否可以在没有VBA的情况下完成,比如内置函数。谢谢你的关注,这意味着很多。您能否解释一下在这种情况下,即在标准模块中,Public的实际用途。2.当我假设IsDivisible=False在这里只是为了表明一个观点,并且它默认为False时,有没有可能我错了?谢谢@Tim。这是优雅的。我错过了将mod函数与Min函数相结合的机会,实际上它非常聪明。谢谢。谢谢@Tim。这是优雅的。我错过了将mod函数与Min函数相结合的机会,实际上它非常聪明。谢谢