Prot huomio! Apua kaivataan taas...

Aina 71

Jepulis, eli onko mahdollista jollain systeemillä toteuttaa seuraava; Jos esim. A1

11

798

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • muotoilu

      Laita ehdollinen muotoilu halutuille soluille:


      Format -> Conditional formatting -> FormulaIs =A1

      • Nimimerkki

        Tuo valkoisella värin käyttäminen on joskus hyvä juttu, käytän sitä itsekkin tilanteissa jossa en halua taulukolla näkyvän jotain mutta tarvin arvoa esim koodissa.

        Jos kuitenkin halutaan piilottaa nuo rivit vain vähäksi aikaa ja kuitenkin on tarkoitus että normaalisti nuo näkyy kannattaa etsiä muita vaihtoehtoja.

        Voisit kyllä "Private Sub Workbook_BeforePrint(Cancel As Boolean)" tapahtumassa värjätä nuo rivit valkoiseksi, mutta ongelmana edelleen miten palautat värin takaisin.

        Ehkä kannataisi lähestyä ongelmaa niin että kun solussa on tietty arvo niin tulostus marginaali ja tulostus alue on tietyt, ja toisessa vaihtoedossa toisin, ja tuo tarkistus tuohon "Private Sub Workbook_BeforePrint(Cancel As Boolean)"

        Private Sub Workbook_BeforePrint(Cancel As Boolean)

        If ActiveSheet.Range("A1") > 1 Then

        tähän tarvittava tulostusalu
        tähän tarvittava marginaali

        else

        tähän tarvittava tulostusalu
        tähän tarvittava marginaali

        end if

        noin itse taulukko pysyy samana mutta tulostettaessa niin kuin haluaa.

        Taas pitää tehdä muutakin, mutta jospa yrität itse ensin saada tuon toimimaan, kysäise jos tuossa on jotain vaikeuksia niin muut voivat tarkentaa asiaa ja minäkin voin kyllä myöhemmin antaa lisä ohjeita kunhan kerkeän


      • Nimimerkki
        Nimimerkki kirjoitti:

        Tuo valkoisella värin käyttäminen on joskus hyvä juttu, käytän sitä itsekkin tilanteissa jossa en halua taulukolla näkyvän jotain mutta tarvin arvoa esim koodissa.

        Jos kuitenkin halutaan piilottaa nuo rivit vain vähäksi aikaa ja kuitenkin on tarkoitus että normaalisti nuo näkyy kannattaa etsiä muita vaihtoehtoja.

        Voisit kyllä "Private Sub Workbook_BeforePrint(Cancel As Boolean)" tapahtumassa värjätä nuo rivit valkoiseksi, mutta ongelmana edelleen miten palautat värin takaisin.

        Ehkä kannataisi lähestyä ongelmaa niin että kun solussa on tietty arvo niin tulostus marginaali ja tulostus alue on tietyt, ja toisessa vaihtoedossa toisin, ja tuo tarkistus tuohon "Private Sub Workbook_BeforePrint(Cancel As Boolean)"

        Private Sub Workbook_BeforePrint(Cancel As Boolean)

        If ActiveSheet.Range("A1") > 1 Then

        tähän tarvittava tulostusalu
        tähän tarvittava marginaali

        else

        tähän tarvittava tulostusalu
        tähän tarvittava marginaali

        end if

        noin itse taulukko pysyy samana mutta tulostettaessa niin kuin haluaa.

        Taas pitää tehdä muutakin, mutta jospa yrität itse ensin saada tuon toimimaan, kysäise jos tuossa on jotain vaikeuksia niin muut voivat tarkentaa asiaa ja minäkin voin kyllä myöhemmin antaa lisä ohjeita kunhan kerkeän

        äh, taas tein liian nopeasti kirjoitin tuon ajatuksella että rivit 1-15 halutaan piilottaa, mutta ne olikin 10-15 joten pelkillä marginaalin ja tuulostus aluetta muuttamalla et selviä tuosta, vai selviätkö?


      • Nimimerkki
        Nimimerkki kirjoitti:

        äh, taas tein liian nopeasti kirjoitin tuon ajatuksella että rivit 1-15 halutaan piilottaa, mutta ne olikin 10-15 joten pelkillä marginaalin ja tuulostus aluetta muuttamalla et selviä tuosta, vai selviätkö?

        Eli tuo ongelma miten palautta beforPrinrt tapahtuman jälkeen arvot takaisin, siis sellaista tapahtumaa ei ole kuin AfterPrint joka tekisi tämänkin helpoksi.

        Tulostushan tapahtuu vasta beforPrint tapahtuman jälkeen joten tuohon tulee aika viive ja koodi on jo käsitelty ennen tulostusta.

        Mutta muutama ketju sitten käsittelin OnTime kutsua, joten olisiko tästä apua?



        Private Sub Workbook_BeforePrint(Cancel As Boolean)

        If ActiveSheet.Range("A1") < 1 Then

        maalaa fontit valkoiseksi
        Application.OnTime Now TimeValue("00:00:30"), "PalautaVarit", False

        end if

        end sub



        Sub PalautaVarit()

        Maalaa fontit takaisin mustiksi

        End Sub


        eli 30 sekuntin kuluttua noi fontit palautetaan automaattisesti takaisin mustaksi. Laita arvoa pienemmäksi jos voit, laitoin tuohon 30 sekunttia että varmasti tuo tulostus on tapahtunut, mutta eikai siihen tarvita kuin muutama sekuntti kun tuo tulostus on muodostettu ja itse tulostushan voi kestää sitten kauemmin, kokeile mikä on sinulle parempi aika.


      • Nimimerkki kirjoitti:

        Eli tuo ongelma miten palautta beforPrinrt tapahtuman jälkeen arvot takaisin, siis sellaista tapahtumaa ei ole kuin AfterPrint joka tekisi tämänkin helpoksi.

        Tulostushan tapahtuu vasta beforPrint tapahtuman jälkeen joten tuohon tulee aika viive ja koodi on jo käsitelty ennen tulostusta.

        Mutta muutama ketju sitten käsittelin OnTime kutsua, joten olisiko tästä apua?



        Private Sub Workbook_BeforePrint(Cancel As Boolean)

        If ActiveSheet.Range("A1") < 1 Then

        maalaa fontit valkoiseksi
        Application.OnTime Now TimeValue("00:00:30"), "PalautaVarit", False

        end if

        end sub



        Sub PalautaVarit()

        Maalaa fontit takaisin mustiksi

        End Sub


        eli 30 sekuntin kuluttua noi fontit palautetaan automaattisesti takaisin mustaksi. Laita arvoa pienemmäksi jos voit, laitoin tuohon 30 sekunttia että varmasti tuo tulostus on tapahtunut, mutta eikai siihen tarvita kuin muutama sekuntti kun tuo tulostus on muodostettu ja itse tulostushan voi kestää sitten kauemmin, kokeile mikä on sinulle parempi aika.

        mutta liian monimutkainen. Muistaakseni olet joskut vastannut BeforePrint juttuun ja kertonutkin siellä Cancel muuttujasta...
        Unohtuiko?

        Private Sub Workbook_BeforePrint(Cancel As Boolean)
        'tähän fontin värin muutos tai alueen luku muistiin
        'printtaus
        'väri takaisin alkuperäiseksi ja tietojen palautus
        cancel=true
        End Sub

        elikä tehdään omat jutut ennen printtausta ja printataan itse ja sitten peruutetaan varsinainen tulostuskomento

        näppärää eikös vaan...


      • Nimimerkki
        kunde kirjoitti:

        mutta liian monimutkainen. Muistaakseni olet joskut vastannut BeforePrint juttuun ja kertonutkin siellä Cancel muuttujasta...
        Unohtuiko?

        Private Sub Workbook_BeforePrint(Cancel As Boolean)
        'tähän fontin värin muutos tai alueen luku muistiin
        'printtaus
        'väri takaisin alkuperäiseksi ja tietojen palautus
        cancel=true
        End Sub

        elikä tehdään omat jutut ennen printtausta ja printataan itse ja sitten peruutetaan varsinainen tulostuskomento

        näppärää eikös vaan...

        Siis jos lähetän uuden print käskyn niin saan uuden BeforePrin tapahtuman, Hmmm, niin tosiaan, varmistetaan ettei tule uutta Tapahtumaa ( Event ) komenolla "Application.EnableEvents = False" ja koodista uudelleen prinntaus ja "Cansel" alkuperäiselle prinntaukselle

        Hienoa


      • Nimimerkki kirjoitti:

        Siis jos lähetän uuden print käskyn niin saan uuden BeforePrin tapahtuman, Hmmm, niin tosiaan, varmistetaan ettei tule uutta Tapahtumaa ( Event ) komenolla "Application.EnableEvents = False" ja koodista uudelleen prinntaus ja "Cansel" alkuperäiselle prinntaukselle

        Hienoa

        :-)


      • Aina 71
        kunde kirjoitti:

        mutta liian monimutkainen. Muistaakseni olet joskut vastannut BeforePrint juttuun ja kertonutkin siellä Cancel muuttujasta...
        Unohtuiko?

        Private Sub Workbook_BeforePrint(Cancel As Boolean)
        'tähän fontin värin muutos tai alueen luku muistiin
        'printtaus
        'väri takaisin alkuperäiseksi ja tietojen palautus
        cancel=true
        End Sub

        elikä tehdään omat jutut ennen printtausta ja printataan itse ja sitten peruutetaan varsinainen tulostuskomento

        näppärää eikös vaan...

        ...tyttöä kuin sikaa säkissa =)

        Ei mitään ymmärrystä. Siis mitä ja minne? Tuohon kaavariville. Jos nuo on niitä makroja, niin ei kyllä pienintäkään käsitystä :( Joten josko joku viitsisi valaista, kiitos.


      • Nimimerkki
        Aina 71 kirjoitti:

        ...tyttöä kuin sikaa säkissa =)

        Ei mitään ymmärrystä. Siis mitä ja minne? Tuohon kaavariville. Jos nuo on niitä makroja, niin ei kyllä pienintäkään käsitystä :( Joten josko joku viitsisi valaista, kiitos.

        >Jos nuo on niitä makroja, niin ei kyllä pienintäkään käsitystä

        Ei se mitään vaikka et ymmärtänyt, kysymällä ja uteliaisuudella oppii uusia asioita. Tärkein asiahan on noissa taulukoissa olevat tiedot, joten olet keskittynyt kuitenkin tärkeimpiin ominaisuuksiin, nyt sitten pääset vähän kokeileen uusia asioita.


        Ensi kuitenkin palaan tuohon minun eka vaihtoehtoon eli tuohon OnTimen käyttöön, en suosittele sitä koska se kuuluu Aplicaton oliolle ja siinä on vain yksi aika kerralla, joten tuo aika kuuluu kaikille taulukoille, jos nyt käytät toisessa taulukossa tuota niin kumoat toisen. jätetään se tilanteisiin jotka vaativat sen käyttöä, kun ei keksitä muita vaihtoehtoja.

        tässä mielenkiinnon vuoksi testattu vaihtoehto joka toimi hienosti minulla:


        Tämä moduliin:

        Sub FonttiTakaisin()
        ActiveSheet.Range("A10:H15").Font.ColorIndex = 0
        End Sub


        ja tämä ThisWorkbook olioon:

        Private Sub Workbook_BeforePrint(Cancel As Boolean)

        If ActiveSheet.Range("A1") < 1 Then
        ActiveSheet.Range("A6:C8").Font.ColorIndex = 2
        Application.OnTime Now TimeValue("00:00:15"), "FonttiTakaisin", False
        End If

        End Sub

        Windows versiossa varmaan tämä rivi pitää muutta:
        Application.OnTime Now TimeValue("00:00:15"), "FonttiTakaisin", False
        muotoon
        Application.OnTime Now TimeValue("00:00:15"), "FonttiTakaisin", , False
        eli yksi tyhjä argumentti väliin.



        No Niin ja sitten asiaan sinulle tyttö joka opit nyt uutta,
        yritän antaa ohjeet.

        1 klikkaa haluamasi taulukon välilehteä hiiren oikealla napilla
        2 valitse listasta "view code", suomeksi ehkä "näytä koodi"

        3 näkyviin tulee nyt se koodi/makrojen käsittely ikkunat, vähän huomioita, katsele mutta älä tee mitään. vasemmalla luettelo muistissa olevista excel työkirjoista, tätä listaa sanotaan projekti ikkunaksi. jokaisessa työkirjan sisällä on luettelo olioista jotka kuuluvat kyseiselle työkirjalle, eli työkirjan taulukko oliot itse työkirja olio ( Thisworkbook ) ja modulit joihin kunde yleensä viitta ( " ja moduuliin... " ). klikkaamalla kaksi kertaa haluttua oliota tai modulia saat avautuu ikkuna ( koodi ikkunan ) johon voit lisätä koodia/makroja kyseiselle oliolle/modulille. Eli jos teit kohdat 1 ja 2 projekti ikkunassa on valittuna se taulukko jonka valitsit kohdassa 1, ja oikealla puolella pitäisi olla tuon taulukon ikkuna johon voit lisätä koodia. tuo valittu olio on kuitenkin nyt väärin koska printtaus suoritetaan työkirja oliosta ja koodi kuuluu työkirja olioon (ThisWorkbook)

        4 jatketaan, eli nyt voit tehdä perässä, klikkaa kaksi kertaa sanaa "ThisWoorkbook", nyt aukeaa tuon olion koodi ikkuna.

        5 tuohon ikkunaan kopioi ja liitä seuraava koodi:


        Private Sub Workbook_BeforePrint(Cancel As Boolean)

        If ActiveSheet.Range("A1") < 1 Then

        Application.EnableEvents = False
        ActiveSheet.Range("A10:H15").Font.ColorIndex = 2

        ActiveSheet.PrintOut

        ActiveSheet.Range("A10:H15").Font.ColorIndex = 0
        Application.EnableEvents = True
        Cancel = True

        End If

        End Sub


        6 työkalu rivin vasemmassa laidassa on Excelin kuvake josta voit sulkea nämä koodi ikkunat ja palata takaisin excelin normaali näkymään, klikkaa sitä, löytyy varmaan jostain valikostakin.

        7 tallenna työkirja ja testaa esikatselulla miten meni. Loppu.

        Tämän tarkemmin minä en osaa asiaa esittää kysäise lisää ja kyllä joku muu antaa parempia ohjeita tilanteen mukaan.

        lue pari kertaa ohjeet läpi ja yritä omaksua santa moduli, olio taulukko, työkirja olio, ThisWorkbook olio, ja tärkeää on löytää ne projekti ikkunasta ja saada koodi ikkuna esiin


      • Nimimerkki
        Nimimerkki kirjoitti:

        >Jos nuo on niitä makroja, niin ei kyllä pienintäkään käsitystä

        Ei se mitään vaikka et ymmärtänyt, kysymällä ja uteliaisuudella oppii uusia asioita. Tärkein asiahan on noissa taulukoissa olevat tiedot, joten olet keskittynyt kuitenkin tärkeimpiin ominaisuuksiin, nyt sitten pääset vähän kokeileen uusia asioita.


        Ensi kuitenkin palaan tuohon minun eka vaihtoehtoon eli tuohon OnTimen käyttöön, en suosittele sitä koska se kuuluu Aplicaton oliolle ja siinä on vain yksi aika kerralla, joten tuo aika kuuluu kaikille taulukoille, jos nyt käytät toisessa taulukossa tuota niin kumoat toisen. jätetään se tilanteisiin jotka vaativat sen käyttöä, kun ei keksitä muita vaihtoehtoja.

        tässä mielenkiinnon vuoksi testattu vaihtoehto joka toimi hienosti minulla:


        Tämä moduliin:

        Sub FonttiTakaisin()
        ActiveSheet.Range("A10:H15").Font.ColorIndex = 0
        End Sub


        ja tämä ThisWorkbook olioon:

        Private Sub Workbook_BeforePrint(Cancel As Boolean)

        If ActiveSheet.Range("A1") < 1 Then
        ActiveSheet.Range("A6:C8").Font.ColorIndex = 2
        Application.OnTime Now TimeValue("00:00:15"), "FonttiTakaisin", False
        End If

        End Sub

        Windows versiossa varmaan tämä rivi pitää muutta:
        Application.OnTime Now TimeValue("00:00:15"), "FonttiTakaisin", False
        muotoon
        Application.OnTime Now TimeValue("00:00:15"), "FonttiTakaisin", , False
        eli yksi tyhjä argumentti väliin.



        No Niin ja sitten asiaan sinulle tyttö joka opit nyt uutta,
        yritän antaa ohjeet.

        1 klikkaa haluamasi taulukon välilehteä hiiren oikealla napilla
        2 valitse listasta "view code", suomeksi ehkä "näytä koodi"

        3 näkyviin tulee nyt se koodi/makrojen käsittely ikkunat, vähän huomioita, katsele mutta älä tee mitään. vasemmalla luettelo muistissa olevista excel työkirjoista, tätä listaa sanotaan projekti ikkunaksi. jokaisessa työkirjan sisällä on luettelo olioista jotka kuuluvat kyseiselle työkirjalle, eli työkirjan taulukko oliot itse työkirja olio ( Thisworkbook ) ja modulit joihin kunde yleensä viitta ( " ja moduuliin... " ). klikkaamalla kaksi kertaa haluttua oliota tai modulia saat avautuu ikkuna ( koodi ikkunan ) johon voit lisätä koodia/makroja kyseiselle oliolle/modulille. Eli jos teit kohdat 1 ja 2 projekti ikkunassa on valittuna se taulukko jonka valitsit kohdassa 1, ja oikealla puolella pitäisi olla tuon taulukon ikkuna johon voit lisätä koodia. tuo valittu olio on kuitenkin nyt väärin koska printtaus suoritetaan työkirja oliosta ja koodi kuuluu työkirja olioon (ThisWorkbook)

        4 jatketaan, eli nyt voit tehdä perässä, klikkaa kaksi kertaa sanaa "ThisWoorkbook", nyt aukeaa tuon olion koodi ikkuna.

        5 tuohon ikkunaan kopioi ja liitä seuraava koodi:


        Private Sub Workbook_BeforePrint(Cancel As Boolean)

        If ActiveSheet.Range("A1") < 1 Then

        Application.EnableEvents = False
        ActiveSheet.Range("A10:H15").Font.ColorIndex = 2

        ActiveSheet.PrintOut

        ActiveSheet.Range("A10:H15").Font.ColorIndex = 0
        Application.EnableEvents = True
        Cancel = True

        End If

        End Sub


        6 työkalu rivin vasemmassa laidassa on Excelin kuvake josta voit sulkea nämä koodi ikkunat ja palata takaisin excelin normaali näkymään, klikkaa sitä, löytyy varmaan jostain valikostakin.

        7 tallenna työkirja ja testaa esikatselulla miten meni. Loppu.

        Tämän tarkemmin minä en osaa asiaa esittää kysäise lisää ja kyllä joku muu antaa parempia ohjeita tilanteen mukaan.

        lue pari kertaa ohjeet läpi ja yritä omaksua santa moduli, olio taulukko, työkirja olio, ThisWorkbook olio, ja tärkeää on löytää ne projekti ikkunasta ja saada koodi ikkuna esiin

        Tuli mieleen semmoinen että tuossa oli tekstit pyyhitty riveiltä 10-15 kyllä mutta sarakkeista A-H. Ehkä parempi olisi laittaa niin että kaikki sarakkeet otetaan huomioon, silloin koodi olisi tälläinen:



        Private Sub Workbook_BeforePrint(Cancel As Boolean)

        If ActiveSheet.Range("A1") < 1 Then

        Application.EnableEvents = False
        ActiveSheet.Rows("10:15").Font.ColorIndex = 2

        ActiveSheet.PrintOut

        ActiveSheet.Rows("10:15").Font.ColorIndex = 0
        Application.EnableEvents = True
        Cancel = True

        End If

        End Sub


        Tuossa nuo rivit jäävät tyhjiksi ja vievät ehkä turhaa tilaa, mutta jos haluat että piilotetaan kokonaan nuo rivit printtauksen ajaksi, ja saat sivulle mahtumaan enemmän tietoa, niin voisit tehdä näin:



        Private Sub Workbook_BeforePrint(Cancel As Boolean)

        If ActiveSheet.Range("A1") < 1 Then

        Application.EnableEvents = False
        ActiveSheet.Rows("10:15").EntireRow.Hidden = True

        ActiveSheet.PrintOut

        ActiveSheet.Rows("10:15").EntireRow.Hidden = True
        Application.EnableEvents = True
        Cancel = True

        End If

        End Sub


    • Aina 71

      Aina sitä tosiaan oppii uutta. Erityisesti hyvillä ohjeilla. Ja virheiden kautta myös...

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. En minä kyllä enää odota sinua

      Olet siellä sen harmaan kanssa. Niin, annoit minun nähdä lämpimät tunteesi siitä huolimatta. Se merkitsi kyllä paljon. O
      Ikävä
      38
      1940
    2. Taas pedofiliatuomio Haapaveelle

      Vastenmielisiä ja vakavia rikostapauksia pikkupaikkakunnan alueellekin näyttää riittävän. Tämän alan rikoksien tuomiot
      Haapavesi
      39
      1516
    3. Jos joku luulee että kaikki käy

      Sanon vain tämän. Minun kanssani ei neuvotella. Minun kanssani eletään tasavertaisesti. Jos se on liikaa, niin ovi rinn
      Ikävä
      60
      1495
    4. Joka kolmas työtön on työkyvytön

      Viime vuonna työnhakuvelvoitteen ulkopuolella oli noin kolmannes työttömistä työnhakijoista. Huhheijaa, mihin suomalais
      Maailman menoa
      173
      1386
    5. Sakin hivutus - ilmiö

      Miten tuollainen tuollainen ilmiö kuin ”sakin hivutus” syntyy? Mitä syitä ilmiön syntymiseen tarvitaan? Onko sakissa jok
      80 plus
      68
      1229
    6. Ei ole rohkeutta tulla jututtamaan

      Voidaan me nähdä ja tervehtiä, sitäkin harvoin, mutta iso kynnys on edes mennä lähelle ja kysyä kuulumisia. Ymmärrät var
      Tunteet
      8
      1211
    7. Julkinen saunatilanne Haapavedellä, tämä on täyttä paskaa!

      Eilen Haapaveden uimahallin saunassa koettu tilanne oli täysin käsittämätöntä ja helvetin järkyttävää. Ladyboy harjoitti
      Haapavesi
      19
      906
    8. Me ei voida olla yhdessä

      Järki päähän ja realiteetit huomioon ottaen.
      Ikävä
      58
      848
    9. Mitä tapahtuu?

      Mitä säpäkän risteyksessä on tapahtunut kun poliiseja, ambulansseja ja kopteri paikalla?
      Outokumpu
      13
      844
    10. Kuhmon K-kaupan vanhenevat hapannaamat kassoilla

      Pitemmän aikaa olen ihmetellyt kaverin kanssa miksi Kuhmon K-kaupassa on aina tympeimmät kassattöntekijät? Kesällä tulee
      Kuhmo
      14
      815
    Aihe