各n番目のセルから範囲を作成する

Question

引数として渡された範囲のn番目のセルからなる範囲を返す関数を作成しようとしています。

Function OFFSETRANGE(AREA As Range, Optional STEP As Integer = 1) As Range 
Dim Counter As Integer 
Dim TempRange As Range 

For Each rCell In AREA.Cells 
    If Counter Mod Counter = 0 Then 
     MsgBox ("In loop" & Counter & " " & rCell) 
     TempRange = Application.Union(TempRange, rCell) 
    End If 
Next 
OFFSETRANGE = TempRange 
End Function 

この機能を使用するときはいつでも#VALUEエラーが発生します。私はあなたがここに

If Counter Mod Counter = 0 Then

しかし、このように値の誤差を投げ値をCounter持っていませんが何をしようとしてわからない間違った

Answer 1

何をやっています。

Answer 2

カップルのことが正しくないように見えます。

1）あなたの "カウンター"整数は設定されておらず、あなた自身がmod値を行っているので、値があっても常に0になります。おそらくあなたはCounter Modのステップを意味しますか？以下のサンプルでは、​​counter = 2に設定しましたが、明らかに変更することができます。

2）組合は最初の努力に失敗します。これに対処する最善の方法は、何もないif文です。私は以下のサンプルを含みます。

Function OFFSETRANGE(AREA As Range, Optional STEP As Integer = 1) As Range 
Dim Counter As Integer: Counter = 2 
Dim TempRange As Range, rCell As Range 

For Each rCell In AREA.Cells 
    If Counter Mod STEP = 0 Then 
     MsgBox ("In loop" & Counter & " " & rCell) 

     If TempRange Is Nothing Then 
      Set TempRange = rCell 
     Else 
      Set TempRange = Union(TempRange, rCell) 
     End If 

    End If 

Next 
Set OFFSETRANGE = TempRange 
End Function 

Answer 3

Function OFFSETRANGE(AREA As Range, Optional theStep As Integer = 1) As Range 

    Dim Counter As Long 
    Dim TempRange As Range, rCell As Range 

    For Each rCell In AREA.Cells 
     Counter = Counter + 1 
     If Counter Mod theStep = 0 Then 
      Debug.Print "In loop" & Counter & " " & rCell 
      'check if we can use Union or not here 
      If TempRange Is Nothing Then 
       Set TempRange = rCell 
      Else 
       Set TempRange = Application.Union(TempRange, rCell) 
      End If 
     End If 
    Next 
    Set OFFSETRANGE = TempRange 

End Function