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)"
Excellamatöör
2
225
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
Olen tosi outo....
Päättelen palstajuttujen perusteella mitä mieltä minun kaipauksen kohde minusta on. Joskus kuvittelen tänne selkeitä tap152111Kotkalainen Demari Riku Pirinen vangittu Saksassa lapsipornosta
https://www.kymensanomat.fi/paikalliset/8081054 Kotkalainen Demari Riku Pirinen vangittu Saksassa lapsipornon hallussapi832046- 1011367
Hommaatko kinkkua jouluksi?
Itse tein pakastimeen n. 3Kg:n murekkeen sienillä ja juustokuorrutuksella. Voihan se olla, että jonkun pienen, valmiin k1411161Vanhalle ukon rähjälle
Satutit mua niin paljon kun erottiin. Oletko todella niin itsekäs että kuvittelet että huolisin sut kaiken tapahtuneen101146Maisa on SALAKUVATTU huumepoliisinsa kanssa!
https://www.seiska.fi/vain-seiskassa/ensimmainen-yhteiskuva-maisa-torpan-ja-poliisikullan-lahiorakkaus-roihuaa/1525663791112Omalääkäri hallituksen utopia?
Suurissa kaupungeissa ja etelässä moinen onnistunee. Suuressa osassa Suomea on taas paljon keikkalääkäreitä. Mitenkäs ha170842- 61818
- 59751
Aatteleppa ite!
Jos ei oltaisikaan nyt NATOssa, olisimme puolueettomana sivustakatsojia ja elelisimme tyytyväisenä rauhassa maassamme.249726