|
10学分
求改代码,如SHEET1 B15有数据则从从B16输入
If Target.Column = 1 And Target.Row > 14 Then
FAD = ThisWorkbook.Path & "\" & Target.Hyperlinks(1).Address
SH = Replace(Split(Target.Hyperlinks(1).SubAddress, "!")(0), "#", "")
VBA.DoEvents
ATNAM = ActiveWorkbook.Name
ARR = ActiveWorkbook.Sheets(SH).UsedRange
'ActiveWorkbook.Close
ThisWorkbook.Activate
If UBound(ARR) < 1 Then MsgBox "工作表上没有内容可显示": Exit Sub
Sheets("Sheet4").Cells.ClearContents
Sheet4.Range("A1").Resize(UBound(ARR), UBound(ARR, 2)) = ARR
Application.ScreenUpdating = True
Sheet1.Range("b15").Resize(1, UBound(ARR, 2)) = ARR
Application.ScreenUpdating = True
End If
End Sub
|
|