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

½Ð±Ð Excel VBA Àx¦s®æ¤ë¾ä³]©w°ÝÃD

¥Î³o­Ó§a
§â¸Ì­±ªºªí³æ©Mª«¥óÃþ§O¼Ò²Õ©ñ¨ì©p·Q­n¥ÎªºÀɮ׸̭±
¦A¥Î¥H¤U«ü¥O ¨ú±±¨îÂI¿ï­þ¸Ì¸õ¥X¤é¾ä±±¨î¶µ
¿é¥X¦ì¸m=·Æ¹«ÂI¿ï¦ì¸m
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Cells(1).Address = "$B$6" Then ¤é¾ä.Show 'ÂI¿ïB6«h¸õ¥X¤é¾ä

End Sub

Excel ¤é¾ä´¡¥ó.rar (36.58 KB)

TOP

        ÀR«ä¦Û¦b : ÀR§¤±`®¦¤v¹L¡B¶¢½Í²ö½×¤H«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD