Kehäviittaus?: Esim. A1-solussa näkyy arvo 8. Haluan lisätä siihen 2 niin että uusi tulos 10 näkyy entisen arvon 8 tilalla samassa solussa A1. Mihin kirjoitan kaavan? Kehäviittauksen olen jo sallinut, mutta kunnei missään selviä miten kaavan saa samaan soluun kuin arvon, ei sitä varmaan saakaan?
hätäapua tarvitaan
hetiapua
3358
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 3
Vanhimmat
.. soluun kuin arvo. Jos sitten se arvo muuttuukin niin sinähän uutta arvoa antaessasi kirjoittaisit sen kaavan päälle.
Miksi kaava pitää olla samassa solussa? Onhan noita vapaita soluja sarakkeita ja rivejä varmaan niin paljon, että riittää? Muotoilemmalla, linkitämällä, sommittelemalla jne. saa sitten tulostettua sellaisen taulukon kuin haluaa ilman niitä arvosarakkeita jos niistä kerran on jotain haittaa.
taulukon moduuliin...
Public vanha As Double
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Target, Range("A1")) Is Nothing Then
Range("A1") = Val(Range("A1")) Val(vanha)
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
vanha = Range("A1")
End Sub
taulukon moduuliin...
Public vanha As Double
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Target, Range("A1")) Is Nothing Then
Range("A1") = CDbl(Range("A1")) CDbl(vanha)
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
vanha = Range("A1")
End Sub