|
こんにちは。かみちゃん です。
> vntData にデータを読み込ませまして、vntDataの1〜9行間の最大値を別シート
>(DATA)のセルに出力しようとしているのですが、どうしてもうまくいきません。
どううまくいかないのでしょうか?
エラーが出るのでしょうか?
提示されたコードは、投稿時の記述ミスでしょうか?
Cells(50 5)
という記述や
vntData3.RANGE _("A1:A9")
という記述がおかしいです。
また、これらが仮に投稿時の誤りだとすれば、
vntData = Sheets("データ").Range(Cells(2, 5), Cells(50, 5)).Value
というコードでは、「データ」シートがアクティブでない場合、エラーになります。
Cells で指定しているセルのシートがアクティブシートだからです。
以上のことを推測して、修正すると、以下のような感じでいかがでしょうか?
Sub テスト()
Dim vntData As Variant
vntData = Sheets("データ").Range(Sheets("データ").Cells(2, 5), Sheets("データ").Cells(50, 5)).Value
Sheets("DATA").Cells(1, 1) = WorksheetFunction.Max(vntData, Range("A1:A9"))
End Sub
投稿時のコードの提示は、VBEで記述したコードをそのままコピーして張り付ける
ようにすれば、今回のようなことはなくなると思います。
|
|