एक्सेल vba

Question

में "सेल" फ़ंक्शन का उपयोग करके मैं रेंज फ़ंक्शन के उपयोग के माध्यम से vba का उपयोग करके एक्सेल में एक सेल का चयन करने का प्रयास कर रहा हूं।

मैंने कई संख्याओं की बजाय सीमा निर्दिष्ट करने के लिए चर का उपयोग करने से पहले भी कई बार ऐसा किया है।

हालांकि, मैं कोशिकाओं के फ़ंक्शन का उपयोग करके एक श्रेणी का चयन नहीं कर सकता।

मुझे पता है कि यह संभव है क्योंकि मैंने बहुत अधिक शोध किया है और अन्य लोगों के कोड को देखा है जो इस फ़ंक्शन का उपयोग करके सफलतापूर्वक चलाएंगे।

नीचे सिंटैक्स है जिसका उपयोग मैं श्रेणी का प्रयास करने और चुनने के लिए कर रहा हूं (जो केवल 1 सेल है)।

साथ ही, जब मैं कोड मैं निम्न संदेश प्राप्त चलाएँ:

"रन-टाइम त्रुटि '1004': object'_Global की 'सीमा' की विधि 'विफल"।

किसी भी और सभी मदद के लिए धन्यवाद।

Dim item As String 
Dim itempaste As Boolean 
Dim itemcnt As Integer 

itemcnt = 1 
itempaste = False 
Range("X3").Select 
Do 
    item = ActiveCell.Value 
    If item <> "" Then 
     Range("A18").Select 
     Do 
      If ActiveCell.Value = "" Then 
       ActiveCell.Value = item 
       itempaste = True 
      Else 
       ActiveCell.Offset(1, 0).Select 
      End If 
     Loop Until itempaste = True 
    End If 
    itemcnt = itemcnt + 2 
    Range(Cells(1, (21 + itemcnt))).Select 
Loop Until itemcnt = 11 

Answer 1

आप एक समारोह की तरह रेंज प्रकार का उपयोग कर रहे हैं; Cells कॉल वास्तव में आपको पहले से ही Range ऑब्जेक्ट लौटा रहा है। इसके बजाय

Range(Cells(1, (21 + itemcnt))).Select 

..try:

Cells(1, (21 + itemcnt)).Select 

आप अधिक स्पष्ट होना चाहते हैं:

Dim target As Range 
Set target = Cells(1, (21 + itemcnt)) 
target.Select