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 ;-)