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
300
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
- 753577
- 622684
- 812607
Hei........
Pelkkä sun näkeminen saa mut hymyilemään pitkin iltaa. Oot niin 🤩😘 Edellinen poistettiin.582408Mitä sanoa pituudeksi näillä mittaustuloksilla?
Jos jossain tarttee ilmoittaa pituus sentin tarkkuudella? Mitattu neljästi virallisesti ja mittaustulokset on olleet 1912337Poliisi: Kymmenhenkinen pohjalaisperhe ollut vuoden kateissa kansainvälinen etsintäkuulutus Poliis
Poliisi: Kymmenhenkinen pohjalaisperhe ollut vuoden kateissa – kansainvälinen etsintäkuulutus Poliisi pyytää yleisön apu2482082- 431902
- 441759
Mä en jaksa suojella sua enää
Oot osa mun tarinaa ja ensirakkaus 🩷🌈 Olisiko niin kauheata, jos muutkin ystävämme tietäisivät? Se on jo niin vanha ”t151471EU:n uusin idea - jatkossa joudut tunnistautumaan kun katsot PORNOA!
"Pornon katsominen muuttuu täysin Euroopan komissio on kehittänyt sovelluksen, jolla internetin käyttäjä voi todistaa p1491408