Excelについてです

質問

Excelのマクロについて教えてください

画像をご確認ください。
ボタンを押すとセル内の内容をアクティブなセルへ貼り付けしたいと考えております。

ご指導の程よろしくお願いします。

回答No.1

chie65536（@chie65535） · ベストアンサー

１．画像の左側のシート（貼り付けたいセルがあるシート）を選択する。

２．画像の左側のシートの「貼り付けたいセル」を選択状態にしておく。

３．「マクロ」メニューで「マクロの記録」を選ぶ。

４．画像の右側のシート（コピー元のセルがあるシート）を選択する。

５．「２階はしご…」のセルを選択する。

６．「編集」「コピー」でコピーする（選択したセルが点滅する）

７．画像の左側のシート（貼り付けたいセルがあるシート）を選択する。

８．「編集」「形式を選択して貼り付け」「値のみ」で貼り付けを行なう。

９．「マクロ」「記録終了」を行い、マクロの記録を終了する。

１０．「マクロ」「マクロの編集」で、記録されたマクロをVisual Basic Editorで開く。

以下のようなVBAのコードが表示される筈です。

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2017/2/22 ユーザー名 : XXXX
'

'
　Sheets("Sheet2").Select
　Range("C7").Select
　Selection.Copy
　Sheets("Sheet1").Select
　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　　:=False, Transpose:=False
　Sheets("Sheet2").Select
End Sub

上記の例では「２階はしご…」のセルは「Sheet2のセルC7」になっていると想定しています。

１１．記録されたマクロのVBAコードを、範囲指定して、コピーする。

'
' Macro1 Macro
' マクロ記録日 : 2017/2/22 ユーザー名 : XXXX
'

'
　Sheets("Sheet2").Select
　Range("C7").Select
　Selection.Copy
　Sheets("Sheet1").Select
　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　　:=False, Transpose:=False
　Sheets("Sheet2").Select

の部分だけを範囲指定して、コピーします。

Sub Macro1()

の行と

End Sub

の行は要りません。

１２．ボタンがあるシートを選択する。

１３．シートをデザインモードにする。

１４．ボタンを右ボタンクリックして「コードの表示」を選ぶ。

１５．Visual Basic Editorの画面になるので、そこに、手順１１でコピーしたVBAコードを貼り付ける。

以下のようになる筈です。

Private Sub CommandButton5_Click()
'
' Macro1 Macro
' マクロ記録日 : 2017/2/22 ユーザー名 : XXXX
'

'
　Sheets("Sheet2").Select
　Range("C7").Select
　Selection.Copy
　Sheets("Sheet1").Select
　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　　:=False, Transpose:=False
　Sheets("Sheet2").Select
End Sub

１６．Visual Basic Editorの画面を閉じます。

１７．ブックを上書き保存します。

お礼

有り難う御座いました。
できました！
たすかりました

回答No.2

mt2015

質問文と画像の通りであれば以下の様な単純な内容ですが、本当に必要としている事とは違うような気がします。

ActiveCell.Value = Range("H4")

お礼

有り難う御座いました。
ヒントになりました！