Kuinka saan taulukon nimen soluun?
Taulukon nimi soluun
Excelhirmu
29
5516
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
Hetken jo luulin, että en ikävöi sinua koko aikaa
Mutta nyt on sitten taas ihan hirveä ikävä jotenkin. Tiedätköhän sinä edes, kuinka peruuttamattomasti minä olen sinuun r345548Outoa että Trump ekana sanoutui irti ilmastosopimuksesta
kun Kaliforniaa riepottelee siitä johtuvat tuhoisat maastopalot. Hirmumyrskytkin ovat USA:ssa olleet tuhoisia.4902543Eli jos toisen hiki haisee ns. omaan nenään siedettävältä
Se kertoo hyvästä yhteensopivuudesta. Selvä! Olet mies minun. 🫵🥳271369JOKO OLETTE KUULLET, MITÄ KIURUVEDELLÄ ON SATTUNUT!
Oletteko jo kuulleet, mitä Kiuruvedellä on sattunut, voi hyvänen aika? Aivan viime tuntien aikana olisi sattunut, jos t51355En tiedä miksi kerroin sinusta täällä
Siksi kai, kun meidän juttu on niin alkuvaiheessa, etten voi vielä puhua siitä kenellekään.171089Oho! Queen of Fucking Everything villitsee - Ikean sininen luottotuote nappasi hervottoman idean!
Ikea on ajan hermoilla! Aika hauska idea ja Queen of Fucking Everything -ajatus toimii hyvin tässäkin. Lue lisää: http7964- 62872
Ei ois kyllä kivaa
Jos miestä ei kiinnostais ollenkaan minun seura. Aina huitelis ties missä tai olis omassa seurassaan. Kaikki muu ois kiv4867Nainen, tunnetko saman kuin minä
Syvän yhteyden välillämme, silloin kun se tunne tulee. Niinä hetkinä minulla on niin järjettömän suuri ikävä sinua. Ikäv43863Siellä taas pyörin
Nimittäin sinun paikkakunnalla mies. Mutta en vieläkään nähnyt sinua. Miksi sinä olet minulta aina piilossa?9796