[µo°Ý] ·Q½Ð°Ý¤@¤U VBAªº¦Û­qªí³æªº¦h­«­¶­±­n«ç»ò³]©w©O MultiPage

hanklihank

EXCELªºVBA¦Û­qªí³æ
§Ú§âMultiPageªºÁä³]©w¤W¥h«á ­n«ç»ò¥h¼gVBA»yªk ¤~¯à§â­¶­±¤Á´«
Ä´¦p»¡ §Ú«öPAGE1 ©Î PAGE2 ¥i¥H¸õ¨ì §Ú­nªº¥t¥~ªº¦Û­qªí³æ©O
¨º¦pªG¥Î¯Á¤Þªº¤è¦¡­n«ç»ò¼g? «ô°U«ô°U~~

stillfish00

¦^´_ 1# hanklihank

§Ú§âMultiPageªºÁä³]©w¤W¥h«á ­n«ç»ò¥h¼gVBA»yªk ¤~¯à§â­¶­±¤Á´«

¤Á´«¤£¥Î¼g°Ú¡AMultiPage±±¨î¶µ¥i¬Ý¦¨¬O­Ó®e¾¹¡A
§â§A¤£¦PPage­n¥Îªº±±¨î¶µ©Ô¨ì­Ó§OªºPage¤º³¡´N¥i¥H¤F¡C

Ä´¦p»¡ §Ú«öPAGE1 ©Î PAGE2 ¥i¥H¸õ¨ì §Ú­nªº¥t¥~ªº¦Û­qªí³æ©O

¥t¥~ªº¦Û­qªí³æ???   ¨S¦³¤H³o¼Ë¥Î§a¡AMultiPage¬O¦b¦P¤@­Óªí³æ¤Wªº¦h­«­¶­±¡C

¦pªG¥Î¯Á¤Þªº¤è¦¡­n«ç»ò¼g?

¦h­«­¶­±©M¯Á¤Þ¼ÐÅÒ¨âºØªº¤£¦P¦b©ó¡G
¦h­«­¶­±¡A­¶©M­¶¬O¿W¥ßªº­¶¡A¥i¥H°t¸m¤£¦Pªº±±¨î¶µ¡C
¯Á¤Þ¼ÐÅÒ¡A­¶­±¬O¦@¥Îªº¡A©ñªº±±¨î¶µ¤]¬O¦@¥Îªº¡A¤Á´«®É¤~¥h±±¨î¨ÏÅã¥Ü¤£¦Pªº­È¡C

hanklihank

ÁÂÅo  ¦]¬°¥LMultiPage §ÚÂI¥X¨Ó §Ú¨S§â¥L©Ô¶} §Ú¥H¬°¥L­n¥t¥~³]©w ¤Á´« µ²ªG½¤F®Ñ³£¨S¦³¬Ý¨ì
³o­ÓÄø°ÝÃD §xÂZ¤F§Ú´X¤Ñ «¢«¢  ÁÂÁ§A~~¸U¤À·PÁ­ò
¯uªº«ÜÁÂÁÂ

hanklihank

¦^´_ 2# stillfish00
ÁÂÁ§A §Ú­è¦^¤å §Ñ°O­n«ö§Aªº¦^ÂЫö¶s ÁÂÁÂ

GBKEE

¦^´_ 1# hanklihank

1. Private Sub MultiPage1_Change()
   
2.     'MultiPage1.Value ©Ò¿ï Page ªº¯Á¤Þ­È.
   
3.     Select Case MultiPage1.Value
   
4.         Case 0     ' Page1
   
5.             MsgBox MultiPage1.Pages(0).Name
   
6.         Case 1      'Page2
   
7.             MsgBox MultiPage1.Pages(1).Name
   
8.     End Select
   
9. End Sub

½Æ»s¥N½X