logo elektroda
logo elektroda
X
logo elektroda
REKLAMA
REKLAMA
Adblock/uBlockOrigin/AdGuard mogą powodować znikanie niektórych postów z powodu nowej reguły.

Excel - Kalkulator linii kablowych

tehaceole 24 Paź 2012 18:49 16902 8
REKLAMA
  • Witam Kolegów.

    Poczyniłem ostatnimi czasy dosyć przydatne excelowe narzędzie, jakim jest kalkulator służący do wyznaczania parametrów linii kablowej i doboru zabezpieczeń tej linii.
    Arkusz pozwala wyznaczyć:
    - prądy fazowe;
    - procentowy spadek napięcia;
    - wartość napięcia na końcu linii pod zadanym obciążeniem;
    - rezystancję linii;
    - spełnienie warunku R linii < Max IPZ (tylko orientacyjnie na podstawie rezystancji projektowanej linii!!!);
    - spełnienie warunku obciążalności długotrwałej przewodu;
    - maksymalną długość linii o zadanym przekroju ze względu na dopuszczalny spadek --- napięcia lub IPZ;
    - tangens fi.

    Arkusz został przygotowany pod kątem robienia z niego wydruków, stąd znalazło się miejsce na podanie danych identyfikacyjnych symulowanego obiektu. Dodatkowo umieszczona została opcja automatycznego eksportu do pliku PDF.

    Dołożyłem starań, aby arkusz wyznaczał prawidłowe dane. Będę jednak bardzo wdzięczny osobom, które wskażą mi wychwycone błędy.

    Arkusz jest do ściągnięcia tutaj.

    Fajne? Ranking DIY
    O autorze
    tehaceole

    Poziom 28  
    Offline 

    www.stsystem.pl
    tehaceole napisał 1224 postów o ocenie 205, pomógł 102 razy. Mieszka w mieście Koszalin. Jest z nami od 2004 roku.
  • REKLAMA
  • REKLAMA
  • #3 11448246
    tehaceole

    Poziom 28  
    Arkusz odpalałem w Office 2007 i 2010. U mnie błędów nie było. Bądź Kolego tak uprzejmy i kliknij na "debug" - wtedy będzie wiadomo co to za szpilka tam siedzi.
    Generalnie:
    - po otwarciu arkusz powinien wypełnić się wartościami domyślnymi
    - wszystkie komórki poza tymi podświetlonymi na zółto (listy wyboru) oraz tymi do wpisania danych obiektu winny być zablokowane przed przypadkową edycją

    Blokada przed edycją zaszyta jest w kodzie VBA i następuje przy każdej zmianie dowolnej edytowalnej wartości. To takie zabezpieczenie - większość formuł jest dość sporawa i niefajnie by było gdyby użytkownik sobie którąś przypadkiem skasował.

    Może po prostu masz wyłączoną w opcjach zabezpieczeń excela obsługę makr?
  • REKLAMA
  • #4 11448677
    zgierzman
    Poziom 31  
    wygląda na to, że problem tkwi tutaj (ten kawałek kodu zaznaczony jest na żółto w oknie Arkusz2 (code)
        ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
            False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
            AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
            :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
            AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
            AllowUsingPivotTables:=True

    Excel - Kalkulator linii kablowych

    Makra włączone
  • REKLAMA
  • #5 11449550
    tehaceole

    Poziom 28  
    Kurcze dziwne... Dokładnie ten fragment kodu odpowiedzialny jest za blokowanie wszystkich komórek (poza tymi edytowalnymi) przy każdej zmianie edytowalnej wartości. Muszę nad tym posiedzieć. Ale to dziwne=/ Po usunięciu tego fragmentu nadal są jakieś problemy? On występuje w 2 czy 3 miejscach (nie kojarzę teraz).

    Generalnie poza makrami (to tylko taki bajer) głównie chodzi mi o potwierdzenie poprawności obliczeń. Bo w końcu to jest najważniejsze. Prawdę mówiąc arkusz będzie w pełni sprawny nawet po usunięciu wszystkich makr. One mają jedynie za zadanie:
    - dopasowanie wielkości arkusza w zależności od wybranej kalkulacji (razem z chowaniem wykresów)
    - eksport do pdf
    - wprowadzenie wartości domyślnych
  • #6 11451318
    zgierzman
    Poziom 31  
    Ten fragment jest w dwóch miejscach. Usunięcie nie rozwiązuje problemów. Błędy pojawiają się kiedy skrypt chce wypełnić już wypełnione i zablokowane komórki - np. w nagłówku linie wypełnione kropkami.
    Wykrzacza się także przy ukrywaniu komórek - np. przy zmianie z "porównanie sieci" na "sieć x fazowa".

    Office 2000 to zabytek, więc nie wiem, czy jest o co kruszyć kopię...

    Szczegóły poszły na priv. Nie ma tam nic o ukrywaniu komórek, bo to odkryłem później.
  • #7 11452968
    tehaceole

    Poziom 28  
    Kurka ale fake - dopiero teraz dotarło do mnie, że piszesz o Office 2000 a nie 2010:) hahaha
    Wieczorem zerknę na to co mi podesłałeś. Może coś mi przyjdzie do głowy. Ale szczerze muszę powiedzieć, że DALEKO mi do biegłej znajomości VBA. Stąd być może problem który pojawił się u Ciebie. Niestety nie mam jak tego sprawdzić, bo jedyną znaną mi kopię 2000 używa moja matula własna osobista a u Rodziców będę dopiero za jakiś czas.

    Na szybko (bez przeglądania kodu VBA) to arkusz od Ciebie odpalił mi się na office 2007 bez problemów. Tylko ukrywanie nie działa bo prawdopodobnie ten kod wyciąłeś.
  • #8 11461802
    buliz
    Poziom 12  
    Do kolegi zgierzman. Zassij Open Offica z netu i na nim kalkulator działa. Ja tak mam.
REKLAMA