Excel VBA：将Click事件中的Target变量传递给用户窗体

Question

I am building an Excel 2016 Userform using VBA and need to collect the row and column of the cell from which the form is opened. I open the form on a cell double click with Worksheet_BeforeDoubleClick and then initialize the Userform with UserForm_Initialize() . I would like to pass the Target of the double click event to UserForm_Initialize() but am not sure how to. This forum thread addresses this issue, but the provided solutions did not work for me.

Here is my Worksheet_BeforeDoubleClick :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Column = Target.Column
    Row = Target.Row

    'Find the last non-blank cell in column B(2)
    lRow = Cells(Rows.Count, 2).End(xlDown).Row

    'Find the last non-blank cell in row 2
    lCol = Cells(2, Columns.Count).End(xlToRight).Column
     If Not Intersect(Target, Range(Cells(3, 3), Cells(lRow, lCol))) Is Nothing Then
        Cancel = True
        EdgeEntryForm.Show
    End If

End Sub

And my UserForm_Initialize() :

Private Sub UserForm_Initialize()
    Dim Column As Long, Row As Long 'I would like to fill these with the Target values
    MsgBox ("Row is " & Row & " Column is " & Column)
     'Description.Caption = "Fill out this form to define a network edge from " & Cells(2, Row).Value & " to " & Cells(Column, 2).Value
End Sub

Answer 1

As suggested in my comments, one way would be to just use the ActiveCell and assign that to a variable.

Alternatively, if you do want to pass it as a variable, you can do it with a bit of a workaround, by having a global variable to temporarly hold that information:

In your worksheet code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'.....
    With UserForm1
        Set .rngTarget = Target
        .Show
    End With
'.....
End Sub

In your userform :

Public rngTarget As Range
Private Sub UserForm_Activate()
'....
    If Not rngTarget Is Nothing Then
        MsgBox ("Row is " & rngTarget.Row & " Column is " & rngTarget.Column)
    Else
        MsgBox "something went wrong with assigning rngTarget variable"
    End If
'....
End Sub

EDIT: I was trying initially to propose something similar to @MathieuGuindon's answer , but was failing due to my limited knowledge on the difference between initialise and activate (thanks Mathieu).

I've updated the answer to make use of the global variable at userform level, rather than use one from a module.

Answer 2

The form is shown modally, so ActiveCell isn't going to change on you, and should be safe to use in the form's code-behind.

The problem with that, is that you've now tied the form to ActiveSheet / ActiveCell , and now in order to test anything you need to Select or Activate a cell.

If the form code only needs to know about the cell's Address , then it shouldn't be given a Range (give it a Range and it can access any cell in any sheet in any workbook in the Application instance) - that's the principle of least knowledge at play. But this is obviously example code, so let's go with a Range :

Option Explicit
Private internalWorkingCell As Range

Public Property Get WorkingCell() As Range
    Set WorkingCell = internalWorkingCell
End Property

Public Property Set WorkingCell(ByVal value As Range)
    Set internalWorkingCell = value
End Property

Now your form code can use WorkingCell or internalWorkingCell to do its thing, and no global variable needs to float around;

With New UserForm1 ' Initialize handler runs here
    Set .WorkingCell = Target 
    .Show ' Activate handler runs here
End With

The WorkingCell belongs to the form - it has no business being in global scope.

Careful with the Initialize handler in forms - especially when you use its default instance (ie when you don't New it up): you don't control when that handler runs, the VBA runtime does; UserForm_Initialize will run the first time the form instance is referenced (in your case, immediately before the .Show call), and then never again unless the instance is destroyed (clicking the red X button would do that).

A MsgBox call in the Initialize handler will run before the form is shown; you probably want to move that code to the Activate handler before it causes problems.