ªð¦^¦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 : ¡i®É¶¡µLªk¾B¾×¡j©È®É¶¡®ø³u¡Aªá¤F³\¦h¤ß¦å¡A·QºÉ¦U¦¡¤èªk­n¾B¾×®É¶¡¡Aµ²ªG¬O¡G®ö¶O¤F§ó¦h®É¶¡¡A¥B¤@µL©Ò¦¨¡I
ªð¦^¦Cªí ¤W¤@¥DÃD