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

[µo°Ý] ½Ð°Ý·íA1¿é¤J¼Æ¦r4®É§ä¥X¤U¦C¸ê®Æ¦P¼Æ¦rªº¤½¦¡

¦^´_ 10# victorl
¦^´_ 9# kimbal

ÁÂÁ victorl¤Î kimbal¥ý¶iªº¦^¤å
kimbal±zªºÀÉ®×¥i¥H¥Î¦ý¬O·|¥X²{victorl©Ò»¡ªºÃC¦âµLªk®ø°£
¤£¹L§Ú§âvictorl¥S¼gªºµ{¦¡½X¥[¤J«á·|µLªk°õ¦æ

ÁÂÁ±z­Ìªº¦^¤å

TOP

¦^´_ 6# GBKEE


    ÁÂÁÂGBKEEª©¥D
·Ó±z»¡ªº¨BÆJÀÉ®×¥i¥H¾A¥Î
¦ý¬O¥i¥H¦A½Ð°Ý±z
§Ú±NÄæ¦ì©ñ¤j
©Ò¥Hµ{¦¡½Xª½±µ­×¥¿¨ì"L"Äæ¥h..¥i¬O·|µLªk°õ¦æ
¥i¥H½Ð±z«ü¾É¶Ü?ÁÂÁ±z...




TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2010-7-15 11:13 ½s¿è

¦^´_ 12# PD961A
1.rar (10.87 KB)
¥H²Ä¤@¦CÃC¦â°µ§PÂ_
¥ý©w¸q¦WºÙx
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Set d = CreateObject("Scripting.Dictionary")
  3. For Each a In Range([A1], [IV1].End(xlToLeft))
  4. d(a.Value) = a.Interior.ColorIndex
  5. Next
  6. [x].Interior.ColorIndex = 0
  7. If Intersect(Target, Union([x], Range([A1], [IV1].End(xlToLeft)))) Is Nothing Then Exit Sub
  8.    For Each a In [x]
  9.      a.Interior.ColorIndex = d(a.Value)
  10.    Next
  11. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 13# Hsieh


    ª©¥DÁÂÁ±z
µ{¦¡RUN«á¥i¥H¾A¥Î
ÁÂÁ±z

TOP

¦^´_ 12# PD961A


§Ú±NÄæ¦ì©ñ¤j ©Ò¥Hµ{¦¡½Xª½±µ­×¥¿¨ì"L"Äæ¥h..¥i¬O·|µLªk°õ¦æ
  
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=OR(A2=$A$1,A2=$B$1,A2=$C$1,A2=$D$1,A2=$E$1,A2=$F$1,A2=$G$1,A2=$H$1,A2=$I$1,A2=$J$1,A2=$K$1,A2=$L$1)"

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD