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
345
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
Miksi juuri vasemmiston puolelta tulee niin paljon luusereita, kelapummeja jne.
Tämä asia ihmetyttää suuresti.1093596Putin lähti takki auki sotaan....
Luuli, että kolmessa päivässä hoidetaan, nyt on mennyt 3,5 vuotta eikä voitosta tietoakaan. Kaiken lisäksi putin luuli,763148SDP ylivoimainen ykkönen
En ole koskaan viitsinyt käydä äänestämässä, mutta nyt SDP:n etumatka on niin kutkuttava, että pakkohan se on vaivautua.832598Suomalainen lähti ilman takkia sotaan
Malli oli "kajander", johon kuului pelkästään kokardi, ja sotilaan itse metsästä katkoma puukeppi ryssien huitomiseen.62394Polttomoottoriauto on köyhän merkki
Kun ei ole varaa ostaa sähköautoa, niin joutuu köyhän autoa käyttämään.2172252Patteriauton ovia ei saatu auki - kuljettaja koki hirvittävän kuoleman!
”Oviongelma johti kuskin kuolemaan kolarissa – tämä ratkaisu saatetaan kieltää kokonaan Sivulliset pyrkivät tempomaan a302141- 42919
- 95918
- 52806
Haapaveille jotain uutta!
Huoltoasema Haapavein keskustaan tulossa. Semmoista Jeppasissa jaappasevat.16760