- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 1# vic - Sub ²M°£()
- Beep
- If MsgBox("¡°½T©wn²M°£¡e¸ê®Æ¹Ïªí°Ï¡fªº°O¿ý¶Ü¡H¡@", 4 + 32 + 256) = vbNo Then Exit Sub
- Call ¦@¥Î¨Ï¥Î
- With Sht1.Rows("19:65536")
- On Error Resume Next 'µ{¦¡¤W¦³¿ù»~,Ä~Äò°õ¦æ¤U¤@¦æªºµ{¦¡µ{¦¡½X
- 'SpecialCells(¯S®íÀx¦s®æ),xlCellTypeConstants¡C¥]§t±`¼ÆªºÀx¦s®æ
- '¨S¦³«ü©wªºSpecialCells,·|¦³µ{¦¡¤Wªº¿ù»~
- .SpecialCells(xlCellTypeConstants) = ""
- On Error GoTo 0 '¤£³B²zµ{¦¡¤Wªº¿ù»~
- End With
- If ActiveSheet.Name = Sht1.Name Then ActiveWindow.ScrollRow = 1
- Beep
- End Sub
½Æ»s¥N½X |
|