Re: [問題] 請問excel VBA一個問題 500P

[asklove (問愛)]

※ 引述《hahawin (haha)》之銘言：
: 軟體: excel 2007
: 想請教各位高手一個有關股票的問題
: 小弟目前有一個excel檔  兩個sheet
: sheet 1 在A1輸入代號 會自動跑出A2的數值
: sheet N0.1
:       1      2
: A   XXXX    price
: sheet N0.2
:       1       2
: A    2002
: B    2004
: C    3231
: 簡單來說小弟希望將sheet no.2
: 裡的第一列股票代號  自動帶到 sheet no.1 的A1格子裡(以XXXX表示)
: 帶入後 裡會自動跑巨集的程式 得到 A2裡的值(以Price表示)
: 然後將這個Price放到 sheet No.2 的A2行裡  然後依序如此作法來完成sheet2裡的B2與C2
: 想請教高手這要怎麼樣才可以自動化做到呢?
: 我是有想到用錄製巨集的方式來做
: 懇請幫忙! (sheet no.1裡的巨集code是鎖住加密的)
: 成功者以500P答謝!
: 真的懇請各位高手幫忙!! 感謝了!!
: [m推 koyuan:看不太懂  是要把兩個欄位複製上去？        180.176.106.37 11/08 20:37
:  (要將Excel Sheet No.2裡的A1,B1,C1依次帶到No.1的A1欄裡 然後將得到的price值
:   放回NO.2的 A2 B2 C2)

Excel 的列號是用123，欄號是用ABC....

這裡假設你的B1儲存格已經有自動帶值出來的功能

For i = 1 To
Application.WorksheetFunction.CountA(Sheets("Sheet2").Range("A:A"))
        Sheets("Sheet1").Select
        Sheets("Sheet1").Range("A1") = Sheets("Sheet2").Range("A" & i)
        ActiveSheet.Calculate
        Sheets("Sheet1").Range("B1").Copy
        Sheets("Sheet2").Select
        Sheets("Sheet2").Range("B" & i).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
Next


--

不論人們幾歲，永遠都在尋找真愛。

但偏偏真愛總是掉進湖裡，然後被湖中女神變成了金愛和銀愛..

                                        by 問愛(asklove)

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 111.254.34.23
推 hahawin:現在才看到 sorry  還是補發!!
→ hahawin:已發!