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

±j¨îÃö³¬©Ò¦³excelÀÉ

¦^´_ 1# man65boy
Application.Quit

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-1-10 20:15 ½s¿è

¦^´_ 3# man65boy
ÁÂÁ§A, «ü¥X³o¯Ê¥¢,·íªì¨S¦³·Q¨ì³oÂI.
  1. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  2.     Check_time = TimeOut + 2
  3.     Application.DisplayAlerts = False   '¨ú®ø¨t²Îªº ´£¥Ü
  4.     If Check Then
  5.         MsgBox "WeCome"
  6.     Else
  7.         Application.Quit     'Ãö³¬ Excel  ->¥¿±`¨Ï¥Î®É½Ð¸Ñ°£«e­±ªºª`¸Ñ " ' "
  8.     End If
  9. Application.Visible =True
  10. End Sub
½Æ»s¥N½X

TOP

¦^´_ 5# man65boy
³o¤@¬qApplication.Value=True"½s¦¡¿ù»~"°ßŪx@y.. ©çÀ¸(¤£¦n·N«ä)

TOP

        ÀR«ä¦Û¦b : ¤f»¡¤@¥y¦n¸Ü¡A¦p¤f¥X½¬ªá¡F¤f»¡¤@¥yÃa¸Ü¦p¤f¦R¬r³D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD