Excel超連結外部檔案，怎樣才能顯示全部符合的文字?

zxc74074 wrote:
假如要在 筆 插入超...(恕刪)

'放在工作表1的Worksheet_SelectionChange (不是外部檔案)
'預設滑鼠點擊B欄、名稱工作表1，點B1取消篩選

'工作表1格式



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    If Target.Column = 2 And Target.Count = 1 Then
        
        If Target.Value <> "" Then
            Call AutoFilter_Other_File(Target.Value, Target.Row)
        End If
    
    End If

End Sub


'AutoFilter_Other_File 副程式，放在工作表1的mudule1 (不是外部檔案)

Sub AutoFilter_Other_File(Criteria1 As String, check As Integer)

    Dim This_file As Workbook, Other_file As Workbook, Other_file_sheet As Worksheet
    Static Windows_Size_Location As Boolean
    
    On Error Resume Next
    Set This_file = ThisWorkbook
    '外部檔案的路徑+檔名，暫定d:\excel\data.xlsx
    Set Other_file = Workbooks.Open("d:\excel\data.xlsx", , False)
    '外部檔案的工作表名稱，暫定工作表1
    Set Other_file_sheet = Other_file.Worksheets("工作表1")
    
    If check = 1 Then
        Other_file_sheet.AutoFilterMode = False
    Else
        Other_file_sheet.Range("B:B").AutoFilter Field:=1, Criteria1:=Criteria1
    End If
    
    
    This_file.Activate
        
    '視窗排列方式一，簡易(2個方式任選一個，都不使用也行)
    'Windows.Arrange ArrangeStyle:=xlArrangeStyleTiled
    ''xlArrangeStyleTiled, xlArrangeStyleHorizontal, xlArrangeStyleVertical, xlArrangeStyleCascade
           
           
    '視窗排列方式二，可細項調整大小、位置
       
    'If Windows_Size_Location = False Then
    '    Dim w1 As Window, w2 As Window
    '
    '    Set w1 = This_file.Windows(1)
    '    Set w2 = Other_file.Windows(1)
    '
    '    With w1
    '        .WindowState = xlNormal
    '        .Top = 100
    '        .Left = 100
    '        .Height = 400
    '        .Width = 400
    '    End With
    
    '    With w2
    '        .WindowState = xlNormal
    '        .Top = 100
    '        .Left = 600
    '        .Height = 600
    '        .Width = 400
    '    End With
    '    Windows_Size_Location = True
    'End If
    
    
End Sub


'外部檔案格式
'暫定路徑+檔名  d:\excel\data.xlsx
'資料放在工作表1