Mulla on Excel-taulukko, jossa on ns. aktiivinen käyttöalue E5-IJ40, kyseessä on eräänlainen kalenteri.
Parittomille riveille, eli 5, 7, 9,...39 usealle sarakkeelle teen mm. P-kirjainmerkkejä (tarkoittaa Poissaoloa). Merkitsen tuon P-kirjainsolun myös vaalean ruskealla värillä erottumaan muista merkinnöistä ja väreistä.
Olisiko mahdoillista kaavalla tai VBA-koodilla poistaa nuo P-kirjaimet ja ruskeat värit väliaikaisesti kaikilta noilta parittomilta riveiltä tulostuksen ajaksi ja palauttaa ne tulostuksen jälkeen takaisin?
Varmaan simppeliä, mutta kun en osaa itse.
Merkintöjen poisto tulostuksen ajaksi
kalenteriKalle
11
165
Vastaukset
ThisWorkbook moduuliin...
jompikumpi, mutta ei molempia!
jos haluat parittomat rivit jäävät näkyviin, niin tää
Private Sub Workbook_BeforePrint2(Cancel As Boolean)
Dim Muotoilu
Dim Väri
On Error GoTo Virhe
If ActiveSheet.Name = "Sheet1" Then
Application.EnableEvents = False
Cancel = True
Muotoilu = Range("E5").NumberFormat
Väri = Range("E5").Interior.Color
Range("E5:IJ5,E7:IJ7,E9:IJ9").Interior.Pattern = xlNone
Range("E5:IJ5,E7:IJ7,E9:IJ9").NumberFormat = ";;;"
ActiveSheet.PrintOut
Range("E5:IJ5,E7:IJ7,E9:IJ9").NumberFormat = Muotoilu
Range("E5:IJ5,E7:IJ7,E9:IJ9").Interior.Color = Väri
Virhe:
Application.EnableEvents = True
Cancel = True
End If
End Sub
jos haluat parittomat rivit piiloon, niin tää sitten, mutta ei kuiteskaa molempia koodeja voi olla yhtäaikaa!
Private Sub Workbook_BeforePrint(Cancel As Boolean)
On Error GoTo Virhe
If ActiveSheet.Name = "Sheet1" Then
Application.EnableEvents = False
Cancel = True
Range("E5,E7,E9").EntireRow.Hidden = True
ActiveSheet.PrintOut
Range("E5,E7,E9").EntireRow.Hidden = False
Virhe:
Application.EnableEvents = True
End If
End Sub
lisääja muuttele tarvittavat solut koodiin
Keep EXCEling
@Kunde- kalenteriKalle
Kiitos tästä koodista. Tämä tosiaankin poistaa toivotulla tavalla parittomien rivien tiedot ja värit tulostuksen ajaksi, kunhan ensin täytin puuttuvat rivit.
Hain kuitenkin sellaista vaihtoehtoa, missä näkisin noiden poistumisen ennen tulostamista, jolloin voisin selkeämmin hahmottaa tarvitsemaani tulostusaluetta.
Poisto- ja palautuskoodien pitäisi näin varmaankin olla jonkun painonapin alla.
Meneekö hankalaksi?- Tämmöinen
ActiveSheet.PageSetup.PrintArea = Selection.Address
Lisää tuo rivi ennen riviä ActiveSheet.PrintOut. Excel tulostaa kalenterista ennen tulostusta maalatun alueen. Jos mahdollisesti aimmin valittuna ollut tulostusalue ei saa muuttua, voit alussa tallettaa sen osoitteen ja palauttaa sen lopussa.
vara = ActiveSheet.PageSetup.PrintArea
ActiveSheet.PageSetup.PrintArea = vara jompikumpi ThisWorkbook moduuliin...
lisätty esikatselu tulostukselle
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Muotoilu
Dim Väri
Dim x
On Error GoTo Virhe
If ActiveSheet.Name = "Taul1" Then
Application.EnableEvents = False
Cancel = True
Muotoilu = Range("E5").NumberFormat
Väri = Range("E5").Interior.Color
Range("E5:IJ5,E7:IJ7,E9:IJ9").Interior.Pattern = xlNone
Range("E5:IJ5,E7:IJ7,E9:IJ9").NumberFormat = ";;;"
ActiveSheet.PrintPreview
x = MsgBox("Tulostetaanko?", vbInformation vbYesNo)
If x = 6 Then
ActiveSheet.PrintOut
End If
Range("E5:IJ5,E7:IJ7,E9:IJ9").NumberFormat = Muotoilu
Range("E5:IJ5,E7:IJ7,E9:IJ9").Interior.Color = Väri
Virhe:
Application.EnableEvents = True
Cancel = True
End If
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
On Error GoTo Virhe
If ActiveSheet.Name = "Taul1" Then
Application.EnableEvents = False
Range("E5,E7,E9").EntireRow.Hidden = True
ActiveSheet.PrintPreview
x = MsgBox("Tulostetaanko?", vbInformation vbYesNo)
If x = 6 Then
ActiveSheet.PrintOut
End If
Range("E5,E7,E9").EntireRow.Hidden = False
Virhe:
Application.EnableEvents = True
Cancel = True
End If
End Sub
Keep EXCELing
@Kunde
- Tämmöinen
Ratkaisin tuon toisella tavalla. Alueelle "E5:IJ40" voi laittaa ehdollisen muotoilu, joka näyttää P-solut automaattisesti huomiovärillä. Tulostusta varten on nappi, jolla ajetaan Tulostus-makro. Makro lisää uuden ehdollisen muotoilun ja poistaa sen tulostuksen jälkeen. Tässä ei erotella parillisia ja parittomia. Oletan, että parillisille riveille ei tule pelkkiä P-kirjaimia.
Jostain syystä Excel ei minulla reagoi BeforePrint-eventiin millään tavalla.
Sub Tulostus()
Set Alue = Range("E5:IJ40")
Alue.FormatConditions.Add Type:=xlExpression, Formula1:="=(E5=""P"")" n = Alue.FormatConditions.Count With Alue.FormatConditions(n) .SetFirstPriority .Font.ThemeColor = xlThemeColorDark1 .Interior.Pattern = xlNone End With
ActiveSheet.PrintOut
Alue.Cells.FormatConditions(1).Delete
End SubPrivate Sub Workbook_BeforePrint(Cancel As Boolean) koodi pitää olla ThisWorkbook moduulissa, jotta toimii
- Tämmöinen
kunde kirjoitti:
Private Sub Workbook_BeforePrint(Cancel As Boolean) koodi pitää olla ThisWorkbook moduulissa, jotta toimii
On oikeassa paikassa, mutta siellä ei edes käydä. Muut, esim. SelectionChange toimii kyllä.
- kalenteriKalle
Kiitokset "Kundelle" ja "Tämmöselle" näistä koodauksista. Rupesin kuitenkin miettimään kalenterini syvintä olemusta -mikä palvelisi käyttöäni parhaiten.
Jos unohtaisi tuon alkuperäisen esitykseni P-kirjaimista ja ruskeista soluväreistä, esittäisin uuden korvaavan ajatukseni.
Jos arvon Kunde ja/tai Tämmönen viitsisivät vielä miettiä uutta ajatustani toteutustasolla.
Edelleen pysyisin alueella E5:IJ40.
Tuon alueen parittomille riveille teen huomioväri-vihreisiin (vbGreen) soluihin erilaisia lyhenteitä, kuten TV, X, W.. jne.
Välillä tulee tarve tulostaa osa kalenterinäkymästä ja sen hoidan Windowsin "Leikkaustyökalulla". Sitä ennen haluaisin esim. nappia painamalla muuttaa kaikki koko E5:IJ40 alueen parittomien rivien vihreiden (vbGreen) alueiden TV, X, W.. jne lyhenteet sanoiksi: "poissa".
Tarkennuksena vielä, että alueella E5:IJ40 vain parittomilla riveillä on vihreitä(vbGreen)soluja ja em. lyhenteitä.
Pahoittelen mieleni muuttamista. :)- Tämmöinen
Kopioi tuo kalenteri aluperäisen alapuolelle, esim. solusta E51 lähtien. Laita soluun E51 =IF(ISBLANK(E5);"";"poissa") ja soluun E52 =IF(ISBLANK(E6);"";E6) Kopioi nämä ja liimaa (paste special, formulas) koko alueelle. Tässä pitäisi nyt olla haluamasi versio kalenterista.
- kalenteriKalle
Katsotaan ja kokeillaan tätä sitten.
Kiitos Tämmönen! - kalenteriKalle
Ei oikein tahdo onnistua tällä kertaa. Löytyisikö Ehdollisen muotoilun puolelta keinoa muuttaa rajatun alueen tiettyjen solujen tekstit toiseksi. Eli jos esim soluun A1 näppäilee kirjaimen "P" muuttuisi halutut solut (E5-IJ40) tekstiksi "Poissa".
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 1191682
Noniin rakas
Annetaanko pikkuhiljaa jo olla, niin ehkä säilyy vienot hymyt kohdatessa. En edelleenkään halua sulle tai kenellekään mi991508Lasten hyväksikäyttö netissä - Joka 3. nuori on saanut seksuaalisen yhteydenoton pedofiililtä
Järkyttävää! Lapsiin kohdistuva seksuaalinen hyväksikäyttö verkossa on yhä pahempi ongelma. Ulkolinja: Lasten hyväksikäy37963Multa sulle
Pyörit 24/7 mielessä, kuljet mun mukana, mielessä kyselen sun mielipiteitä, vitsailen sulle, olen sydän auki, aitona. M29889Kumpi vetoaa enemmän sinuun
Kaivatun ulkonäkö vai persoonallisuus? Ulkonäössä kasvot vai vartalo? Mikä luonteessa viehättää eniten? Mikä ulkonäössä?38841Nainen, olen tutkinut sinua paljon
Salaisuutesi ei ole minulle salaisuus. Ehkä teimme jonkinlaista vaihtokauppaa kun tutkisimme toisiamme. Meillä oli kumm50806Mies, eihän sulla ole vaimoa tai naisystävää?
Minusta tuntuu jotenkin, että olisit eronnut joskus, vaikka en edes tiedä onko se totta. Jos oletkin oikeasti edelleen s43758Olet myös vähän ärsyttävä
Tuntuu, että olet tahallaan nuin vaikeasti tavoiteltava. En tiedä kauanko jaksan tätä näin.37750Okei nyt mä ymmärrän
Olet siis noin rakastunut, se selittää. Onneksesi tunne on molemminpuolinen 😘56748Onko sulla empatiakykyä?
Etkö tajua yhtään miltä tämä tuntuu minusta? Minä ainakin yritän ymmärtää miltä sinusta voisi tuntua. En usko, että olet37720