97forum

¦^´_  GBKEE

ÁÂÁÂGBKEEªº«ü¾É,
¥[¤F If dic.count=0 ªº§PÂ_¦¡,¤w¸gok¤F,ÁÂÁÂ.
yliu µoªí©ó 2013-8-11 15:01

¤£¦n·N«ä¥Ñ©ó§Ú¬O·s¤â¡A¤£ª¾ YLiu¬O§_¥i±N±zµ{¦¡½X´£¨Ñ¤U¸ü¨Ñ°Ñ¦Ò¡I

yliu

¦^´_ 11# 97forum

Report.zip (24.77 KB)

¤U¸ü¦¸¼Æ: 4

2013-8-14 23:31

Àɮתþ¤W, §Ú¤]¬O·s¤â, ©Ò¥H¨S¦³­×§ïªº«Ü¦n, ¦ý¦Ü¤Ö¥i¥HRun.

yliu

¦^´_ 9# GBKEE
    GBKEEª©¤j,
¤£¦n·N«ä, ¤S¥X²{¥t¤@­Ó°ÝÃD, ­Y¬O¸ß»ù¼t°Ó¥u¦³2®a®É, µL²Ä3®a¼t°Ó, ·|¥X²{#NA²Å¸¹(¦p¹Ï), ½Ð°Ý¦p¦óÅý¥¦¬OªÅ¥Õªº?

¤U¸ü (53.78 KB)

2013-8-14 23:47

Report.zip (24.72 KB)

¤U¸ü¦¸¼Æ: 9

2013-8-14 23:48

GBKEE

¦^´_ 13# yliu

1.   ReDim AR2(1 To dic.Count)
   
2.             '­«¸m°}¦Cªº¤¸¯À¤W­­=¦r¨åª«¥óªº­p¼Æ(Count)
   
3.            .Range("A1").AutoFilter 16, ­q³æ¸¹½X2                     'AutoFilter ¦Û°Ê¿z¿ï ²Ä16Äæ «ü©w±ø¥ó­È=­q³æ¸¹½X
   
4.            i2 = 1
   
5.            For Each KEY In dic.Keys
   
6.                 .Range("A1").AutoFilter 3, KEY                          'AutoFilter ¦Û°Ê¿z¿ï ²Ä3Äæ «ü©w±ø¥ó­È=¦r¨åª«¥óªºKEY
   
7.                 A(1) = KEY                                                             '±ÄÁʼt°Ó
   
8.                 A(2) = Application.Sum(.Range("M:M").SpecialCells(xlCellTypeVisible))  '²Ä1¦¸Ä³»ù '¤w¥Î½d³òªº³Ì«á¤@­ÓÀx¦s®æ
   
9.                 A(3) = Application.Sum(.Range("N:N").SpecialCells(xlCellTypeVisible))  '²Ä2¦¸Ä³»ù '¤w¥Î½d³òªº³Ì«á¤@­ÓÀx¦s®æ
   
10.                 A(4) = Application.Sum(.Range("O:O").SpecialCells(xlCellTypeVisible))  '²Ä3¦¸Ä³»ù '¤w¥Î½d³òªº³Ì«á¤@­ÓÀx¦s®æ
    
11.                 AR2(i2) = A
    
12.                 i2 = i2 + 1
    
13.             Next
    
14.     End With
    
15.     Sheets("report").[B13].Resize(4, dic.Count) = Application.WorksheetFunction.Transpose(AR2)  '¾É¤J

½Æ»s¥N½X

yliu

¦^´_ 14# GBKEE

ÁÂÁÂGBKEEª©¤j,¤w¸g¸Ñ¨M¤F.

c_c_lai

¦^´_ 15# yliu
±N§A¥Ø«eªº Report ¤©¥Hµyµy¾ã²z¤@¤U¡A¤è«K¾\Ū¤ÎÁY¤p(ºë²)µ{¦¡½X¡C
¨Ñ§A°Ñ¦Ò»PÀ³¥Î¡G

1. Private Sub ComboBox1_Change()
   
2.     Dim d As Object, j As Integer
   
3.    
   
4.     Sheets("report").Unprotect ("789456123")
   
5.    ClearFlds

½Æ»s¥N½X

1.         If dic.Count = 0 Then
   
2.             MsgBox "¨S¦³Ä³»ù¸ê®Æ"
   
3.             ClearFlds
   
4.            Exit Sub
   
5.         End If

½Æ»s¥N½X

1. Sub ClearFlds()
   
2.     With Sheets("report")
   
3.         ' .Cells(5, 2) = ""
   
4.         ' .Cells(6, 2) = ""
   
5.         ' .Cells(7, 2) = ""
   
6.         ' .Cells(8, 2) = ""
   
7.         ' .Cells(9, 2) = ""
   
8.         ' .Cells(10, 2) = ""
   
9.         ' .Cells(13, 2) = ""
   
10.         ' .Cells(14, 2) = ""
    
11.         ' .Cells(15, 2) = ""
    
12.         ' .Cells(16, 2) = ""
    
13.         ' .Cells(18, 2) = ""
    
14.         ' .Cells(19, 2) = ""
    
15.         ' .Cells(20, 2) = ""
    
16.         ' .Cells(21, 2) = ""
    
17.         .Range("B5:B10") = ""
    
18.         .Range("B13:B21") = ""
    
19.    
    
20.         ' .Cells(13, 3) = ""
    
21.         ' .Cells(14, 3) = ""
    
22.         ' .Cells(15, 3) = ""
    
23.         ' .Cells(16, 3) = ""
    
24.         .Range("C13:C16") = ""
    
25.    
    
26.         .Cells(5, 4) = ""
    
27.         ' .Cells(9, 4) = ""
    
28.         ' .Cells(10, 4) = ""
    
29.         .Range("D9:D10") = ""
    
30.    
    
31.         ' .Cells(13, 4) = ""
    
32.         ' .Cells(14, 4) = ""
    
33.         ' .Cells(15, 4) = ""
    
34.         ' .Cells(16, 4) = ""
    
35.         ' .Cells(20, 4) = ""
    
36.         ' .Cells(21, 4) = ""
    
37.         .Range("D13:D21") = ""
    
38.     End With
    
39. End Sub

½Æ»s¥N½X

ReportB.rar (23.43 KB)

¤U¸ü¦¸¼Æ: 4

2013-8-18 09:19

yliu

¦^´_ 16# c_c_lai
ÁÂÁÂc c laiªº«ü¾É