< návrat zpět
MS Excel
Téma: funkce objem ![rss](./plugins/templates/wall_2C/images/icons/rss.png)
Zaslal/a keksik 20.5.2010 11:43
Ahoj, potřebuju poradit
mám vytvořenou vlastní fci, která mi vypočítá objem kvádru. A nevím si rady, jak k tomu mám připojit msgbox, který by mi ukázal vyledek...vždycky když jsem msgbox udělala, zobrazil se okamžitě po zadání hodnot a ještě se zacyklil. Chtěla bych,aby se zobrazil po tom, co zmáčknu ok po zadání hodnot.
PS : doufám, že to chápete
předem díky
Koci(20.5.2010 12:36)#001697 ![avatar](./pictures/avatars/no-avatar.jpg)
Ahoj,
nevídím v tom asi žádný problém, pravodpodobně budeš mít výpočetní makro přiřazené špatné události. Bud to přiřadit jinam, nebo makro "výpočet" a "msgbox" rozdělit na dvě makra. Potom vytvořit veřejnou proměnou, kam uložíš objem a na zavolání makra MsgBox by se to zobrazilo. Ideální by ale bylo přiložit příklad, at je to vidět a můžu konkrétně poradit
citovat
keksik(20.5.2010 12:44)#001699 ![avatar](./pictures/avatars/no-avatar.jpg)
zatím jsem vytvořila tohle, ale teď nevím jak to nějak propojit...
Příloha:
1699_projekt.rar (11kB, staženo 57x) citovat
Koci(20.5.2010 12:52)#001700 ![avatar](./pictures/avatars/no-avatar.jpg)
Ty jo, nějak mi to nic neotevírá.. Když dám rozbalit, tak mi to rozbalí jenom prádznou složku... Také používám Excel 2003, pač mě ty 2007 nějak nezaujali, tak prosím o uložení do staršího formátu, pokud už jedeš na 2007
citovat
keksik(20.5.2010 13:56)#001701
Koci(20.5.2010 14:38)#001704 ![avatar](./pictures/avatars/no-avatar.jpg)
Já se hrozně omlouvám, ale vůbec nic tam prostě není. Sice tam nějakej soubor je, ale když ho rozbalím je čistý jako sníh
![3](./plugins/templates/wall_2C/images/smileys/3.gif)
Dneska končím, ale juknu na to zítra až budu zase v práci, pokud se ti povede sem dodat funkční zip nebo to umístit někam na FTP s linkem
citovat
Poki(20.5.2010 15:34)#001706![Poki](./pictures/avatars/8584.jpg)
Ja ten soubor otevrel, ale moc nechapu, ceho vlasnte chcete dosahnout?
Mate vlastni funkci, ktera spocita objem, to je OK; proč ale potom jeste chcete makro, ktere udela to same?
citovat
keksik(20.5.2010 15:43)#001707 ![avatar](./pictures/avatars/no-avatar.jpg)
Ja pravě nevím jak to udelat, tak tam mam v podstate dvakrat to same.
Potrebovala bych, abych spustila tu fci tam zadala délku strany a po te co tu délku strany potvrdím ok, tak aby se zobrazil msgbox s vypočteným obsahem, pak na msg boxu zmacknout ok a hodnota se zapise do bunky....
citovat
Poki(20.5.2010 15:48)#001709![Poki](./pictures/avatars/8584.jpg)
Funkce vraci vypocet sama o sobe.
Pro Vas ucel bych tedy pouzil nasledujici makro
Sub objemy()
Dim objem_krychle As Double, A As Double
A = InputBox("Zadejte stranu A:", "objem krychle")
objem_krychle = A ^ 3
zprava = msgbox("objem krychle je " & objem_krychle, vbOKCancel, "Objem krychle")
Select Case zprava
Case vbOK
Range("a1") = objem_krychle
Case vbCancel
Exit Sub
End Select
End Subcitovat
keksik(20.5.2010 16:03)#001711 ![avatar](./pictures/avatars/no-avatar.jpg)
tak tohle by šlo
![2](./plugins/templates/wall_2C/images/smileys/2.gif)
moc moc děkuju za makro i Kocimu za jeho čas
citovat