如何在表格中双击查看单元格详细信息？

Question

我希望当用户双击工作表上的第 5 列或第 6 列时，打开一个包含两个文本框的表单。

一个文本框显示当前行第 5 列中的值，另一个文本框显示当前行第 6 列中的值。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

On Error GoTo ErrorHandler

Dim FISHRef As String
Dim baconRef As String
Dim rowNum As Long
 
Dim FISHCell As String
Dim BACONCell As String
 
If Not IsError(Application.Match(ActiveCell.Column, Array(5, 6), False)) Then
 
    rowNum = ActiveCell.Row
    FISHCell = "E" & CStr(rowNum)
    BACONCell = "F" & CStr(rowNum)
    'Range(FISHCell).Calculate
    'Range(BACONCell).Calculate
    
    FISHRef = Sheets("ReferenceCompare").Range(FISHCell).value
    baconRef = Sheets("ReferenceCompare").Range(BACONCell).value
 
    If FISHRef = "" And baconRef = "" Then
        Exit Sub
    End If
    
    frmRefs.Show
    frmRefs.txtFISHRef = FISHRef
    frmRefs.txtBACONRef = baconRef
        
End If
        
ErrorHandler:
    Exit Sub
    
End Sub

工作表上的两个单元格都是复杂的计算，涉及一些我知道有效的文本函数。

当表单打开时，它会放置上次双击的单元格值。是代码写的还是计算不够快？

Answer 1

您正在以模态形式显示表单（frmRefs.Show 之后的行在您卸载表单之前不会执行。您需要在显示表单之前更新这些文本框，如下所示：

    frmRefs.txtFISHRef.Text = FISHRef
    frmRefs.txtBACONRef.Text = baconRef
    frmRefs.Show

如何在表格中双击查看单元格详细信息？

How to view cell detail, on double-click, in form?

excel

vba

userform