ALT+F 1 1, VBA 편집기 열기, 모듈 삽입, 복사하여 다음 코드 붙여넣기, F5 실행, 결과는 a11에 표시됩니다
하위 TJ ()
I, j, x, y 를 바이트로 표시합니다
A, b, c, d, e, f 를 단일 치수로 표시합니다
범위 ("k:p") 입니다. 분명하다
I = 2 ~ 8 인 경우
X = 0
Y = 0
J = 3 부터 10 까지의 경우
If int (j/2) < & gtj/2 및 셀 (I, j) < & gt ""그럼
X = x+1
기타
Int(j/2) = j/2 이고 Cells(i, j) < & gt ""그럼
Y = y+1
만약 ... 끝날거야
만약 ... 끝날거야
그리고 나서
X = 0 이고 y = 0 이면
Cells(i, Asc(Cells(i, 2))-54) = 1
만약 ... 끝날거야
X = 1 및 y = 0 인 경우
셀 (I, Asc (셀 (I, 2))-54) = 0.5
J = 3 부터 10 까지의 경우
If int (j/2) < & gtj/2 및 셀 (I, j) < & gt ""그럼
Cells(i, Asc(Cells(i, j))-54) = Cells(i, Asc(Cells(i, j))-54)+0.
만약 ... 끝날거야
그리고 나서
만약 ... 끝날거야
X> 1 이면 y = 0 입니다
셀 (I, Asc (셀 (I, 2))-54) = 0.3
J = 3 부터 10 까지의 경우
If int (j/2) < & gtj/2 및 셀 (I, j) < & gt ""그럼
Cells(i, Asc(Cells(i, j))-54) = Cells(i, Asc(Cells(i, j))-54)+0.
만약 ... 끝날거야
그리고 나서
만약 ... 끝날거야
X = 0 이고 y>= 1 그리고
셀 (I, Asc (셀 (I, 2))-54) = 0.6
J = 3 부터 10 까지의 경우
Int(j/2) = j/2 이고 Cells(i, j) < & gt ""그럼
Cells(i, Asc(Cells(i, j))-54) = Cells(i, Asc(Cells(i, j))-54)+0.
만약 ... 끝날거야
그리고 나서
만약 ... 끝날거야
X = 1 및 y>= 1 그리고
셀 (I, Asc (셀 (I, 2))-54) = 0.3
J = 3 부터 10 까지의 경우
If int (j/2) < & gtj/2 및 셀 (I, j) < & gt ""그럼
Cells(i, Asc(Cells(i, j))-54) = Cells(i, Asc(Cells(i, j))-54)+0.
기타
Int(j/2) = j/2 이고 Cells(i, j) < & gt ""그럼
Cells(i, Asc(Cells(i, j))-54) = Cells(i, Asc(Cells(i, j))-54)+0
만약 ... 끝날거야
만약 ... 끝날거야
그리고 나서
만약 ... 끝날거야
X> 1 및 y> 가 1 인 경우
셀 (I, Asc (셀 (I, 2))-54) = 0.2
J = 3 부터 10 까지의 경우
If int (j/2) < & gtj/2 및 셀 (I, j) < & gt ""그럼
Cells(i, Asc(Cells(i, j))-54) = Cells(i, Asc(Cells(i, j))-54)+0.
기타
Int(j/2) = j/2 이고 Cells(i, j) < & gt ""그럼
Cells(i, Asc(Cells(i, j))-54) = Cells(i, Asc(Cells(i, j))-54)+0
만약 ... 끝날거야
만약 ... 끝날거야
그리고 나서
만약 ... 끝날거야
그리고 나서
A = 적용. WorksheetFunction.Sum (범위 ("k:k"))
B = 적용. 워크시트 Function.Sum (범위 ("l:l"))
C = 적용. WorksheetFunction.Sum (범위 ("m:m"))
D = 적용. 워크시트 Function.Sum (범위 ("n:n"))
E = 적용. 워크시트 Function.Sum (범위 ("o:o"))
F = 적용. WorksheetFunction.Sum (범위 ("p:p"))
범위 ("k:p") 입니다. 분명하다
Cells( 1 1,1) = "a =" & 형식 (a, "0.00")
Cells( 12,1) = "b =" & 형식 (b, "0.00")
Cells( 13,1) = "c =" & 형식 (c, "0.00")
Cells( 14,1) = "d =" & 형식 (d, "0.00")
Cells( 15,1) = "e =" & 형식 (예: "0.00")
Cells( 16,1) = "f =" & 형식 (f, "0.00")
끝단 접합