taigernotora さんの引用:
sheet1には、マクロを起動させる条件を入れ
sheet2には、0:00:00〜23:59:59(0:00:01間隔)に対する温度や各種パラメータ値が5列ほどあり、
sheet3には、sheet2からsheet1で選択した条件で情報を出力したいと考えています。
例えば、
スタート時刻:10:15:00
出力時間:15分間
とsheet1に入力しマクロを起動させたら、sheet3に10:15:00〜10:30:00までのsheet2の情報が出力されるというものです。
(1)スタート時刻は、Sheet1のどこのセルで指定するのですか?
(2)
出力時間:15分間
とは、スタート時刻から15分間だけ(14分x60秒・・・の行数)を複写したいということですか?
ということは、Sheet2.Range(
Cells(1,1)
は、間違っていますね?
スタート時刻がどの行にあるかを検索する必要があると思いますが・・・
(3)マウロは、どこのモジュールに記述しているのですか?
雰囲気からSHeet2モジュールに記述かな?
ヒントのコードを書きます。
Sheet1のセルA1に開始時刻を入力します。
例:10:15:00
複写は15分間・・・10:15:00〜10:29:59
になります。
以下を標準モジュールに記述してください
Sub Sample()
Dim 開始時刻 As Long
開始時刻 = Sheets("Sheet1").Range("A1").Value * 86400 + 1
Sheets("Sheet3").Range("A1").Resize(15 * 60).Value = Sheets("Sheet2").Range("A" & 開始時刻).Resize(15 * 60).Value
End Sub