返回列表 上一主題 發帖

[發問] 請問EXCEL怎麼取得工作表的數量與資料行數呢(跨工作表)!?謝謝

Hsieh

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

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2012-10-28 22:31 | 顯示全部帖子
回復 13# konkon3141

自定義函數
  1. Function All_Data(sh As Range, sh1 As Range, MyType As Integer) As Double
  2. Application.Volatile
  3. For Each sht In Sheets
  4.   If sht.Name <> sh.Parent.Name And sht.Name <> sh1.Parent.Name Then
  5.      Rng = sh.Address(, , , , 0)
  6.      Rng1 = sh1.Address(, , , , 0)
  7.      Select Case MyType
  8.      Case 0
  9.      All_Data = All_Data + 1
  10.      Case Else
  11.      All_Data = All_Data + (Application.CountA(sht.Range(Rng)) - Application.CountA(sht.Range(Rng1)))
  12.      End Select
  13.   End If
  14. Next
  15. 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)
學海無涯_不恥下問

TOP

        靜思自在 : 並非有錢魷是快樂，問心無愧心最安。
返回列表 上一主題