아래 우리는 패턴을 만들어 엑셀 VBA에서 프로그램을 볼 것이다.

상황 :

Create a Pattern in Excel VBA

워크 시트에 명령 단추를 놓고 다음 코드 줄을 추가

  1. 먼저, 우리는 형 정수의 두 변수를 선언합니다. 하나의 이름 난 하나의 이름이 J.

Dim i As Integer, j As Integer

  1. 두 번째, 우리는 다음 루프를 들어 두를 추가합니다.

For i = 1 To 5 Step 2

For j = 1 To 5 Step 2

  1. 다음으로, 우리는 밝은 회색의 셀의 배경색을 변경하는 행을 추가합니다.

Cells(i, j).Interior.ColorIndex = 15

참고 : 대신 ColorIndex 번호 15 (밝은 회색), 당신은 어떤 ColorIndex 번호를 사용할 수 있습니다.

  1. 닫기 다음의 경우 두 개의 루프.

Next j

Next i

  1. 테스트 프로그램.

지금까지 결과.

Crate a Pattern Result so Far

i가 1, J = 3 = 위해 예를 들어, i에 1, 및 J = 1, 엑셀 VBA 색 셀 (1,1) = ( ‘링크 / VBA를 예로 스텝 트 키워드 [공정]’2), 엑셀 VBA 색 셀 (1,3), I는 1, J = 5, 엑셀 VBA 색 셀 (1,5) =, 난 3 (공정 2)와, J = 1, 엑셀 VBA 색 셀 = 대한 (3,1) 등

  1. 우리는 거의있다. / VBA – 예 – 오프셋 (offset) ‘아래에 1 행과 셀의 오른쪽에 1 열을 기준으로 이미 색깔의 [오프셋] : 우리가해야 할 유일한 것은,’연결 고리 세포가 색상입니다. 루프에 다음 코드 줄을 추가합니다.

Cells(i, j).Offset(1, 1).Interior.ColorIndex = 15

  1. 테스트 프로그램.

결과 :

Create a Pattern Result