
我在B1輸入股票代號,然後按鈕按下,則於C1顯示股票代號以及建立超連結,可是我B1的有修改,C1超連結也有連動,可是顯示的數值一直都還是第一次執行程式的代號。
請問是否我哪邊沒有注意到。
Private Sub CommandButton1_Click()
Const web As String = "https://tw.stock.yahoo.com/q/bc?s="
Dim stock As String
stock = Cells(1, 2).Value
Hyperlinks.Add anchor:=Cells(1, 3), Address:=web & stock, TextToDisplay:=stock
End Sub