【VBA】カーソルのある行の１行目のセルをコピペし，最後にそのセルに戻る方法

Question

Excel VBAのことで伺います。office365を使用しています。
以下のとおりマクロを作りましたが，次の動きをするマクロにしたいと思っています。
コピペ元のセル番地を格納する変数が必要だと思うのですが，どのようにそれを宣言すれば良いか等ご教示願います。（今の状態だと，常にB5セルにカーソルが移動して終了してしまいます）

①　「回答」シートにおいてカーソルのある行のA列の値を，B５セルにコピペ
②　「様式」シートの範囲指定した箇所を印刷
③　「回答」シートの①の動作のときにカーソルのあった行のＡ列のセル（要は，コピペ元のセル）に戻る。

以下　現状のコード
----------------------------------------------------------------------------------------------
Sub 印刷()

 Sheets("回答").Cells(Selection.Row, 1).Select
 Selection.Copy
 Sheets("回答").Range("B5").Select
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    
 Sheets("様式").Select
 Application.CutCopyMode = False
 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
 
 Application.Goto Sheets("回答").Range("B5")

End Sub

Qchan1962 · Accepted Answer

連投すみません
書き換えてしまったので追記します

＞コピペ元のセル番地を格納する変数が必要だと思うのですが

今回の処理の場合必要ではなさそうですが方法としては2つあります

セル番地を格納する方法
Sub 印刷()
Dim セル番地 As String
セル番地 = Selection.Address
・
・
Application.Goto Sheets("回答").Range(セル番地)

セルオブジェクト自体を格納する方法
Dim セル As Range
Set セル = Selection
・
・
Application.Goto セル

注意　Selectionは状態を示すものなので　セルでない場合があります
（図を選択しているなどの状態）このような場合プログラムはエラーが返されます
エラーを回避するためにはSelectionを使う前に対象（今回セル）を確認する必要があります

fujillin · Answer

こんばんは

すでに回答が出ていますけれど・・

①文字通りに「カーソルのある行」のA列と解釈しました
　（A列以外であっても、その行のA列を採用します）
　　以下のコードではSelectionではなく、確実なActiveCellを使用しています。
②「範囲指定した箇所を印刷」とありますが、ご提示のコードでは
　　範囲指定をしていません。
　　ですので、シートに印刷範囲を指定してあるものと解釈し、
　　そのままにしてあります。
③最初にカーソルが別の列に合っても、その行のA列を選択した状態になります。

以下、ご参考までに。
※ 「回答」シートを表示した状態でないと動作しません。

Sub 印刷()
　If ActiveSheet.Name <> "回答" Then Exit Sub
　Cells(ActiveCell.Row, 1).Select
　Range("B5").Value = Selection.Value
　Worksheets("様式").PrintOut
End Sub

Qchan1962 · Answer

＞コピペ元のセル番地を格納する変数が必要だと思うのですが，どのようにそれを宣言すれば良いか等ご教示願います。
これについてはそのような構想でも良いと思いますが　そもそもSelectしなければ解決できます

①　「回答」シートにおいてカーソルのある行のA列の値を，B５セルにコピペ
コードを見ると値貼り付けのようですのでValue=Valueで代入する

②　「様式」シートの範囲指定した箇所を印刷
現行で良いがSelectをしない様に書く

③　「回答」シートの①の動作のときにカーソルのあった行のＡ列のセル（要は，コピペ元のセル）に戻る。

Selectをしなければ③は不要になります

１つ気になることは　カーソル　これがセル内に表示される状態のときはマクロは実行できないはずですので選択せるとします

コード全体を添削すると
Sub 印刷()

Sheets("回答").Range("B5").Value = Sheets("回答").Cells(Selection.Row, 1).Value
Sheets("様式").PrintOut Copies:=1, Collate:=True

End Sub

選択しているセルの値を指定セルに代入して様式シートをPrintOutをしています

【VBA】カーソルのある行の１行目のセルをコピペし，最後にそのセルに戻る方法

連投すみません

こんばんは

＞コピペ元のセル番地を格納する変数が必要だと思うのですが，どのようにそれを宣言すれば良いか等ご教示願います。

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング