¦p¦óºâ¥XÅã¥Ü²Ä´X¦W¨ÃÅã¥Ü²ÄX¦W

show5217

¤U¸ü (179.81 KB)

2018-12-13 20:17

show5217

¦p¦óºâ¥XIÄæ¬O²Ä´X¦W, ¤ñ¦p²Ä¤@¦W·|Åã¥Ü  ²Ä¤@¦W¦Ó¤£¬O1

show5217

°£¤F³o­Ó¤èªk¥i¥H¥Î¨ç¼Æ¥N¶Ü

¤U¸ü (350.14 KB)

2018-12-14 06:52

p212

¦^´_ 2# show5217
±Nªü©Ô§B¼Æ¦rÂà´«¦¨¡u¤@¡B¤G¡B¤T¡B¥|...¡v®æ¦¡
¨Ï¥Î
=TEXT(­n³]©w®æ¦¡ªº­È,"[DBNum1]0")
½Ð°Ñ¦Ò¡I

­ã´£³¡ªL

·QÅã¥Ü¬°:²Ä¤@¦W..²Ä¤G¦W.....
1) ¦Û­q®æ¦¡: ²Ä¤Q¦W¦Ü²Ä¤Q¤E¦W, ·|Åã¥Ü¬° ²Ä¤@¤Q¦W, ²Ä¤@¤Q¤@¦W...²Ä¤@¤Q¤E¦W
2) ¥Î¨ç¼ÆTEXTÂà´«®æ¦¡¬O¥i¥H¥[¤u³B²z, ¦ý¨ä­È¬°¤å¦r®æ¦¡, µLªk±Æ§Ç¤Î«áÄò¹Bºâ

show5217

¦^´_ 5# ­ã´£³¡ªL

ÁÂÁ¤j¤j §Ú¬ã¨s¤F¤@¤U¥Î
Private Sub CommandButton1_Click()


Range("j2:j100").Clear

For I = 2 To 11

Cells(I, 10).Value = "=Rank(I" & I & " ,I$2:I$11" & "" & ")"

Next

End Sub


Private Sub CommandButton2_Click()
Dim Str As Variant
Dim X As Long, Y As Integer, Z As Integer
Dim NX As Long, NA As Integer

Str = "1=²Ä¤@¦W 2=²Ä¤G¦W 3=²Ä¤T¦W"
Str = Split(Str)
NA = UBound(Str)

For Y = 2 To 11
NX = Cells(65536, Y).End(xlUp).Row

show5217

¦^´_ 5# ­ã´£³¡ªL

§Ú°Ñ¦Ò¥ÎIF(COUNTIF(I$2:I$11,">"&I2)+1=1,"²Ä¤@¦W",IF(COUNTIF(I$2:I$11,">"&I2)+1=2,"²Ä¤G¦W",IF(COUNTIF(I$2:I$11,">"&I2)+1=3,"²Ä¤T¦W",COUNTIF(I$2:I$11,">"&I2)+1)))   ÁÂÁ¤j¤j

show5217

¦^´_ 4# p212

¦h¾Ç¤@©Û ÁÂÁÂ