Excel VBA 質問スレッド No.144 (未解決)

代入とその結果を別のシートにコピペをするvbaを知りたいです

投稿者 : ぼんじりだいすき     投稿日時 : 2020/12/07(Mon) 16:33:22     OS : Windows 10     EXCEL : Excel 2016
シート1にC11に数値を入れるとB17とC17とD17に計算された値が表示されるエクセルがあります。
このC11にシート1のA22に初期値、A23に最終値、A24にいくつごとに行うかを指定し(例えば、A22=100,A23=200,A24=0.5としたら、C11に100,100.5,101,101.5,102...199.5,200という様にC11に入るようにしたい)
、それぞれの数値を代入した時のB17とC17とD17に計算された値をシート2にそれぞれ出力できるようなマクロを組みたいです。
つたない説明で申し訳ないですが、よろしくお願いします。

[返信 1] Re : 代入とその結果を別のシートにコピペをするvbaを知りたいです
投稿者 : sander     投稿日時 : 2020/12/12(Sat) 13:08:44
Sub tes01()
Dim Kaisi As Double, Owari As Double, Kankaku As Double
Dim Sh1 As Worksheet, Sh2 As Worksheet
Dim bRange As Range, n
Dim bGyou As Double

'入力シート
Set Sh1 = ThisWorkbook.Sheets("a")
'出力シート
Set Sh2 = ThisWorkbook.Sheets("b")

Set bRange = Sh2.Range("A1").CurrentRegion
bGyou = bRange.Rows.Count + 1
Kaisi = Sh1.Range("A22").Value
Owari = Sh1.Range("A23").Value
Kankaku = Sh1.Range("A24").Value


For n = Kaisi To Owari Step Kankaku
Sh1.Range("C11").Value = n
Sh1.Calculate
Sh1.Range("B17:D17").Copy
Sh2.Cells(bGyou, 1).PasteSpecial xlPasteValues
bGyou = bGyou + 1
Next

End Sub

当掲示板について
返信入力フォーム
お 名 前  :
内  容   :
ステータス  : この質問を解決済みにする

認証コード  :
        キャプチャ画像


( 処理日時 : 2021-01-27 12:54:41 )

Page
Top