ListfillRangen solujen sisällöt ovat noin 20 merkkiä pitkiä ja näkyvät hyvin comboboxilla. LinkedCell on kuitenkin kapea ja tähän tarvittaisiin lyhenne näkyviin, koska sarakkeen leveyttä ei voida kasvattaa. Voidaanko comboboxin valikko ja lopullinen syöte poiketa toisistaan tai ratkeaisiko ongelmani jotenkin toisin?
Nykyinen koodini
TAUL1(Kapasiteetti): ComboBox2.LinkedCell = Cells(Target.Row, 2).Address
---
Combobox2.ListfillRange: Arvot!F10:F15
Solun A6 funktio on : =PHAKU(Kapasitteetti!B6;Arvot!F10:G15;2) (Lyhenteet ovat sarakkeessa G)
Eli käytän ylimääräistä saraketta B ja PHAKUA, jotta saan lyhenteet sarakkeeseen A. Sarake B on lopulta piilotettu, mutta haluaisin päästä eroon PHAUSTA, koska en voi suojata kaavaa salasanalla ja tällöin ratkaisu ei ole idioottivarma.
Löytyykö apua?
Combobox valikko ja output erilaisiksi
8
1014
Vastaukset
Comboon molemmat sarakkeet ja ominaisuuksissa columcount=2 ja listfillrange F10:G15 . Jos et halua lyhenteitä näkyviin niin Columnwidths tokalle nollaksi esim. 100;0
koodi nyt C1=linkedcell
Private Sub ComboBox1_Change()
Range("C1") = ComboBox1.List(ComboBox1.ListIndex, 1)
End Sub
Keep Excelling
@Kunde- aakennus
Kiitoksia vastauksesta. Tuo toimii itsessään ihan hyvin, mutta uusi ongelma nousi pintaan.
Comboboxia valittaessa tulee ilmoitus "Järjestelmä resurssit eivät riitä täydelliseen näyttöön". Painamalla OK jää kyseinen ilmoitus vielä näytölle, mutta päivittämällä näkymän vaikkapa skrollaamalla katoaa ilmoitus ja comboboxin syötekin on tullut soluun näkyviin. Tiedostossani on paljon comboboxeja ja tuo virheilmoitus on aikaisemminkin tullut vastaaan, mutta nyt ongelma tuli uudelleen esiin.
Mistä moinen virheilmoitus ja miten siitä pääsee eroon? aakennus kirjoitti:
Kiitoksia vastauksesta. Tuo toimii itsessään ihan hyvin, mutta uusi ongelma nousi pintaan.
Comboboxia valittaessa tulee ilmoitus "Järjestelmä resurssit eivät riitä täydelliseen näyttöön". Painamalla OK jää kyseinen ilmoitus vielä näytölle, mutta päivittämällä näkymän vaikkapa skrollaamalla katoaa ilmoitus ja comboboxin syötekin on tullut soluun näkyviin. Tiedostossani on paljon comboboxeja ja tuo virheilmoitus on aikaisemminkin tullut vastaaan, mutta nyt ongelma tuli uudelleen esiin.
Mistä moinen virheilmoitus ja miten siitä pääsee eroon?eli liikaa comboja, mihinkäs niitä niin paljon tarvitsee??? Mietipä niiden tarvetta uudelleen ja jos niitä tarttee paljon tee lomake ja combot sitten sinne, niin ei resurssit lopu kesken...
@Kunde- aakennus
aakennus kirjoitti:
Kiitoksia vastauksesta. Tuo toimii itsessään ihan hyvin, mutta uusi ongelma nousi pintaan.
Comboboxia valittaessa tulee ilmoitus "Järjestelmä resurssit eivät riitä täydelliseen näyttöön". Painamalla OK jää kyseinen ilmoitus vielä näytölle, mutta päivittämällä näkymän vaikkapa skrollaamalla katoaa ilmoitus ja comboboxin syötekin on tullut soluun näkyviin. Tiedostossani on paljon comboboxeja ja tuo virheilmoitus on aikaisemminkin tullut vastaaan, mutta nyt ongelma tuli uudelleen esiin.
Mistä moinen virheilmoitus ja miten siitä pääsee eroon?Löysin vastauksen ongelmaani:
http://support.microsoft.com/default.aspx?scid=kb;en-us;183503
Aikamielenkiintoista, eikä ongelmaa näköjään ole saatu ratkaistua, koska Excel 97:ssa todettu ongelma on vielä 07:ssa.
Listfillrangea en halua laittaa samaan tauluun comboboxin kanssa, joten zoomitaso pitää olla sama taulujen välillä. Nyt pitää vielä keksiä jonkinlainen synkkaus taulujen zoomitasoille...mahdollistako`? - aakennus
Lopulta yhden comboboxin koodi on tälläinen:
Private Sub tuuli_Click() (tai Change())
Cells(ActiveCell.Row, 20).Value = tuuli.List(tuuli.ListIndex, 1)
End Sub
Jos sama arvo valitaan comboxista peräkkäin, jää ne ekan kerran jälkeen tulostumatta soluun.
Esim. valitsen rivin 5 ja otan valikosta luvun 18 ja sen jälkeen valitsen rivin 8 ja taas valikosta luvun 18, mutta soluun (8,20) ei tule mitään. Kaikki muut luvut tulevat, mutta ei tämä juuri edellinen luku 18.
Apuva...kunde! aakennus kirjoitti:
Lopulta yhden comboboxin koodi on tälläinen:
Private Sub tuuli_Click() (tai Change())
Cells(ActiveCell.Row, 20).Value = tuuli.List(tuuli.ListIndex, 1)
End Sub
Jos sama arvo valitaan comboxista peräkkäin, jää ne ekan kerran jälkeen tulostumatta soluun.
Esim. valitsen rivin 5 ja otan valikosta luvun 18 ja sen jälkeen valitsen rivin 8 ja taas valikosta luvun 18, mutta soluun (8,20) ei tule mitään. Kaikki muut luvut tulevat, mutta ei tämä juuri edellinen luku 18.
Apuva...kunde!eihän siinä mikään muutu kun samaa lukua yritetään syöttää
vaihda tapahtumaa esim
Private Sub ComboBox1_Click()
ActiveCell = ComboBox1.Value
ActiveCell.Select
ComboBox1.ListIndex = -1
End Sub- aakennus
kunde kirjoitti:
eihän siinä mikään muutu kun samaa lukua yritetään syöttää
vaihda tapahtumaa esim
Private Sub ComboBox1_Click()
ActiveCell = ComboBox1.Value
ActiveCell.Select
ComboBox1.ListIndex = -1
End SubEn ymmärtänyt vinkkiäsi. Pystytkö neuvomaan käyttäen tuota mun tilannetta ja nimiä?
*Combobox on "tuuli" . Comboxissa näkyyy teksti, kuten meri, avoin maasto, metsä. Lopulta soluun ActiveCell.Row,20 valitaan list.index 1 eli maastoa vastaava tuulen nopeus. aakennus kirjoitti:
En ymmärtänyt vinkkiäsi. Pystytkö neuvomaan käyttäen tuota mun tilannetta ja nimiä?
*Combobox on "tuuli" . Comboxissa näkyyy teksti, kuten meri, avoin maasto, metsä. Lopulta soluun ActiveCell.Row,20 valitaan list.index 1 eli maastoa vastaava tuulen nopeus.Private Sub tuuli_Click()
Cells(ActiveCell.Row, 20).Value = tuuli.List(tuuli.ListIndex, 1)
Cells(ActiveCell.Row, 20).Select
tuuli.ListIndex = -1
End Sub
koodissa siis käytetään Click tapahtumaa ja se siirtää valinnan Cells(ActiveCell.Row, 20) soluun. Sen jälkeen poistetaan kohdistus combosta siirtämäällä se soluun ja lopuksi poistetaan combosta valinta, eli näin saadan valinta aina toimimaan toisin kuin change tapahtumassa, missä ei siis tapahdu muutosta jos valitaan sama valinta uudestaan ...
Keep Excelling
@Kunde
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Persujen vaalilupaus oli euron bensa
Nyt puhutaan jo kolmen euron bensasta. Kyseessä on Suomen historian törkein vaalipetos.922147Vain vasemmistohallitus saa minut menemään töihin
Änkyräkapitalistien sortaessa kansaa en laita rikkaakaan ristiin. Elän mielummin Kelan tuilla, ja jos niitä leikataan, n422105Maataloustuet perittävä korkojen kera takaisin
Yrittäjiltä jotka ovat myyneet tuotantoaan ulkomaille. Veronmaksajan kustantama tuki on tarkoitettu elintarvikkeiden hi501845Topi osti Askon
Hieno mies. Pelastaa työpaikkoja. Kiitokset myös emännälleen, joka pitää isännän virkeänä. https://www.is.fi/taloussan751370- 861261
Kastaa ja upottaa on eri sanat
Kastaa ja upottaa on eri sanat ja niillä on eri merkitys. Eikä Jeesusta haudattu upottamalla maahan kaivettuun kuoppaan2191151Uskomatonta touhua!
Ei olis uskonut että kateus yrittäjää kohtaan menee noin pitkälle. TTP:ssa irrotettu sähköjohto jäätelöaltaasta. Kaikki311080Oliko se oikeasti epäselvää
sinulle että olin ihastunut sinuun? (Ymmärrän että siitä on aikaa, eikä voi olettaa että kaikkea muistaisi tai että men561023- 67946
Miksi eduskuntatalon portaille sytyttään tänään 8 645 kynttilää?
Oikeus elämään ry järjestää lauantaina 21.3.2026 tapahtuman, jossa Eduskuntatalon portaille sytytetään 8 645 kynttilää.285910