Nalezeno 1142 výsledků hledání
Přejít na rozšířené vyhledávání
- 04 bře 2011 20:40
- Fórum: Kancelářské balíky
- Téma: Vymazat rozdíl listů excelu Vyřešeno
- Odpovědi: 4
- Zobrazení: 1125
- Pohlaví:
Re: Vymazat rozdíl listů excelu Vyřešeno
Je velice chvalihodne, ze ses pusti do samostane prace s VBA. Zatim ti poradim ja dal v procedure Duplikace, jedno z moznych reseni: Po dobehnuti smycky For Each Cll In Blk.Cells setrid blok podle pomocneho sloupce (nahraj si makro, uprav) a pak v pomocnem sloupci identifikuj blok bunek s indikatore...
- 04 bře 2011 15:48
- Fórum: Kancelářské balíky
- Téma: Excel-přesun čísel z buňky A do buněk B1-Bx Vyřešeno
- Odpovědi: 11
- Zobrazení: 1578
- Pohlaví:
Re: Excel-přesun čísel z buňky A do buněk B1-Bx Vyřešeno
Koukal jsem na informace o UniDDE, nejspis postaci odstranit mazani obsahu bunek A2:A4. Procedura reaguje na zmeny v bunkach A1:A4 a podle hodnoty xx v A1 transponuje obsah bunek A2:A4 do bunek Bxx:Dxx: Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim SBlk As Range With Me If ...
- 04 bře 2011 13:42
- Fórum: Kancelářské balíky
- Téma: Excel-přesun čísel z buňky A do buněk B1-Bx Vyřešeno
- Odpovědi: 11
- Zobrazení: 1578
- Pohlaví:
Re: Excel-přesun čísel z buňky A do buněk B1-Bx Vyřešeno
To, ze muze nastat stav, kdy bude zapsana nova hodnota do A1 a nebudou zapsany dalsi hodnoty A2:A4 jsi neuvedl. Cekani na zapis posledni hodnoty jsem zvolil z duvodu uspory casu behu procedury, cca 1/5 proti provedeni bez cekani, coz muze mit negativni dopad pri taktu 10 ms. Takze upravena procedura...
- 04 bře 2011 12:37
- Fórum: Kancelářské balíky
- Téma: Opsání Excelového sešitu
- Odpovědi: 12
- Zobrazení: 1227
- Pohlaví:
Re: Opsání Excelového sešitu
Ciste z formalniho hlediska jsi mel upravit i radek:
For i = LBound(TAddrArr) To UBound(TAddrArr)
For i = LBound(TAddrArr) To UBound(TAddrArr)
- 04 bře 2011 10:45
- Fórum: Kancelářské balíky
- Téma: Opsání Excelového sešitu
- Odpovědi: 12
- Zobrazení: 1227
- Pohlaví:
Re: Opsání Excelového sešitu
No a jakou chybu to "hazi"? Nejspis bude potreba upravit kod v radcich: For i = LBound(TAddrArr) To UBound(SAddrArr) TWsht.Range(TAddrArr).Value = SWsht.Range(SAddrArr) ve vsech pripadech pouziti teto casti kodu v procedure, zvyraznuji zmenu: For i = LBound(TAddrArr) To UBound( T AddrArr) ...
- 04 bře 2011 08:27
- Fórum: Kancelářské balíky
- Téma: Opsání Excelového sešitu
- Odpovědi: 12
- Zobrazení: 1227
- Pohlaví:
Re: Opsání Excelového sešitu
Trochu polidstena procedura je nize. Urcite by se dalo jeste vice zjednodusit, ale dalsi doplnovani by kvuli neprehlednosti bylo komplikovane. Protoze nemam testovaci soubory, musis overit funkcnost na kopiich souboru a pripadne chyby vychytat, dopln si dalsi potrebne aktualizace. Option Explicit Su...
- 04 bře 2011 06:41
- Fórum: Kancelářské balíky
- Téma: Automatické doplnění nul v buňce Vyřešeno
- Odpovědi: 4
- Zobrazení: 5549
- Pohlaví:
Re: Automatické doplnění nul v buňce Vyřešeno
Pri kopirovani hodnoty z jine bunky do bunky s nastavenym formatem nesmis pouzit Vlozit (Ctrl+v) (kopiruje vcetne formatu bunky), ale Upravy>Vlozit jinak>vybrat Hodnoty>OK nebo si dopln prislusne tlacitko do panelu nastroju (Zobrazit>Panely nastroju>Vlastni>karta Prikazy>Kategorie: Upravy> Prikazy: ...
- 03 bře 2011 23:46
- Fórum: Kancelářské balíky
- Téma: Opsání Excelového sešitu
- Odpovědi: 12
- Zobrazení: 1227
- Pohlaví:
Re: Opsání Excelového sešitu
jak v tomto scriptu definuji změnu na dalších listech? Jde o číslování dokladů, takže na listu "faktura leden" potřebuji zkopírovat D2,D3 "faktura unor" D2,D3.............. zkus to upresnit, lepsi ale bude, kdyz pripojis ukazku sesitu Energie1, pripadne Energie2 a vyznacis podba...
- 03 bře 2011 21:08
- Fórum: Kancelářské balíky
- Téma: Excel-přesun čísel z buňky A do buněk B1-Bx Vyřešeno
- Odpovědi: 11
- Zobrazení: 1578
- Pohlaví:
Re: Excel-přesun čísel z buňky A do buněk B1-Bx Vyřešeno
V editoru VBA vloz do modulu prislusneho listu udalostni proceduru, je to pracovni verze, predpoklad je, ze bunky A1:A4 jsou naplnovany postupne pocinaje A1: Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim SBlk As Range If Not Intersect(Target, Me.Range("a4")) Is No...
- 03 bře 2011 18:55
- Fórum: Kancelářské balíky
- Téma: Vymazat rozdíl listů Excel podruhé Vyřešeno
- Odpovědi: 2
- Zobrazení: 510
- Pohlaví:
Re: Vymazat rozdíl listů Excel podruhé Vyřešeno
Postup ma smysl (a to jsem predpokladal i kdyz dotaz byl obecny), pokud na duhem listu jsou dalsi sloupce, ktere nejsou na prvim, pokud by se jednalo jen o jeden sloupec, pak samozrejme to je kopie prvniho listu a nema to smysl
- 03 bře 2011 18:50
- Fórum: Kancelářské balíky
- Téma: Opsání Excelového sešitu
- Odpovědi: 12
- Zobrazení: 1227
- Pohlaví:
Re: Opsání Excelového sešitu
Pokud je zapotrebi aktualizovat vybrane bunky na stejnych adresach, pak lze pouzit proceduru ve standardnim modulu VBA, treba soubor Energie1: Option Explicit Sub Aktualizovat() Dim SWsht As Worksheet, TWsht As Worksheet Dim TBlk As Range, TCll As Range Set SWsht = Workbooks("Energie1.xls"...
- 03 bře 2011 18:20
- Fórum: Kancelářské balíky
- Téma: Vymazat rozdíl listů excelu Vyřešeno
- Odpovědi: 4
- Zobrazení: 1125
- Pohlaví:
Re: Vymazat rozdíl listů excelu Vyřešeno
Pro jednorazove pouziti. Na druhem listu vloz do pomocneho sloupce vzorec (uprav rozsah prohledavane oblasti): =KDYŽ(JE.CHYBHODN(SVYHLEDAT(A1;List1!$A$1:$A$3;1;NEPRAVDA));"";"*") kopiruj podle poctu radku oba sloupce setrid podle pomocneho sloupce sestupne a odstran radky bez zna...