ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ÃöÁä¦r¬d¸ß¥i§ï¬°VBA¤è¦¡«ö¶s¬d¸ß

¥»©«³Ì«á¥Ñ 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¥Îªí³æ¤è¦¡

ÃöÁä¦rvba.2¶W³sµ².zip (982.12 KB)

ÃöÁä¦rvba.2¶W³sµ².zip (982.12 KB)

±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 41# BV7BW

¤£¦n·N«ä¡A§Úªº²z¸Ñ¯à¤O¤£¦n¡Aª©¤W¦³«Ü¦h¤j¤j³£«Ü¼F®`¡A«Øij¤@­Ó¥DÃD´£°Ý¤@­Ó°ÝÃD¤ñ¸û¯à¤F¸Ñ»Ý¨D¡A
¤]¥i¥HÅý¤j®a¥i¥H¤¬¬Û¾Ç²ß¡A·PÁ¡C

TOP

¦^´_ 42# samwang


     S ¤j¤j§A¦n
¤F ¸Ñ  ·PÁ§AÀ°¦£
¯à¦A½Ð§AÀ°ª`¸ÑÃöÁä¦rVDA2¶W³sµ²
ÁÂÁ§A'
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 43# BV7BW

¤w¦³¥[¤J¸ÑÄÀ¡A½Ð½T»{¬Ý¬Ý¡AÁÂÁ¡C

ÃöÁä¦rvba.2¶W³sµ²0525.zip (982.5 KB)

TOP

¦^´_ 44# samwang

ÁÂÁÂ s ¤j¤j
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

·P谢¦U¦ì ¤j¯«¡A¥N码¤U载试试¡A¤ä«ù§V¤O¡C

TOP

        ÀR«ä¦Û¦b : ¤f»¡¤@¥y¦n¸Ü¡A¦p¤f¥X½¬ªá¡F¤f»¡¤@¥yÃa¸Ü¦p¤f¦R¬r³D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD