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

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

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

½Ð±Ð¦U¦ì¥ý¶i¦Ñ®v­Ì¡A¦b³oÃD¨Î§@·í¤¤
http://forum.twbts.com/viewthrea ... amp;extra=#pid16718

¦p¦ó¦b¥LÃö³¬®É¡A±j¨îÃö³¬©Ò¦³excelÀÉ¡A¤£µM¥u­n«ö§Oªº¬¡­¶"¨ú®ø"¡A±j¨îÃö³¬´N·|¥¢ÆF!

³Â·Ð¦U¦ì¥ý¶i¦Ñ®v¸ÑÃD...ÁÂÁ¡C

¦^´_ 1# man65boy
Application.Quit

TOP

¦^´_ 2# GBKEE


   ¦b¦¹¨Î§@·í¤¤¬O¦³³o¤@¥y¡A
  Application.Quit     'Ãö³¬ Excel  ->¥¿±`¨Ï¥Î®É½Ð¸Ñ°£«e­±ªºª`¸Ñ " ' "
    End If
    Application.Visible = True   'Åã¥Ü Excel
¥H¤Wµ{¦¡¦b¶i¤J®É¡Aªº½T­n¿é¤J±K½X¤~¯à¶i¤J¬¡­¶Ã¯¡A«öx¤]·|Ãö³¬ÀɮסA¦ý¡A¥u¯àÃö³¬³o­ÓÀɮסA
½Ð¤j¤j¸Õ°µ¤@¹M¡A´N©ú·¡A¥ý¶}·sªº¬¡­¶¡A¦b·sªº¬¡­¶¿é¤J¤@¨Ç¤å¦r¡A¤£Àx¦s¡A¦b¥t¶}±Ò¦¹¨Î§@ÀɮסA·íµM¦b¶i¤J®É¡A·|¹J¨ì­n¿é¤J±K½X¡A­«ÂI¨Ó¤F¡A
¤£¿é¤J±K½X¡A«öx¨ú®ø¡A·|¥ýÃö³¬¦¹¨Î§@Àɮפ¤®É¡A¤S¸õ¥X¥t¤@­Ó·s¬¡­¶§Ú­ÌÁÙ¨SÀx¦sªºÀɮסA¥L·|¥Hĵ§iµøµ¡¸õ¥X¡A"¬O"¡A"§_"¡A"¨ú®ø"¡A«ö"¨ú®ø"
ªº¸Ü·|¨Ï¦¹¨Î§@ÀÉ®×Ãö³¬µL®Ä¡Aª½±µ¤£¥Î¿é¤J±K½X´N¯à¶i¤J¨ì¬¡­¶¸Ì¡A¤£©ú·¡A³Â·Ð¤j¤j«üÂI°g¬z§ïµ½!!

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

¦^´_ 4# GBKEE


    ³o¤@¬qApplication.Value=True"½s¦¡¿ù»~"°ßŪx@y..
   ¤p§Ì§â¥¦§ï¦^Application.Visible = True   ÀÉ®×´ú¸Õok ¨S°ÝÃD¡A
  ÁÂÁÂBKEE¤j¤j¸Ñ¶}³\¤[ªººÃ´b¡A¦¹¨Î§@ÁÙ¬O»Ý­n"¸Ñ¹a¤HÁÙ¶·Ã´¹a¤H"¡A·PÁÂBKEE¤j¤j¡C

TOP

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

TOP

        ÀR«ä¦Û¦b : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD