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

¸¹½X¬D¿ï

¸¹½X¬D¿ï

¦³1~25ªº¼Æ¦r(¦ü»«ªG½Lªº¤è¦¡)¡AÂI¿ï³Q©â¤¤ªº¼Æ¦r«á¡A¥L·|¦Û°ÊÅã¥Ü¥X¦b¥t¥~¤@±Æ~
¬O§_»Ý­n¥Îvba¤è¦¡¥h³]©w©O??

§e²{¤è¦¡¦pªþÀÉ¡C

¦A³Â·Ð¦U¦ì¤j¤j­Ì¸Ñµª~·PÁÂ!!

¸¹½X¬D¿ï.rar (6.21 KB)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [g7] <> "" Then [c7:g7] = ""
If Not Intersect(Target, [C13:g17]) Is Nothing Then
[c7:g7].SpecialCells(4)(1) = Target
End If
End Sub

TOP

¦n¼F®`!!
·PÁ oobird¤j¤j ¸Ñµª¤F§Úªº°ÝÃD!!

TOP

¥»©«³Ì«á¥Ñ kelsie ©ó 2010-12-8 15:20 ½s¿è

·Q¦A°Ý~¦pªGc7:g7¿ï¥X¨Óªº5­Ó¼Æ¦r~
­n¥t¥~¦bc8:g8¶i¦æ¤j¤p±Æ§Çªº¸Ü(¤p->¤j)
¸Ó¦p¦ó¶i¦æ??

p.s §Ú¥»¨Ó¬Oª½±µ¦b¨º¦æªí®æ¤ºª½±µ¤Usmall¨ç¼Æ
¦ý·Qª¾¹D«áºÝvba¥i¥H«ç»ò¶i¦æ??

TOP

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [g7] <> "" Then [c7:g8] = ""
If Not Intersect(Target, [C13:g17]) Is Nothing Then
[c7:g7].SpecialCells(4)(1) = Target
End If
If [g7] <> "" Then
[c8:g8] = [SMALL(c7:g7,column(a1:e5))*column(a1:e1)^0]
End If
End Sub

TOP

·PÁÂoobird¤j¤j~~

If [g7] <> "" Then
[c8:g8] = [SMALL(c7:g7,column(a1:e5))*column(a1:e1)^0]
(³o¬qªº¥Î·N¬O??)
End If

TOP

¥Î·N´N¬O·í5­Ó¶ñº¡®É¦b¤U¤@¦C±Æ§Ç¡C

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-12-8 16:43 ½s¿è
[SMALL(c7:g7,column(a1:e1))*column(a1:e1)^0]oobird µoªí©ó 2010-12-8 15:31

oobird ª©¥D:
²Ä¤@¦¸¬Ý¨ì°}¦C¤½¦¡¥ÎVBA¼g¦b¤u§@ªí¤W¥uÅã¥Ü­È¦Ó¨S¦³¤½¦¡
¥i§_¸ÑÄÀ ¤@¤U "*column(a1:e1)^0"ªº¹B§@±¡§Î
¤Î¤Þ¤¶Ãþ¦üªºVBA°}¦C¤½¦¡.Åý¤p§Ì¨£ÃѨ£ÃÑ.
ÁÂÁ§A

TOP

¨ä¹ê´N¬Oµ¥©ó®Ø¿ï¨º5­ÓÀx¦s®æ¿é¤J°}¦C¤½¦¡=SMALL(C7:G7,COLUMN(A1:E1))*COLUMN(A1:E1)^0
¦bvba¤¤¥Î¤¤¬A¸¹§â¤½¦¡®Ø°_¨Ó´N·|ª½±µ±o¨ì¤½¦¡ªº­È¡C¦Óvba¤¤¦h­ÓÀx¦s®æ¦P®É¼g¤J¤@­Ó¤½¦¡®É«á­±*COLUMN(A1:E1)^0´N¥²¶·ªº¡A¤~¤£­P¦¨¬°²Ä¤@­Ó­È¡C

TOP

¦^´_ 9# oobird
ÁÂÁ§Aªº»¡©ú

TOP

        ÀR«ä¦Û¦b : ¥¬¬I¦p¼½ºØ¡A¥HÅw³ß¤ß´þ¼íºØ¤l¡A¤~·|µoªÞ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD