[已解决]求老师写个vba代码

qh8600

求老师写个vba代码，见附件

最佳答案

月排行榜 / 总排行榜

Zipall

2011-12-29 22:01

右击工作表标签>查看代码>粘贴下面代码

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    On Error Resume Next
    With ActiveCell
        If .Column > 1 Then Exit Sub
        Cancel = True
        Workbooks.Open ThisWorkbook.Path & "\" & 1000 + .Row & .Value & ".xls"
    End With
End Sub

跳转到最佳答案楼层

Zipall

右击工作表标签>查看代码>粘贴下面代码

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    On Error Resume Next
    With ActiveCell
        If .Column > 1 Then Exit Sub
        Cancel = True
        Workbooks.Open ThisWorkbook.Path & "\" & 1000 + .Row & .Value & ".xls"
    End With
End Sub

qh8600

Zipall 发表于 2011-12-29 22:01
右击工作表标签>查看代码>粘贴下面代码

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Rang ...

谢谢老师，可以了