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

[µo°Ý] ½Ð°Ý¦p¦ó±N«ü©wÀx¦s®æ¤¤ªº¸ê®Æ²M°£

¦^´_ 1# brabus
  1. Sub «ö¶s1_Click()
  2.     [H4].Cells([F7], 2) = ""
  3. End Sub
  4. Sub Ex()  '§R°£ÀÉ®×µ{¦¡¥²»Ý¸m©ó¨ä¥LÀɮ׸Ì
  5.     Dim ThisFile As String
  6.     With ActiveWorkbook '­nÃö³¬Àɮ׬O§@¥Î¤¤ªº¬¡­¶Ã¯
  7.         ThisFile = .FullName
  8.         .Close 0
  9.     End With
  10.     Kill ThisFile
  11. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤H¨ÆªºÁ}Ãø»PµZ¿i¡A´N¬O¤@ºØ¦ÒÅç¡C
ªð¦^¦Cªí ¤W¤@¥DÃD