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

595

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000

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

      Luetuimmat keskustelut

      1. Ny se loppuu ( Kuhmo)

        Yhtiö on myyty. Notta yyteet meleko äkkiä, notta. Pelastautukoon ken voi. Notta se on tuulista pian.
        Kuhmo
        92
        2839
      2. Parikymppinen hakkasi nelikymppisen kriittiseen tilaan

        Ja ihminen jäi junan alle lautiosaaressa...paljon on taas sattunut ja tapahtunut. Ketähän nämä uhrit mahtaa olla 🤔 htt
        Kemi
        44
        2353
      3. Kaivattusi tärkein ulkoinen tuntomerkki

        Onko jokin muu kuin yleinen kuten kaunis, laiha. hyväkroppainen jne.
        Ikävä
        39
        1123
      4. Mille kirjaimelle

        toivotat hyvää yötä , kuka on mielessäsi kun menet nukkumaan?
        Ikävä
        36
        991
      5. Äimän käki

        Olen vähää vaille viisikymppinen mies, ja olen elellyt ilman parisuhdetta parisen vuotta. Nyt vihdoin ja viimein tuntuu,
        Sinkut
        153
        849
      6. Paikallinen autokorjaamo

        Kyllä alkaa vituttamaan, palvelua haluaisi niin jono ovelle ja yksi myyjä. Auto valmistunut kuntoon niin kukaan ei ilmoi
        Kuhmo
        9
        703
      7. Nainen, miten suhtautuisit

        Jos mies ehdottaisi tapaamista? Entä siihen, jos mies kertoisi tapaamisessa tunteistaan ja haluaisi seurustella?
        Ikävä
        58
        700
      8. 2 km on nykyään liian pitkä koulumatka

        Hesarissa päivitellään lapset joutuu nyt kulkemaan 2 km kouluun jösses. Ruostefillarilla tuo matka menee vaikka miten äk
        Lieksa
        48
        618
      9. Mitä tuot pöytään parisuhteessa?

        Siinäpä se kysymys on otsikossa. Mitäpä siis tuot/toisit pöytään parisuhteessa? Oletko mies vai nainen? Koetko sen mitä
        Sinkut
        149
        589
      10. Sinulle mies

        Kohtaamme jälleen kun on oikea aika. Sitä ei voi mikään eikä kukaan estää <3 <3
        Ikävä
        36
        581
      Aihe