返回列表 上一主題 發帖

[發問] 如何秀出所有可見之sheet name?

symis

帖子
42 
主題
13 
精華
0 
積分
61 
點名
0  
作業系統
xpp-sp2 
軟體版本
2003sp2 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2017-1-24 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-3-11 13:40 | 顯示全部帖子

[發問] 如何秀出所有可見之sheet name?

worksheetname
如何秀出所有可見之sheet name至一個新的sheet上表列? (以vba也可)
我用Excel 2007
謝謝!
收藏 分享
Symis

symis

帖子
42 
主題
13 
精華
0 
積分
61 
點名
0  
作業系統
xpp-sp2 
軟體版本
2003sp2 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2017-1-24 
2#
發表於 2013-3-12 10:32 | 顯示全部帖子
不好意思,開一個新檔,執行您的巨集,停在Sheet(1)的地方,出現error: 沒有定義這個Sub或Function
感謝指教!
Symis

TOP

symis

帖子
42 
主題
13 
精華
0 
積分
61 
點名
0  
作業系統
xpp-sp2 
軟體版本
2003sp2 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2017-1-24 
3#
發表於 2013-3-12 15:13 | 顯示全部帖子
我是用你的程式碼呀!
圖:
Symis

TOP

symis

帖子
42 
主題
13 
精華
0 
積分
61 
點名
0  
作業系統
xpp-sp2 
軟體版本
2003sp2 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2017-1-24 
4#
發表於 2013-3-13 11:55 | 顯示全部帖子
OK了,感謝您
只是看不懂最後一行程式,是如何產生結果的?
我試寫比較淺的語法如下:
    Columns(1).Insert
    For i = 1 To Sheets.Count
        Cells(i, 1).Value = Sheets(i).Name
        If Sheets(i).Visible = False Then Cells(i, 2).Value = "Hidden"
    Next i
Symis

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題