Moi,
Ytimekäs otsikkoni ei vielä paljasta mitä lopulta haluan, mutta tässä tarkemmin esimerkin valossa.
B -sarakkeessa on 36 nimeä riveillä 1-36.
A-sarakkeessa on jokaisen nimen kohdalla jokin arvo, vaikka väliltä 0-100.
Jokaisella nimellä on tarkastelualue rivin solut C-Z.
Tässä lähtöasetelma.
Ajatuksena olisi ainoastaan pienentää A-sarakkeen lukua hiirtä klikkaamalla soluissa välillä C-Z siten, että soluun jäisi X-kirjain, eikä X-kirjaimen poistaminen (joskus) -palauttaisi arvoa enää isommaksi.
Soluihin C-Z täytyy voida kirjoittaa haluttaessa muitakin kirjaimia, mutta VAIN X-kirjain pienentäisi A-sarakkeen lukua yhdellä.
Tarkennuksena siis, että jokainen rivin X-kirjain pienentää A-sarakkeen solun lukua.
Lisäksi A-sarakkeen lukua pitää voida muuttaa isommaksi tai pienemmäksi niin haluttaessa, eli lukua lähdetään aina pienentämään sen hetkisestä arvosta mikä siinä sillä hetkellä on, paisti jos arvo on 0 (nolla).
Luonnistuisiko tällainen kaavarivillä tai VB:llä?
Luvun pienentäminen solussa
12
154
Vastaukset
- Anonyymi
VB:llä hyvin luultavasti onnistuu. En ole täysin varma, ettei sille ole jotain estettä, mutta ohjelmointikielihän se on, joten äkkiseltään sanoisin, että mikä ettei.
Kaavarivillä tuskin ihan tuollaisenaan onnistuu. Jotain samantapaista kyllä, mutta ainakin se, että solun arvo muuttuu sekä syöttämällä että kaavan avulla, on aika tekemätön paikka. Kun syötät A-sarakkeeseen uuden arvon, se ei vain muuta solun arvoa, vaan korvaa solun kaavan.- Anonyymi
Tuota itsekin arvelin, ettei A-sarakkeen arvoa voi ainakaan suoraan lähteä muokkaamaan, ainakaan jos se sisältää kaavan. En tiedä onnistuisiko tämä lainkaan kkaavalla.
Mutta nyt näyttääkin Kunde alempana ratkaisseen asian VB:llä.
Kiitos silti pähkäilystäsi!
ko taulukon moduuliin...
nyt tuplaklikkaamalla solua alueella lisää soluun X ja pienentää vastaavan solun rivin A sarakkeen arvoa -1 ja jos nolla ei tee mitään.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("C1:Z36"), Target) Is Nothing Then
Target = "X"
If Range("A" & Target.Row) = 0 Then
Else
Range("A" & Target.Row) = Range("A" & Target.Row) - 1
Target.Offset(0, 1).Select
End If
End If
End Subsori tämäkoodi piti postata...
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("C1:Z36"), Target) Is Nothing Then
If Target = "X" Then
If Target.Column = 25 Then
Target.Offset(1, 0).Select
Else
Target.Offset(0, 1).Select
End If
Else
Target = "X"
If Range("A" & Target.Row) <= 0 Then
Range("A" & Target.Row) = 0
Else
Range("A" & Target.Row) = Range("A" & Target.Row) - 1
If Target.Column = 25 Then
Target.Offset(1, 0).Select
Else
Target.Offset(0, 1).Select
End If
End If
End If
End If
End Sub
Keep EXCELing
@Kunde- Anonyymi
kunde kirjoitti:
sori tämäkoodi piti postata...
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("C1:Z36"), Target) Is Nothing Then
If Target = "X" Then
If Target.Column = 25 Then
Target.Offset(1, 0).Select
Else
Target.Offset(0, 1).Select
End If
Else
Target = "X"
If Range("A" & Target.Row) <= 0 Then
Range("A" & Target.Row) = 0
Else
Range("A" & Target.Row) = Range("A" & Target.Row) - 1
If Target.Column = 25 Then
Target.Offset(1, 0).Select
Else
Target.Offset(0, 1).Select
End If
End If
End If
End If
End Sub
Keep EXCELing
@KundeKiitos Kunde, tämä näyttäisi ns. soivalta peliltä.
Esitin asiani esimerkin valossa, kuten kirjoitinkin. Nyt kun käsissäni on toimiva koodi, yritän sovittaa sen jo käytössä olevaan versiooni.
Mahdollisissa ongelmissa käännyn mielelläni puoleesi.
Virittelyni siirtyy varmaan kyllä ensi viikolle, mutta palataan tarvittaessa asiaan.
Kiitos vielä kovasti nopeasta reagoinnistasi! :) - Anonyymi
Anonyymi kirjoitti:
Kiitos Kunde, tämä näyttäisi ns. soivalta peliltä.
Esitin asiani esimerkin valossa, kuten kirjoitinkin. Nyt kun käsissäni on toimiva koodi, yritän sovittaa sen jo käytössä olevaan versiooni.
Mahdollisissa ongelmissa käännyn mielelläni puoleesi.
Virittelyni siirtyy varmaan kyllä ensi viikolle, mutta palataan tarvittaessa asiaan.
Kiitos vielä kovasti nopeasta reagoinnistasi! :)Moi Kunde. Päätinkin kokeilla koodiasi heti ja mieleeni tuli seuraavaa.
Tässä nykyisessä versiossahan tuo X-kirjain pienentää A-sarakkeen solun arvoa yhdellä.
Olisiko iso muutos jos X-kirjaimen poistamisen jälkeen se palauttaisikin arvon entiselleen?
Ajatus muutokselle lähti siitä, että nuo X-kirjaimet periaatteessa jäävät yleensä aina paikalleen, mutta joskus tulee tilanne, että se täytyykin poistaa ja arvo saisi palautua sillä yhdellä silloin. Soluun muiden kirjainten kirjoittaminen saisi olla silti voimassa edelleen, vaikka X-kirjain poistettaisiinkin.
Toinen muutos mikä tuli mieleen, voisiko koodiasi muuttaa siten, että se vaikuttaisikin vain joka toisella rivillä, eli nyt se vaikuttaa joka rivillä 1-36, kun se voisikin selvyyden vuoksi vaikuttaa vain joka toisella rivillä, eli 1, 3, 5, 7....... 35.
Tämä muutos olisi tervetullut. :)) Anonyymi kirjoitti:
Moi Kunde. Päätinkin kokeilla koodiasi heti ja mieleeni tuli seuraavaa.
Tässä nykyisessä versiossahan tuo X-kirjain pienentää A-sarakkeen solun arvoa yhdellä.
Olisiko iso muutos jos X-kirjaimen poistamisen jälkeen se palauttaisikin arvon entiselleen?
Ajatus muutokselle lähti siitä, että nuo X-kirjaimet periaatteessa jäävät yleensä aina paikalleen, mutta joskus tulee tilanne, että se täytyykin poistaa ja arvo saisi palautua sillä yhdellä silloin. Soluun muiden kirjainten kirjoittaminen saisi olla silti voimassa edelleen, vaikka X-kirjain poistettaisiinkin.
Toinen muutos mikä tuli mieleen, voisiko koodiasi muuttaa siten, että se vaikuttaisikin vain joka toisella rivillä, eli nyt se vaikuttaa joka rivillä 1-36, kun se voisikin selvyyden vuoksi vaikuttaa vain joka toisella rivillä, eli 1, 3, 5, 7....... 35.
Tämä muutos olisi tervetullut. :))Lisäsin koodiin vielä semmoisen, että jos A -sarakkeen luku on jo 0, niin ei voi lisätä X kirjainta- jos ei hyvälisäys, niin poistetaan sitten...
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("C1:Z36"), Target) Is Nothing Then
If Target.Row Mod 2 = 1 Then
If Target = "X" Then
Target = ""
Range("A" & Target.Row) = Range("A" & Target.Row) 1
If Target.Column = 25 Then
Target.Offset(1, 0).Select
Else
Target.Offset(0, 1).Select
End If
Else
If Range("A" & Target.Row) <= 0 Then
Range("A" & Target.Row) = 0
If Target.Column = 25 Then
Target.Offset(1, 0).Select
Else
Target.Offset(0, 1).Select
End If
Else
Range("A" & Target.Row) = Range("A" & Target.Row) - 1
Target = "X"
If Target.Column = 25 Then
Target.Offset(1, 0).Select
Else
Target.Offset(0, 1).Select
End If
End If
End If
End If
End If
End Sub
Keep EXCELing
@Kunde- Anonyymi
kunde kirjoitti:
Lisäsin koodiin vielä semmoisen, että jos A -sarakkeen luku on jo 0, niin ei voi lisätä X kirjainta- jos ei hyvälisäys, niin poistetaan sitten...
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("C1:Z36"), Target) Is Nothing Then
If Target.Row Mod 2 = 1 Then
If Target = "X" Then
Target = ""
Range("A" & Target.Row) = Range("A" & Target.Row) 1
If Target.Column = 25 Then
Target.Offset(1, 0).Select
Else
Target.Offset(0, 1).Select
End If
Else
If Range("A" & Target.Row) <= 0 Then
Range("A" & Target.Row) = 0
If Target.Column = 25 Then
Target.Offset(1, 0).Select
Else
Target.Offset(0, 1).Select
End If
Else
Range("A" & Target.Row) = Range("A" & Target.Row) - 1
Target = "X"
If Target.Column = 25 Then
Target.Offset(1, 0).Select
Else
Target.Offset(0, 1).Select
End If
End If
End If
End If
End If
End Sub
Keep EXCELing
@KundeKunde, laitoinkin aiheesta spostia sulle!
- Anonyymi
Näinhän se parempi toimisto-ohjelma asentuu vaikeasti komentamalla ;-).
(täällä kerran winhiihuli vai kuka se oli, niin valitti sudotuksesta, joten...:
apt update
sudo !!
apt upgrade
sudo !!
apt search libreoffice
apt install libreoffice
sudo !!
xxx
$ e
Keskeyt ä.............
.- Anonyymi
Mitäs tehdään, kun heti tuli:
bash: apt: komentoa ei löydy
- - Anonyymi
Niin... Miksipä ihmeessä kukaan haluaisi käyttää hyvin optimoitua ammattilaisten tekemää kaupallista ohjelmistoa, kun voi yhtä hyvin käyttää huonosti optimoitua harrastelijoiden vapaaehtoisprojektina tekemää ilmaiskopiota samasta tuotteesta.
- Anonyymi
Moi,
Aiheen aloittajana ilmoitan, että sain ratkaisun esittämääni ongelmaan! Kiitos kaikille ratkaisuja esittäneille ja erityisesti Kundelle, joka väänsi homman toimimaan VB-koodilla -joka saikin matkan varrella lisää uusia ulottuvuuksia.
-aiheen aloittaja
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
6 kW saunan lämmityksestä kohta 10 euron lisämaksu / kerta
Kokoomuslainen sähköyhtiöiden hallitsema Energiavirasto ehdottaa 5 kW:n rajaa, jonka ylittämisestä tulee lisämaksu. Tark2136782Minja jytkyttää vas.liiton kannatusta ylöspäin
Alkaa raavaat duunarimiehetkin palaamaan vasemmistoliiton kannattajiksi. Eduskunnassahan on vain kaksi työntekijöiden p3064734"Mitä sä nainen tuot sitten pöytään" ?
Jos mies provaidaa ja suojelee... Pitääkö miesten kysyä tuollaisia?1433616Duunarit hylkäsivät vasemmistoliiton, siitä tuli feministinaisten puolue
Pääluottamusmies Jari Myllykoski liittyi vasemmistoliittoon, koska se oli duunarien puolue. Sitä samaa puoluetta ei enää1153434Ekologinen kommunismi tulee voittamaan fossiilikapitalismin
Kiina on mahtitekijä uusiutuvien energialähteiden kehityksessä, ja Trump osoitus viimeisestä öljyn perään itkemisestä, m673405Mies, kerro minulle vielä jotakin aivan uniikkia
ja ainutlaatuista minkä vain me kaksi voisimme ymmärtää jos olemme sen kokeneet ja eläneet, jotta ihan varmasti tietäisi492876Hyviäkin uutisia tulossa, hallinto-oikeus asettaa toimeenpanokieltoon
Hyvinvointitalon työmaa pysähtyy. Rillankivi+energia ja vesi kytkyrahanpesu stoppaa. Tytäryhtiöiden hallitusjäsenet+kon2632676Oikeistopuolueiden kannatus vain 37,8 %, vasemmiston 43,0 %
Keskustaan jää 17,4 prosenttia ja loput ovat sitten mitä ovat. Mutta selvästikin Suomen kansa on vasemmalle kallellaan.832449- 252366
Gallup: Mikä on ollut mielestäsi paras tv-sarja ikinä?
Gallup: Mikä on ollut mielestäsi paras tv-sarja ikinä? Onko se joku suomalainen viihdepläjäys, brittirikossarja, amerikk1011951