Nostetaanpas vanha juttu esille

http://keskustelu.suomi24.fi/show.fcgi?category=108&conference=4500000000000708&posting=22000000019318739

kaavaongelmia
Kirjoittanut: Solukko 7.9.2006 klo 14.25

Voiko laskea kaavaa samaan soluun? Eli jos on solu jossa luku 5. Siihen samaan soluun lisätään 3 niin automaattisesti se laskee yhteenlaskun 5 3 =8 kyseiseen soluun.

Tapasin tossa nimimerkin T-N täällä Thaimaassa reilu viikko sitten, joka oli vastaillut ketjuun kanssa ja juttelimme asiasta. No kerroin, että asian voi tehdä ainakin 2 eri tavalla helposti, joten kerrotaan se nyt muillekin

taulukon moduuliin... käytä vaan jompaakumpaa, mutta ei molempia yhtäaikaa

kommenttia apuna käyttäen

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
LisääVanhaan Target
Application.EnableEvents = True
End Sub

tai solun ID:tä apuna käyttäen

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
LisääID Target
Application.EnableEvents = True
End Sub

moduuliin... (voit laittaa molemmat)

Option Explicit

Sub LisääVanhaan(Solu As Range)
Dim edellinen As Double
Dim nykyinen As Double
On Error Resume Next
With Solu.Cells(1, 1)
edellinen = CDbl(.Comment.Text)
.Comment.Delete
If Len(.Formula) > 0 Then
nykyinen = .Value
.Formula = edellinen nykyinen
.AddComment CStr(edellinen nykyinen)
End If
On Error GoTo 0
End With
End Sub

Sub LisääID(Solu As Range)
Dim edellinen As Double
Dim nykyinen As Double
On Error Resume Next
With Solu.Cells(1, 1)
edellinen = CDbl(.ID)
.ID = ""
If Len(.Formula) > 0 Then
nykyinen = .Value
.Formula = edellinen nykyinen
.ID = CStr(edellinen nykyinen)
End If
On Error GoTo 0
End With
End Sub

Keep Excelling ;-)

0

585

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000

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

      Luetuimmat keskustelut

      1. Joensuun kaupunki levittelee tonttitietoja Keskisuomalaiselle

        Sähköposteja ja tonttitietoja levitellään mm. Pasi Koivumaalle
        Joensuu
        28
        3557
      2. Tiesitkö tätä ex-miehistä? Noriko Salo jysäytti yllätyspaljastuksen

        Noriko Salo ja ex-F1 kuski Mika Salo olivat naimisissa v. 1999-2022. Kirsi Salon ex-mies puolestaan on muusikko Sammy A
        Kotimaiset julkkisjuorut
        14
        2820
      3. Kuka? Riehui valtuuston kokouksessa tänään ?

        Onko puolangan puolesta porukkaa. Vaikuttaa siltä. Sairasta.
        Puolanka
        121
        2741
      4. Kuka oli töllöntyön tekijä?

        Ketä on nyt pidätetty? Oliko syy mustasukkaisuus tyttöystävästä tai oliko muita lieventäviä seikkoja? Katuuko tekijä nyt
        Pieksämäki
        18
        2444
      5. Huh, huh! Sofia Belorf ei ole itse pessyt hiuksiaan kolmeen vuoteen

        Sofia Belorf elää ökyelämää Dubaissa. Sofian arjessa kulta, raha ja luksus ovat vahvasti läsnä. Luksuselämään tottuneell
        Kotimaiset julkkisjuorut
        116
        2418
      6. Toivoisitko Rakas vielä?

        Haluaisitko vielä? Uskoisin osaavani näyttää sinulle, kuinka ainutlaatuinen nainen olet.
        Ikävä
        77
        1762
      7. Ihan pieni näkeminen vaan

        👋 ja minä olisin valmis jo vaikka mihin sun kanssa. Nämä on näitä.. 🤫🫣😘💥
        Ikävä
        50
        1678
      8. Sointu Borg tilittää - Ei suostu enää tähän työhön: "Katastrofi"

        Sointu Borg on mediapersoona, joka löi itsensä läpi Diili-realityssä. Borg on monipuolinen tekijä: mediapersoona, juonta
        Suomalaiset julkkikset
        26
        1666
      9. Kotikasvatus siitä se lähtee eli missä meni vikaan että lapsesta tuli puukottaja

        Ottakaa muut oppia, normaali kotielämä. Ei liikaa edes hengellisyyttä.
        Pieksämäki
        43
        1421
      10. Jos saisit antaa yhden neuvon

        jälkikasvullesi elämää varten, niin minkä antaisit?
        Sinkut
        144
        1334
      Aihe