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
414
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
Nurmossa kuoli 2 Lasta..
Autokolarissa. Näin kertovat iltapäivälehdet juuri nyt. 22.11. Ja aina ennen Joulua näitä tulee. . .1337365Maisa on SALAKUVATTU huumepoliisinsa kanssa!
https://www.seiska.fi/vain-seiskassa/ensimmainen-yhteiskuva-maisa-torpan-ja-poliisikullan-lahiorakkaus-roihuaa/15256631654450Vanhalle ukon rähjälle
Satutit mua niin paljon kun erottiin. Oletko todella niin itsekäs että kuvittelet että huolisin sut kaiken tapahtuneen553493Mikko Koivu yrittää pestä mustan valkoiseksi
Ilmeisesti huomannut, että Helenan tukijoukot kasvaa kasvamistaan. Riistakamera paljasti hiljattain kylmän totuuden Mi5073207Purra hermostui A-studiossa
Purra huusi ja tärisi A-studiossa 21.11.-24. Ei kykene asialliseen keskusteluun.2972144Joel Harkimo seuraa Martina Aitolehden jalanjälkiä!
Oho, aikamoinen yllätys, että Joel Jolle Harkimo on lähtenyt Iholla-ohjelmaan. Tässähän hän seuraa mm. Martina Aitolehde361793Kaksi lasta kuoli kolarissa Seinäjoella. Tutkitaan rikoksena
Henkilöautossa matkustaneet kaksi lasta ovat kuolleet kolarissa Seinäjoella. Kolmas lapsi on vakasti loukkaantunut ja201751- 911583
Miksi pankkitunnuksilla kaikkialle
Miksi rahaliikenteen palveluiden tunnukset vaaditaan miltei kaikkeen yleiseen asiointiin Suomessa? Kenen etu on se, että1791505Ensitreffit Hai rehellisenä - Tämä intiimiyden muoto puuttui suhteesta Annan kanssa: "Meillä ei..."
Hai ja Anna eivät jatkaneet avioliittoaan Ensitreffit-sarjassa. Olisiko mielestäsi tällä parilla ollut mahdollisuus aito151446