- ©«¤l
- 16
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 64
- ³nÅ骩¥»
- excel 2013
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-7-5
- ³Ì«áµn¿ý
- 2017-4-18
|
[µo°Ý] ½Ð±Ð¦p¦ó¥u§R°£Àx¦s®æ¤ºªº¼ÆÈ ¦Ó¤£§R°£¤½¦¡
·Q½Ð±Ð¤@¤U
§Ú¦bºô¸ô¤W°Ñ¦Òªº²M°£«ü¥O¦p¤U- Sub ²M°£()
- Beep
- If MsgBox("¡°½T©wn²M°£¡e¸ê®Æ¹Ïªí°Ï¡fªº°O¿ý¶Ü¡H¡@", 4 + 32 + 256) = vbNo Then Exit Sub
- Call ¦@¥Î¨Ï¥Î
- Sht1.Rows("19:65536").ClearContents
- If ActiveSheet.Name = Sht1.Name Then ActiveWindow.ScrollRow = 1
- Beep
- End Sub
½Æ»s¥N½X ³oÓ·|±N§ÚRow 19¥H¤Uªº¼Æȧt¤½¦¡¥þ³¡§R°£
¤£¹L§Ú¦b(K19,K319)¤Î(N19,N319)¤º¦³¼g¤J²³æªº¤½¦¡
¥i¥Hק令¥u§R°£¼ÆȤ£§R°£¤½¦¡¶Ü?
½Ð°Ý¦p¦óקï |
|