Voisiko joku antaa mallin, miten saan työkirjan avauksen yhteydessä lisättyä valikkoriville yhden valikon jossa makroja käynnistäviä valintoja. Siis nimenomaan työkirjan mukana ilmaantuvan (ja poistuvan) valikon.
Omia valikoita
auta alkuun
4
373
Vastaukset
- jotain kopsattu
Mukautetun työkalurivin liittäminen työkirjaan
Näytä kaikki
Piilota kaikki
Luo työkirjaan liitettävä mukautettu työkalurivi (Työkalurivi: Palkki, jossa on painikkeita ja luetteloita komentojen suorittamiseen. Työkalurivin saa näkyviin valitsemalla Työkalut-valikosta Mukauta ja valitsemalla sitten Työkalurivit-välilehden.).
Toimintaohjeet
Valitse Työkalut-valikosta Mukauta.
Valitse Työkalut-välilehti.
Valitse Uusi.
Kirjoita Työkalurivin nimi -ruutuun haluamasi nimi ja valitse OK.
Valitse Komennot-välilehti.
Tee jompikumpi seuraavista:
Painikkeen lisääminen työkaluriville
Valitse Luokat-ruudusta haluamasi luokka.
Vedä haluamasi komento Komennot-ruudusta haluamallesi työkaluriville.
Valmiin valikon lisääminen työkaluriville
Valitse Luokat-ruudusta Valmiit valikot.
Vedä haluamasi valikko Komennot-ruudusta näytössä olevalle työkaluriville.
Kun olet lisännyt haluamasi painikkeet ja valikot, valitse Sulje.
Avaa työkirja, johon haluat liittää työkalurivin.
Valitse Työkalut-valikosta Mukauta ja valitse sitten Työkalurivit-välilehti.
Valitse Liitä.
Valitse ensin mukautettu työkalurivi, jonka haluat liittää, ja valitse sitten Kopioi.
Huomautus Muista tallentaa työkirja työkalurivin liittämisen jälkeen.- mut ei
kiitos tästä mutta kun haluaisin sellaisen valikon joka
a) ilmaantuu ihan itestään sen työkirjan avauksella
b) ja häviää kun työkirja pläjäytetään kiinni
elikkä jotain sellasta vba scriptiä joka työkirjan avauksen yhteydessä generoi sen valikon ja closauksessa syö sen pois.
Mutta kun on tää VBA hanskaus vähän niin ja näin niin ei pääse alkuun ilman jonkunlaista mallia mut ei kirjoitti:
kiitos tästä mutta kun haluaisin sellaisen valikon joka
a) ilmaantuu ihan itestään sen työkirjan avauksella
b) ja häviää kun työkirja pläjäytetään kiinni
elikkä jotain sellasta vba scriptiä joka työkirjan avauksen yhteydessä generoi sen valikon ja closauksessa syö sen pois.
Mutta kun on tää VBA hanskaus vähän niin ja näin niin ei pääse alkuun ilman jonkunlaista malliamoduuliin...
lisää nyt Komerojutut nimisen valikon ennen Ohje/Help valikkoa(Hipsaa käytettävän version mukaan- nyt enkkuversio käytössä)
Public Sub Auto_Open()
Dim cbWSMenuBar As CommandBar
Dim muCustom As CommandBarControl
Dim iHelpIndex As Integer
Set cbWSMenuBar = Application.CommandBars("Worksheet Menu Bar")
'iHelpIndex = cbWSMenuBar.Controls("Ohje").Index
iHelpIndex = cbWSMenuBar.Controls("Help").Index
Set muCustom = cbWSMenuBar.Controls.Add(Type:=msoControlPopup, _
Before:=iHelpIndex)
With muCustom
.Caption = "Komerojutut"
With .Controls.Add(Type:=msoControlButton)
.Caption = "Laskehinta"
.OnAction = "Laskehinta"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "CNC-siirto"
.OnAction = "AvaaCNC"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "Järjestä"
.OnAction = "Järjestä"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "Tulosta"
.OnAction = "Tulosta"
End With
End With
End Sub
Public Sub Auto_Close()
Dim cbWSMenuBar As CommandBar
On Error Resume Next
Set cbWSMenuBar = Application.CommandBars("Worksheet Menu Bar")
cbWSMenuBar.Controls("Komerojutut").Delete
End Sub- Just näin
kunde kirjoitti:
moduuliin...
lisää nyt Komerojutut nimisen valikon ennen Ohje/Help valikkoa(Hipsaa käytettävän version mukaan- nyt enkkuversio käytössä)
Public Sub Auto_Open()
Dim cbWSMenuBar As CommandBar
Dim muCustom As CommandBarControl
Dim iHelpIndex As Integer
Set cbWSMenuBar = Application.CommandBars("Worksheet Menu Bar")
'iHelpIndex = cbWSMenuBar.Controls("Ohje").Index
iHelpIndex = cbWSMenuBar.Controls("Help").Index
Set muCustom = cbWSMenuBar.Controls.Add(Type:=msoControlPopup, _
Before:=iHelpIndex)
With muCustom
.Caption = "Komerojutut"
With .Controls.Add(Type:=msoControlButton)
.Caption = "Laskehinta"
.OnAction = "Laskehinta"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "CNC-siirto"
.OnAction = "AvaaCNC"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "Järjestä"
.OnAction = "Järjestä"
End With
With .Controls.Add(Type:=msoControlButton)
.Caption = "Tulosta"
.OnAction = "Tulosta"
End With
End With
End Sub
Public Sub Auto_Close()
Dim cbWSMenuBar As CommandBar
On Error Resume Next
Set cbWSMenuBar = Application.CommandBars("Worksheet Menu Bar")
cbWSMenuBar.Controls("Komerojutut").Delete
End SubJuu tätä ajoin takaa, kiitos!!
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Eutanasia - miksi eläimelle sallitaan armokuolema, mutta ihmiselle ei?
Olen pitkään ihmetellyt yhtä asiaa Suomessa. Kun koira kärsii parantumattomasta sairaudesta ja kovista kivuista, eläinlä4011734Sanna Marin vetänyt leukoja 11 kertaa
Tästähän oli joskus polemiikkia, kun muistaakseni lupasi kymmenen tai jotain vedellä. No nyt niin on, ainakin omien san334689Sosiaalidemokratia romahtanut kautta maailman
nuoret eivät enää kannata järjetöntä aatetta, joten demarien täytyy hakea kannattajia mamuista. Ruotsin sos.demit jo kie2512837Miksi Seta ja Sofia Virta ei vaadi muslimeita kunnioittamaan priden-arvoja?
Kuten tiedetään niin islam ei hyväksy sitä mitä pride edustaa. Seta-pomo Mikkonen nosti hirveän äläkän kun yksi tepsin1472620- 1121712
Farmi Suomi: Kokeeko Frederik, 81, saman kohtalon kuin ikämies Danny?
Danny, musiikkineuvos Ilkka Lipsanen, nähtiin mukana Farmi Suomi -realityssä v. 2024. Danny teki yllätysratkaisun ja tuo15108140 vuotta töitä paiskinut ja 3 vuotta työttömänä mamuna Suomessa, sama eläke
Jokin mättää. Eläkettä ei pidä maksaa lainkaan mamuille jos työhistoriaa ei ole vähintään 10 vuotta takana.209872- 82840
En luota sinuun
en edelleenkään yhtään tiedä oletko lintu vai kala vai kalavale. Ja ilmeisesti haluat pitää sen niin, syitä voi vain arv62786- 10758