ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦ó¤~¯à§ä´M©Ò­nªº¸ê®Æ¨Ã¦bÀx¦s®æ¶î¦â?

[µo°Ý] ¦p¦ó¤~¯à§ä´M©Ò­nªº¸ê®Æ¨Ã¦bÀx¦s®æ¶î¦â?

¥Î­Ó·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

TOP

¥»©«³Ì«á¥Ñ oobird ©ó 2011-4-27 15:01 ½s¿è

¥[¤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

TOP

¦^´_ 3# oobird


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

TOP

¥»©«³Ì«á¥Ñ mark15jill ©ó 2011-4-28 08:32 ½s¿è

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

TOP

¥»©«³Ì«á¥Ñ chin15 ©ó 2011-4-28 08:41 ½s¿è

¬Ý°_¨ÓÀ³¸Ó¬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

TOP

­è­è§â 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)

TOP

¨C¤@©«­n¤ñ¹ïªº¦ì¸m³£¤£¤@¼Ë
¤£ª¾¸Ó¦^ÂЭþ¤@©«
³Ì«á¤@©«ªº¡G
Sub module1()
Dim yy As Range, data As Range
For Each yy In Range([a1], [a65535].End(3))
Set c = [b:b].Find(yy, , , 1)
If Not c Is Nothing Then
           If data Is Nothing Then
           Set data = c
        Else
          Set data = Union(data, c)
        End If
     End If
Next
    If Not data Is Nothing Then
    With data
        .Interior.ColorIndex = 3
        .Offset(, 1) = "V"
    End With
    End If
End Sub

TOP

0.0 §Ú³Ì«áµoªº©« ¬O¥Ñ chin15¤j¤j ªº¤è¦¡ ¥[¥H©µ¦ù..
¼Ó¥Dªº¨â­Ó»Ý¨D
(­YDÄæÀx¦s®æ¦³AÄ檺­È  «h¦bBÄæ ¬Û¹ïÀx¦s®æ¥´¤Ä)
¥u¬O·|¦³ÂI¤p»~§P¦Ó¤w «¢«¢><!
­è­è¸ÕÅç+À³¥Î À³¸Ó»~§P¾÷²v«Ü§C...°£«D¬O¼Æ¦r..

TOP

«Ü·PÁ¦U¦ì¤j¤jªºÀ°¦£...ÁÂÁ§A­Ì
«á¨Ó§Ú¦b¦VªB¤Í´M°Ý®É
¥L¤~¸ò§ÚÁ¿¡A³o¬O¨â­ÓÃD¥Ø¬O¤À¶}ªº¡Ö¡Ä¡Õ

²Ä¢±ÃDÃD¥Ø§ÚªB¤Í¬OÁ¿
½Ð°Ý¡G
1.¡@­YDÄ檺¤º®e¥X²{¦bA,«h¦b¾F¦C¥X²{V¦r¼Ë
2.¡@for  i =1 to 3¡A¶]3­Ó°j°é¡A¦³¨S¦³¬Ûµ¥¡A­Y¦³¡A½Ð¥´V¡C

¤£¥Î¶î¦â¡C¢ß¡Ä¢ß

TOP

        ÀR«ä¦Û¦b : ¦³Ä@©ñ¦b¤ß¸Ì¡A¨S¦³¨­Åé¤O¦æ¡A¥¿¦p¯Ñ¥Ð¤£¼½ºØ¡A¬Ò¬OªÅ¹L¦]½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD