Anonymous
Anonymous asked in 電腦與網際網路軟體 · 1 decade ago

有關excel sheet 的問題

請問~~

1.如何可以讓EXCEL裏的某一儲存格,直接等於該SHEET的名稱

2.如果我有一個工作表裏有100個SHEET,是否可以有快速的方法 可以秀出所有SHEET名稱的一欄表呢(要可以秀在excel裏的方法)?

2 Answers

Rating
  • 1 decade ago
    Best Answer

    圖片參考:http://tw.yimg.com/i/tw/blog/rte/smiley_4.gif

    請試試以下方法

    問題1.

    公式方法-請在任一儲存格輸入以下公式,即可取出SHEET名稱,不過如果是未儲存的檔案則無法適用

    =RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",CELL("filename",A1)))

    或者您可以用巨集方法

    請按Alt+F11開啟VBA編輯視窗>>

    在功能表選"插入">>"模組",或直接按Alt+I、Alt+M也可以

    將以下程式碼貼在右邊空白處,關掉VBA編輯視窗,回到EXCEL執行巨集,

    Sub SheetName()

    x = Sheets.Count

    For i = 1 To x

    Sheets(i).Cells(1, 1) = Sheets(i).Name

    Next

    End Sub

    Sub SheetList()

    x = Sheets.Count

    For i = 1 To x

    Cells(i, 2) = Sheets(i).Name

    Next

    End Sub

    功能表>>工具>>巨集>>巨集(或按Alt+F8)

    選取SheetName巨集>>執行

    此巨集將會把每一個Sheet名稱寫在該Sheet2的A1

    問題二

    只能用巨集,上述方法已將程式碼貼上

    請執行SheetList巨集

    則會在該Sheet的B欄列出所有Sheet名稱

    圖片參考:http://tw.yimg.com/i/tw/blog/rte/smiley_4.gif

    請試試這樣可以嗎?

    Ps.要執行巨集,請將功能表>>工具>>選項>>安全性>>"巨集安全性"設為"中",重新開啟檔案

    2007-11-05 17:45:15 補充:

    更正~~問題一解答最後一行

    此巨集將會把每一個Sheet名稱寫在該 Sheet2 的A1

    應更正為

    此巨集將會把每一個Sheet名稱寫在該 Sheet 的A1

  • Trump
    Lv 7
    1 decade ago

    可參閱筆者以前回覆清單,有關 GET.CELL 函數用法。

Still have questions? Get your answers by asking now.