½Ð°Ý¡G¦p¦ó´M§ä¶À¦â©³¦âªºÀx¦s®æ?!
- ©«¤l
- 47
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 116
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- office2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-1-14
- ³Ì«áµn¿ý
- 2012-3-10
|
½Ð°Ý¡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?
:( |
|
|
|
|
|
|
- ©«¤l
- 199
- ¥DÃD
- 45
- ºëµØ
- 0
- ¿n¤À
- 252
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 7 (X64)
- ³nÅ骩¥»
- office 2010 (x64)
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2010-12-24
- ³Ì«áµn¿ý
- 2020-3-31
|
¦^´_ 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
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
Application.FindFormat.Interior.ColorIndex = 6
Cells.Find(What:="", After:=[a1], SearchDirection:=xlNext, SearchFormat:=True).Select |
|
|
|
|
|
|
- ©«¤l
- 47
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 116
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- office2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-1-14
- ³Ì«áµn¿ý
- 2012-3-10
|
¥»©«³Ì«á¥Ñ 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Ì@¤ß¦^µª~ |
|
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
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 |
|
|
|
|
|
|
- ©«¤l
- 199
- ¥DÃD
- 45
- ºëµØ
- 0
- ¿n¤À
- 252
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 7 (X64)
- ³nÅ骩¥»
- office 2010 (x64)
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2010-12-24
- ³Ì«áµn¿ý
- 2020-3-31
|
¤ì¤uª©¥D§A¦n:¦³Ãö Interior.ColorIndex ¨º¸Ì¥i¥H§ä¨ì List, ¦pªGª¾¹D½Ð§iª¾,ÁÂÁÂ!! |
|
V98
|
|
|
|
|
- ©«¤l
- 199
- ¥DÃD
- 45
- ºëµØ
- 0
- ¿n¤À
- 252
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 7 (X64)
- ³nÅ骩¥»
- office 2010 (x64)
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2010-12-24
- ³Ì«áµn¿ý
- 2020-3-31
|
¦^´_ 4# candy516
candy©p¦n:º¥ý©pn½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
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
¤ì¤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 |
|
|
|
|
|
|
- ©«¤l
- 199
- ¥DÃD
- 45
- ºëµØ
- 0
- ¿n¤À
- 252
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 7 (X64)
- ³nÅ骩¥»
- office 2010 (x64)
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2010-12-24
- ³Ì«áµn¿ý
- 2020-3-31
|
|
V98
|
|
|
|
|