[µo°Ý] ½Ð°ÝÀx¦s®æ¸ê®Æ¤ñ¹ï

b9208

NN.rar (1.43 KB)

¤U¸ü¦¸¼Æ: 7

2011-11-24 20:13

¦pCÄæ®Æ¸¹¡A±N¥X²{¬Û¦P®Æ¸¹¤§Àx¦s®æ¶ñº¡¶À¦â¼Ð¥Ü¡C
ÁÂÁÂ

GBKEE

¦^´_ 1# b9208
¤u§@ªí ¤¤¿ï¾ÜCÄæ«á
¤u§@ªí«ü¥O ®æ¦¡->³]©w®æ¦¡¤Æªº±ø¥ó   
¤½¦¡=COUNTIF(C:C,C1)>1
¦p¹Ï

¤U¸ü (110.56 KB)

2011-11-24 20:40

1. Sub Ex()
   
2.     Dim E As Range
   
3.     For Each E In Range("c2", [c2].End(xlDown))
   
4.         If Application.CountIf([c:c], E) > 1 Then
   
5.             E.Interior.ColorIndex = 6
   
6.         Else
   
7.             E.Interior.ColorIndex = xlNone
   
8.         End If
   
9.     Next
   
10. End Sub

½Æ»s¥N½X

b9208

¦^´_ 2# GBKEE
«D±`·PÁÂ GBKEE ¤j¤j
µ{¦¡½X¥i¥H¨Ï¥Î
:)
:P

b9208

¦^´_ 2# GBKEE
¦A½Ð±Ð¤ñ¹ïµ²§ô«á¡A
²Î­pCÄ椤¶À¦âÀx¦s®æ¼Æ¶q¡C
ÁÂÁÂ

GBKEE

¦^´_ 4# b9208

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim E As Range, S As Integer
   
4.     For Each E In Range("c2", [c2].End(xlDown))
   
5.         If Application.CountIf([c:c], E) > 1 Then
   
6.             E.Interior.ColorIndex = 6
   
7.             S = S + 1
   
8.         Else
   
9.             E.Interior.ColorIndex = xlNone
   
10.         End If
    
11.     Next
    
12.     If S > 0 Then MsgBox "­«½Æ¶µ¥Ø­p : " & S
    
13. End Sub

½Æ»s¥N½X

b9208

¦^´_ 5# GBKEE

¤µ¦­·f¨®¤W¯Z³~¤¤¡A¤w·Q¨ì¥[¤J­p¼Æ¾¹¡A´N¥i¸Ñ¨M¤F¡C
¬Ý¨ìª©¤j¼ö¤ßªºÀ°¦£§¹¦¨¡C
´N¥Ì¤ß
ÁÂÁª©¤j

Hsieh

¦^´_ 6# b9208


    NN.zip (2.27 KB)

¤U¸ü¦¸¼Æ: 12

2011-11-25 10:20