Kuinka saan taulukon nimen soluun?
Taulukon nimi soluun
Excelhirmu
29
6022
Vastaukset
pari päivää sitten vastasin samanlaiseen kyssäriin...
http://keskustelu.suomi24.fi/node/9654096- Excelhirmu
Siis ko. solun sisällöksi
=MID(CELL("filename");FIND("]";CELL("filename")) 1;255
ja pitäisi toimia, vai?
(Office 2007 suomi) Excelhirmu kirjoitti:
Siis ko. solun sisällöksi
=MID(CELL("filename");FIND("]";CELL("filename")) 1;255
ja pitäisi toimia, vai?
(Office 2007 suomi)se lontoon versiossa...
suomiversio
=POIMI.TEKSTI(SOLU("tiedostonnimi");ETSI("]";SOLU("tiedostonnimi")) 1;255)- Excelhirmu
kunde kirjoitti:
se lontoon versiossa...
suomiversio
=POIMI.TEKSTI(SOLU("tiedostonnimi");ETSI("]";SOLU("tiedostonnimi")) 1;255)kiitos paljon!
- Ei toiminu oikein
kunde kirjoitti:
se lontoon versiossa...
suomiversio
=POIMI.TEKSTI(SOLU("tiedostonnimi");ETSI("]";SOLU("tiedostonnimi")) 1;255)Kaavassa on virhe, antaa sivun nimen. Ao. toimii oikein:
=POIMI.TEKSTI(SOLU("tiedostonnimi");ETSI("[";SOLU("tiedostonnimi")) 1;255)
Kumma, että nuo Mikrosoftin omilla sivuilla olevat kaavaesimerkit eivät toimi?? - Anonyymi
Ei toiminu oikein kirjoitti:
Kaavassa on virhe, antaa sivun nimen. Ao. toimii oikein:
=POIMI.TEKSTI(SOLU("tiedostonnimi");ETSI("[";SOLU("tiedostonnimi")) 1;255)
Kumma, että nuo Mikrosoftin omilla sivuilla olevat kaavaesimerkit eivät toimi??Ei toimi tämäkään.
- Anonyymi
Anonyymi kirjoitti:
Ei toimi tämäkään.
Plussa yksinäisen ykkösen eteen. Nykyään Suomi24 piilottaa sen.
- pohdiskelua1
Alkuperäinen kysymys oli:
"Kuinka saan taulukon nimen soluun?"
Tarkoittaako Excelhirmu, että soluun tulee kyseisen tiedoston nimi vai taulukkovälilehden nimi?
Viimeisin vastaus viittaa tiedoston nimeen, tosin en saanut toimimaan. - Pohdiskelua1
No nyt sain toimimaan, käsitin ohjeen vasta monen kokeilun jälkeen.
Te palstan käyttäjät olette kyllä ihan hillittömän taitavia Excelissä.
Itsekin tykkään auttaa sen vähän mitä osaan, mutta joku bisneshemmo kyllä ihmettelisi ihmisten intoa auttaa toisia täysin ilmaiseksi.
Hyvin moni on tällä palstalla saanut paljon apua töihinsä, ja täysin ilmaiseksi.
Erittäin suuri ristiriita: Yhteiskunta vain kovenee, pelkkä rahallinen voitto merkitsee ja siksi ihmisiä potkitaan työttömiksi. JA SITTEN ON SOME, jossa ihmiset tykkää auttaa toisiaan.
Kiitos teille kaikilleParempi hiukan aivojumpata, kuin vaan dokata kaljaa helteessä palmun alla päivät pitkät...
Keep EXCELing
@Kunde
- Excelmiina
Mitenkäs mahtaisi saada Sheet1:lle Tauli1, Taul2, Taul3 jne niimet haluttuihin ruutuihin...?
Esnimmäiselle sivulle siis tarkoitus tehdä koosterivit alasivuista.- Tämmönen
Function SivunNimi(n)
SivunNimi = Sheets(n).Name
End Function
- Excelmiina
Tuo taitaa olla vähän edistyneempää funktiointia... Kuinkas tuo taulukkoon syötetään - ei mene ihan suoraan tuosta kopioimalla?
Lisää funktio -valikoista en ainakaan löytänyt.- tämmönen
Dveloper-välilehdeltä kohta Visual Basic . aukeaa Visual Basic for Applications. Sieltä: Insert - Module - aukeaa tyhjä ikkuna. Kopioi tuo funktio sinne.
Itse tehtyjä funktioita voi käyttää kuten Excelin vakiofunktiotkin.Parametrinä annetaan numero ja funktio palauttaa niin monennen välilehden nimen. Jotta tehdyt funktiot tai makrot säilyvät, asiakirja on muistettava tallettaa muodossa .xlsm.
Ellei sinulla ole Developer-välilehteä, sen saa esiin seuraavasti:
File _ Options - Customise Ribbon - merkitse oikealta kohta Developer
- 11+5
Mikä idea on kaavalla saada taulukon nimi soluun.. Eikös helpointa olisi vain kirjoittaa se siihen soluun?
- Excelmiina
Teen työpohjaa, välilehden nimeämällä koostesivulle saisi tuolla tavalla suoraan oikean nimikkeen. Yksittäisen taulukon ja muutaman välilehden kanssa tietenkin on helpompi vain kirjoittaa se itse, mutta kyse on vuosien aikana kertyvistä tuhansista toistoista, joihin ei tarvitse käyttää työaikaa, jos automaatio toimii. Ja kysehän on automaattisesta tietojen käsittelystä, laitetaan tietokone töihin tekemään sitä mihin se on suunniteltu.
- Tupmo
Toimii kyllä. Ei vain päivity automaattisesti soluun, kun muuttaa välilehden nimeä. Ratkaisua tähän?
- Kundepuu
ThisWorkbook moduuliin...
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Range("A1") = Sh.Name
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Range("A1") = Sh.Name
End Sub- Tupmo
Toimii kerran. Miten saa toimimaan niin, että vaihtuu joka kerta solussa, kun muuttaa välilehden nimeä?
- Kundepuu
Tupmo kirjoitti:
Toimii kerran. Miten saa toimimaan niin, että vaihtuu joka kerta solussa, kun muuttaa välilehden nimeä?
Kyllä minulla toimii OK. eli uudelleennimeä ko taulukon nimi ja klikkaat jotakin soluataulukossa, niin nimi päivittyy tai jos aktivoit jonkun toisen taulukon ja palaat ko. taulukkoon niin nimi päivittyy.
Tämä koodi antaa vaan ko. taulukon nimen ja jos yrittää jollain muulla keinolla esim.
Tämmösen funktiolla viitata muihin taulukoihin niin ongelmia tulee ja ei päivity tietenkään
Function SivunNimi(n)
SivunNimi = Sheets(n).Name
End Function
ongelmaksi tulee se, että jos taulukkoa siirretään esim 1 oikealle, sen indeksi kasvaa yhdellä ja ei palauta enää alkuperäisen taulukon nimeä vaan edelliseen indeksiin viitatun taulukon nimen( indeksi-1).
Alempana on mun postaama koodi, joka käyttää ovelasti taulukon määritettyä nimeä(koodinimi taulukolle) ovelasti ja koska se on taulukkokohtainen se on kuin sormenjälki ihmisellä. Ei haittaa vaikka siirtelee, niin aina palautuu oikea taulukon nimi ;-) - Tupmo
Mulla päivittyy vasta kun klikkaan kyseiseen soluun (niin että kaava tulee esiin) ja klikkaan "enter".
Tupmo kirjoitti:
Mulla päivittyy vasta kun klikkaan kyseiseen soluun (niin että kaava tulee esiin) ja klikkaan "enter".
tarkoitat varmaan tätät koodia?
Function SivunNimi(n)
SivunNimi = Sheets(n).Name
End Function
se ei päivity ja ongelma myös siinä, jos siirrät taulukkoa palauttaa väärän taulukon nimen. Ainoat keinot on APi ja toi allaoleva koodini, jotka palauttavat oikean taulukon siirtelee sitä tai ei.
tämä päivittyy
Function SivunNimi(n)
Application. Volatile
SivunNimi = Sheets(n).Name
End Function
Keep EXCELing
@Kunde- Tupmo
Jees! Nyt toimii! Mahtavaa, kiitos!
- Kundepuu
hieman ovelampi tapa. Lisätään taulukon nimiin koodinimi taulukolle ja käytetään sitä.
moduuliin...
Option Base 1
Public Nimet() As Variant
Dim i As Long
'suorita tämä makro ekaksi...
Sub UniikkiNimet()
' lisää haluamasi koodinimi taulukoille matriisissa
Nimet = Array("Makkara", "Kinkku", "Salami")
For i = 1 To UBound(Nimet)
ThisWorkbook.Worksheets(i).Names.Add Nimet(i), "Huuhaa"
Next
End Sub
Function HaeNimi(KoodiNimi As String) As String
Dim Nimi As Name
Dim Taulukko As Worksheet
On Error Resume Next
Application.Volatile True
For Each Taulukko In ThisWorkbook.Worksheets
Set Nimi = Taulukko.Names(KoodiNimi)
If Not Nimi Is Nothing Then
HaeNimi = Nimi.Parent.Name
Exit Function
End If
Err.Clear
Next
End Function
Keep EXCELing
@Kunde - Kundepuu
jäi käyttöohje pois eli
soluun mihin haluat taulukon nimen kaava =HaeNimi("Salami") eli edellisen postauksen mukkan kolmas taulukko olisi nimetty koodilla Salami. Ei haitta vaikka siirtelee sitten taulukkoa eri paikkaa ja oikea nimi tulee silti....
Keep EXCELing
@Kunde - Turbo-Urpo1
( LibreOffice 6.0 Calc )
Tässä on jo monenlaista tarjottu, mutta tämä puuttuu:
https://s25.postimg.cc/571un16u7/Tauluko-nimi.gif
Tuossa animaatiossa, minä tupla-nausautan hiirellä solua jonka jälkeen painan hiiren oikeanpuoleista painiketta, avatakseni PopUp-valikon, ja loppuhan näkyykin animaatiossa.- Kundepuu
ja mitenkäs tämä liittyy EXCELìin?
- Turbo-Urpo1
Kundepuu kirjoitti:
ja mitenkäs tämä liittyy EXCELìin?
Mietippä sitä.
- Anonyymi
Heitä helvettiin se ms-office.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Nasima löi Jussille luun kurkkuun
Nasima kertoi ettei Jussi sovi puhemieheksi, koska sallii rasismin. Mihin toimiin perussuomalaiset ryhtyvät? Kuka nouse5148755Razmyar on säälittävä - puhemiehellä ei ole mitään syytä ottaa kantaa tähän "silmäkohuun"
jonka toimittajat sai aikaan. Asia ei kuulu puhemiehelle millään lailla. Razmyar haluaa taas vaan huomiota. Mutta jos r1456046Miten Eerolan silmäkuvat voivat levitä muutamassa tunnissa ympäri maailmaa?
Seuraako koko maailma persujen ja erityisesti Eerolan somea reaaliajassa? Edes kansanedustajan itsemurha eduskuntatalos3515077Siviilipalvelusmies Halla-aho normalisoi rasismin perussuomalaisissa
SMP:n tuhkille perustettu puolue ei ollut ihmisiä vastaan, vaan instituutiokriittinen. "Missä EU - siellä ongelma", oli634706Suomalaisilta vaaditaan valtavasti suvaitsevaisuutta - miksi sitä ei vaadita muslimeilta
Suomalaisilta vaaditaan kaikkea, pitää olla suvaitsevainen ja hyväksyä vieraiden tavat, rasisti ei saa olla jne. Miksi s964307Juuri Suomen valtamedian toimittajat teki "silmävääntelystä" sen kohun
ja ilmeisesti ottivat yhteyttä myös ulkomaisiin medioihin, että katsokaas tätä. Mutta Japanin medioissa on asiaan suhta1664023SDP:n kansanedustaja Marko Asell: Suomen myönnettävä maahanmuuton ongelmat
Hänen mielestään Suomen pitää pyrkiä rajoittamaan jyrkästi turvapaikanhakijoiden pääsyä maahan ja hän arvioi, että maaha1813873- 911818
- 1031364
- 47939