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

½Ð°Ý¡G¦p¦ó´M§ä¶À¦â©³¦âªºÀx¦s®æ?!

½Ð°Ý¡G¦p¦ó´M§ä¶À¦â©³¦âªºÀx¦s®æ?!

¥»©«³Ì«á¥Ñ candy516 ©ó 2011-1-16 23:55 ½s¿è

¦U¦ì¤j¤j§A­Ì¦n~
½Ð°Ý­n¦p¦ó´M§ä¶À¦â©³¦âªºÀx¦s®æ©O?
§Ú²{¦b¥i¥H´M§äªºÀx¦s­Óªº¤º®e~
(¤ñ¤è»¡§ä¨ì:ÂE®ü:)
Cells.Find(What:="ÂE®ü", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
¦ýÁÙ¬OµLªk¼g¥X"§ä¥X¶À©³ªºÀx¦s®æ"?
½Ð°Ý§Ú¸Ó§ï­þ¸Ì©O?
:(

test(2003).rar (369.9 KB)

¦^´_ 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
V98

TOP

Application.FindFormat.Interior.ColorIndex = 6
Cells.Find(What:="", After:=[a1], SearchDirection:=xlNext, SearchFormat:=True).Select

TOP

¥»©«³Ì«á¥Ñ candy516 ©ó 2011-1-17 00:12 ½s¿è

¤j¤j§A­Ì¦n~
    ®Ú¾Ú¥H¤W¨â¦ì¤j¤jªº¤èªk§ÚÁÙ¬OµLªk¥¿½T§ä¥X¶À¦â©³¦âªºÀx¦s®æ¡A
¦b¦¹§Úªþ¤WÀɮסA§ÚÁ|¨Ò¤@¤U¡G¹³¬O2010ªºSHEET¤¤¡AAÄ檺1225 ºÖÀ·ªo¡A
¶À©³¬O¦b2010/9/7¡A§Ú¥²¶·¥ý¥Îµ{¦¡§ä¥X³o¤@­ÓÀx¦s®æ¡AµM«á¦A¥h§@¹Bºâ!
    ¥i¬O§Ú¸Õ¤F¦n¤[¡A³£¨S¿ìªk§ä¥X¨Ó­C!:(
ÁÂÁ§A­Ì­@¤ß¦^µª~

TOP

Sub YY()
Application.FindFormat.Interior.ColorIndex = 6
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

TOP

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

TOP

¦^´_ 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 §ï¤@§ï¸Õ¸Õ¬Ý.
V98

TOP

¤ì¤uª©¥D§A¦n:¦³Ãö Interior.ColorIndex ¨º¸Ì¥i¥H§ä¨ì List, ¦pªGª¾¹D½Ð§iª¾,ÁÂÁÂ!!
linshin1999 µoªí©ó 2011-1-17 09:25



    For I = 1 To 56
Cells(I, 1).Interior.ColorIndex = I
Next
³o¼Ë¶]¤@¤U´N¦³¤F

TOP

¦^´_ 8# oobird


    Á¤F!!
V98

TOP

¦^´_ 4# candy516

¦]¬°2007»P2003¹ïÃC¦âªº³]©w®t§O¬Û·í¤j
©Ò¥H°£«D§A¬O¥HÀx¦s®æ®æ¦¡°µ·j´M
­Y¥Hcolorindex­È·j´M´N·|¥¢¥h·Ç½T©Ê
©Ò¥H¦b©p¥t¤@©«¤¤§Ú¥Hsheet1¼Æ¾Ú¨Ó·j´M·|¤ñ¸û·Ç½T
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡µLªk¾B¾×¡j©È®É¶¡®ø³u¡Aªá¤F³\¦h¤ß¦å¡A·QºÉ¦U¦¡¤èªk­n¾B¾×®É¶¡¡Aµ²ªG¬O¡G®ö¶O¤F§ó¦h®É¶¡¡A¥B¤@µL©Ò¦¨¡I
ªð¦^¦Cªí ¤W¤@¥DÃD