根据另一个单元格值为用户提供自定义信息消息

根据另一个单元格值为用户提供自定义信息消息

我正在忙于一个优化电子表格,它需要显示一条信息消息,可能类似于数据验证的输入消息(但我愿意接受建议)。此消息将用于显示基于另一个单元格值的典型最小值、最大值和推荐的用户定义值。然后,用户可以从此信息消息中选择一个值,并在以后的计算中使用它,但如果用户确定所选值不再合适,则用户需要返回并查看相同的最小值、最大值和平均值作为选择指南。

以下是我想要实现的过于简化的版本。需要在此信息消息中显示的文本将是数据表的一部分。

在此处输入图片描述

我的局限性是我无法在附加行/列单元格中显示此消息,因为此电子表格是公司标准电子表格,并且许多其他工作表引用这些特定单元格。

问题我想解决的问题是消除用户错误。通常,用户会从下拉列表中选择一个项目(使用数据验证),并且用户需要参考教科书来确定在其余计算中应该为该项目使用什么值 - 这会造成不一致,有时还会导致用户错误。

答案1

我找到了一个满足我需求的解决方案 - 这还没有完成,因为我需要将查找文本添加到单元格或文本框中。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Const WS_RANGE As String = "F64:L73"
Dim InfoText As String
Dim TypeLookup As String
Dim LookupTable As Range

Dim TXTHELP As String

    On Error GoTo ws_exit
    Application.EnableEvents = False

    If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
        With Target

            TypeLookup = Cells(ActiveCell.Row, 2).Value
            DNLookup = Cells(45, ActiveCell.Column)
               
            With Worksheets("Data_MinorLoss")
                Set LookupTable = .Range("A3:O8")
                
            End With
            
            InfoText = WorksheetFunction.VLookup(TypeLookup, LookupTable, 2, False)
            
                       
            'MsgBox InfoText
            
        End With
    End If

ws_exit:
    Application.EnableEvents = True
End Sub

相关内容