返回列表 上一主題 發帖

[發問] 計算出分頁(sheets)的個量

imzues

帖子
72 
主題
24 
精華
0 
積分
172 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2010-7-16 
最後登錄
2023-7-6 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2013-1-16 09:09 | 只看該作者

[發問] 計算出分頁(sheets)的個量

本帖最後由 Hsieh 於 2013-1-16 17:32 編輯

請教一下
有沒有什麼方法是可以快速的計算出分頁(sheets)的個量
收藏 分享

imzues

帖子
72 
主題
24 
精華
0 
積分
172 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2010-7-16 
最後登錄
2023-7-6 
5#
發表於 2013-1-16 10:45 | 只看該作者
抱歉.....是求助帖.....
感謝大家的回復,受益良多

TOP

zz5151353

帖子
206 
主題
3 
精華
0 
積分
218 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE 365 
閱讀權限
100 
性別
男 
來自
台灣台北 
註冊時間
2010-5-15 
最後登錄
2023-6-18 
4#
發表於 2013-1-16 10:23 | 只看該作者
是分享貼,還是求助貼子

Sub ZZ5151353()
MsgBox Sheets.Count
End Sub

自定義方式

定義名稱 number 公式 =GET.WORKBOOK(4)

任意儲存格 公式 =number
300 字節以內
不支持自定義 Discuz! 代碼

TOP

Baracuda

帖子
132 
主題
25 
精華
0 
積分
199 
點名
0  
作業系統
window XP 
軟體版本
Excel 2010 
閱讀權限
20 
性別
男 
來自
台灣 新竹 
註冊時間
2010-6-1 
最後登錄
2022-7-14 

2013蛇年全勤獎章論壇榮譽勳章論壇贊助勳章
3#
發表於 2013-1-16 09:46 | 只看該作者
回復 1# imzues
VBA 中用 Sheets.Count 即可

TOP

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
2#
發表於 2013-1-16 09:15 | 只看該作者
本帖最後由 mark15jill 於 2013-1-16 09:18 編輯

回復 1# imzues

標題分類弄錯...
個量 是要特定目標還是總數


Private Sub CommandButton1_Click()

Dim mysheet As Worksheet
Dim i As Integer

i = 0

For Each mysheet In Worksheets

i = i + 1

Next

MsgBox "工作表個數共 " & i & " 個。"


End Sub

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

        靜思自在 : 話多不如話少，話少不如話好。
返回列表 上一主題