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

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

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

½Ð°Ý¦U¦ì¥ý¶i
½Ð°Ý­n¦bGÄæ§ä¥X­«½Æ§å¸¹
¤½¦¡­n¦p¦ó¼g?
ÁÂÁÂ...

1.jpg
2010-7-7 07:52


¥Í²£­pµeªí.rar (13.06 KB)

¥Î条¥ó®æ¦¡
1.png
学习

TOP

¦^´_ 2# wqfzqgk


    ¤£¦n·N«äÁÂÁ±z
¥i¬O§Úªº2003¨S¦³"­«½Æ"³o­Ó®æ¦¡¥i¥H¿ï
1.jpg
2010-7-7 08:09

TOP

¦^´_ 3# PD961A


    ¤½¦¡¤¤输¤J=countif(g:g¡AG13)>1
学习

TOP

¦^´_ 4# wqfzqgk


    ÁÂÁ±z
¥i¥H¦A½Ð°Ý±z
±z³o­Ó¤½¦¡¿é¤J«á¥i¥H§ä¨ì1­Ó­«½Æªº
½Ð°Ý¥i¥H¦³¤½¦¡¬O¥u­n­«½Æªº§å¸¹³£Åã¥Ü¶Ü?
1.jpg
2010-7-7 08:44

ÁÂÁ±z..

TOP

g13
®æ¦¡¤Æ±ø¥ó=COUNTIF($G$13:$G13,$G14)>=1

gong.rar (22.17 KB)

ª¾¤§¬°ª¾¤§¡A¤£ª¾¬°¤£ª¾¡A¸Û¹ê¤]¡I

TOP

¦^´_ 6# gong


    ÁÂÁÂ¥ý¶iwqfzqgk¤Îª©¥Dªº¦^¤å
¤£¦n·N«ä
¥i¥H½Ð°Ý
¦Û­q®æ¦¡¤º®e¬O¥H¤å¦rÃC¦â¤Î¹Ï®×ÃC¦âÅã¥Ü¥h°Ï¤À§å¸¹­«½Æªº¦a¤è
¥i¥HÅý¥¦®æ¦¡¤º®e¤£¬O¥HÃC¦â¥h±oª¾­«½Æ§å¸¹
¦Ó¬OÅã¥Ü"­«½Æ§å¸¹"¶Ü?
(¥»¨­®æ¦¡¤w¸g»Ý­nÃC¦â¥h°Ï¤À²¾°Ê¶¶§Ç..¦A¼W¥[­«½Æ§å¸¹ªºÃC¦â·|«ÜÂø¶Ã..)
·PÁ±z....

TOP

¨º样ªº话¥i¥H¥Îworksheetªºselectionchang§@¤@µ{§Ç¡A¤@变¤Æ´N¦Û动¦^Î`«H®§¡A
¬O§_¦³­«Î`­È¡A¦}¥B¥Î颜¦â¥h标¥Ü¡C¥i¥H§@¤@µ{§Ç
学习

TOP

¦^´_ 8# wqfzqgk

ÁÂÁ±z....¥i¥H½Ð°Ý­n¦p¦ó¼g¤½¦¡?
    ¥i¥HÅý¥¦®æ¦¡¤º®e¤£¬O¥HÃC¦â¥h±oª¾­«½Æ§å¸¹
     ¦Ó¬OÅã¥Ü"­«½Æ§å¸¹"¶Ü?

    ·PÁ±z....

TOP

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 Then
roww = Target.Row
If Application.WorksheetFunction.CountIf(Range("g1:g" & roww), Target.Value) <> 1 Then
MsgBox "­«½Æ§å¸¹"
Target.Interior.ColorIndex = Application.WorksheetFunction.RandBetween(1, 50)
Else
Exit Sub
End If
End If
End Sub
学习

TOP

        ÀR«ä¦Û¦b : ¦³®É·í«äµL®É­W¡A¦n¤Ñ­n¿n«B¨Ó³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD