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

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

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

¥¨¶°¦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~

¦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

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-9-3 11:09 ½s¿è

¦^´_ 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

TOP

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

TOP

        ÀR«ä¦Û¦b : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD