Hsieh

¦^´_ 13# konkon3141

¦Û©w¸q¨ç¼Æ

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

½Æ»s¥N½X

C9=All_Data(A1,ªÅ¥Õ®æ¦¡!A1,0)
C10=All_Data('¥Ø¿ý&¼Ò¨ã«~¦W'!B:B,ªÅ¥Õ®æ¦¡!B$1:B$8,1)
C11=All_Data('¥Ø¿ý&¼Ò¨ã«~¦W'!J:J,ªÅ¥Õ®æ¦¡!J$1:J$8,1)
C12=All_Data('¥Ø¿ý&¼Ò¨ã«~¦W'!P:P,ªÅ¥Õ®æ¦¡!P$1:P$8,1)
¼Ò¨ã¼i¾ú.rar (46.42 KB)

¤U¸ü¦¸¼Æ: 5

2012-10-28 22:31