[已解决]（求助）双击任一行指定单元格调出对应表问题

sdwffw

问题详见附件。请老师指导如何修改代码，非常感谢。

最佳答案

月排行榜 / 总排行榜

jkczfpb

2011-7-8 08:51

回复 sdwffw 的帖子

增加列条件限制Target.Column = 2即可

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2. If Target.Row > 2 And Cells(Target.Row, 2) <> "" And Target.Column = 2 Then
   
3. 
   
4. Sheets("档案表打印").Range("d4") = Cells(Target.Row, 2)
   
5. Sheets("档案表打印").Select
   
6. End If
   
7. End Sub
   

复制代码

跳转到最佳答案楼层

jkczfpb

回复 sdwffw 的帖子

增加列条件限制Target.Column = 2即可

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2. If Target.Row > 2 And Cells(Target.Row, 2) <> "" And Target.Column = 2 Then
   
3. 
   
4. Sheets("档案表打印").Range("d4") = Cells(Target.Row, 2)
   
5. Sheets("档案表打印").Select
   
6. End If
   
7. End Sub
   

复制代码

joyark

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Target.Row > 2 And Cells(Target.Row, 2) <> "" Then
   'If Target.Row > 2 And Cells(Target.Row, 2) <> "" And Target.Column = 2 Then
   
        Sheets("档案表打印").Range("d4") = Cells(Target.Row, 2)
        Sheets("档案表打印").Select
    End If
End Sub
這一個可以,共他好像有問題