Close
Duke shfaqur rezultatin -9 deri 0 prej 2
  1. #1
    i/e regjistruar Maska e Patrioti
    Anėtarėsuar
    17-01-2003
    Vendndodhja
    Neumuenster
    Postime
    347

    VBA - Probleme me nje module ne Excel

    Pershendetje Cuna,

    Kam disa funksione\module te cilat jane te kombinuara bashke si nje excel add-in.
    Ketyre moduleve\funksioneve dua ti shtoj edhe nje funksion\modul tjeter me synimin per te bere nje llogaritje te thjeshte.

    Formula qe perdoret per llogaritje quhet "PET_GAS_COMPRESS_Cg" dhe eshte si vijon: Cg = 1/P -((1/Z)*(deltaZ/deltaP)
    ku deltaZ = Zi - Zi-1
    dhe deltaP = Pi - Pi-1

    vlerat e "P" dhe te "Z" jane ne forme kollonash ne worksheet (jo ne ndonje kollone te caktuar, une dua qe te klikoj dhe ta zgjedh vete fillimin e kollones)

    Kodi qe kam shkruar deri tani eshte:

    Function Pet_GAS_COMPRESS_Cg(P, Z)
    Rem File Petroleum Functions (.xls & .xla)
    Rem Gas Compressibility (Not to be confussed with "Z" factor)
    Rem P = Pressure, kPa
    Rem Z = Gas Deviation Factor
    Rem Written by: Patrioti

    Rem Test for Errors
    If IsNumeric(P) = False Or IsMissing(P) = True Then GoTo perr:
    If IsNumeric(Z) = False Or IsMissing(Z) = True Then GoTo zerr:
    If P < 0 Then GoTo perr:
    If Z <= 0 Then GoTo zerr:
    GoTo starthere:
    perr: Pet_GAS_COMPRESS_Cg = "**Problem: P Outside Range": GoTo hereend:
    zerr: Pet_GAS_COMPRESS_Cg = "**Problem: Z Outside Range": GoTo hereend:

    starthere:
    If Z(i - 1) < 0 or emty Then Cg = 1 / P(i)
    deltaZ = Z(i) - Z(i - 1)
    deltaP = P(i) - P(i - 1)
    Cg = 1 / P - ((1 / Z) * deltaZ / deltaP)
    hereend: End Function

    Problemi qendron ne 6 rjeshtat e fundit. Funksioni me nxjer resultat zero aty ku duhet te rezultonte me nje numer.

    Nuk e di sa u sqarova po me pyesni nese ndonje gje e paqarte.
    Ndonje gabim koti e di (por jam fillestar)

    Flmd nga Patrioti
    Duhet te dish dicka, per te kuptuar qe sdi asgje.

  2. #2
    i/e regjistruar Maska e Patrioti
    Anėtarėsuar
    17-01-2003
    Vendndodhja
    Neumuenster
    Postime
    347
    Kodin e modifikove (si me poshte) por prap mar nje #value mesazh gabimi vetem ne kutizen e pare. Kutizat e tjera ne kollone llogariten ne rregull.

    U mundova qe te kodoj faktin qe: nese kutiza paraardhese eshte bosh apo ka tekst ne te atehere formula te ndryshoje ne: Cg = 1/p. Gjithsesi sia arrita.
    A ka ndonjeri ndonje keshille?

    KODI:

    Function Pet_GAS_COMPRESS_Cg(p, z)
    Rem File Sait Petroleum Functions (.xls & .xla)
    Rem Gas Compressibility (Not to be confussed with "Z" factor)
    Rem P = Pressure, kPa
    Rem Z = Gas Deviation Factor
    Rem Written by: Patrioti

    Rem Test for Errors

    If (IsNumeric(p) = False) Or (IsMissing(p) = True) Or _
    (p < 0) Then
    Pet_GAS_COMPRESS_Cg = "**Problem: P Outside Range"
    Else

    If (IsNumeric(z) = False) Or (IsMissing(z) = True) Or _
    (z <= 0) Then
    Pet_GAS_COMPRESS_Cg = "**Problem: Z Outside Range"
    Else

    Dim i As Integer
    i = 1

    If (IsNumeric(p(i - 1)) = False) Or (IsMissing(p(i - 1)) = True) Or
    ((p(i - 1)) <= 0) Or _
    (IsNumeric(z(i - 1)) = False) Or (IsMissing(z(i - 1)) = True) Or ((z(i -
    1)) <= 0) Then Cg = 1 / p(i)

    deltaZ = z(i) - z(i - 1)
    deltaP = p(i) - p(i - 1)
    Cg = 1 / p - ((1 / z) * deltaZ / deltaP)
    Pet_GAS_COMPRESS_Cg = Cg

    End If
    End If
    End Function
    Duhet te dish dicka, per te kuptuar qe sdi asgje.

Tema tė Ngjashme

  1. Pėrgjigje: 43
    Postimi i Fundit: 22-05-2013, 16:04
  2. Minoritetet me probleme psiqike
    Nga FLORIRI nė forumin Aktualitete shoqėrore
    Pėrgjigje: 7
    Postimi i Fundit: 30-09-2006, 21:00
  3. Burrat dhe grate me probleme mendore duhen te parandalohen...
    Nga *~Rexhina~* nė forumin Tema shoqėrore
    Pėrgjigje: 10
    Postimi i Fundit: 30-08-2004, 15:13

Regullat e Postimit

  • Ju nuk mund tė hapni tema tė reja.
  • Ju nuk mund tė postoni nė tema.
  • Ju nuk mund tė bashkėngjitni skedarė.
  • Ju nuk mund tė ndryshoni postimet tuaja.
  •