< návrat zpět
MS Excel
Téma: funkce objem 
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 
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
citovatkeksik(20.5.2010 12:44)#001699 zatím jsem vytvořila tohle, ale teď nevím jak to nějak propojit...
Příloha: 
1699_projekt.rar (11kB, staženo 57x) citovatKoci(20.5.2010 12:52)#001700 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
citovatkeksik(20.5.2010 13:56)#001701 Koci(20.5.2010 14:38)#001704 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
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
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?
citovatkeksik(20.5.2010 15:43)#001707 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 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 Subcitovatkeksik(20.5.2010 16:03)#001711 tak tohle by šlo
moc moc děkuju za makro i Kocimu za jeho čas
citovat
RSS nejnovější články