請問EXCEL怎麼取得工作表的數量與資料行數呢(跨工作表)!?謝謝 - Excelㄧ般區

帖子: 17
主題: 4
精華: 0
積分: 21
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 10
註冊時間: 2012-10-16
最後登錄: 2012-12-1

11^# 跳轉到 »

發表於 2012-10-28 20:22 | 只看該作者

回復 konkon3141
內容就是在C10 填入公式
=COUNTA(開始工作表:結束工作表!B:B)-COUNTA(開始工作表:結束 ...
stillfish00 發表於 2012-10-28 19:15

大大這是我的檔案

模具履歷.rar (33.4 KB)
請大大幫我看一下
我權限不夠大大處理好可以傳到網路空間嗎Q.Q...
拜託了~~謝謝^^

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

12^#

發表於 2012-10-28 21:20 | 只看該作者

回復 11# konkon3141
http://d.pr/f/Sxsz

最後發現問題在工作表名稱有含括號 , 所以在使用公式時工作表名稱要另外加單引號才不會出錯
啊啊~這算我沒養成良好習慣啦><

帖子: 17
主題: 4
精華: 0
積分: 21
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 10
註冊時間: 2012-10-16
最後登錄: 2012-12-1

13^#

發表於 2012-10-28 21:32 | 只看該作者

回復 konkon3141
http://d.pr/f/Sxsz

最後發現問題在工作表名稱有含括號 , 所以在使用公式時工作表名 ...
stillfish00 發表於 2012-10-28 21:20

大大我把( ) + &全改成-
結果切換到目錄他一直要我開啟檔案= ="
而且輸入資料也不會更新筆數..
http://www.mediafire.com/?s6eqfqc4dj3wlz9
另外為甚麼工作表名稱不能使用( )呢!?
再此先謝謝大大的幫忙^^~~

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

14^#

發表於 2012-10-28 21:44 | 只看該作者

回復 13# konkon3141
http://d.pr/f/Sxsz 這個檔案不能用嗎? 這是改過的

帖子: 17
主題: 4
精華: 0
積分: 21
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 10
註冊時間: 2012-10-16
最後登錄: 2012-12-1

15^#

發表於 2012-10-28 22:06 | 只看該作者

回復 konkon3141
http://d.pr/f/Sxsz 這個檔案不能用嗎? 這是改過的
stillfish00 發表於 2012-10-28 21:44

這個可以了!!!
大大有改工作表名稱嗎!?
好像沒有改耶~~
沒有改工作是怎麼解決這個問題呢!?
在EYNY有人說工作表()會造成VBA引用儲存格能夠用的函數
所以很可能會混淆
再此感謝大大的幫忙^^~~
學習到很多EXCEL的知識

帖子: 17
主題: 4
精華: 0
積分: 21
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 10
註冊時間: 2012-10-16
最後登錄: 2012-12-1

16^#

發表於 2012-10-28 22:15 | 只看該作者

另外請問大大我想把第3工作表"PC針模"~新手錶架(組)隱藏
但這樣會造成第1頁的數量無法計算耶...
目錄下方的超連結也會全部失效..

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 253
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-22

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

17^#

發表於 2012-10-28 22:31 | 只看該作者

回復 13# konkon3141

自定義函數

Function All_Data(sh As Range, sh1 As Range, MyType As Integer) As Double
Application.Volatile
For Each sht In Sheets
If sht.Name <> sh.Parent.Name And sht.Name <> sh1.Parent.Name Then
Rng = sh.Address(, , , , 0)
Rng1 = sh1.Address(, , , , 0)
Select Case MyType
Case 0
All_Data = All_Data + 1
Case Else
All_Data = All_Data + (Application.CountA(sht.Range(Rng)) - Application.CountA(sht.Range(Rng1)))
End Select
End If
Next
End Function

複製代碼

C9=All_Data(A1,空白格式!A1,0)
C10=All_Data('目錄&模具品名'!B:B,空白格式!B$1:B$8,1)
C11=All_Data('目錄&模具品名'!J:J,空白格式!J$1:J$8,1)
C12=All_Data('目錄&模具品名'!P:P,空白格式!P$1:P$8,1)

模具履歷.rar (46.42 KB)

學海無涯_不恥下問

帖子: 17
主題: 4
精華: 0
積分: 21
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 10
註冊時間: 2012-10-16
最後登錄: 2012-12-1

18^#

發表於 2012-10-28 22:48 | 只看該作者

回復 konkon3141

自定義函數C9=All_Data(A1,空白格式!A1,0)
C10=All_Data('目錄&模具品名'!B:B,空白格 ...
Hsieh 發表於 2012-10-28 22:31

大大我論壇權限不夠
可以傳網路空間嗎@@!?
謝謝囉^^~~~

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

19^#

發表於 2012-10-28 23:15 | 只看該作者

回復 16# konkon3141
隱藏工作表的超連結會失效是正常的..
另一種方法是工作表不隱藏 , 到Excel選項裡取消工作表索引標籤
不過看用途啦有時候會不太方便..

帖子: 17
主題: 4
精華: 0
積分: 21
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 10
註冊時間: 2012-10-16
最後登錄: 2012-12-1

20^#

發表於 2012-10-28 23:49 | 只看該作者

回復 konkon3141
隱藏工作表的超連結會失效是正常的..
另一種方法是工作表不隱藏 , 到Excel選項裡取消 ...
stillfish00 發表於 2012-10-28 23:15

在依莉有大大說如果嫌下表工作表索引標籤太多
可以考慮以檔案連結的方式
以我這個例子
就不知道有沒有1個工作表換成1個活頁簿的方法了
而且在目錄的統計量有辦法跨檔案計算嗎...這也是個大問題

取消工作表索引標籤還蠻不方便的@@
如果要新增工作表後要回空白格式複製格式
真的非常麻煩..

感謝大大花了1天熱心的幫忙^^~~
學到了很多是學校不會教的知識~~