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

[µo°Ý] VBAÂI¿ïÀx¦s®æ«ü©w½d³ò¦Û°Ê¤Ï¦â

¦^´_ 1# msmplay


   ¬Ý°_¨Ó¦n¹³½ÆÂø¤Æ¤F¡A­Y¥u¦³ÂI¿ï¤Ï¥Õ¥u­n¦p¤U¥N½X§Y¥i
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2. If Target.Column <= 15 And Target.Column >= 9 And Target.Row >= 7 And Target.Row <= 18 Then '¿ï¾ÜI7:O18¤~°õ¦æ
  3.     Range(Cells(Target.Row, "i"), Cells(Target.Row, "o")).Select'§â¿ï¾Üªº½d³òRow¦AÂX¤j¬° I ¨ì O ¿ï¾Ü
  4. End If
  5. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# msmplay


    ¶â¡I¥i¯à¬O§Ú²z¸Ñ¯à¤O¤Ó®t¡I§A2¦¸ªº»¡©ú§Ú³£¬Ý¤£À´¡I»F¦¨§Aªº¦]ÂZ¡A¹ê·P©êºp ¡I

TOP

        ÀR«ä¦Û¦b : ¦a¤WºØ¤Fµæ¡A´N¤£©öªø¯ó¡F¤ß¤¤¦³µ½¡A´N¤£©ö¥Í´c¡C
ªð¦^¦Cªí ¤W¤@¥DÃD