[µo°Ý] ®Ö¨ú¤è¶ô¦^¦s (¤£³sÄò)

kai6929

¦U¦ì¤j®v­Ì¦n
                        ¤W¦¸¬Ý¤FGBKEEª©¥Dªº¦^Âв`·P¨ØªA,¦pªþ¥ó!·Q¦b½Ð±Ð¤@¤U¦pªG»¡±a¤JSheet2Äæ¦ì¬O¤£³sÄòªºÄæ¦ìªº¸Ü¡A¸Ó¦p¦ó­×§ïµ{¦¡©O? KAI~15.rar (11.42 KB)

¤U¸ü¦¸¼Æ: 10

2012-10-29 14:53

kimbal

¨âªÌ¬Ò¥i

1. Sub ½T©w_Click()
   
2.     Dim E As Shape, Rng As Range
   
3.     Sheet2.UsedRange.Offset(1).Clear
   
4.     Set Rng = Sheet2.UsedRange.Cells(2, 1)
   
5.     For Each E In Sheet1.Shapes
   
6.         If E.Type = msoFormControl And E.Name Like "Check Box*" Then
   
7.             If E.OLEFormat.Object.Value = 1 Then
   
8.                 Rng.Offset(, 0) = E.TopLeftCell.Offset(, 1).Value
   
9.                 Rng.Offset(, 1) = E.TopLeftCell.Offset(, 2).Value
   
10.                 Rng.Offset(, 2) = E.TopLeftCell.Offset(, 5).Value
    
11.                 Rng.Offset(, 3) = E.TopLeftCell.Offset(, 7).Value
    
12.                 Set Rng = Rng.Offset(1)
    
13.             End If
    
14.         End If
    
15.     Next
    
16. End Sub

½Æ»s¥N½X

1. Sub ½T©w_Click()
   
2.     Dim E As Shape, Rng As Range
   
3.     Sheet2.UsedRange.Offset(1).Clear
   
4.     Set Rng = Sheet2.UsedRange.Cells(2, 1)
   
5.     For Each E In Sheet1.Shapes
   
6.         If E.Type = msoFormControl And E.Name Like "Check Box*" Then
   
7.             If E.OLEFormat.Object.Value = 1 Then
   
8.                 With E.TopLeftCell
   
9.                     Rng.Resize(, 4) = Array(.Offset(, 1).Value, .Offset(, 2).Value, .Offset(, 5).Value, .Offset(, 7).Value)
   
10.                 End With
    
11.                 Set Rng = Rng.Offset(1)
    
12.             End If
    
13.         End If
    
14.     Next
    
15. End Sub

½Æ»s¥N½X

kai6929

­º¥ý·PÁÂkimbalª©¥DªºµªÂÐ
                         ³o¥¿¬O§Ú·Q­nª¾¹DªºµªÂÐ!¦ý§Ú·Q½Ð°Ý¤@¤U½Ñ¦ì¤j®v­Ì¦pªG»¡±N®Ö¨ú¤è¶ô§ï¬°¥¿±`ªº TRUE or FALSE ¨Ó¨M©w Sheet2 ¬O§_Åã¥Ü¤£ª¾³o¼Ë¬O§_¥i¦æ¡A©Î³\¦³ÂI¦h¦¹¤@Á|¡AÀµ½Ð¦U¦ì½ç±Ð¦pªþ¥ó¡G kai~16.rar (14.67 KB)

¤U¸ü¦¸¼Æ: 9

2012-10-30 09:17

emma

¦^´_ 1# kai6929


    ÁÂÁ§AÀ°§Ú°Ý¨ì§Ú¤]·Qª¾¹Dªºµª®×¡A¦ý¬O½Ð°Ý³oªþ¥ó¤£¬O§Ú©Ò´£¨Ñªº­ì©lªþ¥ó¶Ü?

kai6929

¬Oªü ! ¦ý¬Ý©pPOªº¤å¨I¨ì¨¦©³,¯S¦aÀ°©p¤@°Ý,¦Û¤v¤]¥i¤@¦P¾Ç²ß

kimbal

¦^´_ 3# kai6929

³o­Ó¼Ë¤l?
          If E.OLEFormat.Object.Value = True Then

1.     Sub ½T©w_Click()
   
2.     Dim E As Shape, Rng As Range
   
3.     Sheet2.UsedRange.Offset(1).Clear
   
4.     Set Rng = Sheet2.UsedRange.Cells(2, 1)
   
5.     For Each E In Sheet1.Shapes
   
6.         If E.Type = msoFormControl And E.Name Like "Check Box*" Then
   
7.             If E.OLEFormat.Object.Value = True Then
   
8.                 Rng.Offset(, 0) = E.TopLeftCell.Offset(, 1).Value
   
9.                 Rng.Offset(, 1) = E.TopLeftCell.Offset(, 2).Value
   
10.                 Rng.Offset(, 2) = E.TopLeftCell.Offset(, 5).Value
    
11.                 Rng.Offset(, 3) = E.TopLeftCell.Offset(, 7).Value
    
12.                 Set Rng = Rng.Offset(1)
    
13.             End If
    
14.         End If
    
15.     Next
    
16. End Sub

½Æ»s¥N½X

kai6929

·PÁ¨ó§U,
  ¦ý°õ¦æ«áÁÙ¬O¤£¦æ,¯à§_¦bÀ°¦£¬Ý¬Ý KAI~17.rar (14.68 KB)

¤U¸ü¦¸¼Æ: 6

2012-10-30 15:34

GBKEE

¦^´_ 7# kai6929
AutoFilter ¦Û°Ê¿z¿ï AÄæ ="True"
½Æ»sC,D,G,Iªº­È ¨ìSheet2.Range("a1")

1. Sub ½T©w_Click()
   
2.     Sheet1.Range("a1").AutoFilter 1, "True"
   
3.     Sheet1.Range("c:d,g:g,i:i").Copy
   
4.     Sheet2.Range("a1").PasteSpecial xlPasteValues
   
5.     Sheet1.Range("a1").AutoFilter 1
   
6. End Sub

½Æ»s¥N½X