/ / Excel VBA의 롤링 평균

Excel VBA의 롤링 평균

아래에서 우리는 Excel VBA 그것은 롤링 평균 테이블. 워크 시트에 명령 단추를 놓고 다음 코드 줄을 추가하십시오.

Range("B3").Value = WorksheetFunction.RandBetween(0, 100)

이 코드 행은 0과 0 사이의 임의의 숫자를 입력합니다.및 100을 셀 B3에 저장합니다. Excel VBA에서 새 주식 값을 가져와 롤링 평균 테이블의 첫 번째 위치에 배치하려고합니다. 다른 모든 값은 한 위치 아래로 이동해야하며 마지막 값은 삭제되어야합니다.

Excel VBA에서 롤링 평균 테이블

Excel VBA에서 롤링 평균 테이블

워크 시트 변경 이벤트를 작성하십시오. 워크 시트 변경 이벤트에 추가 된 코드는 워크 시트의 셀을 변경할 때 Excel VBA에서 실행됩니다.

1. Visual Basic Editor를 엽니 다.

2. 프로젝트 탐색기에서 Sheet1 (Sheet1)을 두 번 누릅니다.

3. 왼쪽 드롭 다운 목록에서 워크 시트를 선택하십시오. 오른쪽 드롭 다운 목록에서 변경을 선택하십시오.

Excel VBA에서 워크 시트 변경 이벤트

워크 시트 변경 이벤트에 다음 코드 줄을 추가하십시오.

4. Integer 유형의 newvalue라는 변수와 두 개의 범위 (firstfourvalues ​​및 lastfourvalues)를 선언하십시오.

Dim newvalue As Integer, firstfourvalues As Range, lastfourvalues As Range

5. 워크 시트 변경 이벤트는 Sheet1의 모든 변경 사항을 수신합니다. 우리는 셀 B3에서 무언가가 변경되면 Excel VBA가 무언가를 수행하기를 원합니다. 이를 위해 다음 코드 줄을 추가하십시오.

If Target.Address = "$B$3" Then

6. 우리는 셀 B3의 값으로 처음 값을 Range ( "D3 : D6") 및 lastfourvalues ​​(Range : "D4 : D7")로 초기화합니다.

newvalue = Range("B3").Value
Set firstfourvalues = Range("D3:D6")
Set lastfourvalues = Range("D4:D7")

7. 이제 간단한 속임수가 나온다. 롤링 평균 테이블을 업데이트하려고합니다. 마지막 4 개의 값을 테이블의 처음 4 개 값으로 바꾸고 첫 번째 위치에 새 주식 값을 배치하면됩니다.

lastfourvalues.Value = firstfourvalues.Value
Range("D3").Value = newvalue

8. if 문을 닫는 것을 잊지 마십시오.

End if

9. 마지막으로 수식 = AVERAGE (D3 : D7)를 D8 셀에 입력하십시오.

10. 명령 단추를 눌러 프로그램을 테스트하십시오.

또한 읽으십시오 :