वीबीए

Question

का उपयोग करके प्रत्येक सेल में एक आकृति जोड़ने के लिए वर्कशीट में गोल कोशिकाओं को लूपिंग करना मैं वीबीए के लिए काफी नया हूं, और तालिका में हर दूसरे कॉलम में एक तीर जोड़ने की कोशिश कर रहा हूं। मुझे त्रुटि मिल रही है: method 'range' of object '_global' failed।

इसे ठीक करने के लिए मुझे क्या करना चाहिए।

Sub loop1() 
    'Loop round range P6:AA10 
    Dim i As Integer 
    Dim j As Integer 
    Dim k As Integer 


    For i = 9 To 14 
     For j = 6 To 10 
      k = (i * 2) - 1 
      ActiveSheet.Shapes.AddShape(msoShapeRightArrow, Range(Cells(j, k)).Left + 2, _ 
       Range(Cells(j, k)).Top + 3, 15, 10).Select 
     Next j 
    Next i 
End Sub 

Answer 1

रेंज() को छोड़ दें, जैसा दिखता है। लिफ्ट और .ओप सेल की गुण वस्तुएं रेंज नहीं हैं। यह कोड एक्सेल 2010 पर मेरे लिए चलता है:

Sub loop1() 
    'Loop round range P6:AA10 
    Dim i As Integer 
    Dim j As Integer 
    Dim k As Integer 


    For i = 9 To 14 
     For j = 6 To 10 
      k = (i * 2) - 1 
      ActiveSheet.Shapes.AddShape(msoShapeRightArrow, Cells(j, k).Left + 2, _ 
       Cells(j, k).Top + 3, 15, 10).Select 
     Next j 
    Next i 
End Sub