Taulukossa on ristiinlaskentaa kaavoissa josta seuraa kehäviittaus-virheilmoitus. Siitä pääsee eroon kun sallii iteratiivisen laskennan.
Tyhjällä taulukolla toimiikin homma hyvin, mutta jos paljon muuttelee laskentaa, jää joidenkin solujen kaavoihin jumiin aikaisempia lukemia.
Pitää nollata tilanne aina välillä avaamalla tyhjä talukko uudelleen. Jos kaavat nollaa poistamalla "=" merkin alusta, ja sitten palauttaa "=" merkin, se myös nollaa tilanteen.
Parempi olisi joku nollauspainike jota painamalla taulukon kaavat tyhjäytyisivät.
Voisi tietenkin nauhoittaa pitkän makron joka tekee tuon kaikkien kaavojen nollauksen ja aktivoinnin, vai onko parempikin tapa?
Kehäviittaus vaivaa
Anonyymi-ap
12
1001
Vastaukset
- Anonyymi
Kyllä makro joutaa tekemään pitemmänkin kaavan kautta.
- Anonyymi
Makrot on turvallisuusriski!
- Anonyymi
Anonyymi kirjoitti:
Makrot on turvallisuusriski!
En oikein ymmärrä tätä makrojen pelkoa. Kun tietää taulukon alkuperän turvalliseksi, ei makrojen käyttämisessä mitään vaaraa ole. Varman päälle pelaa silloin kun asettaa makrot sallituiksi vain varmojen taulukoiden käytön ajaksi, muutoin pitää makrot kiellettyinä.
- Anonyymi
Anonyymi kirjoitti:
En oikein ymmärrä tätä makrojen pelkoa. Kun tietää taulukon alkuperän turvalliseksi, ei makrojen käyttämisessä mitään vaaraa ole. Varman päälle pelaa silloin kun asettaa makrot sallituiksi vain varmojen taulukoiden käytön ajaksi, muutoin pitää makrot kiellettyinä.
Makrot saastuttaa koneen.
- Anonyymi
Messukeskuksessa Helsingissä 16. marraskuuta järjestetty Apotti-tukihenkilöiden koulutuspäivä on herättänyt runsaasti keskustelua ja huomiota. Aikaisemmin julkaistussa Helsingin Sanomien uutisessa tapahtumaan osallistunut lääkäri kritisoi tapahtuman muistuttaneen mainostilaisuutta.
Hänen mukaansa osa paikalla olleista oli kuvaillut koulutusta ”herätyskokoukseksi”.
Tilaa tästä Tivin maksuton uutiskirje – Kokoamme it-alan kiinnostavimmat puheenaiheet sähköpostiisi joka päivä.
Myöhemmin julkisuuteen on ilmestynyt myös tapahtumassa esitetty Apotti-reggae, jota soitettiin tapahtumassa. Kappale levisi nopeasti sosiaalisessa mediassa. Myöhemmin se on saanut lukuisia mukaelmia sekä cover-versioita. - Anonyymi
Tämä muuttaa kaavan heittomerkillä tekstiksi ja takaisin. Tekstiksi merkityt luvut pysyvät ennallaan.
Sub painike()
For Each s In ActiveSheet.UsedRange
k = s.Formula
If (s.PrefixCharacter <> "'" And Left(k, 1) = "=") Or Left(k, 1) <> "=" Then
k = "'" & k
End If
s.Formula = k
Next s
End Sub- Anonyymi
On tämä ainakin lyhyempi kuin se nauhoitettu makro, mutta hitaampi kun näköjään käy kokotaulukon lävitse. Ja jättää niitä hipsuja kaikkiin sellaisiin soluihin joissa ei ole "=" merkkiä alussa. Kuten myös lukujen desimaalipilkku muuttuu pisteeksi.
Saako tämän makron toimimaan vain annetulla alueella, ja tekisi palautuksen heti perään ettei tarvitse painiketta painaa kahteen kertaan? - Anonyymi
Anonyymi kirjoitti:
On tämä ainakin lyhyempi kuin se nauhoitettu makro, mutta hitaampi kun näköjään käy kokotaulukon lävitse. Ja jättää niitä hipsuja kaikkiin sellaisiin soluihin joissa ei ole "=" merkkiä alussa. Kuten myös lukujen desimaalipilkku muuttuu pisteeksi.
Saako tämän makron toimimaan vain annetulla alueella, ja tekisi palautuksen heti perään ettei tarvitse painiketta painaa kahteen kertaan?Tämä vaikuttaa vain maalattuna olevaan alueeseen, eikä muuta desimaalipilkkuja:
Sub painike()
For Each s In Selection
k = s.Formula
If (s.PrefixCharacter <> "'" And Left(k, 1) = "=") Then
k = "'" & k
Else
If WorksheetFunction.IsNumber(k) Then k = s.Value
End If
s.Formula = k
Next s
End Sub - Anonyymi
Anonyymi kirjoitti:
Tämä vaikuttaa vain maalattuna olevaan alueeseen, eikä muuta desimaalipilkkuja:
Sub painike()
For Each s In Selection
k = s.Formula
If (s.PrefixCharacter <> "'" And Left(k, 1) = "=") Then
k = "'" & k
Else
If WorksheetFunction.IsNumber(k) Then k = s.Value
End If
s.Formula = k
Next s
End SubKun nyt edes toimisi jotenkin.
- Anonyymi
Anonyymi kirjoitti:
Tämä vaikuttaa vain maalattuna olevaan alueeseen, eikä muuta desimaalipilkkuja:
Sub painike()
For Each s In Selection
k = s.Formula
If (s.PrefixCharacter <> "'" And Left(k, 1) = "=") Then
k = "'" & k
Else
If WorksheetFunction.IsNumber(k) Then k = s.Value
End If
s.Formula = k
Next s
End SubNauhoitin sitten nollausnappiin makron joka maalaa kaava-alueen ja ajaa kaksi kertaa peräkkäin tuon "painike" makron.
- Anonyymi
"Voisi tietenkin nauhoittaa pitkän makron joka tekee tuon kaikkien kaavojen nollauksen ja aktivoinnin, vai onko parempikin tapa?"
On reilusti parempi, ja sen tarjoaa taulukkolaskenta ohjelma itse. Valitun alueen osittainen tyhjennys hiirivalikosta valiten sopiva.
Poista kaikki
Poista teksti
Poista päivämäärä ja kellonaika
Poista huomautukset
Poista objektit
Poista numerot
Poista kaava
Poista muotoilu
Ketjusta on poistettu 2 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Kela valvoo lasten tilejä.
Tämä isoveli Kela kyttää jopa lasten yli 200,- euron rahat jotka on melko varmasti lahjaksi saatu. Se vaikuttaa perheen2372596- 1201559
Nainen, tervetuloa
Tule luokseni eka vaikka viikoks tai pariksi. Saisin helliä, kannustaa ja tukea sua ja kokata lempi herkkujasi. Pääsisit101494TTK-tähti Saana Akiola paljasti tv-ohjelmassa tapahtuneen ahdistelun
Olisko pitänyt suunnitella ulostulo paremmin? Nyt lehdet soittelevat kaikki 8 läpi ja kuusi sanoo ettei koskenut häntä.161412Elisa laskuttaa jo sähköpostilaskusta erikseen euron
Paperilaskuista on otettu lisämaksua jo ajat sitten, mutta nyt Elisa ottaa euron siitä että lähettävät sähköisen laskun961305Oho! Susanna Laine kohtasi epäonnea lomareissulla Italiassa - Avaa tilannetta: "Vähän sahaavaa..."
Ou nou! Tsemppiä kuitenkin loppulomaan Italiassa, Susanna Laine ja mahdollinen seuralainen! Lue lisää ja katso kuvat:71160Väliämme on noin 6 km
Niin lähellä ja niin kaukana. Sinä olet kotona, minä olen kotona. Olet jo unessa. Mutta kun herään, olet jo töissä ja vä9903- 61878
- 56868
Ensitreffit alttarilla Jyrki paljastaa hääyön intiimiasioista kameroiden sammuttua: "Fyysinen..."
Ooo-la-laa… Ensitreffit alttarilla -sarjassa alkaa hääparien välillä ns. tunteet kuumenemaan. Lue lisää: https://www.s1825