0

5 列のスプレッドシートを作成しました。ユーザーが Enter キーを押すと、情報が 2 番目のスプレッドシートにコピーされます。ただし、2 番目のボタンは同じ最初の列から情報をコピーしていますが、私は既にチェックしており、両方のボタンで Trade1 マクロと Trade2 マクロが選択されています。

スクリーンショット 1: http://screencast.com/t/zudhZCIQGA3l スクリーンショット 2: http://screencast.com/t/6NyW3gTy8oY

SS2 でわかるように、ボタン 2 を押した後、間違ったデータをコピーしています。

コードは以下です

Sub Trade1()
    Sheets("Trades").Select
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R2C2"
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R3C2"
    Range("C2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R4C2"
    Range("D2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R5C2"
    Range("E2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R6C2"
    Range("F2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R8C2"
    Range("G2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R7C2"
    Range("H2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R9C2"
    Range("I2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R10C2"
    Range("J2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R11C2"
    Range("K2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R11C2"
    Range("K2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R12C2"
    Range("P2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R13C2"
    Range("Q2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R14C2"
    Range("R2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R15C2"
    Range("S2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R16C2"
    Range("T2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R17C2"
    Range("U2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R18C2"
    Range("V2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R19C2"
    Range("V3").Select
    Sheets("Enter Trade").Select
End Sub

Sub Trade2()
    Sheets("Trades").Select
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R2C3"
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R3C3"
    Range("C2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R4C3"
    Range("D2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R5C3"
    Range("E2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R6C3"
    Range("F2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R8C3"
    Range("G2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R7C3"
    Range("H2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R9C3"
    Range("I2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R10C3"
    Range("J2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R11C3"
    Range("K2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R11C3"
    Range("K2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R12C3"
    Range("P2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R13C3"
    Range("Q2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R14C3"
    Range("R2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R15C3"
    Range("S2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R16C3"
    Range("T2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R17C3"
    Range("U2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R18C3"
    Range("V2").Select
    ActiveCell.FormulaR1C1 = "=+'Enter Trade'!R19C3"
    Range("V3").Select
    Sheets("Enter Trade").Select
End Sub
4

1 に答える 1