Minulla on suora viittaus prosenttisoluun ja haluaisin saada numerosolusta annetulla prosenttimäärällä sen annetun prosenttimääräisen muutoksen siihen numerosoluun.
Esim.
Luku 10
Kaava esim. A1*$B1$
Ongelma on, että saa muutosta tuohon numerosoluun, tällöin excel vain viittaa että on kehäviittaus.
Saan toki lukumuutoksen viereiseen soluun, mutta tarvetta olisi siis että annetulla prosenttiarvolla tietystä numerosolusta saadaan uusi numeroluku perustuen siis annettuun prosenttiin.
kaavaongelma
4
477
Vastaukset
ensiviikolla palaan asiaan...
piece of cake pari rivia koodia- ...
kunde kirjoitti:
taulukon moduuliin...
nyt solussa A1 muutos ja solussa prosenttikoodi näyttää olevan läpinäkyvällä musteella kirjoitettu.
... kirjoitti:
koodi näyttää olevan läpinäkyvällä musteella kirjoitettu.
taulukon moduuliin...
tietämättä tarkemmin tarvettasi niin tossa nyt 3 eri variaatiota
vain yksi saa olla käytössä kerrallaan
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Target, Range("B1")) Is Nothing Then
Range("A1") = Range("A1") * Range("B1") / 100
End If
If Not Intersect(Target, Range("A1")) Is Nothing Then
Range("A1") = Range("A1") * Range("B1") / 100
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Target, Range("B1")) Is Nothing Then
Range("A1") = Range("A1") * Range("B1") / 100
End If
Range("B1") = ""
Application.EnableEvents = True
End Sub
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") = Range("A1") * Range("B1") / 100
End If
Application.EnableEvents = True
End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 1581991
Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1311774Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.1021547- 721240
Anna vielä vähän vihreää valoa
Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet171233- 681191
- 220988
- 70815
- 45750
Miksi homous puhuttaa konservatiiveja vuodesta toiseen?
Kysymykseen on vastattukin Kansanlähetyksen osalta: "Miksi sukupuoleen ja seksuaalisuuteen liittyvät asiat ovat konserv194723