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

584

    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
        25
        3130
      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
        12
        2269
      3. Kuka? Riehui valtuuston kokouksessa tänään ?

        Onko puolangan puolesta porukkaa. Vaikuttaa siltä. Sairasta.
        Puolanka
        71
        2143
      4. 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
        105
        1929
      5. Toivoisitko Rakas vielä?

        Haluaisitko vielä? Uskoisin osaavani näyttää sinulle, kuinka ainutlaatuinen nainen olet.
        Ikävä
        76
        1623
      6. Ihan pieni näkeminen vaan

        👋 ja minä olisin valmis jo vaikka mihin sun kanssa. Nämä on näitä.. 🤫🫣😘💥
        Ikävä
        41
        1421
      7. 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
        15
        1349
      8. Keskustelua kasteesta

        You tubessa kaksi pappia keskustelivat kasteesta ja kritisoivat raamatullista uskovien kastetta. Toinen heistä yritti
        Kaste
        400
        1285
      9. Jos saisit antaa yhden neuvon

        jälkikasvullesi elämää varten, niin minkä antaisit?
        Sinkut
        114
        1130
      10. Tulipalo viimeyönä

        Olipa ikävä kuulla tämä tulipalo, nyt on jatkuvasti asuinpaloja.Grillikausi alkanut.Grillit pois parvekkeilta ja asuntoj
        Jämsä
        15
        1096
      Aihe