VBのMIN/MAX関数でセルを反復処理する方法は？

Question

Set min=min1=1000, max=max1=position=0 
    For i=2 to 10 do 
    min=**MIN(A(i,j):A(i+5,j));** 
    if position=0 then min1=min, position=1 else 
    For j=2 to 10 do {max=**MAX(A(i,j):A(i+5,j));** 
    if max<min then next j else position=0, next i 

私はこの時に新しい午前VBエクセル（問題が太字れる）で上記の次のコードをやろうとしている。おかげで

Answer 1

あなたがやろうとしているものは明らかではないので、すべてあなたのコードを修正することは不可能です。しかし、次のようにすれば、あなたには始まります。私はアルファベット順にそれらを宣言することを好むが、それは必須ではありません

Dim i As Integer 
Dim j As Integer 
Dim max As Integer 
Dim max1 As Integer 
Dim min As Integer 
Dim min1 As Integer 
Dim Position As Integer 

：

それはあなたの変数を宣言すると、そのタイプを指定するために、常に最高です。

あなたが必要：

min = 1000 
    min1 = 1000 
    max = 0 
    max1 = 0 
    Position = 0 

Set min=min1=1000, max=max1=position=0に以下の誤りがあります。

• セットがオブジェクトのみに使用されます。
• 文をカンマで区切ることはできません。いくつかの言語min=min1=1000で

• はmin1=1000, min=min1を意味しますが、VBAでそれは意味：

  If min1=1000 Then 
      min=True 
  Else 
      min=False 
  End if 
  

はfor文の末尾にDoはありません。したがって：

For i = 2 To 10 

MINおよびMAXはワークシート関数です。 VBAでこれを使用するには、ワークシート機能であると言わなければなりません。 VBAのステートメントの最後にはセミコロンはありません。 MIN関数でjを使用しましたが、まだ値を設定していません。

MINおよびMAXへのパラメータである値の場所を知ることはできません。

場所はあなたが何か必要な現在のワークシート内にある場合：

With ActiveSheet 
    min = Application.WorksheetFunction.min(.Range("B16:F16")) 
End With 

または多分などを：

With ActiveSheet 
    min = Application.WorksheetFunction.min(.Range(.Cells(i,j),.Cells(i+5,j))) 
End With 

これは、アレイ上MINとMAX関数を使用することが可能であるが、私は配列の一部を選択する方法がないことを知っています。

希望すると、これが始まります。