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
533
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
- 1261730
- 1051215
Postimerkki kirjeeseen ja kortiin maksaa jo 3 euroa!
https://yle.fi/a/74-20229241 Kyllä tämä on järjetön hinta, Posti tuhoaa itsensä tällä hinnalla, täytyyhän Postin "Herro1381081- 49989
- 129892
Keitä oli kunnanjohtajan erottajat?
Kouluja ei ole varaa ylläpitää mutta johtajasopimukseen palaa 100000 euroa ja uuden johtajan hakuprosessi maksaa kymmeni52887Atte Harjanne usuttaa eläkeläisvihaan
Karmeeta kuultavaa aamun uutislähetyksessä, kun Atte Harjanne, tunnettu eläkeläisvihaaja, suitsii sukupolvien välistä v240858Helsingin Mäntymäki muuttui Kultajuhlan jälkeen kaatopaikaksi.
Mitä se kertoo jääkiokosta ja lätkäfaneista? Saikkua huomenna huusi fani yöllä?73757Pridekulkue kiellettävä?
Näin täällä suoraan vaaditaan. Perusteina mitä mielikuvituksellisimmat tarinat. No, miksi ihmeessä kukaan ei ole samalla178739Mä oon tyytyväinen, että ei ole enää tunteita.
Samalla tajusin, että sun kohdalla tykkäsin enemmän niistä tunteista kuin sinusta persoonana. Halusin väkisin nähdä sinu55729