双击弹出窗体，能实现这样的功能吗？求大神赐教！

youmingbo · 发表于 2018-1-4 11:33

如题！！！！！！！！！！

活在理想的世界 · 发表于 2018-1-4 11:48

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
UserForm1.Show
End Sub

复制代码

youmingbo · 发表于 2018-1-4 11:56

活在理想的世界发表于 2018-1-4 11:48

附件里有详细说明，能帮看看吗？

活在理想的世界 · 发表于 2018-1-4 12:00

本帖最后由活在理想的世界于 2018-1-4 12:01 编辑

youmingbo 发表于 2018-1-4 11:56
附件里有详细说明，能帮看看吗？

窗体自己去画吧

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
If Range("A" & Target.Row) = "" Then: UserForm1.Show
End If
End Sub

复制代码

youmingbo · 发表于 2018-1-4 12:17

活在理想的世界发表于 2018-1-4 12:00
窗体自己去画吧

嗯，这些我都弄好了，我的问题是当窗体第一个复选框【广顺】被选中后，我要把刚才表一被双击的单元格里的内容添加到表二相应位置上，这个代码我不会。

活在理想的世界 · 发表于 2018-1-4 12:20

youmingbo 发表于 2018-1-4 12:17
嗯，这些我都弄好了，我的问题是当窗体第一个复选框【广顺】被选中后，我要把刚才表一被双击的单元格里的 ...

你的附件里根本就没有窗体，你至少自己画个窗体再来求助吧？

youmingbo · 发表于 2018-1-4 12:30

不好意思，现在我把窗体弄好了，请再下载附件看看，谢谢

youmingbo · 发表于 2018-1-4 12:36

活在理想的世界发表于 2018-1-4 12:20
你的附件里根本就没有窗体，你至少自己画个窗体再来求助吧？

附件已再次上传，再看看，谢谢

活在理想的世界 · 发表于 2018-1-4 12:48

111111111111111111111111111111111111111111111111111111

活在理想的世界 · 发表于 2018-1-4 12:56

你所有的窗体业务逻辑估计也就这样了吧。

		自动登录	找回密码
密码			免费注册