< návrat zpět

MS Excel

Téma: Msgbox rss

Zaslal/a Gorgy 1.9.2011 21:20

Dobrý den
Měl jsem napsané makro pro msgbox v excelu 97 s uvozovky a s odskokem na další řádek, ale teď mám problém že mi nechce fungovat v excelu 2007
Můžete mi někdo poradit ?
část makra:
MsgBox "Registrační kód a informace byly uloženy do souboru:" _
& vbCrLf & Chr$(132) & Chr$(32) & Jmeno_souboru & Chr$(32) & Chr$(148) _
& vbCrLf & "v adresáři:" _
& vbCrLf & Chr$(132) & Chr$(32) & Adresa & Chr$(32) & Chr$(148) _
& vbCrLf & "Pro pokračování klikněte na " & Chr$(32) _
& Chr$(132) & Chr$(32) & "Ok" & Chr$(32) & Chr$(148) & Chr$(32) & "a" & Chr$(32) & Chr$(132) & Chr$(32) _
& "Dokončit" & Chr$(32) & Chr$(148), _
vbOKOnly + vbInformation, "Uložení souboru ..."

Zaslat odpověď >
icon Poki(2.9.2011 9:16)#005901
Poki
a co vam nefunguje, jakou chybu hazi - zkousel jsem to a MSGbox se normalne zobrazi...citovat
Gorgy(3.9.2011 0:34)#005908
avatar
Označí mi to Chr$(132) a napíše : Nelze najít projekt nebo knihovnu. Jinak jsem ještě zapomněl udat, že soubor ukládám jako sešit aplikace Excel 97-2003 z důvodu kompatibility
Nevím jakou knihovnu bych měl připojit. Jinak jsem přišel na to, že to můžu vyřešit psaním uvozovek, ale připadá mi to hůř přehledné z důvodu mezer.
makro:
MsgBox "Registrační kód a informace byly uloženy " & _
vbCrLf & "do souboru: " & Jmeno_souboru & _
vbCrLf & "v adresáři: " & Adresa & vbCrLf & _
"Pro pokračování klikněte na " & """" & "Ok" & """" & " a " & """" & "Dokončit" & """", _
vbOKOnly + vbInformation, "Uložení souboru ..."citovat
Stalker(3.9.2011 10:41)#005909
Stalker
Tak ten předchozí MsgBox mi taky jede bez problému. Co se týče toho druhého můžeš si ho nastavit stejně jako ten první.
MsgBox "Registrační kód a informace byly uloženy do souboru:" & vbCrLf & """" & Jmeno_souboru & """" & _
vbCrLf & "v adresáři:" & vbCrLf & """" & Adresa & """" & vbCrLf & _
"Pro pokračování klikněte na " & """" & "Ok" & """" & " a " & """" & "Dokončit" & """", _
vbOKOnly + vbInformation, "Uložení souboru ..."


Jestli těmi mezerami myslíš mezeru mezi uvozovkami tak se koukni na toto:
MsgBox "Registrační kód a informace byly uloženy do souboru:" & vbCrLf & """ " & Jmeno_souboru & " """ & _
vbCrLf & "v adresáři:" & vbCrLf & """ " & Adresa & " """ & vbCrLf & _
"Pro pokračování klikněte na " & """" & "Ok" & """" & " a " & """" & "Dokončit" & """", _
vbOKOnly + vbInformation, "Uložení souboru ..."
citovat
Gorgy(3.9.2011 13:06)#005910
avatar
S těmi uvozovkami a mezerami jsem myslel, že to není pro mě tak přehledné, jako když je zapsano & Chr$(132) & Chr$(32)
Líbí se mi víc ta varinta co mi nefunguje 3citovat
Gorgy(3.9.2011 14:39)#005911
avatar
Tak už jsem na to přišel, proč mi to nejde. Měl jsem ze začátku chr nastaveny jako vstup pro proměnou a vim že se mi jednou excel zasek, když to tam měl zapsané. Když jsem pak chtěl použít tu msg s Chr(xx) tak jsem si proměné předělal a msg nefungovalo i když jsem několikrát procházel celý projekt, tak chr jsem už jako vstup pro proměnou neměl.
Teď jsem celý sešity překopíroval do nových a funguje to 7
Takže se tam musela někde zaseknou ta proměná chr.

Jinak děkuji za radycitovat
Gorgy(3.9.2011 15:26)#005912
avatar
Tady je vyjmuta část v které to nejde, jestli někdo příjdete na to jak to opravit, abych zase nemusel příště překopírovávat sešity tak by to bylo fajn 4
Nejsem žádný specialista na excel, jen mě v něm baví vytvářet občas nějaké blbůstky
Příloha: zip5912_nejde_jde.zip (37kB, staženo 22x)
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje