小Fay
Lv 5
小Fay 發問時間: 電腦與網際網路軟體 · 1 0 年前

EXCEL工作表設定問題

我利用EXCEL來記載客戶的報價

開了七、八十個工作表來記載

但問題是,如果要找工作表時會看得眼花瞭亂

所以想請問~

有沒有辦法新增一個SHEET1的工作表

在SHEET1的某儲存格裡做設定

只要點選該儲存格便能連結到該工作表

如果可以的話,麻煩告訴我做法~

如果不行的話,還有沒有什麼解決之道

我是初學者,講解越詳細越好....

2 個解答

評分
  • pop
    Lv 7
    1 0 年前
    最佳解答

    有如此多的檔案要設定超連結.試試下列建議.

    1:在新增的sheet1 設一個按鈕

    Private Sub CommandButton2_Click()

    Columns(1).Clear

    Set fs = Application.FileSearch

    With fs

    .LookIn = "D:" '**

    .Filename = "*.xls"

    If .Execute(SortBy:=msoSortByFileName, _

    SortOrder:=msoSortOrderAscending) > 0 Then

    For I = 1 To .FoundFiles.Count

    ActiveSheet.Hyperlinks.Add ANCHOR:=Cells(([A65536].End(xlUp).Row 1), 1), _

    Address:=.FoundFiles(I), TextToDisplay:=.FoundFiles(I)

    Next I

    End If

    End With

    set fs=nothing

    End Sub

    上述的重點_.LookIn = "D:" '**

    .lookIN="D:" '指檔案在D

    .LOOKIN="C:\EXL3" '指檔案在 C 的 EXL3資料夾__有資料夾的作法

    請自行設定好_.LOOKIN 的檔案資料來源.

    點按鈕則_在 SHEET1 的 A欄內登錄 EXLS 檔

    只要點選A欄內的資料 就可以開啟檔案.

    試試看.

    希望有幫上忙.

  • linda
    Lv 4
    1 0 年前

    可以利用巨集:

    新增一個工作表

    建立一個巨集按鈕

    在儲存格A1 輸入想要連結的工作表名稱

    按下按鈕即可

    巨集內容如下:

    Sub Macro1()

    n = Range("A1")

    Sheets(n).Select

    End Sub

    **PS. mail您的 email address 給我,再把範例檔案mail給您**

還有問題?馬上發問,尋求解答。