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
531
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
- 1261710
- 1051195
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 "Herro1381071- 49979
- 128877
Keitä oli kunnanjohtajan erottajat?
Kouluja ei ole varaa ylläpitää mutta johtajasopimukseen palaa 100000 euroa ja uuden johtajan hakuprosessi maksaa kymmeni51870Atte Harjanne usuttaa eläkeläisvihaan
Karmeeta kuultavaa aamun uutislähetyksessä, kun Atte Harjanne, tunnettu eläkeläisvihaaja, suitsii sukupolvien välistä v240838Helsingin Mäntymäki muuttui Kultajuhlan jälkeen kaatopaikaksi.
Mitä se kertoo jääkiokosta ja lätkäfaneista? Saikkua huomenna huusi fani yöllä?70745Pridekulkue kiellettävä?
Näin täällä suoraan vaaditaan. Perusteina mitä mielikuvituksellisimmat tarinat. No, miksi ihmeessä kukaan ei ole samalla178719Mä 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ä sinu55709