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

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

¦^´_ 14# Hsieh


    ÁÂÁª©¥D
±a¤J­ì¸ê®Æ«á
®æ¦¡µLªk³]©w..¨BÆJ­þ¸Ì¦³°ÝÃD?
¬O®t¦b"O"Ä檺³]©w¶Ü?
ÁÂÁ±z...



TOP

¦^´_ 13# PD961A
¦b­ì¨ÓªºÄæ¦ì

    ½Æ¥» ¥Í²£­pµeªí.rar (14.86 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 12# Hsieh

ÁÂÁª©¥D
¤@©w­n¦A·s¼W¤@Äæ¥[¤J¤½¦¡?
¤£¥Î®æ¦¡±ø¥óÅã¥Ü(§Æ±æ¯à¤£¥ÎÅã¥Ü¤Ó¦hªºÃC¦â..)
¨º¥ÎÅçÃÒÁקK¿é¤J­«½Æ¬Ý¯à§_±µ¨ü

ÅçÃÒªº³¡¥÷¤]¬O·s¼W¤@Äæ¶Ü?
ÁÂÁ±z..

TOP

¦^´_ 9# PD961A
­n¨Ï¥Î¤½¦¡¥²»Ý¦b·s¼W¤@Äæ¨Ï¥Î
¤£¥Î®æ¦¡±ø¥óÅã¥Ü
¨º¥ÎÅçÃÒÁקK¿é¤J­«½Æ¬Ý¯à§_±µ¨ü
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 10# wqfzqgk


    «D±`ÁÂÁ±z
¦ý¬O°õ¦æ¨BÆJ­þ¸Ì¦³°ÝÃD
¨S¦³
¥X²{"­«½Æ§å¸¹"
ÁÂÁ±z.... ½Æ¥» ¥Í²£­pµeªí.rar (15.91 KB)

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

¦^´_ 8# wqfzqgk

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

    ·PÁ±z....

TOP

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

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

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

gong.rar (22.17 KB)

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

TOP

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD