- ©«¤l
- 7
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 8
- ÂI¦W
- 0
- §@·~¨t²Î
- windows xp
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-11-13
- ³Ì«áµn¿ý
- 2015-10-18
|
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ªº¥\¯à- Sub disCopy()
- Dim copyCtls As CommandBarControls
- Dim copyCtl As CommandBarControl
- Application.CutCopyMode = False
- '´M§ä©Ò¦³ [½Æ»s] «ö¶s, ¨äID¬°19
- Set copyCtls = Application.CommandBars.FindControls(ID:=19)
- '±N©Ò¦³ [½Æ»s] «ö¶s¥\¯à¨ú®ø
- For Each copyCtl In copyCtls
- copyCtl.Enabled = False
- Next
- '¨ú®ø [½Æ»s] §Ö±¶Áä
- Application.OnKey "^c", ""
- '¤u§@ªí¼ÐÅÒ¥kÁä©Ò¸õ¥X¨Óªº "ply" ¤u¨ã¦C"²¾°Ê©Î½Æ»s(M)..." «ö¶s¥i²¾°Ê¨Ã²£¥Í°Æ¥»
- '¦]¦¹¤@¦}¸T¤î
- Application.CommandBars("ply").Controls(5).Enabled = False
- '¥H¤WÀ³¸Ó´NµLªk½Æ»s¤F
- End Sub
- Sub enCopy()
- Dim copyCtls As CommandBarControls
- Dim copyCtl As CommandBarControl
- '´M§ä©Ò¦³ [½Æ»s] «ö¶s, ¨äID¬°19
- Set copyCtls = Application.CommandBars.FindControls(ID:=19)
- '±N©Ò¦³ [½Æ»s] «ö¶s¥\¯à«ì´_
- For Each copyCtl In copyCtls
- copyCtl.Enabled = True
- Next
- '«ì´_ [½Æ»s] §Ö±¶Áä
- Application.OnKey "^c"
- '«ì´_¤u§@ªí¼ÐÅÒ¥kÁä©Ò¸õ¥X¨Óªº "ply" ¤u¨ã¦C"²¾°Ê©Î½Æ»s(M)..." «ö¶s¥\¯à
- Application.CommandBars("ply").Controls(5).Enabled = True
- '¥H¤WÀ³¸Ó´N¥i¥H½Æ»s¤F
- End Sub
- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- End Sub
½Æ»s¥N½X |
|