個人事業主の方必見!確定申告のお悩み解決

IEの中のエクセルから、通常のエクセルへコピーしたい。

ネット上のアクティブセルから、自分のパソコンのエクセルへセルの内容を
コピーしたいのですが、うまくアクティブになりません。
よろしくお願いします。

Sub TENKI()

部材記号 = ActiveCell.Value
部材名 = ActiveCell.Offset(0, 2).Value
ActiveCell.Offset(1).Select
イエス = MsgBox(部材記号 & " 部材名も必要ですか?", vbYesNo)
If イエス = 6 Then
ActiveCell = 部材記号
ActiveCell.Offset(0, 2).Value = 部材名
ActiveCell.Offset(1).Select
ElseIf イエス = 7 Then
ActiveCell = 部材記号
ActiveCell.Offset(1).Select
End If
End Sub

Private Sub Workbook_Open()
With Application.CommandBars("Cell").Controls.Add(Temporary:=True)
.Caption = "転記"
.OnAction = "TENKI"
.BeginGroup = True
End With
End Sub

A 回答 (1件)

詳しくは知りませんが、使用しているExcelのエディションはProfessionalでしょうか。

Personalではできなかったと思います。

この回答への補足

早速の返事、ありがとうございます。
Professionalだと思います。

補足日時:2010/06/27 19:37
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング