ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ²Î­p«ü©w°Ï°ì²Ö¿n1¼Æ¦¸¦h­¶°ÝÃD(°ÝÃDªþ¥ó¤w§ó·s)

¦^´_ 3# jeff5424

¦Û¤v³s±Ô­z°ÝÃDªº­@¤ß³£¨S¦³¡A¦^µªªÌ§ó¨S­@¤ß¸ÑŪ§Aªº°ÝÃD
¸Õ¸Õªþ¥ó¬O¤£¬O§A­nªº
¦h­¶²Ö­p.zip (39.22 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 5# jeff5424


    4#ªþ¥ó¤£´N¬O³o¼Ëªº²Ö­p¤è¦¡¶Ü?
²Ä¤@­Ó¤Þ¼Æ¿é¤J¶}©lªº¤u§@ªí¦WºÙ
²Ä¤G­Ó¤Þ¼Æ¿é¤Jµ²§ô¤u§@ªí¦WºÙ
²Ä¤T­Ó¤Þ¼Æ¬O­pºâ²Ä´X¦C
²Ä¥|­Ó¤Þ¼Æ¬O³sÄò´X¦¸
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 7# jeff5424


    ¸Õ¸Õ¬Ý
µo°Ý--¦h­¶²Ö­p.zip (44.57 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 9# jeff5424
³o¼Ë¸Õ¸Õ
¦h­¶²Ö­p.zip (289.62 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 11# jeff5424
  1. Function AllCount(Sh1$, Sh2$, r%, k%, cnt%)
  2. Application.Volatile
  3. Set d = CreateObject("Scripting.Dictionary")
  4. Set d1 = CreateObject("Scripting.Dictionary")
  5. i = Sheets(Sh1).Index
  6. Do Until i > Sheets(Sh2).Index
  7. With Sheets(i)
  8.    For Each a In .Range(.Cells(k, 2), .Cells(k, 2).End(xlToRight))
  9.      If .Cells(r, a.Column) = 1 Then d(a.Value) = ""
  10.    Next
  11. End With
  12. i = i + 1
  13. Loop
  14. j = 1: p = 1
  15. Do
  16. Do Until Application.Small(d.keys, j + 1) - Application.Small(d.keys, j) <> 1
  17.      p = p + 1: j = j + 1
  18.      If j = d.Count Then Exit Do
  19. Loop
  20. d1(p) = d1(p) + 1: p = 1
  21. j = j + 1
  22. If j = d.Count Then d1(p) = d1(p) + 1: Exit Do
  23. Loop Until j > d.Count
  24. AllCount = d1(cnt)
  25. End Function
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¶¢¤HµL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD