- ©«¤l
- 7
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 17
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2013-2-23
- ³Ì«áµn¿ý
- 2015-10-1
|
[µo°Ý] Åý¹«¼Ð©Ò¿ï¾Üªº¦æ¦C¥i¥H°ª«G¡A«oµLªk¨Ï¥Î Ctrl+Z ¥\¯à
½Ð°Ý¦U¦ì«e½ú¡A§Ú¬O¥Î¤U±³oµ{¦¡½X¡AÅý§Ú¹«¼Ð©Ò¿ï¾Üªº¦æ¦C¥i¥H°ª«G¡AÅý¸ê®Æ§ó®e©öÃѧO
¦ý¬On½s¿è¸ê®Æ®É Ctrl+Z µLªk¨Ï¥Î¡A«D±`§xÂZ¡A½Ð°Ý¦³¤èªk¥i¥H¨Ï¥Î Ctrl+Z ¡H
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Columns().Interior.ColorIndex = 0
x = ActiveCell.Column
Columns(x).Interior.ColorIndex = 35
y = ActiveCell.Row
Rows(y).Interior.ColorIndex = 35
End Sub |
|