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

活在理想的世界

youmingbo 发表于 2018-1-4 13:33
我如张图，可能更直观

1111111111111111111111111111111111111111111111111111111111111111

youmingbo

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

你太牛b了，服你，就是这样，谢谢！！

youmingbo

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

大神，我能再问一下，你写的Dim arr: arr = ActiveCell.Resize(1, 2)，这个代码具体是什么意思，能说一下吗？

活在理想的世界

Dim arr
arr = ActiveCell.Resize(1, 2)

上面这段能理解吧？上面这段和Dim arr: arr = ActiveCell.Resize(1, 2)是一个意思。

活在理想的世界

还有，你已经初级了，应该给我送花了。

youmingbo

有时会出错，这是怎么回事，他又不是每次都出错，偶尔来一下，我头都炸了，还有一个，送花是在哪里送？

youmingbo

活在理想的世界 发表于 2018-1-5 07:40
还有，你已经初级了，应该给我送花了。

请看上一楼内容

活在理想的世界

youmingbo 发表于 2018-1-5 11:26
请看上一楼内容

这是因为你开始问题没说清楚导致我给了你N多个代码，然后你又不知道贴了哪一个版本，导致代码混乱。

但是我给你的附件里可没有这一段。

要么你下载我的最后一版附件看看这段是如何写的？或者直接把本楼代码拿去替换？

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

复制代码

活在理想的世界

youmingbo 发表于 2018-1-5 11:25
有时会出错，这是怎么回事，他又不是每次都出错，偶尔来一下，我头都炸了，还有一个，送花是在哪里送？

你要早一点把20楼的图片贴出来至于这么麻烦吗？

youmingbo

活在理想的世界 发表于 2018-1-5 11:36
你要早一点把20楼的图片贴出来至于这么麻烦吗？

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)   '单元格被双击事件
  
If Target.Column = 1 Then
    If Range("A" & Target.Row) <> "" Then: UserForm1.Show
ElseIf Target.Column = 4 Then
    If Range("d" & Target.Row) <> "" Then: UserForm1.Show
End If

   ' If (Target.Column = 1 Or Target.Column = 4) And Target.Value <> "" Then: UserForm1.Show    'Target.Row是指所选单元格所在行，Target.Column：TARGET是选择的单元格，COLUMN是选择目标的列值
End Sub
我这个代码，跟你的有什么不一样吗？为什么会导致出错？请教 ，还有花在哪送？