Excel vba：範囲とセルを入力してください

Question

vba（excel）のセルと範囲で少し混乱しています。論理的には、私はサイズ= 1の範囲としてセルを考えることができました。私はセルから範囲を作るのは簡単だと思います。

EntireRowプロパティのAPIを読み取った場合here 範囲で動作します。しかし、「ループ内cell'variableを示す以下のコード作業は、範囲同時に

Set import = Sheets("import") 
    Set spRange = import.Range("A2") 
    Set spRange = import.Range("A2:" & spRange.End(xlDown).Address) 
    For Each cell In spRange 
     dict.Add cell.Offset(0, 2).Text, cell.EntireRow 
    Next cell 

で、以下のコードは、removecell関数を呼び出すときに型の不一致を示すエラーを返します。関数定義にはtargetCellの型はどうなりますか？

Set spRange = mySheet.Range("b2", mySheet.Range("b2").End(xlDown)) 
For Each cell In spRange 
    val = removecell (cell) 
Next cell 


Public Function removecell(targCell As Range) As Boolean 
    removecell = False 
End Function 

Answer 1

これは、コンパイルし、実行します：

Sub Tester() 
Dim spRange As Excel.Range 
Dim cell As Excel.Range 
Dim mySheet As Excel.Worksheet 
Dim val As Boolean 

Set mySheet = ActiveSheet 
Set spRange = mySheet.Range("b2", mySheet.Range("b2").End(xlDown)) 
For Each cell In spRange 
    val = removecell(cell) 
Next cell 

End Sub 

Public Function removecell(targCell As Range) As Boolean 
    removecell = False 
End Function