mark15jill

­è­è§â chin15 ¤j¤j©Òµoªºµ{¦¡½X¥[¥H©µ¦ùªº¸Ü À³¸Ó¯à¹F¨ì¼Ó¥Dªº»Ý¨D





ªþÀɤº ¬° A Äæ¦ì ©M BÄæ¦ìªº¹ï¤ñ¡A ¦pªGBÄæ¦ì¤º¦³AÄæ¦ìªº¸Ü¡A§Y·|¦bCÄæ¦ì¬Û¹ïÀx¦s®æ¥´¤Ä
¦ý¬O¦³­Ó¯ÊÂI.. ¦pªG¸ê®Æ¬O¼Æ¦rª¬ºA ¨º´N·|¥X²{¿ù¶Ã..
¦p  10 20 30  ©M 100 110 120 130   ·|»~§P...


¹ï¤ñ§ï¨}ª©.rar (26.16 KB)

¤ñ¹ï§ï¨}ª©
¤U¸ü¦¸¼Æ: 10

2011-4-28 10:48

chin15

¬Ý°_¨ÓÀ³¸Ó¬O¦baÄæ¤ñ¹ïd1Àx¦s®æ

1. Sub module1()
   
2.     Dim x$, c As Range, data As Range
   
3.     x = [d1]
   
4.     For Each c In Range([a1], [a65536].End(3))
   
5.         If c = x Then
   
6.             If data Is Nothing Then
   
7.                 Set data = c
   
8.             Else
   
9.                 Set data = Union(data, c)
   
10.             End If
    
11.         End If
    
12.     Next
    
13.     If Not data Is Nothing Then
    
14.     With data
    
15.         .Interior.ColorIndex = 3
    
16.         .Offset(, 1) = "V"
    
17.     End With
    
18.     End If
    
19. End Sub

½Æ»s¥N½X

mark15jill

oobird¤j¤j ©Òµoªºµ{¦¡½X´N¬O¼Ó¥D­nªº®ÄªG¤F...
¦Ó¥Bµ{¦¡ºë²«Ü¦h
¦pªG­n´M§ä¨ä¥LÃöÁä¦r §â john§ï±¼§Y¥i..

wuwulang

¦^´_ 3# oobird


ÁÂÁ§A
¦ý¬O§Ú¥u­nAÄæ¦ì¦³¥X²{john®É
¦bBÄ樺Ãä¤~·|¥´¤Ä
¨º§ÚÀ³¸Ó­n«ç»ò°µ©O?

oobird

¥[¤W¥k°¼¥´¤Ä

1. Sub yy()
   
2. With Application.ReplaceFormat.Interior
   
3.         .ColorIndex = 3
   
4.     End With
   
5.    Cells.Replace What:="john", Replacement:="=1/0", ReplaceFormat:=True
   
6.    With Cells.SpecialCells(xlCellTypeFormulas, 16)
   
7.    .Value = "john"
   
8.    .Offset(, 1) = "¡Ô"
   
9.    End With
   
10. End Sub

½Æ»s¥N½X

mark15jill

¥Î­Ó·s¤âªº¤èªk..
'¦pªG ¦³¥X²{john «h ¸ÓÀx¦s®æ­I´º¦â¬° ¬õ¦â  <--»¡©ú
    With Application.ReplaceFormat.Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Cells.Replace What:="john", Replacement:="john", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True