Excel 超複雜問題 (含marcos)

2010-11-03 5:55 pm

A BC
102880
2 00003

我想根據 b1, b2 而係 c1, c2出對應既股票圖
一向用開以下marcos:

Sub Chart()
On Error Resume Next

ActiveSheet.DrawingObjects.Delete ' 清掉所有圖片
Sheets("Stock").Select ' 選擇工作紙 chart

Range("C1").Select '17

ActiveSheet.Pictures.Insert("http://ichart.finance.yahoo.com/z?s=2880.HK&t=3m&q=l&l=on&z=m&p=m100,m50&a=r14").Select
End Sub

marcos 係用到，但係我想做到我一轉b1, c1既圖都一齊轉！
即係b1 = 00017時，
c1會出到 http://ichart.finance.yahoo.com/z?s=0017.HK&t=3m&q=l&l=on&z=m&p=m100,m50&a=r14既圖！
有可能嗎？

另外問下，2003用開既marcos，2007係咪都會用到？

更新1:

根據joe的回答解決了問題，但如果要不停地show 圖又可以點？ A B C 1 02880 2 00003 3 00017 4 00006 即是C1 出2880 圖 c2出0003圖 c3出0017圖，如此類推 Thx!!!

更新2:

假設 A B C 1 02880 2 大連港 3 $5.5 4 00017 5 新世界發展 6 $1.1 中間有不同文字或者其他數字，咁又有無可能做到？

回答 (2)

joe

2010-11-04 10:19 pm

✔ 最佳答案

在 vba project microsoft excel 物件的sheet1 加上以下的 macro:

Sub Chart()
On Error Resume Nextq = Cells(1, 2)
q = "000" & q
q = Right(q, 4) & ".hk"ActiveSheet.DrawingObjects.Delete ' 清掉所有圖片
Sheets("Stock").Select ' 選擇工作紙 chartRange("C1").Select '17ActiveSheet.Pictures.Insert("http://ichart.finance.yahoo.com/z?s=" & q & "& t=3m&q=l&l=on&z=m&p=m100,m50&a=r14").Select
End Sub

Sub Worksheet_Change(ByVal Target As Range)
Chart
End Sub

就可以了.

2010-11-04 14:21:08 補充：
Sheets("Stock").Select ' 選擇工作紙 chart
應改為
Sheets("sheet1").Select ' 選擇工作紙 chart

👍 0 👎 0

[匿名]

2010-11-06 8:58 pm

Only created a tutorial on the first quesiton.
in follow web page,

http://sites.google.com/site/exceltkk2/excel-tutorial/howtouseexceltoreadstockstrendofhongkongstockmarket-vbasyntax-worksheetchange

But need to find the solution for the other questions follow,
will make another tutorial for it once found the solution

2010-11-13 23:00:16 補充：
剛完成了，看看是否你想要的，謝。

http://sites.google.com/site/exceltkk2/excel-tutorial/howtouseexceltocomparestocks-vbasyntax-mod

👍 0 👎 0

收錄日期: 2021-04-19 23:33:35
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20101103000051KK00312

檢視 Wayback Machine 備份