小编Tal*_*guy的帖子

如何通过用户鼠标输入选择一系列单元格以便使用VBA进行进一步处理？

我正在编写一个脚本,它将循环遍历我的电子表格,并查找是否有任何重复的所选单元格.如果有重复,那么该函数将返回一个行是重复的数组,并创建一个注释告诉我哪些行是重复的.我已经能够处理错误0但是现在当我使用UBound函数检查数组中是否存在元素时,我得到错误9.有没有人知道如何验证整数数组,如果它是空的或不是因为我的代码似乎没有完成这项工作.以下是我的代码

Function IsArrayEmpty(anArray As Variant) As Boolean
    Dim i As Integer

    On Error Resume Next
        i = UBound(anArray, 1)
    Select Case (Err.Number)
        Case 0
            IsArrayEmpty = True
        Case 9
            IsArrayEmpty = True
        Case Else
            IsArrayEmpty = False
    End Select
End Function

我是GUI编程和多线程的新手.我正在创建一个实时应用程序,从我的汽车接收信息并以一些有意义的方式呈现它.我的应用程序被布置为3个线程,GUI(主线程),呈现线程和硬件通信线程.Inbetwen渲染和硬件线程是共享环缓冲区.在渲染中,我创建了一个计时器,以便每秒绘制20次新界面.我想线程通知主线程有一个新的屏幕可用,我认为信号/插槽方法将最好地工作.这可以归结为我的问题.当我的渲染器调用一个插槽,比如Screen_Avalable,即在主线程中的主窗口对象中,是否在我的工作线程或主线程中处理了这个插槽/方法？

我有一本工作簿,它可以在工厂中生成I/O信号的密度图.整个工作簿由用户输入信号类型和它所在位置的铅板驱动.在生成密度图的工作表上,我为用户提供了在密度图中单击感兴趣的单元格的功能.当用户点击单元格时,on_selectionChange宏将运行计算工厂中的位置.然后将该位置送入铅板自动过滤器,以向用户显示工厂中该点的实际信号.我的问题是立即计算位置信息,但是当我将过滤条件应用于自动过滤器时,过滤器需要12秒才能应用,并且代码要从密度映射表更改为主数据库表.所以有人知道如何使用自动过滤器加速我的代码.我在运行宏时关闭了屏幕更新和应用程序计算.在我开始向工作簿添加其他工作表之前,这从未如此缓慢.下面你可以看到我如何计算位置的代码.有人可以帮我解决这个问题

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    ' Filter the I/O data to those associated with the clicked cell

    ' Turn off screen updating, this speeds up Calc
    Application.ScreenUpdating = False
    ' Turn off automatic calculations
    Application.Calculation = xlCalculationManual

    ' Setup benchmarking
    Dim Time1 As Date
    Time1 = Timer
    Dim Time2 As Date


    Dim rngOLD As Boolean
    Dim rngNEW As Boolean

    Const Building_rng = "C4:K6"
    Const Lvl_rng = "C4:E30"
    Const RL_rng = "C4:C6"
    Const FB_rng = "C4:E4"
    Dim NEW_Offset As …