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
348
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
Vilma Nissinen pyytää anteeksi rasistisia lausuntojaan
Nöyrtyi kuten persut yleensäkin. On kyllä noloa tuollainen vätystely, kun ei ole miestä seisoa omien lausuntojensa takan1652987Riikka Purra: "Kokoomus haluaa leikata pienituloisten etuuksista - Se ei meille käy"
Näin vakuutti persujen Purra edellisten eduskunta vaalien alla,. https://www.ku.fi/artikkeli/4910942-kun-uudessa-videos611909Lindtmanin pääministeriys lähenee päivä päivältä
Suomen kansan kissanpäivät alkavat siitä hetkestä, kun presidentti Stubb on tehnyt nimityksen. Ainoastaan ylin tulodesi651533Sandels tölkin hinta nousi 1,29 eurosta 1,32 euroon
Mitähän järkeä valtiolla on verottaa tuotakin elintarviketta niin kovasti, että on järkevämpää käydä hakemassa ulkomailt291520- 901216
Tuntuuko sinusta mies
että olet jossain, mutta sydämessäsi haluat olla muualla. Suunnittelet kaikkea kivaa ja olet innolla mukana, mutta silti221195Rakastan sitä
kun uppoat selittämään jotain. Etsit oikeaa tapaa sanoa jotain, jonka olet jo etukäteen miettinyt, sekoat vähän sanoissa49953Jokaisella tytöllä on supervoimansa
Millaisia ajatuksia artikkeli herättää? Mainos: Dove | ”Itsetuntoni oli ihan romuttunut” – Peppina Rosén haastaa tavan186883Ikävä uutinen uudesta Unelmia Italiassa kaudesta - Iso pettymys tv-katsojille!
Unelmia Italiassa -sarja kertoo Ellen Jokikunnaksen perheen elämästä Suomessa ja Italiassa. Nyt Ellen on kertonut tuleva5882Mitä tapahtuisi....
Meidän välillä jos törmäisimme yöelämässä ilman häiriötekijöitä ja olisimme hieman huppelissa? Päättyisikö ilta kenties60869