- ©«¤l
- 199
- ¥DÃD
- 22
- ºëµØ
- 0
- ¿n¤À
- 233
- ÂI¦W
- 228
- §@·~¨t²Î
- Vista
- ³nÅ骩¥»
- Office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- °ª¶¯
- µù¥U®É¶¡
- 2020-4-14
- ³Ì«áµn¿ý
- 2024-11-26
|
¥»©«³Ì«á¥Ñ BV7BW ©ó 2021-5-24 22:49 ½s¿è
¦^´_ 39# samwang
ÃöÁä¦rvba.2¶W³sµ².zip (982.12 KB)
S¤j¤j §A¦n
"¶µ¥Ø½s¸¹"¹ïÀ³.¦rÅé¥H§ï¦n.·Q»¡¯à§ï¬°¥H¶µ¥Ø¬°³sµ²®æ.¥¼¯à§ä¥X»Ýקï¦a¤è
·Æ¹««ü¼Ð¬O§_¥i²Î¤@ºu°Ê¦Ü¬Û¦P¤@®æ
¨Ò.·íÂIA102®É·Æ¹««ü¼Ð·|¦b"I5"®æ.ÂI"B211"®É¥ýºu°Ê10Äæ·Æ¹««ü¼Ð¦b"S14"®æ
¨Ò Sub ¶µ¥Øªí¶µ¥Ø01()
'
' ³»³¡¤Î¶µ¥Ø01 ¥¨¶°
Range("I4").Select
' ·Æ¹«¦ì¸m
ActiveWindow.ScrollColumn = 310
' ¦C¼Æ
Range("I4").Select
' ·Æ¹«¦ì¸m
ActiveWindow.ScrollRow = 1
' Äæ¼Æ
' ¶µ¥Ø02¶·¥[¤W(ActiveWindow.SmallScroll ToRight:=10)(¸õ°Ê®æ¼Æ)
Range("I4").Select
' ·Æ¹«¦ì¸m
End Sub
Sub ¶µ¥Øªí¶µ¥Ø02()
' ³»³¡¤Î¶µ¥Ø02 ¥¨¶°
ActiveWindow.ScrollColumn = 310
Range("I4").Select
ActiveWindow.SmallScroll ToRight:=10
Range("S4").Select
End Sub
"«È¤áqÁʪí"¦rÅéק良¯à²Î¤@¤j¤p.·Æ¹««ü¼ÐÅܦâ.¦]¤w¦³«È¤á³sµ²µ{¦¡¤£ª¾¦p¦ó¥[¤W
Åܦ⤧µ{¦¡.
·Æ¹««ü¼Ð¬O§_¥i«ü©wÄæ¦ì¨Ò¦p«ü©w¦b"MÄæ"¤º¤~Åܦâ
[M4:M4300].Interior.Color = xlNone¬O³o¬qקï?
ªí³æ°ÝÃD.«È¤á¬d¸ß¬O§_¥i¥Îªí³æ¤è¦¡ |
|