VBA가 워크 시트에 아무런 결과도 표시하지 않습니다.

Question

코드를 실행할 때 워크 시트에 결과가 나타나지 않는 이유는 무엇입니까? 내 코드에 문제가 있습니까? 누군가 확인해 줄 수 있습니까? 이건 내 코드입니다 :

Private Sub CommandButton1_Click() 
Dim Globalstrahlung, Koll_ein_o, Koll_aus_o, Aussentemp, MIDsolar As Double 
Dim a1, a2, b1, b2, c1, c2, d1, d2, e1, e2, f1, f2, g1, g2, x As Double 
Dim cpTyf, RohTyf As Double 
Dim Psolar, Puse_coll, Coll_eff As Double 
Dim iCntr As Long 

For iCntr = 3 To 8640 

    Globalstrahlung = Range("B" & iCntr) 
    Koll_ein_o = Range("C" & iCntr) 
    Koll_aus_o = Range("D" & iCntr) 
    Aussentemp = Range("E" & iCntr) 
    MIDsolar = Range("F" & iCntr) 

    x = (Koll_ein_o + Koll_aus_o)/2 

    x = Range("AW" & iCntr) 

    'Function cp(t) Tyfocor 35% 
    a1 = 3.5199 
    b1 = 0.0042 
    c1 = -0.00002 
    d1 = 0.0000009 
    e1 = -0.00000002 
    f1 = 0.0000000001 
    g1 = -0.0000000000005 

    cpTyf = a1 + (b1 * x) + (c1 * (x^2)) + (d1 * (x^3)) + (e1 * (x^4)) + (f1 * (x^5)) + (g1 * (x^6)) 

    cpTyf = Range("AX" & iCntr) 

    'Function Roh(t) Tyfocor 35% 
    a2 = 1045 
    b2 = -0.453 
    c2 = 0.0051 
    d2 = 0.00007 
    e2 = -0.0000007 
    f2 = 0.000000004 
    g2 = -0.00000000001 

    RohTyf = a2 + (b2 * x) + (c2 * (x^2)) + (d2 * (x^3)) + (e2 * (x^4)) + (f2 * (x^5)) + (g2 * (x^6)) 

    RohTyf = Range("AY" & iCntr) 

    'Collector capacity 

    Puse_coll = (MIDsolar/3600) * cpTyf * RohTyf * (Koll_aus_o - Koll_ein_o) 

    Puse_coll = Range("AZ" & iCntr) 

    'Solar capacity 
    Psolar = Globalstrahlung * 18.12 

    Psolar = Range("BA" & iCntr) 

    'Collector efficiency 
    If Globalstrahlung = 0 Then 
    Coll_eff = 0 

    ElseIf Globalstrahlung <> 0 Then 
    Coll_eff = (Puse_coll)/(Psolar) 

    End If 

Coll_eff = Range("BB" & iCntr) 

Range("BB" & iCntr).HorizontalAlignment = xlCenter 

Range("BB" & iCntr).NumberFormat = "0.00" 


Next 

End Sub 

Answer 1

이 같은 것을 할 때

:

Dim a1, a2, b1, b2, c1, c2, d1, d2, e1, e2, f1, f2, g1, g2, x As Double

만 x는 Double 데이터 형식으로 선언을, 다른 모든이 변형으로 선언됩니다.

둘째 점, cpTyf 당신이 명시 적으로 범위 개체의 .Value 속성에 액세스 할 것인지 언급하지 않은 때문에 변형이 예기치 않은 결과가 발생할 수 있습니다

cpTyf = Range("AX" & iCntr)

같은.

그러나 귀하의 질문에 대한 대답으로, 귀하는 귀하가 진술을 잘못된 방식으로 조작하고 있다고 가정 할 것입니다 (귀하가 값을 할당하고 그 후에 즉시 다른 값을 할당하려는 경우 제외).

대신 :

Puse_coll = (MIDsolar/3600) * cpTyf * RohTyf * (Koll_aus_o - Koll_ein_o) 

Puse_coll = Range("AZ" & iCntr) 

사용

Puse_coll = (MIDsolar/3600) * cpTyf * RohTyf * (Koll_aus_o - Koll_ein_o) 

Range("AZ" & iCntr).Value = Puse_coll 

Answer 2

보십시오 예를 들면,

Sheet1.Range("BB" & iCntr).NumberFormat = "0.00" 

또는

는

Sheets("name-of-sheet").Range("BB" & iCntr).NumberFormat = "0.00" 

당신은 With 문을 사용하여 자신에게 타이핑을 절약 할 수 있습니다 특정 시트로 Range 방법을 자격 예 :

With Sheets("My Sheet") 

    ' more code 

    .Range("BB" & iCntr).NumberFormat = "0.00" 
End With