Tarkoituksenani oli luoda exceliin nappi, jota painamalla avautuu ikkuna, missä kysytään mitkä sheetit halutaan tulostettavaksi (ja esikatseltavaksi). Tulostettavien sheettien valinta tapahtuisi CheckBoxien avulla, jotka ilmaisisivat tulostuvat sheetit.
Oman kokemattomuutteni takia en osaa rakentaa koodia, jonka avulla pystyisin esikatselemaan ja tulostamaan vain valittuja sheettejä.
Ongelma on lähinnä se, että en osaa tehdä koodia, joka suorittaisi sheettien valinnan/tsekkauksen, jonka jälkeen annettaisiin vain tarvittavat tulostus/esikatselu -käskyt.
Osaako joku auttaa?
Tulostus excelistä helpoksi?
tusaaja
2
484
Vastaukset
- Kunde
taulukkoon nappi ja siihen koodi
Private Sub CommandButton1_Click()
UserForm1.Show modal
End Sub
ja napin ominaisuuksiisa ruksi pois kohdasta tulosta objekti.
lisää lomake ja lisää sinne 3 commandbuttonia ja 1 listbox oletusnimillä. Listbox1 muuta multiselect arvo ->1
ja lisää lomakkeelle suraavat koodit
Private Sub CommandButton1_Click()
Dim Lista() As String
Dim i As Integer
Dim Laskuri As Long
For Laskuri = 1 To ListBox1.ListCount
If ListBox1.Selected(Laskuri - 1) Then
i = i 1
ReDim Preserve Lista(1 To i) As String
Lista(i) = ThisWorkbook.Sheets(i).Name
End If
Next Laskuri
If i = 0 Then
MsgBox "et ole valinnut yhtään sivua esikatseltavaksi", vbInformation
Exit Sub
End If
Me.Hide
ThisWorkbook.Sheets(Lista).PrintPreview
Sheets(1).Select
Me.Show
End Sub
Private Sub CommandButton2_Click()
Dim Lista() As String
Dim i As Integer
Dim Laskuri As Long
For Laskuri = 1 To ListBox1.ListCount
If ListBox1.Selected(Laskuri - 1) Then
i = i 1
ReDim Preserve Lista(1 To i) As String
Lista(i) = ThisWorkbook.Sheets(i).Name
End If
Next Laskuri
If i = 0 Then
MsgBox "et ole valinnut yhtään sivua tulostettavaksi", vbInformation
Exit Sub
End If
Me.Hide
ThisWorkbook.Sheets(Lista).PrintOut
Sheets(1).Select
Me.Show
End Sub
Private Sub CommandButton3_Click()
End
End Sub
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To Sheets.Count
ListBox1.AddItem Sheets(i).Name
Next i
End Sub- tusaaja
Paljon kiitoksia! Koodi toimii erinomaisesti.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Kuolemanrangaistus
Mielestäni kuolemanrangaistus on väärin kaikissa tilanteissa. Vaikka joku olisi murhannut 10 ihmistä, hänen surmaaminen715535Muistakaa persut, että TE petitte, ei kokoomus
Miksikö kukaan ei arvostele kokoomusta? No sen vuoksi, että kokoomus noudattaa vaalilupauksiaan. Sen sijaan TE persut,2724851Riikka Purra ei estä tehomaksun käyttöönottoa
Sähkön hinnoittelua koskevan määräyksen on määrä astua voimaan vuoden 2029 alusta, Energiavirastosta kerrotaan. Määräyk393158Seuraava hallituspohja - Kokoomus, kepu, persut + KD
Kokoomus saa ainakin 20% kannatuksen ensi vaaleissa, keskusta sanoisin noin 15%, persut todennäköisesti enemmän, ehkä 172552994Outo ilmiö - vasemmistolaiset eivät kirjoita mitään kokoomuksesta
joka sentään johtaa hallitusta, ja jonka talouspolitiikkaa noudatetaan. Nämä muutamat vasemmistolaiset jotka täällä aina1032630Lopetan ikävöinnin
Ei meistä enää koskaan tule mitään. Olen ikävöinyt ja kaivannut enkä saa mitään vastakaikua ja lämpöä. Parempi erillään52062Maria Veitola kommentoi soutelija Saarion huomionhakuisuutta
"Minusta on jotenkin kuvottavaa, kuinka kovalla intensiteetillä Suomi-media seuraa miessankari Jari Saarion merihätää. S3362042Muovipusseista pitäisi saada panttimaksu takaisin
Ostan joka päivä yhden muovipussin, ja niistä palautuu keskimäärin takaisin kaupan pullomaatin yhteydessä olevaan roskik641758Väestöstä vain vassarit vaihtuvat nopeammin kuin persut
Kevääseen 2023 verrattuna vassareita 50 prosenttia enemmän, ja persuja 25 prosenttia vähemmän.151555Jos kaikki lopulta kuolevat, onko edes pahimmillakaan rikoksilla mitään väliä?
Kaikki kuolevat lopulta. Siksi ihmisten tekemillä rikoksillakaan ei lopulta ole mitään merkitystä. Joidenkin mielestä t21546