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

[µo°Ý] ½Ð°Ý¦p¦ó§ä¥X­«½Æ§å¸¹

¦^´_ 29# gong

ÁÂÁÂGONGª©¥D
    ¸ê®Æ¿ù¤F¤@¦ì
À³§ï¦¨=COUNTIF($G$13:$G13,$G13)>1
©Î§ï¬°=COUNTIF($G$12:$G12,$G13)>=1
¦pªG±q13¦C¶}©l§Y¥]§t¥»¨­,¤½¦¡­n§â>=1,ªº"="®³±¼¤~·|¥¿½TÅã¥Ü
©Ò¥H³o¬O¿ù»~ÂIªº¦a¤è
«D±`ÁÂÁ±z...

TOP

¦^´_ 22# PD961A
¬JµM¤£·Q¦h¤@Äæ¿é¤J¤½¦¡,¦Ó±Ä¥ÎVBA,¤S©ÈÃC¦â¤Ó¶Ã,¤S­nª¾¹D­þ´X®æ­«½Æ,¨º´N¥Îµù¸Ñª«¥óÀx¦s¦p¦ó?
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Dim Rng As Range, A As Range, d As Object
  3. Set d = CreateObject("Scripting.Dictionary")
  4. If Target.Column <> 7 Then Exit Sub
  5. For Each A In Range("G13:G65536").SpecialCells(xlCellTypeConstants)
  6. If Application.CountIf(Columns("G"), A) > 1 Then
  7.   If IsEmpty(d(A.Value)) Then
  8.      Set d(A.Value) = A
  9.   Else
  10.      Set d(A.Value) = Union(d(A.Value), A)
  11.   End If
  12. End If
  13. Next
  14. For Each A In Range("G:G").SpecialCells(xlCellTypeConstants)
  15.    If Not IsEmpty(d(A.Value)) Then
  16.       For Each Rng In d(A.Value)
  17.          If Rng.Comment Is Nothing Then
  18.             Rng.AddComment.Text Text:=d(A.Value).Address(0, 0)
  19.             Else
  20.             Rng.Comment.Text Text:=d(A.Value).Address(0, 0)
  21.          End If
  22.       Next
  23.     End If
  24. Next
  25. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥¿³W¤Æ¸ê®Æªí

Äêªí®æ®`¤H


¤@¤p®É«á¾P·´
¦Ñ®L µoªí©ó 2010-7-12 07:58



    ÁÂÁ®Lª©¥D
§Ú·|§ï¶iªº
ÁÂÁ±z....

TOP

¦^´_  PD961A
¬JµM¤£·Q¦h¤@Äæ¿é¤J¤½¦¡,¦Ó±Ä¥ÎVBA,¤S©ÈÃC¦â¤Ó¶Ã,¤S­nª¾¹D­þ´X®æ­«½Æ,¨º´N¥Îµù¸Ñª«¥óÀx¦s¦p ...
Hsieh µoªí©ó 2010-7-11 23:12


ª©¥D
ÁÂÁ±z
µ{¦¡§ï¦n¤F¥i¥H¾A¥Î..



ÁÂÁÂ..

TOP

        ÀR«ä¦Û¦b : ¯¸¦b¥b¸ô¡A¤ñ¨«¨ì¥Ø¼Ð§ó¨¯­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD