ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] USERFROM¤¤ªº¦h­ÓFRAME¤Î¦h­ÓPrivate SubªººÞ²z¤èªk

[µo°Ý] USERFROM¤¤ªº¦h­ÓFRAME¤Î¦h­ÓPrivate SubªººÞ²z¤èªk

¥»©«³Ì«á¥Ñ ciboybj ©ó 2018-2-27 00:22 ½s¿è

¤j®a¦n
§Ú§Q¥Î¦Û­qªºUSERFORM³]­p¤F¨â­Óªí³æ

µ{¦¡ÅÞ¿è¦p¤U¡G
ÅýUSERFORM1ªºµøµ¡¶ÈÅã¥Ü¥X®Ø¬[1ªº¤º®e¡A

·í¨Ï¥ÎªÌ«ö¤U «ö¶s2®É¡A±N®Ø¬[1²¾¨ìUSERFORM1ªºµøµ¡¥~¡A¨Ã±N ®Ø¬[2 ²¾¨ìUSERFORM1ªºµøµ¡¤º

§Úªº°ÝÃD¬O¡G
®Ø¬[1¤Î®Ø¬[2¤¤§Ú³£·|³]­p¦h­Ó«ö¶s¡A¦]¦¹¡A¦bUSERFORM1¤¤·|¦P®É¦s¦b¦³ÄÝ©ó®Ø¬[1ªº¦h­ÓPrivate Sub ¤ÎÄÝ©ó®Ø¬[2ªº¦h­ÓPrivate Sub
§Ú·Q»¡¬°¤F¤é«á¦nºÞ²z¡A©Ò¥H¥t¥~«Ø¥ß¤F¨â­ÓModule
s.PNG
µM«á¦b¨Ï¥ÎªÌ«ö¤U®Ø¬[1©Î¬O®Ø¬[2¤¤ªº¥ô¤@­Ó«ö¶s®É¡A§Q¥ÎApplication.Run "Module1.test"ªº¤è¦¡¡A±N°Ê§@¾É¦V¦ÜModule1¤¤ªºPrivate Sub  test()

¦ý¡A³o¼Ëªº¾Þ§@·|¶]¥X¿ù»~°T®§¡G
0230.PNG
·Q½Ð°Ý¤j®a¡A¦³¨S¦³¤°»ò¿ìªk¥i¥H¸Ñ¨M¸Ó¿ù»~°T®§¡AÁÙ¬O¦³¤°»ò¿ìªk¥i¥H¤è«KºÞ²zUSERFROM1¤¤ªº¦h­ÓPrivate Sub

' stack overflow

Sub Q( )
Call Q
End Sub

TOP

TO jackyq
¤£¤ÓÀ´±zªº·N«ä
¥i¥H¦A¸ÑÄÀ¤@¤U¶Ü¡H
Call Q ¬O¦Û¤v¥s¦Û¤v¶Ü¡H
ÁÂÁ¡ã¡ã¡ã

TOP

¦^´_ 3# ciboybj


Call Q  = ¦Û¤v©I¥s¦Û¤v
µL¤îºÉ¤U¥h±N¾É­P°ïÅ|ªÅ¶¡¯ÓºÉ ( °ïÅ|ªÅ¶¡¤j¤p¬O¦³­­ªº  )
¦Ó²£¥Í§A¨º­Ó¿ù»~

§Aªºµ{¦¡À³¸Ó¬O¥X²{¬Y¦U Sub ³´¤JµL¤îºÉªº "¦Û¤v©I¥s¦Û¤v"
¬O­þ¦U sub §A­n¦Û¤v¥h°lÂÜ¥X¨Ó

TOP

³á³á¡ã
§Ú¦A¨Ó°lÂܤ@¤U¡ã
ÁÂÁ¡ã

TOP

        ÀR«ä¦Û¦b : ¯u¥¿ªº·R¤ß¡A¬O·ÓÅU¦n¦Û¤vªº³oÁû¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD