napr. takto:
msgbox "oto je hodnota z A1:" & sheets("harok1").range("A1")
a UserForm a MsgBox su dve rozdielne vecicitovat
msgbox "oto je hodnota z A1:" & sheets("harok1").range("A1")
a UserForm a MsgBox su dve rozdielne vecicitovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: UserForm a výběr do MsgBox - VBA
MS Excel
Téma: UserForm a výběr do MsgBox - VBA 
Zaslal/a Vpecko 10.8.2015 19:32
Ahoj borci,
potřeboval bych pomoci, protože na to nestačím. 
Mám např. 3 listy a v nich data a potřeboval bych z nich vybrat 1 hodnotu + konstantu a tu vrátit do MsgBoxu.
Potřeboval bych vybrat 1. list
2. řádek
3. z řádku hodnotu A nebo B nebo C a připsat ještě k tomu konstantu.
Přílohu jsem předpřipravil a budu vděčný za každou pomoc. Snažím se leč marně. 
Předem díky
V prvom prípade sa počíta s definovaným názvom "Konstanta"
Sub pokus()
Dim Stlpec As Integer
Const Konstanta_VBA = "už viem čo"
Stlpec = 1 'A
MsgBox (Worksheets(1).Cells(2, Stlpec) & " - " & [Konstanta])
Stlpec = 2 'B
MsgBox (Worksheets(1).Cells(2, Stlpec) & " - " & Konstanta_VBA)
End Subcitovat
Sub pokus()
Dim Stlpec As Integer
Const Konstanta_VBA = "už viem čo"
Stlpec = 1 'A
MsgBox (Worksheets(1).Cells(2, Stlpec) & " - " & [Konstanta])
Stlpec = 2 'B
MsgBox (Worksheets(1).Cells(2, Stlpec) & " - " & Konstanta_VBA)
End Subcitovat
Ha,tak snad už to půjde.
Díky, ale problém je trochu komplikovanější.
Mám ve sloupci výběr 1 až 60
ve druhém řádku a,b,c a ještě výběr na 0.10,0.11,0.12.
Potřeboval bych vybrat průsečík a k tomu připsat konstantu.
S nad ten soubor už odešlu.
Díky, díky, díkycitovat
Díky, ale problém je trochu komplikovanější.
Mám ve sloupci výběr 1 až 60
ve druhém řádku a,b,c a ještě výběr na 0.10,0.11,0.12.
Potřeboval bych vybrat průsečík a k tomu připsat konstantu.
S nad ten soubor už odešlu.
Díky, díky, díkycitovat
26221_pokus.txtPosielam Vám jedno možné riešenie. Vami želané hodnoty to tam vypisuje ihneď v Label5. Ešte by bolo vhodné zabezpečiť aby všetky ComboBoxy reagovali na zmenu v iných ComboBoxoch, a v prípade nezhody sa vynulovali. Teraz Vám to píše CHYBA v Label5, ak sa tak stane. Rozsah čísel som Vám urobil dynamický, doplnil som Vám aj výpočet priemerov, keďže niesú rovnako zapísané.
PS: Príloha so zošitom Excelu sa posiela tak, že ju zabalíte (skomprimujete) do RAR/ZIP v programe WinRAR/WinZIP,7-Zip,Total Commander ...
PS: Príloha so zošitom Excelu sa posiela tak, že ju zabalíte (skomprimujete) do RAR/ZIP v programe WinRAR/WinZIP,7-Zip,Total Commander ...
Příloha: 
26224_26221_pokus.rar (35kB, staženo 20x)
citovat26224_26221_pokus.rar (35kB, staženo 20x)Mně se naopak nápad s přejmenováním sešitu docela líbil, protože je to jednodušší postup, než komprimace. Jen bych místo koncovky .txt pro ribbonové sešity doporučil přejmenování na .zip, protože ve skutečnosti to opravdu jsou soubory ve formátu zip.citovat
OT:
@Vovka:
To v žiadnom prípade nieje vhodné! Keď otvorím takto "vytvorený" ZIP, uvidím adresárovú štruktúru XLM, nie Excelácky súbor. Vznikol by max zmätok. Nezabúdajte, že nie všetci sú IT pokročilejší, a nie každého to napadne, preto by sa muselo uvádzať o tom info v každom príspevku, ktorý by takéto "vylepšenie" použil.citovat
@Vovka:
To v žiadnom prípade nieje vhodné! Keď otvorím takto "vytvorený" ZIP, uvidím adresárovú štruktúru XLM, nie Excelácky súbor. Vznikol by max zmätok. Nezabúdajte, že nie všetci sú IT pokročilejší, a nie každého to napadne, preto by sa muselo uvádzať o tom info v každom príspevku, ktorý by takéto "vylepšenie" použil.citovat
to elninoslov: asi máte pravdu s tím zip, šlo jen o okamžitý nápad bez dalších souvislostí. Jinak jsem se u zaslané přílohy opravdu dočetl, jak vznikla, takže tam žádný zmatek nehrozil.
Co vedlo autora tohoto fóra k tomu, že formát excelského sešitu nezařadil mezi přípustné formáty, nevím. Všichni si tady kvůli tomu musejí dávat trochu nohu za krk. Jinak klobouk dolů, komunikuje se tady pohodlně a s komfortem!citovat
Co vedlo autora tohoto fóra k tomu, že formát excelského sešitu nezařadil mezi přípustné formáty, nevím. Všichni si tady kvůli tomu musejí dávat trochu nohu za krk. Jinak klobouk dolů, komunikuje se tady pohodlně a s komfortem!citovat
Tak to vypadá na výborné řešení. DĚKUJI MOC :-))
Příště udělám .zip, jak je zde všeobecně zvykem.
Díky díky díky, jdu se to toho zavrtat.
citovat
Příště udělám .zip, jak je zde všeobecně zvykem.
Díky díky díky, jdu se to toho zavrtat.
citovatUživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články