マクロを使った貼り付けの自動改行

質問

みなさま宜しくお願いしますm(__)m

１行目のＡＢＣＤＥは時間を入力する欄で、１行目のＧＨＩには数式が
入力されて求めたい値が表示されています。
１行目Ｊ辺りにボタンを作ってマクロを登録し、このボタンを押すと
５行目に数式で求めた値だけを貼り付けるようにしました。

１行目のＡＢＣＤＥに違う時間を入力してボタンを押すと、次は６行目
その次は７行目と貼り付けていく様にしたいのですが、どの様な方法を
使えば良いかご指導お願い致します。

回答No.1

onlyrom · ベストアンサー

こんばんは。

＞１行目Ｊ辺りにボタンを作ってマクロを登録しこのボタンを押すと
＞５行目に数式で求めた値だけを貼り付けるようにしました。

５行目のどのセルに貼り付けるのでしょうか？
以下のサンプルは５行目のＡ、Ｂ，Ｃ列に貼り付けるようにしてます。
サンプルの内容を現在のコードと入れ替えてください。

'-----------------------------------------------------　
Private Sub CommandButton1_Click()

　Dim LastRow As Long

　LastRow = Range("A65536").End(xlUp).Row

　If LastRow < 5 Then
　　　LastRow = 4
　End If

　Range("G1:I1").Copy
　Cells(LastRow + 1, "A").PasteSpecial Paste:=xlValues
　Cells(LastRow + 1, "A").Resize(, 3).NumberFormatLocal = "h:mm"

　Application.CutCopyMode = False
　Cells(LastRow + 2, "A").Select　　'●

End Sub
'----------------------------------------------------------

尚、４行目に「見出し」があれば、
　　If LastRow < 5 Then
　　　　LastRow = 4
　　End If
この３行は不要です。

それから●のコードがある場合とない場合でどう違うか試してください。

以上です。

お礼

大変お礼が遅くなってしまい申し訳ありませんでした。
自分なりに色々調べて、教えて頂いたものを理解していました^^;
頂いたサンプルは希望通りの動作で'●の違いまで付けて頂き感謝です。
("A65536")がどの位置を指すのか???ですが、もぉ少し調べてみます。
また困った時にはご指導お願い致します。ありがとうございました。

回答No.3

imogasi

A1,B1,C1に値が荒れられる。
G1に計算された値が入る。
その都度、ボタンをクリック
Private Sub CommandButton1_Click()
Static i
i = i + 1
Cells(i, "B").Offset(5, 0) = Cells(1, "G")
End Sub
でB5から順に値が累積される。
H,I分は略。
リセットは
VBE画面で、実行ーリセット
これで何か欠点がないか自信ないが。

お礼

ご指導ありがとうございました。
お礼が非常に遅くなり申し訳ありませんm(__)m
他の方に教えて頂いたものと動作の違いを比較しながら
自分なりに納得できました。
また困った時にご指導して頂ければ幸いです。
ほんとうにありがとうございました。

回答No.2

Ce_faci

こんばんわ
5行目のA列～C列に貼り付けるものとして、6行目からは
r=cells(5,1).currentregion.rows.count+4
Range(cells(1, 7), cells(1, 9)).copy destination := cells(r+1,1)
になると思います。

お礼

ご指導ありがとうございました。
教えて頂いたものを参考に色々と試してみました^^
これからしっかり勉強して行きたいと思いますので
困った時はまたご指導下さいます様お願い致します。