VBA & WorkSheetFunction.min ½Õ¥X°}¦C·¥¤pÈ
- ©«¤l
- 67
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 78
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- Excel 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-5-15
- ³Ì«áµn¿ý
- 2021-9-14
|
VBA & WorkSheetFunction.min ½Õ¥X°}¦C·¥¤pÈ
Dim ary(1 To 4) As Integer
ary(1) = 10
ary(2) = 15
ary(3) = 9
ary(4) = 11
Debug.Print WorksheetFunction.Min(Array(ary(2), ary(4)))
¥Øªº: ½Õ¥X °}¦C 2~ 4 ¤¤, ªº³Ì¤pÈ
¤W±¬O¿ù»~ªºµ{¦¡½X, ¥u¬O¦^¶Ç 11 , ¦Ó«D ¥¿½TÈ 9
µ{¦¡½XÁöµM¥i¥H§ï¦¨ Debug.Print WorksheetFunction.Min(Array(ary(2), ary(3), ary(4)))
¦ý«oµLªk¾A¦X©ó¤j«¬°}¦C¤¤.
¬O§_¦³¨ä¥Lªº¼gªk, ½Õ¤¤¤@ºû°}¦C¤¤, ¬Y¤@°Ï¬qªº·¥¤pÈ ?
|
|
|
|
|
|
|
- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
Debug.Print WorksheetFunction.Min(Array(ary(2), ary(4)))
¥Øªº: ½Õ¥X °}¦C 2~ 4 ¤¤, ªº³Ì¤pÈ
...
alumi µoªí©ó 2012-10-27 00:40
³Ìª½Ä±ªº¤èªk...- Dim i, minValue As Integer
- minValue = ary(2)
- For i = 2 To 4
- If ary(i) < minValue Then minValue = ary(i)
- Next i
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 67
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 78
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- Excel 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-5-15
- ³Ì«áµn¿ý
- 2021-9-14
|
¦^´_ alumi
¤W±¬O¿ù»~ªºµ{¦¡½X, ¥u¬O¦^¶Ç 11 , ¦Ó«D ¥¿½TÈ 9
¨S¦³¿ù°Ú !
Debug.Print WorksheetFu ...
GBKEE µoªí©ó 2012-10-27 07:05
¨ä¹ê±z»¡ªº¨S¿ù.
¥u¬O³æ¯Â¦a·Q§â ¤@¨Ç Excel ¥\¯à, ª½±µ ®M¤J VBA ¨Ó¨Ï¥Î.
¨Ò¦p:
debug.print WorkSheetFunction.Min(range(cells(5,"A") , cells(100, "A"))) ' ¶Ç¦^ Cells (5 ~ 100 ,"A") ªº³Ì¤pÈ
debug.print WorkSheetFunction.Min(ary) ' ÁöµM·|¶Ç¦^ °}¦C¤¤ªº³Ì¤pÈ, ¬O§_ ¯à°÷«ü©w °}¦C¤¤ "¬Y¤@°Ï¶¡" ªº³Ì¤pÈ
·PÁ±zªº¦^ÂÐ.
|
|
|
|
|
|
|
- ©«¤l
- 67
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 78
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- Excel 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-5-15
- ³Ì«áµn¿ý
- 2021-9-14
|
¦^´_ 3# stillfish00
±zªºª½Ä±¤èªk¡A¨S¦³°ÝÃD¡D
¡@ì¥ý¬O¦b·Q¡AY¦³²{¦¨ªº¨ç¼Æ¥i¥Hª½±µ®³¨Ó¥Î¡A¾ãÓVBA µ{¦¡¡A·|¬Ý°_¨Ó¤ñºë²¡D
|
|
|
|
|
|
|
- ©«¤l
- 67
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 78
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- Excel 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-5-15
- ³Ì«áµn¿ý
- 2021-9-14
|
¦^´_ 6# GBKEE
·PÁ±zªá®É¶¡¦^ÂСA·P®¦¡ã |
|
|
|
|
|
|