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

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

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

½Ð°Ý¦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¶Ü??

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE

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

TOP

¦^´_ 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

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 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)

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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

TOP

        ÀR«ä¦Û¦b : ¦³Ä@©ñ¦b¤ß¸Ì¡A¨S¦³¨­Åé¤O¦æ¡A¥¿¦p¯Ñ¥Ð¤£¼½ºØ¡A¬Ò¬OªÅ¹L¦]½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD