एक्सेल वीबीए: टाइप रेंज और सेल

Question

मैं वीबीए (एक्सेल) में सेल और रेंज द्वारा थोड़ा उलझन में हूं। तार्किक रूप से, मैं आकार = 1 के साथ एक सीमा के रूप में एक सेल सोच सकता है; और मुझे लगता है कि सेल से बाहर निकलना आसान है।

यदि मैं EntireRow प्रॉपर्टी 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 फ़ंक्शन को कॉल करें जब एक त्रुटि देता है। फ़ंक्शन परिभाषा में लक्ष्यसेल का प्रकार क्या होना चाहिए?

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