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
1016
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
Ketkä haukkuu suomalaisten ÄO:tä?
Siinä on kaksi vaihtoehtoa, joko siis rutiköyhä vajaaälyinen vasuri tai venäläinen. Kyllähän täällä käy suomenvenäläisi1453699Henkirikos kiuruvedellä
Poliisi tutkii maaliskuussa tapahtunutta 50 luvulla syntyneen kuolemaa henkirikoksena. Missä päin tälläinen sattunut1103566Diesel-ammattilainen kehuu Sanna Marinia
"Sanna Marinin (sd) hallitus loi neljä vuotta sitten väliaikaisen polttoainetukijärjestelmän, kun energianhinnat nousi202482Pitkänperjantain kunniaksi tekoälyn analyysi Riikka Purran kirjoituksesta
🧠 Mitä se kertoo "riikka"-nimimerkin lähijunassa tapahtuneesta? 1. Asenteellinen ja epäasiallinen sävy: Kirjoitus purs42305100 prosentin perintövero korjaisi myös Hitas-ongelman
Moni ei uskalla kieltäytyä perinnöstä maineen menettämisen uhalla, joten sitten tulee näitä tilanteita, joissa joutuu es282113Olen aika varma
että meidän tiemme risteäminen oli ainutkertainen tapahtuma elämässäni. En tule koskaan kohtaamaan ketään muuta, joka sa341197Läpäiseekö Martina Aitolehti Erikoisjoukot - kyllä vai ei?
Martina Aitolehti on pärjännyt mainiosti Erikoisjoukoissa. Yrittäjä on mielipiteiltään napakka ja hän sivaltaakin koulut231059Ei ne päivät ole samanlaisia...
Toisena hymyillään ja katsellaan silmiin, toisena taas tuntuu ettei edes tunneta toisiamme, vältellään ja katseet ei vah29861- 134853
Oikea syy siihen
miksi toivon ettei enää törmätä on se, että olen ihan tavattoman ihastunut sinuun. Paljon helpompi itselle kun ei saa pä34764