- ©«¤l
- 80
- ¥DÃD
- 27
- ºëµØ
- 0
- ¿n¤À
- 108
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2012-3-6
- ³Ì«áµn¿ý
- 2012-8-23
|
¦b³Ð·s°Ó¾÷«ü¼ÆGÄ椤¦³Y¤zªº¼ÆÈ¡A§Ú·Q±q¤¤¿ï¥X2ӳ̤jªº¼ÆȨ泬õ¦âºô©³¡C
¿ï¥X¨Óªº¼ÆÈ©ñ¸m©órange(M1:M2), range("I1")=2¬O§Ú±N¿ï¥XªºÓ¼Æ¡C
¦pªG GÄ椤ªº¼Æȵ¥©órange(M1:M2)´Nµ¹¤©¬õ¦âºô©³
¥H¤U¬O¬ÛÃöµ{¦¡½X¡G
sub ex()
Dim myrange As Range
Dim U As Range
Dim zzz as string¡Asss as string
Dim w As Single
Dim q As Single
mmm = Chr(77)
Set myrange = Range("G3:G11" ) '³]©w½d³ò
w = Application.WorksheetFunction.Max(myrange) '¨ú³Ì¤j¼ÆÈ
Range("M1").Value = w
For Z = 2 To 2 '¨ú²Ä¤G¤j¼ÆÈ
zzz = Z
q = Application.WorksheetFunction.Large(myrange, Z)
Range(mmm & zzz).Value = Format(q, "00.00")
Next
With ActiveSheet
For Each U In .Range("G3:G200")
For s = 1 To 2
sss = s
If U = Range(mmm & sss).Value Then
U.Interior.ColorIndex = 3
Else
U.Interior.ColorIndex = xlNone
End If
Next
Next
End With
End sub
°õ¦æµ²ªG«o¥u¦³gÄ椤1.42ªº¼ÆÈ©³¦â¬°¬õ¦â¡A1.5«o¨S¦³¡A¤@ª½§ä¤£¥Xì¦]¡I¡I |
-
-
ªí6-3.rar
(56.51 KB)
|