런타임 오류, 엑셀 2010 VBA

Question

G'day에 변형 배열을 사용하여이

그래서 희망 누군가가 여기에 무슨 일이 일어나고 있는지 알 방법이 문제에 대한 해결책에 대한 높고 낮은 검색했습니다!

코드는 다음과 같습니다. 내 이해는 배열 variant를 사용하기 때문에 long으로 i와 n을 정의해야한다는 것입니다. 지금이 순간, 내가받을거야 "런타임 오류 '1004': 응용 프로그램 정의 또는 개체 정의 오류"오류를 줄 뒤에 : 내가 가진 i와 m 변수를 대체하려고했습니다

If Cells(i, m) < Cells(i, (m-1)) Then 

순수하게 테스트 용이지만 문제는 계속됩니다. 나를 알 때, 나는 뭔가 잘못 들여 썼다.

Option Explicit 

Public Sub Show_Arrows() 

Dim i As Integer 
Dim n As Integer 
Dim m As Integer 

Dim Increasing() As Variant 
Dim Decreasing() As Variant 

Decreasing = Array(10, 11, 16, 17, 18, 19) 

Increasing = Array(12, 13, 22, 25, 26, 31, 32, 36, 37, 38, 39, 40, 41, 44, 45, 46, 47, 50, 51, 52, 55, 58) 

m = (Month(Date) - 4) 

For i = LBound(Decreasing) To UBound(Decreasing) 
    Cells(i, 16).Select 
    If Cells(i, m) < Cells(i, (m - 1)) Then 
     ActiveSheet.Pictures.Insert("C:\Users\jamie.rosssmith\Documents\Visual Basic Programming\Arrows - Vanessa\Green.png").Select 
    ElseIf Cells(i, m) > Cells(i, (m - 1)) Then 
     ActiveSheet.Pictures.Insert("C:\Users\jamie.rosssmith\Documents\Visual Basic Programming\Arrows - Vanessa\Red.png").Select 
    End If 
Next 

For n = LBound(Increasing) To UBound(Increasing) 
    Cells(n, 16).Select 
    If Cells(n, m) > Cells(n, (m - 1)) Then 
     ActiveSheet.Pictures.Insert("C:\Users\jamie.rosssmith\Documents\Visual Basic  Programming\Arrows - Vanessa\Green.png").Select 
    ElseIf Cells(n, m) < Cells(n, (m - 1)) Then 
     ActiveSheet.Pictures.Insert("C:\Users\jamie.rosssmith\Documents\Visual Basic Programming\Arrows - Vanessa\Red.png").Select 
    End If 
Next 

End Sub 

Answer 1

LBound (감소)는 0입니다. 인덱스가 0 인 셀은 선택할 수 없습니다. 그래서 For 루프를 1에서 시작하거나 0 인덱스가있는 행을 피하도록 코드를 변경하십시오.

Option Explicit 
Public Sub Show_Arrows() 

Dim i As Integer 
Dim n As Integer 
Dim m As Integer 

Dim Increasing() As Variant 
Dim Decreasing() As Variant 

Decreasing = Array(10, 11, 16, 17, 18, 19) 

Increasing = Array(12, 13, 22, 25, 26, 31, 32, 36, 37, 38, 39, 40, 41, 44, 45, 46, 47, 50, 51, 52, 55, 58) 

m = (Month(Date) - 4) 

For i = 1 To UBound(Decreasing) + 1 
    Cells(Decreasing(i - 1), 16).Select 
    If Cells(Decreasing(i - 1), m) < Cells(Decreasing(i - 1), (m - 1)) Then 
     ActiveSheet.Pictures.Insert("C:\Users\jamie.rosssmith\Documents\Visual Basic Programming\Arrows - Vanessa\Green.png").Select 
    ElseIf Cells(Decreasing(i - 1), m) > Cells(Decreasing(i - 1), (m - 1)) Then 
     ActiveSheet.Pictures.Insert("C:\Users\jamie.rosssmith\Documents\Visual Basic Programming\Arrows - Vanessa\Red.png").Select 
    End If 
Next 

For n = 1 To UBound(Increasing) + 1 
    Cells(Increasing(n - 1), 16).Select 
    If Cells(Increasing(n - 1), m) > Cells(Increasing(n - 1), (m - 1)) Then 
     ActiveSheet.Pictures.Insert("C:\Users\jamie.rosssmith\Documents\Visual Basic Programming\Arrows - Vanessa\Green.png").Select 
    ElseIf Cells(Increasing(n - 1), m) < Cells(Increasing(n - 1), (m - 1)) Then 
     ActiveSheet.Pictures.Insert("C:\Users\jamie.rosssmith\Documents\Visual Basic Programming\Arrows - Vanessa\Red.png").Select 
    End If 
Next 


End Sub 

Answer 2

배열 색인은 0부터 시작합니다. Option Explicit 아래에 Option Base 1 문을 추가합니다.

다음으로, Excel은 셀을 이해하지 못합니다. 그것은 worksheet.cells 또는 range.cells를 이해합니다. 셀을 사용하여 작업하려면 워크 시트 또는 범위 개체 변수를 선언하고 값을 할당합니다. 예를 들어, 워크 시트로 Dim wks. wks = thisworkbook.worksheets ("Sheet1")을 설정하십시오.

배열을 사용할 때 크기를 초기화 할 때 항상 Redim 문을 사용합니다. 배열 중 하나에 대한 코드가 감소하고 있습니다 = array(). 내 말은 Redim reduce() = array()라고 말할 것입니다.

코딩 한 방법을 사용하여 그림을 가져올 수 있지만 원하는 특정 셀에 끝나지는 않습니다.

따라서 가능한 경우 접근법을 재평가하고 원하는 결과를 얻기위한 다른 방법이 없는지 고려하십시오.