Kehäviittaus vaivaa

Makrot on turvallisuusriski!

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 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ä.

Lue lisää

Makrot saastuttaa koneen.

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 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?

Lue lisää

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 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 Sub

Lue lisää

Kun nyt edes toimisi jotenkin.

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 Sub

Lue lisää

Nauhoitin sitten nollausnappiin makron joka maalaa kaava-alueen ja ajaa kaksi kertaa peräkkäin tuon "painike" makron.