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