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

[µo°Ý] ¨D±Ï~µL­­°j°é~

¦^´_ 1# av8d
³o°ÝÃD«Ü±`¨£,¸Õ¸Õ¬Ý
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     Dim Bo As Workbook, Save_Name  As String, E As Object
  3.     Application.EnableEvents = False   '°±¤îª«¥óªºÄ²µo¨Æ¥ó
  4.     Application.DisplayAlerts = False
  5.     If Target.Address(0, 0) = "A1" Then        
  6.         With ActiveWorkbook                                            
  7.             Save_Name = "D:\" & [A1] & ".xls"
  8.                 .Sheets("¤u§@ªí1").Copy
  9.         End With        
  10.         With ActiveWorkbook
  11.             For Each E In .VBProject.VBComponent
  12.                 E.CodeModule.DeleteLines 1, E.CodeModule.CountOfLines
  13.             Next
  14.             .SaveCopyAs Save_Name
  15.             .Close False
  16.         End With
  17.         [A1].Select
  18.         Selection.ClearContents  '³o¤u§@ªí¤¤ªºÀx¦s®æ¦³­×§ï
  19.         '**  Worksheet_Change (³o¬O¤u§@¤¤ªºÀx¦s®æ¦³­×§ï®É->¹w³]ªºÄ²µo¨Æ¥óµ{§Ç)
  20.     End If
  21.     Application.DisplayAlerts = True
  22.     Application.EnableEvents = True  '«ì´_ª«¥óªºÄ²µo¨Æ¥ó
  23. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 3# av8d
  1. Option Explicit
  2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  3.     If Target.Address(0, 0) <> "A1" Then [A1].Select
  4. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD