[µo°Ý] Excel VBA ¦Û­qªí³æ¦h­«­¶­±°ÝÃD

lichang

½Ð°Ý¦U¦ì¤j¤j¤@­Ó¤p°ÝÃD
§Ú¦Û­q¤F¤@­Óªí³æ¡A¬O¨Ï¥Î¦h­«­¶­±ªº¤è¦¡
§Ú·Q­nIJµoªí³æ1®É¡A¯à°÷±Ò°Ê¬Y­Ó¥¨¶°
                            2®É¡A¯à°÷±Ò°Ê¬Y­Ó¥¨¶°
                         ¥H¦¹Ãþ±À
§Ú·QÀ³¸Ó¬O¸òclick«ü¥O¦³Ãö«Y¡A¦ý§Ú¤£ª¾¹D«e­±¬O­n«ç»ò¼g
¦³¤H¥i¥H±Ð¤@¤U¶Ü??

GBKEE

¦^´_ 1# lichang
¤£ª¾§AIJµoªí³æªº¤è¦¡
¤U­±ªº UserForm (ªí³æ) ¨Æ¥óµ{¦¡³£¥i¥H°õ¦æ§Aªº¥¨¶°

1. Private Sub UserForm_Activate()
   
2. 'ªí³æÅܦ¨²{¥Îªí³æµøµ¡ªº®É­Ô¡A·|µo¥Í Activate ¨Æ¥ó¡C
   
3. End Sub
   
4. Private Sub UserForm_Click()
   
5. '·Æ¹«¥ªÁä«ö¤@¤Uªí³æ,«h·|µo¥Í Click ¨Æ¥ó¡C
   
6. End Sub
   
7. Private Sub UserForm_Initialize()
   
8. 'Initialize ¨Æ¥ó µo¥Í¦b¤@­Óª«¥ó¸ü¤J«á , ¦ý©|¥¼Åã¥Üªº®É­Ô
   
9. End Sub

½Æ»s¥N½X

lichang

¦^´_ 2# GBKEE

½Ð°Ý¦pªG¬O­nIJµo"¦h­«­¶­±"ªº"²Ä¤@¤À­¶"©Î"²Ä¤G¤À­¶"®É¡A­n«ç»ò³]©wIJµo±ø¥ó??

lichang

¦^´_ 2# GBKEE

§Ú¸Õ¤F¤@¤U»yªk¡A¦ü¥G¥i¥H©I¥s!!
¦ý¥Ø«e°ÝÃD¦b©óµe­±¤Ï¦Ó¤£·|§Y®É§ó·s¡A½Ð°Ý¸Ó¦p¦ó³B²z??
¥Ø«e¬õ¦r³¡¤À¤£ª¾¹D¸Ó¦p¦ó­×§ï¡A¤~¯à§Y®É§ó·s¿ï©w­¶­±¤º®e!!

Private Sub MultiPage1_Change()
   If MultiPage1.Value = 1 Then
      Image_ZOrder
   Else
      MultiPage1.Value.Show
   End If
End Sub

GBKEE

¦^´_ 4# lichang

¦ý¥Ø«e°ÝÃD¦b©óµe­±¤Ï¦Ó¤£·|§Y®É§ó·s¡A½Ð°Ý¸Ó¦p¦ó³B²z??

¥i§_ªþÀÉ»¡©ú
§A¤F¸Ñ¤@¤U³o .Value   .Visible ªºÄÝ©Ê

1. Private Sub MultiPage1_Change()
   
2. MsgBox MultiPage1.Value
   
3.    If MultiPage1.Value = 1 Then
   
4.       Image_ZOrder
   
5.    Else
   
6.       MultiPage1.Visible = False
   
7.    End If
   
8. End Sub

½Æ»s¥N½X

lichang

¦^´_ 5# GBKEE

¤j¤j¡A§Ú¦³©ñªþ¥ó¤W¥h¡A¥D­n°ÝÃD¬O¡A·í§Ú±q²Ä¤G¤À­¶­n¤Á´«¦^²Ä¤@¤À­¶®É¡AµLªkÅã¥Ü²Ä¤@¤À­¶
¤@©w­n¦A«ö¤@¦¸"²Ä¤G¤À­¶"µM«á«ö¦^"²Ä¤@¤À­¶"¤~·|Åã¥Ü¡A½Ð°Ý¬°¤°»ò??

·s¼W Microsoft Excel 97-2003 ¤u§@ªí.rar (122.1 KB)

¤U¸ü¦¸¼Æ: 22

2015-9-25 09:22

GBKEE

¦^´_ 6# lichang

1. Private Sub MultiPage1_Change()
   
2.     If MultiPage1.Value = 1 Then
   
3.         Image_ZOrder '±Nµ{¦¡±±¨îÅvÂಾ ³o [Image_ZOrder]µ{§Ç¡A
   
4.         '¶·µ¥³oµ{¦¡°õ¦æ§¹²¦,µ{¦¡±±¨îÅv¤~·|¦^¨ì³o¸Ì
   
5.         'Ä~Äò End If ¤U­±ªºµ{¦¡½X
   
6.         'Image_ZOrder °õ¦æ´Á¶¡, MultiPage1_Changeªºµ{¦¡¤£·|°õ¦æªº
   
7.         '©Ò¥H²§°Ê¨â¦¸«á¤~·|¦^´_
   
8.     Else
   
9.         '''µ{¦¡½X
   
10.     End If
    
11.     '''End If«áªºµ{¦¡½X
    
12.     '''End If«áªºµ{¦¡½X
    
13. End Sub

½Æ»s¥N½X

¸Õ¸Õ¬Ý

1. Dim Msg As Boolean, Form_Msg As Boolean
   
2. Private Sub MultiPage1_Change()
   
3.     If MultiPage1.Value = 1 Then
   
4.         Msg = True
   
5.     Else
   
6.         Msg = False
   
7.     End If
   
8. End Sub
   
9. Private Sub UserForm_Activate()
   
10.     Do While Form_Msg = False
    
11.         DoEvents
    
12.         If Msg = True And MultiPage1.Value = 1 Then
    
13.             Image_ZOrder
    
14.         End If
    
15.     Loop
    
16. End Sub
    
17. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    
18.     Form_Msg = True
    
19. End Sub
    
20. Private Sub Image_ZOrder()
    
21.     Dim Ar(), i As Integer, j As Integer, t As Date
    
22.     Ar = Array(Image1, Image2, Image3)
    
23.     t = Time
    
24.     Do While Msg = True And MultiPage1.Value = 1 '°õ¦æ³o Do Loop ªº°j°é
    
25.         DoEvents
    
26.         'Sleep 1000
    
27.         If t + #12:00:01 AM# <= Time Then  '¨C¬í¤@¦¸,¤]¥i¥H¤£¥Î Sleep
    
28.             Ar(i).ZOrder msoBringToFront
    
29.             i = i + 1
    
30.             If i > UBound(Ar) Then i = 0
    
31.             t = Time
    
32.         End If
    
33.     Loop
    
34. End Sub

½Æ»s¥N½X

lichang

ÁÂÁ¤j¤j±zªº´£¨Ñ¡A¥u®t§Ú¤£¯àµ¹§A­ÓÆg!!