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

[µo°Ý] ¦p¦ó¦bmultipageªí³æ¤º±N¤å¦r¤è¶ôÃþ§O¶i¦æ¿é¤J­­¨î

¦^´_ 1# dechiuan999
Private Sub UserForm_Initialize() ³o¬Oªí³æÅã¥Ü¤§«eªºµ{¦¡³]©w
¦]¬° ªí³æÅã¥Ü§A³]©w«eUserForm1.MultiPage1.Value=0  (Page1)  ©Ò¥H¥u¦³ textbox 1 - 5 ¦³³]©w¨ì
½Ð±NPrivate Sub UserForm_Initialize() ¦WºÙ§ï¦¨ Private Sub MultiPage1_Change() ¸Õ¸Õ¬Ý

TOP

¦^´_ 3# dechiuan999
Property Get ³¯­z¦¡, Property Let ³¯­z¦¡,Property Set ³¯­z¦¡  §A¥i¸Ô¬ÝVBAªº»¡©ú
¦bª«¥óÃþ§O¨Æ¥ó¤@¯ëªº¨Ï¥Î¤è¦¡
1 ª«¥óÃþ§O¼Ò²Õ¤¤    Public WithEvents MySh As Worksheet ³]¬°¥~³¡¥iŪ¨úªºª«¥óÅܼÆ
    MySh ¦bª«¥óÃþ§O¼Ò²Õ¤¤ ·|¦³ª«¥ó¨Æ¥ó¥i¨Ï¥Î ¦p¹Ï:



2  Dim GetSh As New MyClass -> ¦bª«¥ó¸Ì«Å§i¤@ÅÜ¼Æ ¬°·sªºª«¥óÃþ§O¼Ò²Õ
   Set GetSh.MySh = Sheet1   ±NÃþ§O¼Ò²Õªºª«¥óGetShÅÜ¼Æ «ü©w¬° Sheet1
¦pÒæ¥ó ªºPrivate Sub CommandButton1_Click()
½Ð¬ÝªþÀÉ
Re-dechiuan999.rar (13.15 KB)

TOP

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD