linshin1999

¦^´_ 1# candy516

Sub ´M§ä²Å¦X±ø¥óªºÀx¦s®æ()
    Dim rg As Range
    Dim find_str As String
   
    find_str = "ÂE®ü"
    For Each rg In ActiveSheet.UsedRange
        If rg.Value Like find_str Then
             Union(Selection, rg).Select
        End If
    Next
End Sub

linshin1999

¤ì¤uª©¥D§A¦n:¦³Ãö Interior.ColorIndex ¨º¸Ì¥i¥H§ä¨ì List, ¦pªGª¾¹D½Ð§iª¾,ÁÂÁÂ!!

linshin1999

¦^´_ 4# candy516


    candy©p¦n:­º¥ý©p­n½T©w ColorIndex ¬O¤£¬O¤ì¤uª©¥D©Ò´£¨Ñªº "6", ¦]¬°¶À¦â¦³«Ü¦hºØ¶À,¦pªG¬O¦b³o¸Ì¥X°ÝÃD¨º¥i·|Åý©p¥Õ¦£¤F,¬Ý¤F¤ì¤uª©¥Dªºµ{¦¡À³¸Ó没°ÝÃD,§Ú´£¨Ñµ¹©pªº¬O¤w¸gª¾¹DÀx¦s®æªº¤º®e,©Ò¥H¥Î "ÂE®ü" ¥h§ä, ¦]¬°©p¨Ã没´£¨Ñ ColorIndex ­È, ©p¤]¥i¥H¥Î¤ì¤uª©¥Dªºµ{¦¡,µM«á±N ColorIndex §ï¤@§ï¸Õ¸Õ¬Ý.

linshin1999

¦^´_ 8# oobird


    Á¤F!!

linshin1999

candy©p¦n:§Ú¾Ç·|¤F¨ú±oÀx¦s®æÃC¦âªº¤èªk,¦pªG¤@©w­n¥ÎÃC¦â§äªº¸Ü,¥i¥H¸Õ¸Õ¬Ý:

Dim mycolor As long
      mycolor = Activecell.Interior.color

¦p¦¹©p´N¥i¥H¨ú±o¥Ø«eÀx¦s®æªºÃC¦â,µM«á±N³o­Ó­È±a¶i¥h¤ì¤uª©¥Dªºµ{¦¡¥h¸Õ¸Õ¬Ý§a!
Sub YY()
Application.FindFormat.Interior.ColorIndex = Activecell.Interior.color
With ActiveSheet
For i = 1 To .Columns.Count
Set c = .Columns(i).Find(What:="", After:=.Cells(65536, i), SearchDirection:=xlNext, SearchFormat:=True)
If Not c Is Nothing Then MsgBox c.Address
Next
End With
End Sub

­ì¨Ó¤w¸g§ä¨ìµª®×¤F,§Ú没¦³¬Ý¨ìÁÙ¦³²Ä¤G­¶,¯u¤£¦n·N«ä,¥i¬O¤w¸g¦¬¤£¦^¨Ó¤F,¤£¹L¤]¾Ç·|¤F¦p¦ó¨ú±oÀx¦s®æªºÃC¦â!