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

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

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

  1. Option Explicit
  2. Private Sub Worksheet_Change(ByVal Target As Range)
  3.     Application.DisplayAlerts = False
  4.     If Target.Address(0, 0) = "A1" Then
  5.    
  6.         Dim Bo As Workbook, Save_Name  As String, E As Object
  7.         
  8.         With ActiveWorkbook
  9.                                             
  10.             Save_Name = "D:\" & [A1] & ".xls"
  11.                 .Sheets("¤u§@ªí1").Copy
  12.         End With
  13.         
  14.         With ActiveWorkbook
  15.             For Each E In .VBProject.VBComponent
  16.                 E.CodeModule.DeleteLines 1, E.CodeModule.CountOfLines
  17.             Next
  18.             .SaveCopyAs Save_Name
  19.             .Close False
  20.         End With
  21.         
  22.         [A1].Select
  23.     End If
  24.    
  25.     Application.DisplayAlerts = True
  26. End Sub
½Æ»s¥N½X
§Ú¦b [A1].Select ¤U¤è·s¼W¤@¦æ Selection.ClearContents
µ²ªGÅܦ¨µL­­°j°é~¤£ª¾¹D¬°¤°»ò·|³o¼Ë~Àµ¨D¤j¤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

¦^´_ 2# GBKEE


    ÁÂÁÂG¤j~§¹¦¨
¬O§_¥i¥H¦A¸ß°Ý¤@¤U
§Ú¤U¤F³o­Ó§PÂ_[A1].Select
¬O§Æ±æ¿é¤J¥H«á~¨ÌµMºû«ù¦bA1

¦ý¬O·í§Ú·Æ¹«ÂI¨ìA2´N¤£·|¸õ¨ìA1¤F
¦]¬°§PÂ_¦³§ïÅܤ~°õ¦æ

½Ð°Ý¬O§_¥i¥H¦b·Æ¹««ü¨ìA1¥H¥~ªºÀx¦s®æ
Åý¥L¦Û°Ê¸õ¨ìA1©O?¤£ª¾¹D¦³¨S¦³³oºØ§PÂ_?¦A¦¸·PÁÂ!

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 : ¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD