Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VBA: Yhdistelmäruutuun viittaus

uusi [17.10.2008 09:46:59]

#

Moi,

osaisko kukaan kertoa, että pystynkö viittaamaan yhdistelmäruutuun ilman, että käytän vba-koodausta? Minun täytyisi siis saada tulostettua yhdistelmäruudussa valittuna oleva arvo tiettyyn soluun. Tällainen koodi ei onnistunut: "=Combobox1".

EDIT: Nyt laitoin viestin vahingossa väärään topiciin. Kyse oli siis Excelistä ja Visual Basicista. Voisiko moderaattori siirtää viestin?

neau33 [17.10.2008 14:40:16]

#

Moikka uusi!

Tietämäni perusteella voin kertoa, että et voi viitata yhdistelmäruutuun suoraan kaavasta, mutta...

Esim:
Laita vaikkapa taulun Taul2 soluihin A1:A10 arvoiksi esim. 10 - 100...Palaa tauluun Taul1 klikkaa Ohjausobjektit-työkalurivin Suunnittelutila-painiketta, valitse työkaluriviltä Yhdistelmäruutu ja tuo se tauluun...Klikkaa yhdistelmäruutua hiiren oikealla ja valitse Ominaisuudet...Etsi esiin pulpahtavasta listasta kohta: LinkedCell, aktivoi klikkaamalla vasemmalla ja kirjoita laatikkoon A1... Tee samoin kohdassa ListFillRange, mutta kirjoita laatikkoon Taul2!A1:A10 sulje Properties-valikko klikkaamalla "punaista" ruksia...Klikkaa Ohjausobjektit-työkalurivin Lopeta suunnittelu-painiketta ja testaa, mitä tapahtuu kun vaihdat ComboBox'in arvoja...

(jos ja kun Excel pukkaa ComboBox'in jostain_syystä_jota_en_tiedä suunnittelutilassa välillä Kuva-objektiksi niin poista se, tuo tauluun uusi Yhdistelmäruutu ja tee ominaisuusasetukset uudelleen...)

uusi [17.10.2008 15:39:31]

#

Kiitos!

uusi [20.10.2008 12:35:45]

#

Moi taas!

Toinen kysymys liittyis tiedoston avaamiseen. Millä tavalla pystyn muokkaamaan alla olevan koodin niin, että ohjelma toimisi kaikilla koneilla? Tällä hetkellä tähtiosiota joutuu aina vaihtamaan. Test-tiedosto sijaitsee aina samassa kansiossa kuin se tiedosto, jolla yritän avata kyseisen tiedoston.

Workbooks.Open Filename:="C:\Documents and Settings\******\Desktop\Test.xls"

Grez [20.10.2008 12:40:56]

#

Workbooks.Open Filename:=ThisWorkbook.Path & "\Test.xls"

uusi [20.10.2008 14:40:24]

#

On se helppoa ku osaa. Pitäis ostaa kyllä joku hyvä opas.

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta