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

[µo°Ý] ¦p¦óÃö³¬µ{¦¡½Xµøµ¡

[µo°Ý] ¦p¦óÃö³¬µ{¦¡½Xµøµ¡

«ö¤UAlt+F11·|¶}±Òµ{¦¡½Xµøµ¡

°õ¦æµ{¦¡½X®É¤]·|¦Û°Ê¶}±Òµ{¦¡½Xµøµ¡

½Ð°Ý¸Ó¦p¦ó°õ¦æµ{¦¡½X«á¡AÃö³¬µ{¦¡½Xµøµ¡¡AÁÂÁ¡I

  1. Sub CloseAllVBEWindows()
  2. ' Written by HansV , https://eileenslounge.com/viewtopic.php?t=19961
  3.     Dim i As Long
  4.     With Application.VBE.Windows
  5.         For i = .Count To 1 Step -1
  6.             With .Item(i)
  7.                 If .Type <= 1 Then ' 0 = vbext_wt_CodeWindow, 1 = vbext_wt_Designer
  8.                     .Close
  9.                 End If
  10.             End With
  11.         Next i
  12.     End With
  13. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# Emily

­ì¨Ó¯uªº¦³³o¥\¯à¡AÁÂÁ«e½ú¡C

TOP

        ÀR«ä¦Û¦b : ¶¢¤HµL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD