VBA EXCEL CODE：現在の株価

Question

私はコーディングとプログラミングに慣れていないので、私の最初の実際のコードを作成する際に私に与えることができる提案を感謝します。

私がしたいことは、ティッカー名が株式のものであることをユーザーに尋ねることです。一度それが入力されると、メッセージボックスには株式の現在の価格が表示されます。

私は現在の株価を抽出する公式を知っています。例については ：どのように学びながら、昨日 =NUMBERVALUE(WEBSERVICE("http://finance.yahoo.com/d/quotes.csv?s="&A1&"&f=l1"))

：スプレッドシートにしなければならないすべては、細胞内の「NFLX」（A1）と、セルに（A2）は、次の式を入れて入れているネットフリックスの現在の値を見つけるために

Sub Declaring_Variables() 

    Dim TickerName As String 

    TickerName = InputBox("Ticker Symbol") 

    Dim CurrentPrice As Integer 

    CurrentPrice = Formula ="=NUMBERVALUE(WEBSERVICE("finance.yahoo.com/d/quotes.csv?s="&TickerName&"&f=l1")) 

    MsgBox (CurrentPrice) 
End Sub 

私は、問題は、私が式を宣言した方法であると確信しています - ：私はこの概念を実験しようとしていると明らかに動作しません。次のコードを思い付いたVBAの変数を定義しますCurrentPrice。 VBAのスプレッドシートで使用する通常の数式を使用する方法を教えていただければ幸いです。私はこれが非常に重要な概念をカバーするため、私がより良くなる良い例になると思います。

ありがとうございます。

Option Explicit 

Sub Declaring_Variables() 

    Dim TickerName As String 

    TickerName = InputBox("Ticker Symbol") 

    Dim CurrentPrice As String 

    CurrentPrice = Application.WebService("finance.yahoo.com/d/quotes.csv?s=" & TickerName & "&f=l1") 

    MsgBox "Text Format: " & CurrentPrice & Chr(10) & _ 
     "Number Format: " & Application.NumberValue(CurrentPrice) 
End Sub 

Answer 1

は、この試してみて。