EXCEL工作表設定問題

Question

我利用EXCEL來記載客戶的報價
開了七、八十個工作表來記載
但問題是，如果要找工作表時會看得眼花瞭亂

所以想請問～
有沒有辦法新增一個SHEET1的工作表
在SHEET1的某儲存格裡做設定
只要點選該儲存格便能連結到該工作表

如果可以的話，麻煩告訴我做法～
如果不行的話，還有沒有什麼解決之道
我是初學者，講解越詳細越好....

pop · Accepted Answer

有如此多的檔案要設定超連結.試試下列建議.
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:&#92;EXL3" '指檔案在 C 的 EXL3資料夾__有資料夾的作法

請自行設定好_.LOOKIN 的檔案資料來源.
點按鈕則_在 SHEET1 的 A欄內登錄 EXLS 檔
只要點選A欄內的資料 就可以開啟檔案.
試試看.
希望有幫上忙.

linda · Answer

可以利用巨集: 
新增一個工作表   
建立一個巨集按鈕 
在儲存格A1 輸入想要連結的工作表名稱 
按下按鈕即可 
巨集內容如下: 
Sub Macro1() 
    n = Range("A1") 
    Sheets(n).Select 
End Sub
**PS. mail您的 email address 給我,再把範例檔案mail給您**

EXCEL工作表設定問題

2 個解答