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
519
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
Asiakkaalle ei myyty energiajuomaa - tuomio tuli syrjinnästä
Vaikka oli ilmeisesti täysi-ikäinen. Tosin ei lapsiakaan saisi syrjiä, koska oppivat helposti itsekin syrjimään, jos koh824280Jos venäjällä olisi kansan valitsema presidentti, olisiko Ukrainan sotaa?
Ei varmasti olisi. Sehän on tiedossa, että raskaalla vaalivilpillä putin jatkaa pressana.1163313Pakkoruotsista luopumalla kymmenien miljoonien säästöt
Pakkoruotsin opiskelun kustannuksista ei ole juurikaan tehty kustannusselvityksiä, mutta joidenkin arvioiden mukaan siit1213297Luterilaisen kirkon koko kastekaava on väärä
Uudessa testamentissa on kaksi täysin ristiriidassa olevaa kastekäskyä Matt 28:19 ja Ap. t. 2:38. Matteuksen evankeluimi412744Miten Yxäri iskettiin?
Voisin tässä unta odotellessani kertoa, miten mieheni lähestyi minua. Tunsimme entuudestaan. Hän kyseli minulta aina j2182544"Kostokakka!" Farmi Suomen pehtoori avaa sanaisen arkkunsa Frederikin haisevasta jäynästä
Voi hyvänen aika Reetun touhuja! Pehtoori Terho Häkkinen sai ennen näkemätöntä höykytystä heti Farmi Suomi -realityn alk192191Katsoitko Petolliset, mitä mieltä?
Vanajanlinnan käytävät ja salongit täyttyvät jälleen kuiskailuista, salaisuuksista ja petoksista. Petollisten uudella112016- 291954
Ylen juontaja möläytti suorassa radio-ohjelmassa
Ylen Radio Suomen juontaja Samuli Aaltonen käytti törkeää kieltä maanantaiaamupäivän Koko Suomen radio -ohjelman lähetyk471920Onko Janne Naakka tuttu kasvo ja mitä mieltä olet Farmi-kokoonpanosta?
Somevaikuttaja Janne Naakka on tubettaja ja bloggaaja sekä yksi uuden Farmi Suomi -kauden kisaajista. Naakka tuottaa mm.01903