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
öökll
4
487
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
- 1824300
- 341584
Minulta loppuu aika
Halusin olla täydellinen. Nyt näyttää siltä että viimeinen kiristys jää puolitiehen, sillä h-hetki on jo ihan kohta käsi401500Syvälliset keskustelut
Olisivat tärkeintä ensisijaisesti hänen kanssaan Tulisi sellainen hetki, mutta kaikki meni pieleen251484Olisipa sitä henkisesti eheämpi ja rohkeampi
mikään maallinen mammona ei itseäni kiinnosta, eikä sen menetys kiinnostus. Mutta kun kohtaa jonkun sykäyttävän ihmisen,201375- 1121306
Moi, nainen
Tunnustan, olen heikkona sun hymyyn, ja sekään ei auta yhtään, että sulla on täydellinen nenä. Joten ensi kerralla, kun301190Kyllähän tämä vähän kirpaisee
Mutta oman sisäisen rauhan vuoksi jätän sinut nyt historiaan. Todennäköisesti olet jo sinäkin mennyt eteenpäin. Olipah381187- 191149
Sulla on uskomaton luonne
Saat minut hetkessä iloiseksi, tai sanotaan nyt niin, että ajatus sinusta saa sydämeni hyppimään riemusta. En vain saa s441038