|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007):
* 아래줄에 질문을 작성하세요 >>
0.1에서 0.6까지는 잘 출력되는데 그 이후부터는 안됩니다 ㅠㅠ
뭐가 문제인가요? 자꾸 오버플로만 뜹니다..
Sub project4_2_bc()
Sheets("프젝4-2bc").Select
x = 20
h = 5
a = Log(x)
w = 1
b = 1
For w = 1 To 10
b = w / 100
For n = 1 To 11
For m = 1 To 11
Cells(n, m) = 0
Next m
Next n
Cells(1, 1) = 1
Cells(2, 2) = 1
Cells(11, 11) = 1
Cells(1, 13) = 4 * (10 ^ 5)
Cells(2, 13) = -4 * (10 ^ 3)
Cells(11, 13) = 100
For k = 3 To 10
Cells(k, k - 2) = -1 / 125
Cells(k, k - 1) = 3 / 125
Cells(k, k) = -3 / 125 - (b * a) ^ 3 / 5
Cells(k, k + 1) = (1 / 5) + (b * a) ^ 3 / 5
Next k
For j = 3 To 10
Cells(j, 13) = -0.3 * x ^ 2
x = x + h
Next j
Call 역및해벡8
Range("M25") = "=MIN(R[-12]C#)"
Range("M26") = "=MAX(R[-13]C#)"
x = Range("M25")
y = Range("M26")
Cells(w + 1, 15) = b
Cells(w + 1, 16) = x
Cells(w + 1, 17) = y
Next w
End Sub |
|