X solu=välilehden nimi

Sweit

Moro

Miten saa solun määriteltyä siten että kun siihen kirjoittaa niin solun sisältö on yhtäkuin kyseisen välilehden nimi (jossa solu sijaitsee)?

Koulussa joskus tälläinen asia muistaakseni oli mutta 3 vuoden jälkeen ei millään muistu mieleen.

Tattista

11

5008

Äänestä

    Vastaukset 11

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      Kunde ei tajunnut yhtään mitään...
      voisitkos antaa esimerkin

      • tuttumies

        1) Välilehden nimi "Tau1", kun kirjoittaa soluun C3 tekstin "Tau1", niin eikös se ole siinä?

        2) Jos kirjoittaa samaan soluun =Sheet(), niin tulos on kaiketi sama?

        (-;

      • sweit

        Solu pitäisi olla määritettynä siten että kun siihen kirjottaa tekstiä ja painaa enter niin sama teksti ilmestyy kyseisen välilehden nimeksi. Eli toiminta olisi jotenkin asetettu kyseisen "solun rakenteeseen(?)".

        Jos vaikka A1 soluun oisi tehty tälläinen "kikka" niin aina kun kirjottaisin A1:seen jotain ja painaisin enter, niin solun A1 sisältö muuttaisi välilehden nimen täksi samaksi. Eli A1=Sheetin nimi.

        Tämä voi olla joku aivan törkeen yksinkertainen asia, mutta oon vähän huono selittämään =P

      • kunde
        sweit kirjoitti:

        Solu pitäisi olla määritettynä siten että kun siihen kirjottaa tekstiä ja painaa enter niin sama teksti ilmestyy kyseisen välilehden nimeksi. Eli toiminta olisi jotenkin asetettu kyseisen "solun rakenteeseen(?)".

        Jos vaikka A1 soluun oisi tehty tälläinen "kikka" niin aina kun kirjottaisin A1:seen jotain ja painaisin enter, niin solun A1 sisältö muuttaisi välilehden nimen täksi samaksi. Eli A1=Sheetin nimi.

        Tämä voi olla joku aivan törkeen yksinkertainen asia, mutta oon vähän huono selittämään =P

        taulukon moduuliin...
        Private Sub Worksheet_Change(ByVal Target As Range)
        On Error Resume Next
        If Not Intersect(Target, Range("A1")) Is Nothing Then
        ActiveSheet.Name = Range("A1")
        End If
        End Sub

      • Sweit
        kunde kirjoitti:

        taulukon moduuliin...
        Private Sub Worksheet_Change(ByVal Target As Range)
        On Error Resume Next
        If Not Intersect(Target, Range("A1")) Is Nothing Then
        ActiveSheet.Name = Range("A1")
        End If
        End Sub

        Kiitos!

      • Sweit
        kunde kirjoitti:

        taulukon moduuliin...
        Private Sub Worksheet_Change(ByVal Target As Range)
        On Error Resume Next
        If Not Intersect(Target, Range("A1")) Is Nothing Then
        ActiveSheet.Name = Range("A1")
        End If
        End Sub

        Heh heh.. Voisitkos vielä rautalangasta vääntää mihin tuo pitää laittaa. Olen koittanut tökötä tuon koodin Visual Basicin kautta joka paikkaan, mutta eihän se mistään toimi.

        Nimimerkillä "ei vain osaa"

      • Sweit
        Sweit kirjoitti:

        Heh heh.. Voisitkos vielä rautalangasta vääntää mihin tuo pitää laittaa. Olen koittanut tökötä tuon koodin Visual Basicin kautta joka paikkaan, mutta eihän se mistään toimi.

        Nimimerkillä "ei vain osaa"

        W00t! Sain toimimaan, Kiitos! =)

    • Anonyymi

      Entäs toisinpäin? A1 solun arvo muuttuu jos välilehden nimi muuttuu. Kiitos

      • Anonyymi

        Function TaulukonNimi()
            Application.Volatile
            TaulukonNimi = ActiveSheet.Name
        End Function

    • Anonyymi

      Vaihda se surkee vakoileva MS offise johonkin toimivaan!

    • kunde

      Aika pahan kyssärin heitit ;-)
      Taulukon nimen muutokselle ei löydy tapahtumaa, mutta kikkailemalla sekin syntyi...
      Vanhalla EXCEL4 macrolla homma hoituikin

      ThisWorkbook moduuliin...
      Option Explicit

      Private Sub PäivitäTaulukonNimi()
      ActiveSheet.Range("A1").Formula = _
      "=MID(CELL(""filename""," & _
      ActiveSheet.Name & "!A1" & _
      "),FIND(""]"",CELL(""filename""," & _
      ActiveSheet.Name & "!A1" & _
      ")) 1,255)"
      End Sub

      Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
      On Error Resume Next
      Application.EnableEvents = False
      PäivitäTaulukonNimi
      Application.EnableEvents = True
      End Sub
      Sub Reset()
      Application.EnableEvents = True
      Application.Calculation = xlCalculationAutomatic
      End Sub


      Keep EXCELing
      @Kunde

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Suomalaisten pinna paloi - Ärsytys iskee uudesta TTK-juontajasta "Eihän tälle voi kun nauraa"

      Oliko Veronica Verho hyvä valinta TTK-juontajaksi? Uuden TTK-juontajan henkilöllisyyttä on arvailtu siitä asti, kun Va
      Suomalaiset julkkikset
      113
      2341

    2. Mitä tapahtuu?

      Mitä tapahtuu Humalojalla? Poliiseja talon ympärillä ja paljon ihmisiä pitkin pihoja???
      Haapavesi
      31
      1192

    3. Mitäpä luulet että tykkääkö

      kukaan kaivatustasi ?
      Ikävä
      106
      963

    4. T rakastan sua

      vaikket sitä usko
      Ikävä
      71
      942

    5. Suomi on viittä vaille sodassa Venäjän kanssa...

      ...syynä tähän on kokoomuslainen presidenttimme Stubb. Hän on ainoa eurooppalaisen maan johtaja, joka kärkkäästi ja taha
      Maailman menoa
      614
      916

    6. Varmaan aika moni

      Haluaisi sinut enemmän kuin mielellään
      Ikävä
      48
      855

    7. Miksi et lähesty minua

      Jos kerran kaipaat, mies? Mitä pelkäät?
      Ikävä
      85
      790

    8. Olen vähän epävarma siitä, oletko kiltti

      Nainen, ensivaikutelma oli, että olet tosi hyväsydäminen eli siinä mielessä harvinaisuus. Eli et mene virran mukana, etk
      Ikävä
      76
      680

    9. Kai sä olet

      Luovuttanut mun suhteen.
      Ikävä
      70
      676

    10. Herkkä, hellä, aurinkoinen, kaunis upea, valonsäde on hän nainen

      Ja myös fiksu, älykäs ja luonnonläheinen. Erittäin mielenkiintoinen ja kiltti ihminen. Haluan tuntea hänet, koska kaik
      Ikävä
      31
      666
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt