不使用application.volatile,让一个用户定义函数根据它正在搜索的数组的更新而自动更新。
创始人
2024-12-28 10:02:03
0

要实现一个用户定义函数根据正在搜索的数组的更新而自动更新,可以使用Excel的事件触发器来实现。

事件触发器是一种在特定事件发生时自动执行的宏或函数。在这种情况下,我们将使用Worksheet Change事件触发器来检测数组的更改,并相应地更新用户定义函数。

以下是一个示例代码,演示了如何实现这个功能:

在Excel中,打开Visual Basic编辑器(按Alt + F11),然后在左侧的项目资源管理器中双击要添加代码的工作表。

在工作表的代码窗口中,选择“Worksheet”对象,然后选择“Change”事件。

在Change事件的代码窗口中,输入以下代码:

Option Explicit

Private previousArray As Variant ' 存储之前的数组

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim currentArray As Variant
    
    ' 检查更改的区域是否是目标数组
    Set rng = Range("A1:D10") ' 目标数组的范围
    If Not Intersect(Target, rng) Is Nothing Then
        ' 获取当前的数组值
        currentArray = rng.Value
        
        ' 检查数组是否发生了变化
        If Not IsArrayEqual(currentArray, previousArray) Then
            ' 数组已更改,执行更新操作
            UpdateFunction currentArray
            
            ' 更新previousArray以便下次使用
            previousArray = currentArray
        End If
    End If
End Sub

' 检查两个数组是否相等
Private Function IsArrayEqual(arr1 As Variant, arr2 As Variant) As Boolean
    Dim i As Long, j As Long
    Dim rowsCount As Long, colsCount As Long
    
    ' 获取数组的行数和列数
    rowsCount = UBound(arr1, 1) - LBound(arr1, 1) + 1
    colsCount = UBound(arr1, 2) - LBound(arr1, 2) + 1
    
    ' 检查行数和列数是否相等
    If rowsCount = UBound(arr2, 1) - LBound(arr2, 1) + 1 And colsCount = UBound(arr2, 2) - LBound(arr2, 2) + 1 Then
        ' 检查每个元素是否相等
        For i = LBound(arr1, 1) To UBound(arr1, 1)
            For j = LBound(arr1, 2) To UBound(arr1, 2)
                If arr1(i, j) <> arr2(i, j) Then
                    IsArrayEqual = False
                    Exit Function
                End If
            Next j
        Next i
        IsArrayEqual = True
    End If
End Function

' 更新用户定义函数
Private Sub UpdateFunction(arr As Variant)
    ' 在这里执行更新操作
    ' 例如,可以调用用户定义函数的名称并将新数组作为参数传递
    ' MyFunction arr
End Sub

在上面的代码中,我们使用了一个名为previousArray的变量来存储之前的数组值。每当更改事件发生时,我们将当前的数组值与之前的数组值进行比较,如果两者不相等,则执行更新操作。

Worksheet_Change事件中,我们首先检查更改的区域是否是目标数组。如果是目标数组,则获取当前的数组值,并使用IsArrayEqual函数检查数组是否发生了变化。如果数组已更改,则调用UpdateFunction函数执行更新操作,并将当前数组作为参数传递。

你可以根据自己的需求修改代码中的目标数组范围、更新函数以及其他相关部分。

请注意,上述代码是在Excel的工作表中实现的,如果你需要在其他地方(例如,VBA模块或其他Office应用程序)实现相同的功能,则需要相应地调整代码。

相关内容

热门资讯

安卓换鸿蒙系统会卡吗,体验流畅... 最近手机圈可是热闹非凡呢!不少安卓用户都在议论纷纷,说鸿蒙系统要来啦!那么,安卓手机换上鸿蒙系统后,...
安卓系统拦截短信在哪,安卓系统... 你是不是也遇到了这种情况:手机里突然冒出了很多垃圾短信,烦不胜烦?别急,今天就来教你怎么在安卓系统里...
app安卓系统登录不了,解锁登... 最近是不是你也遇到了这样的烦恼:手机里那个心爱的APP,突然就登录不上了?别急,让我来帮你一步步排查...
安卓系统要维护多久,安卓系统维... 你有没有想过,你的安卓手机里那个陪伴你度过了无数日夜的安卓系统,它究竟要陪伴你多久呢?这个问题,估计...
windows官网系统多少钱 Windows官网系统价格一览:了解正版Windows的购买成本Windows 11官方价格解析微软...
安卓系统如何卸载app,轻松掌... 手机里的App越来越多,是不是感觉内存不够用了?别急,今天就来教你怎么轻松卸载安卓系统里的App,让...
怎么复制照片安卓系统,操作步骤... 亲爱的手机控们,是不是有时候想把自己的手机照片分享给朋友,或者备份到电脑上呢?别急,今天就来教你怎么...
安卓系统应用怎么重装,安卓应用... 手机里的安卓应用突然罢工了,是不是让你头疼不已?别急,今天就来手把手教你如何重装安卓系统应用,让你的...
iwatch怎么连接安卓系统,... 你有没有想过,那款时尚又实用的iWatch,竟然只能和iPhone好上好?别急,今天就来给你揭秘,怎...
安装了Anaconda之后找不... 在安装Anaconda后,如果找不到Jupyter Notebook,可以尝试以下解决方法:检查环境...