CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede perry Nybegynder
16. april 2001 - 15:14 Der er 6 kommentarer og
1 løsning

Kommando knap

Jeg ønsker ved hjælp af VBA, at indsætte
en kommando knap, på et nyoprette ark.
Dette kan jeg godt finde ud af, men hvordan får jeg formateret knappen. Den vil automatisk hedde commandbuttons1 og jeg ønsker at omdøbe den i egenskaber
\"Caption\". Det samme gælder koden for knappen. Den skulle gerne kalde en anden makro ved således :
Sub commandbutton1_click¨
Call Macro
End sub
Jeg håber spørgsmålet er fostået og der er nogen som har en løsning.
Avatar billede driis Nybegynder
16. april 2001 - 15:20 #1
Hmmm, prøv lige at forklare hvad problemet er: Det ser ud som om du både selv kan finde ud af at oprette kommandoknappen og skrive den rigtige kode under dens Sub. Så hvad er problemet?
Avatar billede dope Nybegynder
16. april 2001 - 15:27 #2
Såfremt det er excel du bruger:

navneændring:
helt oppe længst til venstre kan du omdøbe knappen(Der hvor der normalt står formler)
eller
højreklik > edit

Afspilning af makro:
højre museknap > programkode
her indsætter du \"run macro()\"
eller
alt + f8
eller
funktioner > macro > afspil > afspil

Avatar billede perry Nybegynder
16. april 2001 - 15:27 #3
Problemet er det skal foregå i kode så jeg ikke selv skal ind og omdåbe knappen og call makroen, men det sker automatisk ved oprettelsen af det nye ark. Oprettelsen af det nye ark sker ved at bruger trykker på en kommando knap i hovedarket.

Avatar billede dope Nybegynder
16. april 2001 - 15:32 #4
Hehe...

Du indsætter ikke en nyt art, men kopierer bare det gamle. Dernæst \"renser\" du arket for ting der ikke skal gå igen...

(...og så var grundlaget lagt for en serie nye molbohistorier!)

:-)
Avatar billede Flemming Vadet - Smart Office DK Professor
16. april 2001 - 17:13 #5
Prøv evt. at leget lidt med dette her:

ActiveSheet.OLEObjects(\"CommandButton1\").Name = \"MinKnap\"
ActiveSheet.OLEObjects(\"MinKnap\").Caption = \"Tryk på mig :-)\"

eller blot

ActiveSheet.OLEObjects(\"CommandButton1\").Caption = \"Tryk på mig :-)\"
Avatar billede danfax Nybegynder
18. april 2001 - 14:41 #6
Prøv Dette:

ActiveSheet.Buttons.Add(250, 150, 75, 25).Select
Selection.OnAction = \"testsub\"
ActiveSheet.Shapes(\"Button 1\").Select
Selection.Characters.Text = \"Tryk på mig\"
Range(\"A1\").Select


Hilsen Dan
Avatar billede perry Nybegynder
18. april 2001 - 20:31 #7
Til Danfax
Dit forslag virker fint. Men det ser udtil at den knap der bliver indsat virker, som kommandoknapper i en ældre version af Excel.
Jeg har selvfølge ikke nævnt at det drejer sig om
OLEobject i Excel 2000.
Men tak alligevel det kan bruges og du fortjener dine points.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Se alle it-kurser fra Computerworld Kurser
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.
Se alle it-kurser

Flere spørgsmål fra Office & Kontorpakker kategorien

Titel Indlæg Oprettet Seneste aktivitet
Ændre autoudfyld i Outlook og Word Af TTA i Office & Kontorpakker 3 05/07/202519:11 I går 12:02
Office Pro 2019 forsvinder Af mort1 i Office & Kontorpakker 5 05/07/202512:27 I går 20:30
Microsoft Office 2021 Professional Plus Af Mariann i Office & Kontorpakker 6 25/06/202516:21 30/06/202515:36
tilpasning af bredde på flere kolonner på en gang i acces Af Budwar i Office & Kontorpakker 1 22/06/202512:18 22/06/202519:10
Afslag ved aktivering af Office 2019 :-( Af ErikHg i Office & Kontorpakker 24 15/06/202512:59 17/06/202515:02
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 19:57 SMB på Synology Af johnnylassen i Servere
I går 13:51 Anmeldelse af bog i Weekendavisen Af Ikke-ekspert i Fri debat
I går 11:22 20 år gammel mobil simlåst Af xMsBx i Mobiltelefoner
05/0719:11 Ændre autoudfyld i Outlook og Word Af TTA i Office & Kontorpakker
05/0712:27 Office Pro 2019 forsvinder Af mort1 i Office & Kontorpakker
White papers
Flere white papers »


Premium
Teaser billede
Vil fyre tusindvis af ansatte globalt: Nu reagerer Microsofts danske organisation med 800 medarbejdere
Læs mere »
Staten binder sig med ny aftale til Microsoft i usædvanlig lang tid - og det er der en særlig årsag til
Pengene vælter ud af den danske Dynamics-kæmpe Cepheo i selskabets andet leveår - men forretningen buldrer frem
Du skal opdatere hurtigst muligt: Alvorlig sårbarhed opdaget i Citrix-software
Se alle »
Computerworld
Teaser billede
Danmarks største fiberselskab skifter navn: Norlys skal ikke længere hedde Norlys
Læs mere »
Glemte at fjerne adgang for suspenderet it-medarbejder: Næste dag var kunder i Tyskland og Bahrain låst ude
Aktie-kursen ottedoblet på fire år: Er nu verdenshistoriens mest værdifulde selskab
Amerikansk koncern med 700 ansatte i Danmark: Sender besked til kunder 21 måneder efter storstilet angreb
Se alle »
CIO
Teaser billede
Microsoft kæmper med at få Copilot ud over rampen – og det skyldes især én ting
Læs mere »
Her står medarbejderne for at ansætte og fyre - og det har gjort rekruttering af it-professionelle langt lettere
Rigspolitiet gør klar til stort opgør med it-evighedskontrakter: Søger hjælp fra leverandørerne
Mange CISO'er mistrives i jobbet: Nu stiller tidligere cyber security-chef i Energinet og Ørsted et kontroversielt forslag
Se alle »
Job & Karriere
Teaser billede
Fungerede ikke: Dropper AI som erstatning for kundeservice-medarbejdere - har nu brug for nye folk
Læs mere »
It-chef og halv it-afdeling fyret i forsikringsselskab på grund af kommentar om potteplante
Danske it-folk tør ikke længere skifte job hele tiden - og det er der en særlig årsag til
Itm8 fyrer: Opsiger ansatte og reorganiserer
Se alle »
White paper
Teaser billede
Tidsbegrænset kampagne: Overvejer du at udskifte eller tilføje printere i din forretning? Vi kan tilbyde én eller flere maskiner gratis
Læs mere »
Sikkerhed gjort enkelt: Beskyt din virksomhed direkte i browseren
Få reel viden om datasuverænitet og tag selv kontrollen
Revolutionér kundeoplevelsen med AI og automatisering
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »