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
1004
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
Vuonna 2026 jää entistä vähemmän rahaa käteen palkansaajille
Työttömyysvakuutusmaksu nousee 0,3 prosenttia. Työeläkemaksu nousee 7,15 prosentista 7,3 prosenttiin. Työmarkkinajärjest195145Yritystuet pois ja työeläkevaroilla maksettava valtion velka pois
Nyt on teille kerrottu keino kuinka Suomen velkaongelmasta päästää eroon kertalaakista. Älkää saatanat enää minulle tul854571Suomen kansa puhunut: Purra huonoimpia ministereitä
Kouluarvosanalla 6–, eli samaa tasoa mitä Purran oikeakin koulutodistus. Epäpätevyys on tullut huomattua Suomen talouden2763694Ylen juttu sisäministeristä oli selvän tarkoitushakuinen
haluttiin vielä vuoden loppuun saada joku "kohu". (Olisiko Yle tehnyt jutun jos sisäministerinä olisi esim. RKP:n, jota1133145Suomalaista yrittäjää ei kommunistista erota
Muualla maailmassa yrittäjät elävät asiakkaiden rahoilla, Suomessa palkansaajien maksamilla veroilla. Palkansaajahan ma452688- 252028
Ulkoministeriön konsulipäällikkö arvostelee rajusti Haavistoa: "Täällä on pelon ilmapiiri"
"– Täällä on ministerin toimien takia aivan selvästi pelon ilmapiiri. Jos sellaisen annetaan pesiytyä virkamieskulttuuri101867Joulun ruokajonoissa entistä enemmän avuntarvitsijoita - Mitä ajatuksia tämä herättää?
Räppärit Mikael Gabriel, VilleGalle ja Jare Brand jakoivat ruokaa ja pehmeitäkin paketteja vähävaraisille jouluaattoa ed1061834- 2341748
Pyydän anteeksi etten osannut ratkaista
Mitään muuta kuin lähtemällä. Et oikein tullut vastaan etkä kuunnellut. Tuntui että minun piti koittaa sopia ja sovitell711691