- ©«¤l
- 508
- ¥DÃD
- 53
- ºëµØ
- 0
- ¿n¤À
- 583
- ÂI¦W
- 99
- §@·~¨t²Î
- win 10
- ³nÅ骩¥»
- []
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-3-19
- ³Ì«áµn¿ý
- 2024-5-23
|
¦^´_ 57# lcctno
pºâ¤£¤@Pªº¦a¤è¬O [Data!D4960] 8550.60¡A¤ñ¹ï [µ²ªG!A1917] ªº 8550.60
è¦n¬O¦b¤ñ¹ïªº Ãä¬ÉÈ ¦Ó³y¦¨¯BÂIºâ¼Æªº°ÝÃD
°²¦p VBA µ{¦¡ªº¤ñ¸û¦¡°µ¤@Ó³B²z´N¥i¥H¤F
Sub ¤ÀªRµo¥Í¦¸¼Æ()
Dim Arr, Brr, Cunt&, Crr%(), R&, X&, Y&, TM, j%, k&, SU%
Const Zero = 0.00000001 '³o¬O¤@ӫܤp¦Ó¤£¼vÅT "¹ê¥Î¤Wªººë«×" ªº¼ÆÈ
..............
..........
' If Brr(j, 1) >= Arr(k, 2) Then If Brr(j, 1) <= Arr(k, 1) Then SU = SU + 1
'§ï¬° ¡G
If Brr(j, 1) >= Arr(k, 2) - Zero Then If Brr(j, 1) <= Arr(k, 1) + Zero Then SU = SU + 1
..................
.........
End sub
¥H¤W½Ð°Ñ¦Ò |
|