Elikkä olen pähkäillyt sellaisen asian kans kun jostain kumman syystä mul on selainen taulukko että esim. A1 solus on arvo 4 ja B1 solus on 2 niin olen alus luonut C1:oseen kaavan (A1/B1)-vastaus on tietysti 2. Niin jos kirjoitan A2 soluun 10 ja B2 soluun 2 niin se luo automaattisesti C2:oseen kaavan A2/B2 ja vastaus tietysti on 5. Haluaisinki kysyä miten saisin tehtyä sellaisen jutskan ettei tarvii kopioita kaava C1-sestä C2-oseen. Huomasin että on aika helppo kun se luo kaavan itse. Löytyykö kokeneitä käyttäjiää???
miten saan kaavan luotua automaattisesti???
hosu
8882
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 8
Vanhimmat
Taulukon moduuliin
Dim vika As String
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error GoTo virhe
Application.EnableEvents = False
vika = Target.Column
Select Case vika
Case 1
If Cells(Target.Row, 1) = "" Or Cells(Target.Row, 2) = "" Then
Cells(Target.Row, 3) = ""
GoTo virhe
Else
Cells(Target.Row, 3).FormulaR1C1 = "=RC[-2]/RC[-1]"
GoTo virhe
End If
Case 2
If Cells(Target.Row, 1) = "" Or Cells(Target.Row, 2) = "" Then
Cells(Target.Row, 3) = ""
GoTo virhe
Else
Cells(Target.Row, 3).FormulaR1C1 = "=RC[-2]/RC[-1]"
GoTo virhe
End If
Case Else
If Cells(Target.Row, 1) = "" Or Cells(Target.Row, 2) = "" Then
Cells(Target.Row, 3) = ""
GoTo virhe
Else
Cells(Target.Row, 3).FormulaR1C1 = "=RC[-2]/RC[-1]"
GoTo virhe
End If
End Select
virhe:
Application.EnableEvents = True
End Sub
Sub palauta()
Application.EnableEvents = True
End Sub
Maalaat ensimmäisen rivisi.
Otat hiirellä solun kulmasta kiinni ja vedät alaspäin niin monta riviä kuin haluat.
Sitten vain annat A ja B soluihin haluamasi lähtöarvot ja laskenta tapahtuu automaattiseti.
Kunkin rivin tulos näkyy sarakkeessa C oikealla rivillä.
Tätäkö takoitit.
On myös hyvin helppoa rakentaa "laskin", jossa vain tiettyhin ruutuihin kirjoitetaan lähtöarvot ja tulos ilmestyy tulosruutuun.
Laskimella voi laskea hyvinkin monimutksisia laskuja, mutta vain sellaisia, joille se on laadittu.
Tarkoitin sitä että kaava tulis automaattisesti ilman mitään maalamista ja hiirellä vedämistä C-sarakkeeseen. Ja ole jo saanut selville miten.
Jos kirjoitat A1,B1 ja A2,B2 arvot ja tekee kaavan C1-seen(esim. =A1 B1) ja kopioin sen kaavan hiirellä alaspäin C2,C3 ja C4. Ja sitten annan arvot myös A3,B3 ja A4,B4. Ja tiedätkö mitä tapahtuu jos kirjoitan arvot soluihin A5 ja B5 - Se tekee itse kaavan ja laske myös tuloksen C5-seen vaikka en ole koskenut C5-soluun (ja myös siitä alaspäin). Sitä ajoin takaa ettei tatteis kopioita solun kaava. Jos olisin kopioinut niin olis ollut pelkkä nollien rivi C-solus
koodihan tekee just sen mitä pyysit???
Taulukon moduuliin
Dim vika As String
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error GoTo virhe
Application.EnableEvents = False
vika = Target.Column
Select Case vika
Case 1
If Cells(Target.Row, 1) = "" Or Cells(Target.Row, 2) = "" Then
Cells(Target.Row, 3) = ""
GoTo virhe
Else
Cells(Target.Row, 3).FormulaR1C1 = "=RC[-2]/RC[-1]"
GoTo virhe
End If
Case 2
If Cells(Target.Row, 1) = "" Or Cells(Target.Row, 2) = "" Then
Cells(Target.Row, 3) = ""
GoTo virhe
Else
Cells(Target.Row, 3).FormulaR1C1 = "=RC[-2]/RC[-1]"
GoTo virhe
End If
Case Else
If Cells(Target.Row, 1) = "" Or Cells(Target.Row, 2) = "" Then
Cells(Target.Row, 3) = ""
GoTo virhe
Else
Cells(Target.Row, 3).FormulaR1C1 = "=RC[-2]/RC[-1]"
GoTo virhe
End If
End Select
virhe:
Application.EnableEvents = True
End Sub
Sub palauta()
Application.EnableEvents = True
End Sub
Tuota olen vähän (täytyy sanoa että tosi paljonkin) pihalla sun viestistä. Esim. mikä koodi ja mikä moduuli. Pitääkö kirjoittaa johonki noi rivit vai. Tai mitä noi tarkoittaa. Taitaa olla liian vaikee juttu ainakin minulle. Olisin kiitollinen jos pystyisit vähän selittää - tai jos se on mahdollista. Ihan suoraan sanoen en ymmärräny noista riveistä mitään.
Klikkaa hiiren oikealla taulukonvalinnassa haluamasi taulukon päällä ja valitse avautuvasta ikkunasta "Näytä koodi" ja Vba editori aukeaa ja liität sinne allaolevan koodin
Dim vika As String
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error GoTo virhe
Application.EnableEvents = False
vika = Target.Column
Select Case vika
Case 1
If Cells(Target.Row, 1) = "" Or Cells(Target.Row, 2) = "" Then
Cells(Target.Row, 3) = ""
GoTo virhe
Else
Cells(Target.Row, 3).FormulaR1C1 = "=RC[-2]/RC[-1]"
GoTo virhe
End If
Case 2
If Cells(Target.Row, 1) = "" Or Cells(Target.Row, 2) = "" Then
Cells(Target.Row, 3) = ""
GoTo virhe
Else
Cells(Target.Row, 3).FormulaR1C1 = "=RC[-2]/RC[-1]"
GoTo virhe
End If
Case Else
If Cells(Target.Row, 1) = "" Or Cells(Target.Row, 2) = "" Then
Cells(Target.Row, 3) = ""
GoTo virhe
Else
Cells(Target.Row, 3).FormulaR1C1 = "=RC[-2]/RC[-1]"
GoTo virhe
End If
End Select
virhe:
Application.EnableEvents = True
Kiitoksia! Säpä ootki nero ja varmaan kokenut käyttäjä. Mistä oot sellaisen koodin esim. saanut ja saako noita jostain lisää muihin hommiin ja tehtäviin.
niin vastaillaan.
Korjasin koodia hieman ,kun näkyi olevan åuolet turhaa. Tuli tehtyä vähän unenpöpperössä.
Tässä parannettu versio
Dim vika As String
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error GoTo virhe
Application.EnableEvents = False
If Cells(Target.Row, 1) = "" Or Cells(Target.Row, 2) = "" Then
Cells(Target.Row, 3) = ""
GoTo virhe
Else
Cells(Target.Row, 3).FormulaR1C1 = "=RC[-2]/RC[-1]"
GoTo virhe
End If
virhe:
Application.EnableEvents = True
End Sub