Tehdäämpä tästä oma viestiketju
Jos minulla on arvo 1000034 solussa L4. Haluan että arvo kasvaa joka tulosteeseen yhdellä eli 1000035, 1000036, 1000037 jne ns juokseva sarjanumero. Perus excel käyttäjänä en osannut tehdä tätä.
Eli ohjelma lukee ensin arvon solusta L4 kun x =Range("L4") sen jälkeen kun on tulostettu, niin x=x 1 ja palautetaan arvo soluun L4 Range("L4") =x.
Toimiikohan tämä jos otan esim 6 kpl tulosteita kerralla vai pitääkö ottaa 6 x 1kpl tulosteita.
Sub Auto_Open()
x = Range("L4")
End Sub
Public x As Integer
Public y As Integer
Private Sub Workbook_BeforePrint(Cancel As Boolean)
y = 0
x = Range("l4")
If y Mod 0 Then
x = x 1
End If
y = 0
Range("l4") = x
'Viedään arvo soluu L4
End Sub
Juokseva numero "BeforePrint(Cancel As Boolean)"
2
100
Vastaukset
- Untamo.L.La
"If y Mod 0 Then"
Meinasit nollalla jaella? - Tämmöinen
Tulostus on tehtävä yksi kerrallaan, koska tulosteiden lukumäärää ei määrätä Excelissä. Tämä (tulee ThisWorkbook-moduliin) riittää kasvattamaan laskuria :
Private Sub Workbook_BeforePrint(Cancel As Boolean) Range("L4") = Range("L4") 1 End Sub
Seuraava makro tulostaa sivun halutun monta kertaa ja kasvattaa laskuria joka välissä. Jos laskuri on tässä, BeforePrint-laskuri pitää jättää pois.
Sub Printtaa() lkm = Range("A1") For i = 1 To lkm Range("L4") = Range("L4") 1 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next i End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Tehyn Rytkösellä tallessa tekstiviestit A-studiokohussa
https://www.mtvuutiset.fi/artikkeli/a-studiosta-kohu-tehyn-rytkosen-mukaan-ministeri-linden-sai-paattaa-osallistujat-ohjelma-kiistaa-vaitteen/84070681646075Ohhoh! Rita Niemi-Manninen otti ison tatuoinnin - Herätti somekansan: "Täydellinen paikka!"
Rita Niemi-Mannisen suuri, uusi tatuointi on saanut somekansan heräämään talvihorroksesta. Niemi-Manninen otti tatskan rakkauslomalla Aki-miehensä kan201748Harvoin julkisuudessa nähty Jari Sillanpää, 56, julkaisi uusia kuvia - Karisti Suomen pölyt jaloista
Huumekohun jälkeen matalaa profiilia pitänyt Jari "Siltsu" Sillanpää on ollut vaitonainen elämästään. Tänä keväänä miehen some on ollut hiljainen. Nyt111646Ihastumisesta kertominen
Olen päättänyt kertoa tunteistani ihastukseni kohteelle. Erityisen vaikeaksi tilanteeni tekee se, että kyseessä on ns. kielletty rakkaus. Olen jo toi921533Taas Venäjän tiedoittaja akka Varoitti Suomea ja Ruotsia liittymästä Natoon
Juuri sopivasti julkaistu varoitus, kun Suomen eduskunta alkaa klo 13:50 käsitellä asiaa suorassa TV 1:n lähetyksessä. ILtasanomat.4411426- 1131140
Oon mä susta mustasukkainen
Mä tunnustan. Olen aina vähän jollain tapaa ollu susta mustis. Tottakai, koska rakastan sua. Mutta mustiskin vain terveellä tavoin. Ihan luonnollista150984Sohvi blörf
Siellä se taas keekoilee kaupungilla ja kuvailee viattomia opiskelijoita instaansa. Kuvaa nyt vaan omaa tissivakoo ja bebaa jätä muut rauhaan ettei t106831Jättäkää tuo Lumio nyt jo rauhaan!
Mihinkään tuo avaus katosi? Säälittävää touhua kertakaikkiaan, harvoin tänne mitään kirjoittelen mutta tämä touhu alkaa mennä jo yli hilseen. Hävetkää26742Rakas rakas rakas
Rakas rakas rakas Rakas rakas rakas Rakas rakas rakas Rakas rakas rakas Rakas rakas rakas Rakas rakas rakas Rakas rakas rakas Oot kaikkeni sä ihana m65664