Potrebuju malou radicku.. Potrebuju nejaky vzorec ktery zkopiruje obsah bunky ale bez prefixu (napr. vsechny polozky zacinaji S ktere potrebuji smazat...)
Pomuze nekdo? diky moc
Potrebuju malou radicku.. Potrebuju nejaky vzorec ktery zkopiruje obsah bunky ale bez prefixu (napr. vsechny polozky zacinaji S ktere potrebuji smazat...)
Pomuze nekdo? diky moc
Vsechno bude i podpis bude
CUBE> Ryzen 7 7700X + Arctic Lq Frzr III ◦ 64 GB DDR5-6000 ◦ ASUS TUF B650PLUS ◦ ASUS RTX3060 OC 12GB ◦ Kingston KC3000 2TB ◦ SS G12 GM-650 Gold ◦ Samsung S27A800 4K
WORK> HP EliteBook 845 G9 ◦ Ryzen 5 PRO 6550 ◦ 32 GB DDR3 ◦ 2048 GB nVME SSD ◦ 14.1" 1920x1080 LED + 2x 32" Dell 4K ◦ Win11 Enterprise
SERVER> HP ProLiant Microserver Gen8 ◦ Intel Core i5-3540T ◦ 16 GB DDR3 ◦ 180 GB SSD + 2x4 TB WD RED + 2x16 TB Toshiba ◦ 10GbE NIC
PHOTO> Canon EOS 70D ◦ EF 70-200/4L ◦ EF-S 10-18 STM ◦ EF 50/1.8II ◦ EF-S 40/2.8 STM ◦ Yongnuo YN-568EX ◦ Tamrac 5534
HOMECINEMA> TV Samsung UE55Q55T 55" 4K ◦ DVD Pioneer DV-310K ◦ AVR Yamaha RX-V359 ◦ SPK Dexon Allegro 5.0
OTHERSTUFF> Mikrotik RB760iGS ◦ Mikrotik CSS610 ◦ Mikrotik CRS326 ◦ UniFi WLAN ◦ Xerox B235 ◦ Canon PiXMA MG5350
Ve finale mi z toho vysel celkem dlouhy vzorec ale vse funguje dokonale.. Diky moc
Vsechno bude i podpis bude
Jen tak pro úplnost, opačný případ (přidání prefixu) řeší funkce CONCATENATE(string1;string2) - jediné blbé na ní je to, že má jen dva parametry, takže pokud chcete sloučit víc stringů, musíte ty funkce vnořit do sebe.
Aktuální příklad z praxe, chtěl jsem uzavřít string mezi hvězdičky a funkce vypadá takto:
=CONCATENATE(CONCATENATE("*";A11);"*")
(název funkce je stejný i v CZ verzi)
CUBE> Ryzen 7 7700X + Arctic Lq Frzr III ◦ 64 GB DDR5-6000 ◦ ASUS TUF B650PLUS ◦ ASUS RTX3060 OC 12GB ◦ Kingston KC3000 2TB ◦ SS G12 GM-650 Gold ◦ Samsung S27A800 4K
WORK> HP EliteBook 845 G9 ◦ Ryzen 5 PRO 6550 ◦ 32 GB DDR3 ◦ 2048 GB nVME SSD ◦ 14.1" 1920x1080 LED + 2x 32" Dell 4K ◦ Win11 Enterprise
SERVER> HP ProLiant Microserver Gen8 ◦ Intel Core i5-3540T ◦ 16 GB DDR3 ◦ 180 GB SSD + 2x4 TB WD RED + 2x16 TB Toshiba ◦ 10GbE NIC
PHOTO> Canon EOS 70D ◦ EF 70-200/4L ◦ EF-S 10-18 STM ◦ EF 50/1.8II ◦ EF-S 40/2.8 STM ◦ Yongnuo YN-568EX ◦ Tamrac 5534
HOMECINEMA> TV Samsung UE55Q55T 55" 4K ◦ DVD Pioneer DV-310K ◦ AVR Yamaha RX-V359 ◦ SPK Dexon Allegro 5.0
OTHERSTUFF> Mikrotik RB760iGS ◦ Mikrotik CSS610 ◦ Mikrotik CRS326 ◦ UniFi WLAN ◦ Xerox B235 ◦ Canon PiXMA MG5350
Což se jen pro úplnost dá řešit elegantně naprgáním vlastní funkce ve VBA, níže uvedená "slepí" dohromady neomezený počet řetězců:
Kód:Function JoinStrings(ParamArray retezce() As Variant) As String For Each arg In retezce JoinStrings = JoinStrings & arg Next arg End Function![]()
A Jedi gains power through understanding; a Sith gains understanding through power
Destkop machine: Intel Core i5 2400/MSI P67A-C45 /2x4 GB DDR3 1333 MHz/Sapphire HD6790/22" LCD HP w2216/DSL 8MBit connected
Na filmy v posteli: Lenovo IdeaPad S9e/1,6 GHz Intel Atom, 1 GB RAM, 80 GB HDD
Na práci: Dell E5500/T9550 2,66 GHz Intel, 3 GB RAM, 120 GB HDD
jenže to předpokládá, že budeš vědět, s tou funkcí pracovat a to si myslím je pro běžného uživatele excelu silné kafe; nehledě na to, že musíš napsat zbytek kódu, který udělá logiku volání funkce nad množinou buněk. osobně moc nevím, jak bych to v tomto případě řešil, je to takové blbě vytržené z nějakého kontextu imho.
CUBE> Ryzen 7 7700X + Arctic Lq Frzr III ◦ 64 GB DDR5-6000 ◦ ASUS TUF B650PLUS ◦ ASUS RTX3060 OC 12GB ◦ Kingston KC3000 2TB ◦ SS G12 GM-650 Gold ◦ Samsung S27A800 4K
WORK> HP EliteBook 845 G9 ◦ Ryzen 5 PRO 6550 ◦ 32 GB DDR3 ◦ 2048 GB nVME SSD ◦ 14.1" 1920x1080 LED + 2x 32" Dell 4K ◦ Win11 Enterprise
SERVER> HP ProLiant Microserver Gen8 ◦ Intel Core i5-3540T ◦ 16 GB DDR3 ◦ 180 GB SSD + 2x4 TB WD RED + 2x16 TB Toshiba ◦ 10GbE NIC
PHOTO> Canon EOS 70D ◦ EF 70-200/4L ◦ EF-S 10-18 STM ◦ EF 50/1.8II ◦ EF-S 40/2.8 STM ◦ Yongnuo YN-568EX ◦ Tamrac 5534
HOMECINEMA> TV Samsung UE55Q55T 55" 4K ◦ DVD Pioneer DV-310K ◦ AVR Yamaha RX-V359 ◦ SPK Dexon Allegro 5.0
OTHERSTUFF> Mikrotik RB760iGS ◦ Mikrotik CSS610 ◦ Mikrotik CRS326 ◦ UniFi WLAN ◦ Xerox B235 ◦ Canon PiXMA MG5350
Pokud si těchto pár řádků nakopíruješ do modulu VBA v Excelu, tak to pak normálně můžeš vložit přes Vložit-Funkce-Vlastní. Pak si jako argumenty postupně "naťukáš" tolik buněk kolik potřebuješ... A v buňce kam to zadáváš se zobrazí "pospojovaný" string... Ano uznávám, že pokud bys ty buňky nezadával jednotlivě, ale měl je vedle sebe a chtěl vybrat coby oblast, tak to asi (určitě) bude haprovat... Ale z kontextu to vytržené není, spíš vycucané z prstu![]()
A Jedi gains power through understanding; a Sith gains understanding through power
Destkop machine: Intel Core i5 2400/MSI P67A-C45 /2x4 GB DDR3 1333 MHz/Sapphire HD6790/22" LCD HP w2216/DSL 8MBit connected
Na filmy v posteli: Lenovo IdeaPad S9e/1,6 GHz Intel Atom, 1 GB RAM, 80 GB HDD
Na práci: Dell E5500/T9550 2,66 GHz Intel, 3 GB RAM, 120 GB HDD
CUBE> Ryzen 7 7700X + Arctic Lq Frzr III ◦ 64 GB DDR5-6000 ◦ ASUS TUF B650PLUS ◦ ASUS RTX3060 OC 12GB ◦ Kingston KC3000 2TB ◦ SS G12 GM-650 Gold ◦ Samsung S27A800 4K
WORK> HP EliteBook 845 G9 ◦ Ryzen 5 PRO 6550 ◦ 32 GB DDR3 ◦ 2048 GB nVME SSD ◦ 14.1" 1920x1080 LED + 2x 32" Dell 4K ◦ Win11 Enterprise
SERVER> HP ProLiant Microserver Gen8 ◦ Intel Core i5-3540T ◦ 16 GB DDR3 ◦ 180 GB SSD + 2x4 TB WD RED + 2x16 TB Toshiba ◦ 10GbE NIC
PHOTO> Canon EOS 70D ◦ EF 70-200/4L ◦ EF-S 10-18 STM ◦ EF 50/1.8II ◦ EF-S 40/2.8 STM ◦ Yongnuo YN-568EX ◦ Tamrac 5534
HOMECINEMA> TV Samsung UE55Q55T 55" 4K ◦ DVD Pioneer DV-310K ◦ AVR Yamaha RX-V359 ◦ SPK Dexon Allegro 5.0
OTHERSTUFF> Mikrotik RB760iGS ◦ Mikrotik CSS610 ◦ Mikrotik CRS326 ◦ UniFi WLAN ◦ Xerox B235 ◦ Canon PiXMA MG5350
No já bych spíš řekl že to dělá to samé co concatenate jen není nutné používat tu závorkuA prefixů i postfixů si tam můžeš namlátit do parametrů funkce kolik chceš a mezi to někam dát odkaz na buňku obsahující ten "středový" výraz mezi předponou a příponou
Ale uznávám, že při běžné aplikaci BFU napíše radši pár závorek do concatenate, nota bene když by musel hledat kde se otvírá editor VBAčka
![]()
A Jedi gains power through understanding; a Sith gains understanding through power
Destkop machine: Intel Core i5 2400/MSI P67A-C45 /2x4 GB DDR3 1333 MHz/Sapphire HD6790/22" LCD HP w2216/DSL 8MBit connected
Na filmy v posteli: Lenovo IdeaPad S9e/1,6 GHz Intel Atom, 1 GB RAM, 80 GB HDD
Na práci: Dell E5500/T9550 2,66 GHz Intel, 3 GB RAM, 120 GB HDD
CUBE> Ryzen 7 7700X + Arctic Lq Frzr III ◦ 64 GB DDR5-6000 ◦ ASUS TUF B650PLUS ◦ ASUS RTX3060 OC 12GB ◦ Kingston KC3000 2TB ◦ SS G12 GM-650 Gold ◦ Samsung S27A800 4K
WORK> HP EliteBook 845 G9 ◦ Ryzen 5 PRO 6550 ◦ 32 GB DDR3 ◦ 2048 GB nVME SSD ◦ 14.1" 1920x1080 LED + 2x 32" Dell 4K ◦ Win11 Enterprise
SERVER> HP ProLiant Microserver Gen8 ◦ Intel Core i5-3540T ◦ 16 GB DDR3 ◦ 180 GB SSD + 2x4 TB WD RED + 2x16 TB Toshiba ◦ 10GbE NIC
PHOTO> Canon EOS 70D ◦ EF 70-200/4L ◦ EF-S 10-18 STM ◦ EF 50/1.8II ◦ EF-S 40/2.8 STM ◦ Yongnuo YN-568EX ◦ Tamrac 5534
HOMECINEMA> TV Samsung UE55Q55T 55" 4K ◦ DVD Pioneer DV-310K ◦ AVR Yamaha RX-V359 ◦ SPK Dexon Allegro 5.0
OTHERSTUFF> Mikrotik RB760iGS ◦ Mikrotik CSS610 ◦ Mikrotik CRS326 ◦ UniFi WLAN ◦ Xerox B235 ◦ Canon PiXMA MG5350
Tak to s tím VBAčkem nebylo na tebe, přepokládám, že ty to víšNo já za normálních okolností asi taky, akorát teď musím VBA trošku z důvodu studijně-pracovního nastudovat, čili mi to tak cinklo do oka že jsem sem ten kód vypsal
![]()
A Jedi gains power through understanding; a Sith gains understanding through power
Destkop machine: Intel Core i5 2400/MSI P67A-C45 /2x4 GB DDR3 1333 MHz/Sapphire HD6790/22" LCD HP w2216/DSL 8MBit connected
Na filmy v posteli: Lenovo IdeaPad S9e/1,6 GHz Intel Atom, 1 GB RAM, 80 GB HDD
Na práci: Dell E5500/T9550 2,66 GHz Intel, 3 GB RAM, 120 GB HDD
Co jsem si netroufal vzorečkama a použil VBA je šablona pro fakturu, která počítá rekapitulaci DPH a připojuje se na databázi adres v Accessu. Ta rekapitulace DPH by vzorečkama šla, i celkem elegantně (problém je že s VBA to nejde moc řešit online), ale ty kontakty moc ne (měl jsem tam combo a tlačítko, které načetlo data do toho comba a při vybrání adresy vyplnění políček na faktuře).
Obecně je VBA v office celkem silný nástroj.. dá se tam dělat leccos, ale narazil jsem i na případy, kdy i to bylo málo - výkonově nestačilo![]()
CUBE> Ryzen 7 7700X + Arctic Lq Frzr III ◦ 64 GB DDR5-6000 ◦ ASUS TUF B650PLUS ◦ ASUS RTX3060 OC 12GB ◦ Kingston KC3000 2TB ◦ SS G12 GM-650 Gold ◦ Samsung S27A800 4K
WORK> HP EliteBook 845 G9 ◦ Ryzen 5 PRO 6550 ◦ 32 GB DDR3 ◦ 2048 GB nVME SSD ◦ 14.1" 1920x1080 LED + 2x 32" Dell 4K ◦ Win11 Enterprise
SERVER> HP ProLiant Microserver Gen8 ◦ Intel Core i5-3540T ◦ 16 GB DDR3 ◦ 180 GB SSD + 2x4 TB WD RED + 2x16 TB Toshiba ◦ 10GbE NIC
PHOTO> Canon EOS 70D ◦ EF 70-200/4L ◦ EF-S 10-18 STM ◦ EF 50/1.8II ◦ EF-S 40/2.8 STM ◦ Yongnuo YN-568EX ◦ Tamrac 5534
HOMECINEMA> TV Samsung UE55Q55T 55" 4K ◦ DVD Pioneer DV-310K ◦ AVR Yamaha RX-V359 ◦ SPK Dexon Allegro 5.0
OTHERSTUFF> Mikrotik RB760iGS ◦ Mikrotik CSS610 ◦ Mikrotik CRS326 ◦ UniFi WLAN ◦ Xerox B235 ◦ Canon PiXMA MG5350
No ona je bohužel taky pravda, že když se makro ve VBA blbě (a nemusí být ani vlastně tak blbě, někdy to platí i pro dobře napsané) napíše, tak je to výrazně pomalejší než vzoreček, i když ten třeba vypadá "hrozně složitě"... Rozhodně neplatí, že když se něco spatlá ve VBAčku, musí to být nutně výkonnější než "naťukáno vzorečkem"![]()
A Jedi gains power through understanding; a Sith gains understanding through power
Destkop machine: Intel Core i5 2400/MSI P67A-C45 /2x4 GB DDR3 1333 MHz/Sapphire HD6790/22" LCD HP w2216/DSL 8MBit connected
Na filmy v posteli: Lenovo IdeaPad S9e/1,6 GHz Intel Atom, 1 GB RAM, 80 GB HDD
Na práci: Dell E5500/T9550 2,66 GHz Intel, 3 GB RAM, 120 GB HDD
Toto téma si právě prohlíží 1 uživatelů. (0 registrovaných a 1 anonymních)