双击Excel中的单元格,在userform上打开该行的源文件

我正在尝试一些,我甚至不知道是否有可能。

我有大约20个项目的进度报告。 这些项目正在使用用户窗体的用户进行更新。 每周一次,我有几个运行的macros,将它们复制到一个不同的工作簿中的Project Summary中。 我想要的是能够双击任何给定行中的第一个单元格(有大约200个项目),并在该项目摘要工作簿中打开该用户正在使用的现有用户窗体中的特定项目。 但是我希望它在源文件中打开,而不是在Project Summary工作表的数据转储中。

有什么办法可以做到这一点?

编辑:

我试过这个:

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim Cell As Range If Intersect(Target, Range("A:A")) Is Nothing Then Else For Each Cell In Range("E:E") If (Cell.Value = "A, B") Then Workbooks.Open Filename:= _ "filepath", Password:="...", ReadOnly:=True progressReport.Show End If Next Cell End If End Sub 

我将根据Range(E:E)的值为其他20份进度报告中的每一份进行报告。 我想要的是,当它打开文件加载用户窗体,它加载在A中的值的特定报告

使用Worksheet_BeforeDoubleClick事件macros,并在发生之前取消任何可能的“单元格内”编辑。

 Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Target.Parent.UsedRange, Columns("A")) Is Nothing Then 'cancel 'in-cell editing' Cancel = True 'load your user form here using target.row 'example: cells(target.row, "E").value is the value from ' column E on the same row as the double-click debug.print Target.Row End If End Sub 

您只能双击单个单元格,因此多个单元格不可能是Target。

这属于工作表的代码表(例如,右键单击名称选项卡,查看代码); 不是一个标准的模块代码表。

Interesting Posts