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

[µo°Ý] ¦p¦ó©ó«ü©w¤u§@ªí°Ñ·Ó¥N¸¹¨Ã°õ¦æ

[µo°Ý] ¦p¦ó©ó«ü©w¤u§@ªí°Ñ·Ó¥N¸¹¨Ã°õ¦æ

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$B$1" Then
        Call YahooPrice(Target.Value)
    End If

End Sub

§Ú¤w¸g¦³ªÑ¥«¥N¸¹ªí©ñ¸msheet 1­n¦p¦ó«ü©w°Ñ·Ó¨Ã°õ¦æCall YahooPrice(Target.Value)
¤pÅK

        ÀR«ä¦Û¦b : ¡i°±º¢¤£«e¡A²×µL©Ò±o¡j¤H³£°g©ó´M§ä©_ÂÝ¡A¦]¦Ó°±º¢¤£«e¡FÁa¨Ï®É¶¡¦A¦h¡B¸ô¦Aªø¡A¤]¤FµL¥Î³B¡A²×µL©Ò±o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD