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

522

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000

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

      Luetuimmat keskustelut

      1. Maatalous- ja yritystuet pois, työeläkevaroilla valtion velka pois

        Suomi saadaan eheytettyä kädenkäänteessä, kun uskalletaan tehdä rohkeita ratkaisuja. Maatalous- ja yritystuet ovat hait
        Maailman menoa
        22
        3017
      2. Tykkäsin rakas

        Tuottaa sulle nautintoa❤️🔥olet paras ja nautin itsekkin suunnattomasti
        Suhteet
        39
        2617
      3. Mies mä oon ihan helppo

        Miehelle johon oon ihastunut. Olen harvoin ihastunut, mutta suhun olen. Ei tarvitse kuin pyytää, niin...
        Ikävä
        38
        1473
      4. Hyvää iltaa!

        Mikä on päivän viisaus?
        Ikävä
        84
        1350
      5. Olet onnellinen sinkku

        Näin se on nähtävä.
        Ikävä
        63
        1241
      6. Mies olen aika erakko nykyään

        Vanhentunutkin olen muutamana viime vuonna parikyt vuotta. Kun en ennenkään kelvannut, niin tuskin nytkään kelpaan. Lisä
        Tunteet
        40
        999
      7. Lavroville taitaa olla jo ikkuna raollaan?

        Lavrovin syytä välttää korkeita paikkoja ja ikkunoiden läheisyyttä.Ettei vain keikahda ikkunasta pihalle.
        Maailman menoa
        124
        893
      8. Haittaako jos

        kaivattusi käy tosi usein pissalla ja/tai kakalla?
        Ikävä
        32
        806
      9. Ylen johdon hulppeat bonukset alkavat taas

        Suora kopio Iltalehdestä: "Asiasta kertoo Iltalehdelle Ylen hallituksen puheenjohtaja Matti Apunen. Mitä tulospalkkioi
        Yle
        28
        656
      10. Skenaario

        Elämä ja kuolema ovat merkillisin nyytti olevaisuutta. Mutta kun kumpaakaan ei ole, syntyy lapsuksia, joita korjaamaan
        Sinkut
        59
        621
      Aihe