Question

我正在编写一个vba脚本，当选中一个单元格时-例如$ A $ 53-我右键单击并在命令栏上选择一个宏。

当宏触发时，我想请用户使用鼠标选择一个单元格（例如$ F $ 66），然后将地址返回给宏。

有任何提示吗？

Answer 1

考虑：

Public Function Pick_a_Cell() As String
    Dim r As Range
    On Error Resume Next
        Set r = Application.InputBox(Prompt:="Please select a cell", Type:=8)
    On Error GoTo 0
    If r Is Nothing Then
        Pick_a_Cell = "Cancelled"
    Else
        Pick_a_Cell = r.Address
    End If
End Function

Sub MAIN()
    x = Pick_a_Cell()
    MsgBox x
End Sub

要求用户在VBA中选择一个单元格

1 个答案: