- ©«¤l
- 8
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 27
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN10
- ³nÅ骩¥»
- Office 2016
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2021-10-18
- ³Ì«áµn¿ý
- 2021-12-22
|
[µo°Ý] EXCEL VBA¨D¤@¤¸¤G¦¸¤èµ{¦¡ (¤£¥Î¤½¦¡¸Ñ)(3)
º¥ý·PÁÂAndy2483¤ÎML089 ¼ö¨Ç¸Ñµª ¦]¬°§ÚªºEXCEL VBA¨D¤@¤¸¤G¦¸¤èµ{¦¡ (¤£¥Î¤½¦¡¸Ñ)(2)³Q²¾¥h EXCELµ{¦¡°Ï ¤p¾Ç¥Í¨S¦³¿ìªk¦b¨ºµªÂШâ¦ì«e½ú
¹ï©óAndy2483«e½ú ÁÙ¦³¤@¨Ç°ÝÃD·Q½Ð±Ð
1.888¸ò999 ¬O¦Û¤v©w¸qªº¦ì¸m¶Ü¡A¬O«üÀH¾÷ªº¦ì¸m³£¥i¥H¶Ü
2. P = Y0 * Y1
'¡õ¹B¥Î¤G¦¸¨ç¼Æ¦bYÈ=0«eªºt¼Æ»PYÈ=0«áªº¥¿¼Æ¼¿n¬Ot¼Æ
If P < 0 Then
³o¸Ì¬°¤°»òn°²³]¨âÓ¤èµ{¦¡¬Û¼¡A¨ÃÅý¤èµ{¦¡¨âӸѬۼªºP<0 ¡A¹B¥Î¤G¦¸¨ç¼Æ¦bYÈ=0«eªºt¼Æ»PYÈ=0«áªº¥¿¼Æ¼¿n¬Ot¼Æ¡A³oÓÁÙ¬O¦³ÂI¤£¤ÓÀ´
¹ï©óML089«e½ú¡A¤]¦³¤@¨Ç°ÝÃD½Ð±Ð
1.¬O§_¥i¥H¤£³]©w¦¹¶µ¡A Sheets.Add.Name = Format(Now(), "dd_hhmmss")¡A§Ú¥´³o¶µ¶i¥hEXCEL VBA ·|¸õ¥X¤@Ó·sªº¤u§@ªí
2.Array¬O°}¦C¡AResize(, 3)¬O¤°»ò·N«ä
3.¬°¬Æ»ònWhile x <= x2 (X¬°¤°»ò<=X2
4. Cells(r, c1).Resize(, 3) = Array(x, x + s, f(x)) 'Debug ¥Î¡A¦pªG¤£³]©w¦¹¶µ¡A¦n¹³¤]¥i¥H¹B¦æ¡A³]©w¦¹¶µªº¥Øªº¬O¬Æ»ò
5.¦pªGn³]©w¶}©lªº®ÉÔ¤å¦r¥X²{¦b¤u§@ªí¤W¡A«ö°±¤îªº®ÉÔ¤å¦r´N®ø¥¢¡An¦p¦ó§ïµ{¦¡½X¡A¦]¬°§Ú±a¤J«e½úªºµ{¦¡½X
¡A¦n¹³¦A¤@¦¸°õ¦æ¡A¤å¦r³£·|¤@ª½¦b¤u§@ªí¤W¡A¤£·|®ø¥¢ |
|