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

[µo°Ý] ¨Ï¥Îªí³æ°õ¦æVBAªº°ÝÃD

¦p¦óÅýµ{¦¡°õ¦æ®ÉÅã¥Ü¶i«×

§Ú·QÅý§Úªºµ{¦¡°õ¦æ®É¥i¥HÅã¥Ü¶i«×¦p½d¨Ò©Ò¥Ü

¸Ó¦p¦ó°µ©O?

TOP

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

TOP

¦^´_  acdx
GBKEE µoªí©ó 2013-5-13 17:01



    ¿n¤À¤Ó§C µLªk¤U¸ü==

TOP

¦^´_ 3# acdx
­þ¸Ì¦³µ{¦¡ ¥i°Ñ¦Ò.
§ÚªþÀɤW¨Ó§A(¤p¾Ç¥Í)ÁÙ¬O¤£¯à¤U¸ü,§A¤S¨S¤W¶ÇªþÀɩε{¦¡.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

[µo°Ý] ¨Ï¥Îªí³æ°õ¦æVBAªº°ÝÃD

§Ú­n¨Ï¥Îªí³æ°õ¦æ¤@­Óµ{¦¡¨Ã¥B§Æ±æ°õ¦æ¹Lµ{·|¥X²{¥t¤@­ÓuserformÅã¥Ü"°õ¦æ¤¤"¸Ó¦p¦ó¹F¦¨?

Private Sub CommandButton1_Click()
Application.Run ("'PERSONAL.XLS'!SQ_PSU_v4")
Progress.Show
End Sub


¥i¬O§Ú²{¦bªº¼gªk§Î¦¨·|¥ý°õ¦æ§¹µ{¦¡«áApplication.Run ("'PERSONAL.XLS'!SQ_PSU_v4")
¤~·|Åã¥Ü"°õ¦æ¤¤"Userform (Progress.Show)
¸Ó¦p¦ó¨Ï¥L¦P®É¶i¦æ?

¦^´_ 5# acdx
¸Õ¸Õ¬Ý
  1. Private Sub CommandButton1_Click()
  2.     Progress.Show False
  3.     Application.Run ("'PERSONAL.XLS'!SQ_PSU_v4")
  4.     Unload Progress
  5. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 6# GBKEE


    ¸Õ¤F¤§«á«o¥X²{³o¼Ë,Userform¸Ì­±ªºªF¦è¬OªÅ¥Õªº ­þ¸Ì¥X¿ù¤F?

TOP

¦^´_ 7# acdx
Userform¸Ì­±ªºªF¦è¬OªÅ¥Õ,
§A¥Î»¡ªº,§Ú¤]¤£ª¾¹D£«.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 7# acdx
°j°é¤¤"¾A·íªº"¥[¤WDoEvents¬Ý¬Ý

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD