Harjoittelen tässä vba:n käyttöä ihan ominpäin ja ongelma tilanteeni on seuraavan kaltainen. Miten saan vba:n näyttämään excelissä näkyvissä olevat taulukot?
Kiitos ja kumarrus jo etukäteen...
Vba ongelma!
Loyd
3
360
Vastaukset
Sub Näkyvät()
For i = 1 To Sheets.Count
If Sheets(i).Visible = True Then
MsgBox Sheets(i).Name
End If
Next
End Sub- Loyd
Onko mahdollista siirtää taulukoiden numet vaikkapa johonkin valikkoon....
tässä nyt esim. hiiren oikeaan valikkoon
ThisWorkbook moduuliin...
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim Nappi As CommandBarButton
On Error Resume Next
Application.CommandBars("Cell").Controls("Taulukot").Delete
On Error GoTo 0
Set Nappi = Application.CommandBars("Cell").Controls.Add(Type:=msoControlButton, Temporary:=True)
With Nappi
.Caption = "Taulukot"
.OnAction = "AvaaTaulukko"
End With
End Sub
ja moduuliin...
Sub AvaaTaulukko()
Application.CommandBars("workbook Tabs").ShowPopup
End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Kuka oli töllöntyön tekijä?
Ketä on nyt pidätetty? Oliko syy mustasukkaisuus tyttöystävästä tai oliko muita lieventäviä seikkoja? Katuuko tekijä nyt253920Kotikasvatus siitä se lähtee eli missä meni vikaan että lapsesta tuli puukottaja
Ottakaa muut oppia, normaali kotielämä. Ei liikaa edes hengellisyyttä.441999Kun kohtaat jotain ainutlaatuista
ja upeaa, johon rakastut ehkä ensimmäistä kertaa ihan tosissaan. Sitten sähläät kaiken omien epävarmuuksien vuoksi. Eikö421273- 771145
Ei tämä enää tervettä oo
Sydän pamppaillen oon jo tunnin meinannu laittaa sulle viestiä... Sormi tärisee lähetä kuvakkeen kohdalla.251086Mua ahdistaa
Tämä juttu. Miksi nainen torjuit minut vaikka kiinnostuksen merkkejä oli? Eihän tämän jutun olisi tarvinut johtaa sen pi341078Perämoottoreiden huolto melkoisen kallista
Minulla on tuollainen keskikokoinen perämoottori ja yleistä merkkiä. Kyselin sille keväthuoltoa paikallisista liikkeistä46988Tanskademarit: ilman risusavottaa ei rahaa!
Näin persuna on pakko ihailla noita Tanskan demareita. Tanskalaisessa sosiaalidemokratiassa ei työtön saa rahaa ellei os173851- 56823
Pub Marjuskan grillibileet
Pub marjuskassa ilmainen makkara tarjoilu ja jakaa parille sadalle aurinko laseja. Miten tälläistä. Saako popittaa ja ja12743