GBKEE

¦^´_ 1# xaiver

µ{¦¡½X¤£§¹¾ã



   

¤U¸ü (30.73 KB)

2013-9-11 17:50

GBKEE

¦^´_ 3# xaiver

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim I As Integer, E As Range
   
4.     For Each E In Sheets("A").Range("K1:K15")
   
5.         If InStr(E, "Test") Then                  '¦³"Test"¦r¦ê ¤j¤p¼g¦³°Ï§O
   
6.         'If InStr(UCase(E), UCase("Test")) Then   'Âର¤j¼g :   ©Ò¥H¤j¤p¼g¨S°Ï§O
   
7.         I = I + 1
   
8.         End If
   
9.     Next
   
10.     Sheets("B").Range("I1") = I ' ªº I Äæ¦ì
    
11.     ' ¨Ã¥B·|±N KÄæ¦ì²MªÅ,¬°¤°»ò? ¨S¬Ý¨ìµ{¦¡½X,©Ò¥H¤£¾åªº.
    
12. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# xaiver
³o¸Ì°Q½×ExcelªºVBA,¥i¥H¤W¶ÇExcelÀɤè«K°Q½×

GBKEE

¦^´_ 8# xaiver
§Aªºµ{¦¡«ÜÃe¤j¨Sµù¸Ñ,¬Ýªº²´ªá,¤£ª¾©Ò¤ª.

1. Sub BugTrend()
   
2. For i = 1 To (row - 1)
   
3.    ' itopen.Activate
   
4.    ' A = ActiveCell.Offset(i, 0)
   
5.     A = itopen.Offset(i, 0)    'ºë²µ{¦¡½X
   
6.     'itclose.Activate
   
7.     'b = ActiveCell.Offset(i, 0)
   
8.     b = itclose.Offset(i, 0)
   
9.    '
   
10.    '
    
11.     MsgBox str2  '¨S¦³ªF¦è *** ¿ù»~ÂI¥i¯à¦b¦¹ ****
    
12.      Worksheets("Raw_Data").Cells(i, 11).Value = str2
    
13. If InStr(str2, "Limitation") Then limnum = limnum + 1

½Æ»s¥N½X