1

セル範囲 (x,y) を入力として使用して、VBA で Max 関数を呼び出すにはどうすればよいですか?

たとえば、m と n の 2 つの変数があります。ここで、n > m です。

次のコードを使用して、セル範囲内の最大値を見つけようとします。

Cells(Count, 4) = Application.WorksheetFunction.Max(Cells(m, 1): Cells(n, 1))

そのコードを使用すると、「期待される: リストセパレーターまたは)」というエラーが表示され続けます

編集、ここにコード全体があります

Sub convertFNIRStoCandlesticks()

'Variable declarations
Dim rowCount As Integer             'The total number of rows in use
Dim Count As Integer
Dim Period As Integer
Dim totalPeriods As Integer
Dim PeriodStart As Integer
Dim PeriodEnd As Integer

rowCount = ActiveSheet.UsedRange.Rows.Count
totalPeriods = rowCount / 6
Sheets("Sheet1").Activate

For Count = 1 To totalPeriods
    Period = Count - 1
    PeriodStart = (Period * 6) + 1
    m = (Period * 6) + 1
    PeriodEnd = (Period * 6) + 6
    n = PeriodEnd
    Cells(Count, 2) = Cells(PeriodStart, 1)
    Cells(Count, 4) = Application.WorksheetFunction.Min(Range(Cells(PeriodStart, 1), Cells(PeriodEnd, 1)))
    Cells(Count, 5) = Cells(PeriodEnd, 1)
Next Count


End Sub
4

1 に答える 1