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

看板Office作者asklove (問愛)時間14年前 (2011/11/12 00:39)推噓1(1推 0噓 1→)

留言2則, 1人參與討論串2/2 (看更多)

※ 引述《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