[µo°Ý] Ãö©ó¿z¿ï»P¨ä­I´ºÃC¦â³]©w°ÝÃD

mark15jill

·Q½Ð°Ý¤@¤U ´N¬O¦³Ãö©ó¿z¿ï©M­I´ºÃC¦âªº°ÝÃD
¦]¬°§Ú·Q³]©w¤£¦P¤H´N¦³¤£¦Pªº­I´ºÃC¦â
·Q½Ð°Ý °²¨Ï ¨CºØ³£­n¤£¦Pªº­I´ºÃC¦â
¨º­n¦p¦ó¥h§PÂ_
¤p§Ì¦³¸ÕµÛ¥h¼g
¦ý¬O«o³£¥u·|§e²{¤@ºØ
®æ¦¡¨Ò¦p
a        b        c
1        1        1
2        2        2
3        3        3
4        4        4
5        5        5
6        6        6
7        7        7
8        8        8
9        9        9
10        10        10
11        11        11
12        12        12
13        13        13
14        14        14
15        15        15
16        16        16
17        17        17
18        18        18
19        19        19

¨Ò¦p¦bVBAª½±µ±N ¿z¿ïªº±ø¥ó§ï¬°C7ªº¸Ü ­I´º¬°¬õ¦â
¦bVBAª½±µ±N ¿z¿ïªº±ø¥ó§ï¬°C9ªº¸Ü ­I´º¬°µµ¦â

Hsieh

¦^´_ 1# mark15jill
ÃC¦âµ¹­Ó³W«h°µ¦¨¦Cªí
¥ÎSUBTOTAL¨ÓIJµoWorksheet_Calculate¨Æ¥ó
¦p¹Ï

¤U¸ü (17.5 KB)

2011-4-18 22:20

mark15jill

ª©¥D §Úª¾¹D±z»¡ªº·N«ä
¥i¬O ¦]¬°³o­Ó³¡¥÷¬O·Q»¡¸ê®Æª½±µ¿ë§O¥X¨Ó(¦]¦³¶W¹L¤W¤dµ§)
¦Ó¥B¬¡­¶Ã¯¤]¨S¨º­ÓªÅ¶¡¦h¥X¨º­Ó
©Ò¥H¤~·Q»¡¯à§_¥Î¤@­Ó³q¥Îªº¥¨¶°¼g¥X¨Ó
³o¼Ë¤~¤ñ¸û¦n¿ëÃÑ
·PÁ±z

oobird

ÃC¦â¥u¦³56ºØ
¤£¯àÀ³¥I¶W¹L1000µ§¤£¦PÃC¦âªº

mark15jill

¤£¦n·N«ä ¤j·§§Ú¨S§â·N«äªí¹F²M·¡
§Ú­«·sªí¹F¤@¦¸
®æ¦¡¨Ò¦p
a        b        c
1        1        Q
2        2        W
3        3        E
4        4        R
5        5        T
6        6        Q
7        7        W
8        8        E
9        9        R
10      10       T

¦Ó C ªººØÃþ ¥u¦³5ºØ
a©Mb¸ê®Æµ§¼Æ«o¦³¤W¤dµ§
(¦n¤ñ¦³5­Ó¤H ­n³B²z 1¤dµ§¸ê®Æªº·N«ä)
ÁÂÁÂ

oobird

Sub yy()
    Dim x$, i%, c As Range
    x = "QWERT"
    With [c:c]
        For i = 1 To 5
            Set c = .Find(Mid(x, i, 1), [c65536], , 1)
            If Not c Is Nothing Then
                d = c.Address
                Do
                    c(1, -1).Resize(, 3).Interior.ColorIndex = i + 2
                    Set c = .FindNext(c)
                Loop Until c.Address = d
            End If
        Next
    End With
End Sub

GBKEE

Sub yy()
    Dim x$, i%, c As Range
    x = "QWERT"
    For Each c In Range("c:c").SpecialCells(xlCellTypeConstants)
        i = InStr(x, UCase(c))
        If i Then c(1, -1).Resize(, 3).Interior.ColorIndex = i + 2
    Next
End Sub

mark15jill

ÁÂÁ¨â¦ìª©¥D
·Q¦A½Ð°Ý¤@¤U Ãö©ó
x= "QWERT"    ³oÂI ¬O­nª½±µ³]¦b¤@°_?
¨º¦pªG¬O¤¤¤åªº¸Ü ­n«ç°Ï¤À©O?
¥t¥~ ÃC¦â³]¸m³oÃ䪺¸Ü interior.colorindex=i+2 ³o¦ê¬O? ¹ï¤£°_¯uªº¤£À´...

GBKEE

¦^´_ 8# mark15jill

1. Sub Ex()
   
2.     Dim x(), i, c As Range
   
3.     x = Array("³¯¤@", "®}¤G", "±i¤T", "§õ¥|", "¤ý¤­")
   
4.     For Each c In Range("c:c").SpecialCells(xlCellTypeConstants)
   
5.         i = Application.Match(c, x, 0)
   
6.         If IsNumeric(i) Then c(1, -1).Resize(, 3).Interior.ColorIndex = i + 2  '¦â½L¤¤ªº¯Á¤Þ­È
   
7.     Next
   
8. End Sub

½Æ»s¥N½X

Hsieh

2007ª©¥i¨Ï¥ÎInterior.ColorÄÝ©Ê
§Q¥Î¦r¤¸½X¨Ó°Ï§O

1. Private Sub Worksheet_Calculate()
   
2. For r = 2 To Cells(Rows.Count, 3).End(xlUp).Row
   
3. For i = 1 To Len(Cells(r, 3))
   
4.    k = k + Asc(Cells(r, 3))
   
5. Next
   
6.    Cells(r, 1).Resize(, 3).Interior.Color = 10000000000# / k
   
7.    k = 0
   
8. Next
   
9. End Sub

½Æ»s¥N½X