Hei,
alla esimerkki tekemästäni makrosta, jonka tarkoitus on lajitella solusta B11 alkava luettelo nuosevaan järjestykseen ja sen jälkeen nimetä luettelon alue nimellä "Tulokset".
Lista alkaa aina solusta B11 ja loppuu sarakkeen B jollekin riville. Lajittelu toimii hienosti mutta solualueen nimeäminen käyttäytyy aivan ihmeellisesti. Tässä koodi:
'Lajitellaan luettelo tulosten perusteella
While d 1
If cells(11 e, 2).Value = "" Then d = 1
e = e 1
Wend
f = e 9
'f = listan viimeisen täytetyn solun rivinumero
Range(cells(11, 2), cells(f, 2)).Select
Selection.Sort Key1:=Range("B11"), Order1:=xlAscending, Header:= xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortTextAsNumbers
'Päivitetään solualueen "Tulokset" sijainti
ActiveWorkbook.Names("Tulokset").Delete
ActiveWorkbook.Names.Add Name:="Tulokset", RefersToR1C1:= "=Tiedot!R11C2:R[" & f - 1 & "]C2"
Application.ScreenUpdating = True
Range("A1").Select
Kun solualueen "Tulokset" ottaa Lomakkeet -työkalurivin Avattava luetteloruutu -ohjausobjektin syöttöalueeksi, toimii kaikki hienosti mutta kun saman alueen ottaa kelpoisuustarkistuksen luettelon alueeksi, tulee mukaan aina ylimääräisiä rivejä.
Ja kun Excelin Nimiruudusta klikkaan alueen "Tulokset", maalautuu milloin mikäkin alue riippuen siitä mikä solu on aktivoituna klikkaushetkellä...
Onko siis jotakin muuta mahdollisuutta viitata alueeseen kuin tuo R1C1?
Ps. En oikein ymmärrä tuota R1C1 -viittaustapaa, siitähän tämäkin ongelma johtuu. Kyse on ilmeisesti suhteellisesta viittauksesta..?
-Pasi-
alla esimerkki tekemästäni makrosta, jonka tarkoitus on lajitella solusta B11 alkava luettelo nuosevaan järjestykseen ja sen jälkeen nimetä luettelon alue nimellä "Tulokset".
Lista alkaa aina solusta B11 ja loppuu sarakkeen B jollekin riville. Lajittelu toimii hienosti mutta solualueen nimeäminen käyttäytyy aivan ihmeellisesti. Tässä koodi:
'Lajitellaan luettelo tulosten perusteella
While d 1
If cells(11 e, 2).Value = "" Then d = 1
e = e 1
Wend
f = e 9
'f = listan viimeisen täytetyn solun rivinumero
Range(cells(11, 2), cells(f, 2)).Select
Selection.Sort Key1:=Range("B11"), Order1:=xlAscending, Header:= xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortTextAsNumbers
'Päivitetään solualueen "Tulokset" sijainti
ActiveWorkbook.Names("Tulokset").Delete
ActiveWorkbook.Names.Add Name:="Tulokset", RefersToR1C1:= "=Tiedot!R11C2:R[" & f - 1 & "]C2"
Application.ScreenUpdating = True
Range("A1").Select
Kun solualueen "Tulokset" ottaa Lomakkeet -työkalurivin Avattava luetteloruutu -ohjausobjektin syöttöalueeksi, toimii kaikki hienosti mutta kun saman alueen ottaa kelpoisuustarkistuksen luettelon alueeksi, tulee mukaan aina ylimääräisiä rivejä.
Ja kun Excelin Nimiruudusta klikkaan alueen "Tulokset", maalautuu milloin mikäkin alue riippuen siitä mikä solu on aktivoituna klikkaushetkellä...
Onko siis jotakin muuta mahdollisuutta viitata alueeseen kuin tuo R1C1?
Ps. En oikein ymmärrä tuota R1C1 -viittaustapaa, siitähän tämäkin ongelma johtuu. Kyse on ilmeisesti suhteellisesta viittauksesta..?
-Pasi-
Vastaukset 4
Vanhimmat
on Excel VBA:n oma viittausmuoto joka voi olla suhteellinen tai absoluuttinen, samalla tavoin kun normaali Excelin soluviittaus (esim A1).
R ja C tarkoittavat riviä ja saraketta eli siis Row ja Column.
Esimerkkejä muunnoksista:
A1 = R1C1
B2 = R2C2
C3 = R3C3
Nämä ovat siis absoluuttisia viittauksia eli ne viittaavat aina samaan soluun.
R1C1-muodolla voidaan tehdä myös suhteellisia viittauksia:
R[1]C = 1 rivi alas aktiivisesta solusta
RC[1] = 1 sarake oikealle aktiivisesta solusta
R[2]C[2] = 2 riviä alas ja 2 saraketta oikealle aktiivisesta solusta.
Kiitos vastauksesta, olen siis jokseenkin oikein ymmärtänyt tuon R1C1 -idean.
Se vain ihmetyttää että todennäköisesti koodini nimeää alueen oikein koska se toimii "avattava luetteloruutu" toiminnossa, mutta kelpoisuustarkistuksessa tulee mukaan aina ylimääräisiä sarakkeita varsinaisen oikean alueen lisäksi, sen alapuolelta.
Jos nimeän sheetin "Tiedot" solualueen B11:B15 manuaalisesti, soluviittaus Lisää -> Nimi -> Määritä -kohdassa on =Tiedot!$B$11:$B$15. Koodin suorittaman solualuueen nimeämisen jälkeen vastaava viittaus on =Tiedot!$B$11:$B15, eli toinen riviviittaus tuleekin suhteellisena!
Harmillinen juttu...
-Pasi-
ActiveWorkbook.Names.Add Name:="Tulokset", RefersToR1C1:= "=Tiedot!R11C2:R[" & f - 1 & "]C2"
näyttäisi muuttujalle olevan määritelty suhteellinen viittaus. Jos poistat muuttujan ympäriltä hakasulkeet niin koodi muuttuu seuraavasti:
"=Tiedot!R11C2:R" & f - 1 & "C2"
ja viittaus muuttuu absoluuttiseksi. Toki pitää ottaa huomioon että tällöin muuttujan pitää määrittää viimeisen rivin numero, pelkkä rivimäärän määrittely ei riitä.
Kelpoisuustarkistukseen liittyen, kyseistä toimintoa ei ole normaalitilanteessa tarkoitettu päivitettäväksi ja sen käyttö olisi suositeltavaa vain muuttumattomien tietojen kanssa (esim. kuukaudet, viikonpäivät, järjestysnumerot tai Kyllä/Ei-vaihtoehdot).
Kannattaa myös huomioida että kelpoisuustarkistuksessa on merkkirajoitus minkä takia se soveltuu huonosti pitkien listavalintojen käyttämiseen.
Poistin hakasulkeet, ja nyt kaikki toimii aivan kuten on tarkoitus.
Pienestä se on kiinni, kiitoksia taas ;)
-Pasi-