Favicon Svetmobilne.cz  Svět mobilně Favicon Svetaudia.cz  Svět audia Favicon TVFreak.cz  TV Freak   Fórum Favicon Digimanie.cz  Digimanie   Fórum   Galerie Společnost oXy Online s.r.o.
Zobrazené výsledky: 1 až 4 z 4

Téma: Ms Excel 2003

  1. #1
    Nováček
    Registrace
    Nov 2008
    Příspěvků
    1

    Zdravím,

    Řeším problém skladů v Ms Excel 2003. Ve sloupci "A" mám základ: 200. Ve sloupci "B" chci zadat číslo třeba 5, které se přičte k základu ve sloupci "A". Výsledek tedy bude 205. Má otázka zní: jak docílit toho abych přepsal jednou napsanou hodnotu, tady je to číslo 5 druhou hodnotou např. 10 tak aby si pamatoval i to předchozí sečtení a výsledek nebude 210, ale 215. Budu moc vděčný za jakoukoliv pomoc. Předem děkuji všem za názor
    Odpovídat lze po přihlášení

  2. #2
    Občasný diskutér
    Registrace
    Sep 2008
    Příspěvků
    69

    Upozornuji
    1) Nikdy jsem nedelal ve vbs
    2) Nezabyval jsem se programovanim pro excel

    Tohle jsem dal ted za par minut dohromady pomoci kolegy, google, sledovani jak se zaznamenavaj v excelu makra a troskou zkusenosti programovani.

    Tohle kdyz se umisti v editoru VBS, co je v excelu pod (nastroje, makro, editor ...) nebo alt+f11, do objektu list1. V tom okne co vybehne jsem nahore v zalozce nastavil worksheet.

    Predpokladam, ze nasledujici kod, je fakt prasarna a urcite by se to tak delat nemelo. Napada me to nejak zoptimalizovat bez te pomocne promenne, bez tech postupnych selektu (misto activeCell pouzit neco jineho) atd. Ale nechce se mi to hledat, jen predpokladam, ze by treba mohla existovat funkce, ktera pracuje s konkretne urcenou polozkou.

    Ciste reseni bez maker me nenapada, zkusim jeste popremyslet.


    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim aaa
    If Intersect(Target, Range("B1")) Is Nothing Then
    Exit Sub
    Else
    Range("A1").Select
    aaa = ActiveCell.Value
    Range("B1").Select
    aaa = aaa + ActiveCell.Value
    Range("A1").Select
    ActiveCell.Value = aaa
    End If
    End Sub
    Odpovídat lze po přihlášení



  3. #3
    Nováček
    Registrace
    May 2006
    Příspěvků
    31

    No protože práce s VSB je docela problém a pokud bude v sešitu / listu hodně řádek, bude to problém a bude to pomalé. Další problém je povolení maker - ne vždy všichni mají makra povolena. Další problém by mohl vzniknout se spouštěním na starších verzích. Lepší by bylo skusit to udělat v MS ACCESS - je to databáze a hlavně by tam šlo udělat to, že by se dala sledovat i historie změn stavu skladu a mohl by tam být i kusovník, snadno by se z toho dala dělat i "inventura".
    Osobně používám makra v několika souborech a třeba pokud je v sešitu 350 řádek a jenom kontroluju hodnotu jedné buňky v řádce a podle toho nastavuju výšku řádku, trvý to řádově minutu...
    Zvážil bych to použití MS ACCESS - když tak se ozvěte přes soukromou zprávu...mohu poradit
    Odpovídat lze po přihlášení

  4. #4

    wex wex je offline
    Občasný diskutér Avatar uživatele wex
    Registrace
    May 2006
    Příspěvků
    115

    Nešlo by jenom přidat jeden sloupec, který by byl součtem základu a zadaného čísla?
    Ale asi ne, protože to každého hned napadne a objevil by se nějaký jiný problém...
    Odpovídat lze po přihlášení

Podobná témata

  1. Microsoft Office: Word 2003 do PDF
    Od Ahasver v sekci Kancelářské balíky
    Reakcí: 9
    Poslední příspěvek: 18-07-2013, 16:01
  2. Microsoft Office: EXCEL makra 2003 => 2010
    Od Janno60 v sekci Kancelářské balíky
    Reakcí: 4
    Poslední příspěvek: 07-03-2013, 12:59
  3. Microsoft Office: Outlook 2003
    Od Dusty007 v sekci Kancelářské balíky
    Reakcí: 6
    Poslední příspěvek: 05-11-2009, 07:03
  4. Win 2003 server
    Od astec v sekci Problémy s PC (HW/SW) a řešení
    Reakcí: 3
    Poslední příspěvek: 24-09-2009, 15:36
  5. Potřebuji radu v Excel 2003
    Od tone20 v sekci OS Windows
    Reakcí: 2
    Poslední příspěvek: 28-01-2007, 21:26