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

2007 ¨¾¤î½Æ»s

2007 ¨¾¤î½Æ»s

¦U¦ì«e½ú¦n:
§Úª¦¤å§ä¨ì³o­Ó
¼g¨ìEXCEL«á
µo²{2007ªOªº·|¦Û°ÊÃö³¬¥¨¶°
¨º§Ú­n¥Î¤°»ò¤èªk¤~¯àÅý¥L¦Û°Ê±Ò°Ê©O
¤£µM¤]µLªk¹F¨ì«OÅ@EXCEL
¤£·QÅý§O¤H½Æ»s¤º®eªº¥\¯à
  1. Sub disCopy()
  2. Dim copyCtls As CommandBarControls
  3. Dim copyCtl As CommandBarControl
  4.     Application.CutCopyMode = False
  5.     '´M§ä©Ò¦³ [½Æ»s] «ö¶s, ¨äID¬°19
  6.     Set copyCtls = Application.CommandBars.FindControls(ID:=19)
  7.     '±N©Ò¦³ [½Æ»s] «ö¶s¥\¯à¨ú®ø
  8.     For Each copyCtl In copyCtls
  9.         copyCtl.Enabled = False
  10.     Next
  11.     '¨ú®ø [½Æ»s] §Ö±¶Áä
  12.     Application.OnKey "^c", ""
  13.     '¤u§@ªí¼ÐÅÒ¥kÁä©Ò¸õ¥X¨Óªº "ply" ¤u¨ã¦C"²¾°Ê©Î½Æ»s(M)..." «ö¶s¥i²¾°Ê¨Ã²£¥Í°Æ¥»
  14.     '¦]¦¹¤@¦}¸T¤î
  15.     Application.CommandBars("ply").Controls(5).Enabled = False
  16.     '¥H¤WÀ³¸Ó´NµLªk½Æ»s¤F
  17. End Sub

  18. Sub enCopy()
  19. Dim copyCtls As CommandBarControls
  20. Dim copyCtl As CommandBarControl
  21.     '´M§ä©Ò¦³ [½Æ»s] «ö¶s, ¨äID¬°19
  22.     Set copyCtls = Application.CommandBars.FindControls(ID:=19)
  23.     '±N©Ò¦³ [½Æ»s] «ö¶s¥\¯à«ì´_
  24.     For Each copyCtl In copyCtls
  25.         copyCtl.Enabled = True
  26.     Next
  27.     '«ì´_ [½Æ»s] §Ö±¶Áä
  28.     Application.OnKey "^c"
  29.     '«ì´_¤u§@ªí¼ÐÅÒ¥kÁä©Ò¸õ¥X¨Óªº "ply" ¤u¨ã¦C"²¾°Ê©Î½Æ»s(M)..." «ö¶s¥\¯à
  30.     Application.CommandBars("ply").Controls(5).Enabled = True
  31.     '¥H¤WÀ³¸Ó´N¥i¥H½Æ»s¤F
  32. End Sub

  33. Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  34. End Sub
½Æ»s¥N½X

¦^´_ 1# alex141225


    ³o°ÝÃD «Ü¤[¥H«e¦³°Q½×¹L...

     µ²½×´N¬O ¥u­n ·s¶}ÀÉ®×  ±N¥¨¶°¥\¯àÃö³¬...

      «h  ¬ÛÃö³]©w´N¦Û°Ê¥¢®Ä

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD