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

[µo°Ý] «ö¤U«ö¶s«á, ¥i¥H§PÂ_¤§«e¬O§_¦³½s¿è¹Lexcel

[µo°Ý] «ö¤U«ö¶s«á, ¥i¥H§PÂ_¤§«e¬O§_¦³½s¿è¹Lexcel

½Ð±Ð¦U¦ì¤j¤j,

§Ú¦b¤@­Ósheet¤W³]¸m¤F¤@­Ó«ö¶s, ¥Î¨Ó³B²z¤å¥ó¥Î, ¹J¨ì¤@­Ó°ÝÃD

§Ú§Æ±æ¯à°÷¦b«ö¤U«ö¶s¤§«á, ¥ý§PÂ_§Ú¶}±Ò³oÀɮ׫á¬O§_¦³½s¿è¹LªF¦è , (( ¥u­nÃö³¬µøµ¡®É, ·|¸õ¥X´£¥Ü¦sÀɪº°T®§´Nºâ½s¿è¹L ))

¦pªG¦³½s¿è¹L, ¸õ¥X´£¥Üµøµ¡, 説"¦¹¤å¥ó¤w¸g½s¿è¹L, ½Ð¥ý¦sÀÉ«á¦A¦æ³B²z" , ¤§«áÂ÷¶}¥¨¶°
¦pªG¨S¦³½s¿è¹L, «hª½±µ°õ¦æ«á­±ªºµ{¦¡

¤j·§·Qªk¦p¤U¡G¤£ª¾¹D¬O§_¦³¥i¯à¹F¦¨??
  1. Private Sub ProcessAll_Click()
  2. if ((½s¿è¹L)) then
  3. msgbox ("¦¹¤å¥ó¤w¸g½s¿è¹L, ½Ð¥ý¦sÀÉ«á¦A¦æ³B²z")
  4. exit sub
  5. else
  6. endif
½Æ»s¥N½X

¦^´_ 1# a703130
Workbook.Saved ÄÝ©Ê
¦pªG«ü©w¬¡­¶Ã¯±q¤W¦¸Àx¦s¦Ü¤µ¥¼°µ¹LÅܧó¡A«h¥»ÄݩʭȬ° True¡C¥iŪ¼gªº Boolean¡C
  1. If Not ActiveWorkbook.Saved Then ........
½Æ»s¥N½X

TOP

¦^´_ 2# stillfish00


°ÝÃD¥H¸Ñ¨M, «D±`·PÁÂ!!

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦¨´N¤@¤Á¡j®É¶¡¥i¥H³y´N¤H®æ¡A¥i¥H¦¨´N¨Æ·~¡A¤]¥i¥HÀx¿n¥\¼w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD