register313

¦^´_ 1# fyo00241
ªì¾ÇªÌVBA
¨Ï¥ÎFIND§ó¦n ¦ý¸Õ¤£¥X¨Ó

1. Private Sub EE()
   
2. Application.ScreenUpdating = False
   
3. Columns("E").Clear
   
4. For a = 2 To 10000
   
5.   For b = 2 To 26
   
6.     If Cells(a, 1) = "" Then Exit For
   
7.     If Cells(a, 4) Like Cells(b, 7) & "*" Then
   
8.        Cells(a, 5) = Cells(b, 8)
   
9.     End If
   
10.   Next b
    
11. Next a
    
12. Application.ScreenUpdating = True
    
13. End Sub

½Æ»s¥N½X

¤U¸ü (64.1 KB)

2011-12-28 14:06

register313

¦^´_ 4# fyo00241
1. key±ø½X key¦b¦ó³B? §@¦ó§PÂ_?
2.µ{¦¡¥\¯à¬°¦ó?
3.«ÜºC¬O¤j¬ù´X¬í? ¨Ì¹ê»Ú»Ý¨D¤j¬ù­n´X¬í§¹¦¨?
4.¦ó¤£ªþ¤WÀÉ®×?

register313

¦^´_ 6# fyo00241
   ¨Ì§Ú¬Ý§A¬O¥Îªí³æ¤@¦¸¿é¤J1­Ó§Ç¸¹(DÄæ),µM«á¬d¥X1­Ó«~¦W(EÄæ)   ===>   »Ý1t®É¶¡  
   ¦Ó¤£¬O¤@¦¸¤w¦³10000­Ó§Ç¸¹(DÄæ),),µM«á¤@¦¸¬d¥X10000­Ó«~¦W(EÄæ)   ===>   »Ý10000t®É¶¡(·íµM·|ºC)
  
   ¨Ì¤§«eµ{¦¡¤§¼gªk
  ¿é¤J²Ä1­Ó§Ç¸¹(¬d¸ß1­Ó)  ===>   »Ý1t®É¶¡
  ¿é¤J²Ä2­Ó§Ç¸¹(¬d¸ß2­Ó)  ===>   »Ý2t®É¶¡
  ¿é¤J²Ä1000­Ó§Ç¸¹(¬d¸ß1000­Ó)  ===>   »Ý1000t®É¶¡
  ©Ò¥H²Ö¿n·U¦h§Ç¸¹ ¨ì®É­Ô°õ¦æ³t«×´N·UºC

  ¥ý¬Ý¬ÝªþÀɽd¨Ò¬O¤£¬O§A­nªº
  ¦bDÄæ¿é¤J§Ç¸¹,°¨¤W¬d¥X«~¦W
  ¥u·|¬d¦³DÄæÅܰʤ§§Ç¸¹,¦Ó¤£¬O¨C¦¸³£¥þ³¡­«¬d

1. Private Sub worksheet_change(ByVal target As Range)
   
2. 
   
3. If target.Column = 4 Then
   
4.   a = target.Row
   
5.   For b = 2 To 27
   
6.     If Cells(a, 4) Like Cells(b, 7) & "*" Then
   
7.        Cells(a, 5) = Cells(b, 8)
   
8.     End If
   
9.   Next b
   
10. End If
    
11. 
    
12. End Sub

½Æ»s¥N½X

·s¼WMicrosoft Excel ¤u§@ªí.rar (6.59 KB)

¤U¸ü¦¸¼Æ: 10

2011-12-29 12:59

register313

¦^´_ 6# fyo00241

½Ð°Ý­ì¨Óªºµ{¦¡¬O§_¯à¥¿±`°õ¦æ ¦n¦h¦a¤è¦³°ÝÃD

¥u­×¥¿¥»©«©Ò´£¤§°õ¦æ³t«×
¸Õ¸Õ¬Ý

¤é°O±b°O¿ý.zip (749.39 KB)

¤U¸ü¦¸¼Æ: 9

2011-12-29 18:52

register313

¦^´_ 14# fyo00241

¬O¤£¬O¥ý§â¤§«e­×§ï¹Lªº§@­Ó´ú¸Õ
»¡©ú¤@¤U¥\¯à¦³¨S¦³°ÝÃD(¨ºÃ䦳°ÝÃD)  ¾Þ§@³t«×¥¿¤£¥¿±`

register313

¦^´_ 16# GBKEE


    ¦Û¤v§ïªº ¤£ª¾¦p¦ó

¤é°O±b°O¿ý.rar (379.1 KB)

¤U¸ü¦¸¼Æ: 7

2012-1-3 08:28