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

«ü©w½d³òÀx¦s®æ¤£¥i¥H§ó§ïªº»yªk???

«ü©w½d³òÀx¦s®æ¤£¥i¥H§ó§ïªº»yªk???

½Ð°Ý¦p¦ó¨Ï¥ÎVBA¡A«ü©w½d³òÀx¦s®æ¡Aex: Range("C5:C7")¡A¥u¯àŪ¡A¤£¥i¥H§ó§ïªº»yªk???

¦^´_ 1# if208808


    ³oºØ®ÄªG­È¥u»Ý¥Î¤u§@ªí«OÅ@´N¯à¹F¦¨
­Y«D­n¨Ï¥ÎVBA
³Ì²³æªº°µªk´N¬O¥ÎWorksheet_SelectionChange¨Æ¥ó¨Ó±±¨î
·í¿ï¾Ü¦¹½d³ò®É¡A´N¦Û°Ê¸õ²æ¸Ó½d³ò
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2. If Not Intersect(Target, Range("C5:C7")) Is Nothing Then [A1].Select
  3. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD