[µo°Ý] Ãö©ó§R°£­«½Æ¸Ó¦p¦ó¥uÅý¥L§R°£­«½Æ~¦ý¬OªÅ®æ¨Ò¥~!

av8d

¥¨¶°¦p¤U
        Columns("A:W").Select
        Application.CutCopyMode = False
        ActiveSheet.Range("$A$1:$W$1000").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, _
        6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23), Header:=xlNo

¥¨¶°¦³ªº®É­Ô¦³Application.CutCopyMode = False¦³ªº®É­Ô¨S¦³
·Qª¾¹D¤@¤U³o­Ó¬O¤°»ò?

Ãö©ó§R°£­«½Æ¸Ó¦p¦ó¥uÅý¥L§R°£­«½Æ~¦ý¬OªÅ®æ¨Ò¥~!¤]´N¬O»¡ªÅ®æ¤£¥Î¯S¦a¥h§R°£¥L~

oobird

¦h¬ÝÀ°§U¤å¥ó¡C
Application.CutCopyMode
¶Ç¦^©Î³]©w [°Å¤U] ©Î [½Æ»s] ¼Ò¦¡ªºª¬ºA¡C¥i¬° True¡BFalse ©Î¤@­Ó XLCutCopyMode ±`¼Æ¡A¦p¤U¦Cªí®æ©Ò¥Ü¡CŪ/¼g Long¡C

¶Ç¦^­È ´y­z
False ¤£³B©ó [°Å¤U] ©Î [½Æ»s] ¼Ò¦¡
xlCopy ³B©ó [½Æ»s] ¼Ò¦¡
xlCut ³B©ó [°Å¤U] ¼Ò¦¡

³]©w­È ´y­z
False ¨ú®ø [°Å¤U] ©Î [½Æ»s] ¼Ò¦¡¨Ã²¾°£²¾°Ê®Ø½u¡C
True ¨ú®ø [°Å¤U] ©Î [½Æ»s] ¼Ò¦¡¨Ã²¾°£²¾°Ê®Ø½u¡C

GBKEE

¦^´_ 1# av8d
Application.CutCopyMode = False¦³ªº®É­Ô¨S¦³

1. Sub Ex()
   
2.     Selection.Cut            '¤èªk->°Å¤U
   
3.     MyCutCopyMode
   
4.    
   
5.     Selection.Copy           '¤èªk->½Æ»s
   
6.     MyCutCopyMode
   
7.    
   
8.     Application.CutCopyMode = xlCopy
   
9.     MyCutCopyMode
   
10.    
    
11.     Application.CutCopyMode = xlCut
    
12.     MyCutCopyMode
    
13.    
    
14.     Application.CutCopyMode = True
    
15.     MyCutCopyMode
    
16.    
    
17.     Application.CutCopyMode = False
    
18.     MyCutCopyMode
    
19. End Sub
    
20. Private Sub MyCutCopyMode()
    
21.     Select Case Application.CutCopyMode
    
22.         Case Is = False
    
23.             MsgBox "Not in Cut or Copy mode"
    
24.         Case Is = xlCopy
    
25.             MsgBox "In Copy mode"
    
26.         Case Is = xlCut
    
27.             MsgBox "In Cut mode"
    
28.     End Select
    
29. End Sub

½Æ»s¥N½X

av8d

ÁöµM¤£¤ÓÁA¸Ñ·N«ä~¦ý¬O¤]¦h¾Ç¤F¤@¼Ë~ÁÂÁ¨â¦ì!