Indsætte en knap i et regneark til at køre en makro

Når du indsætter en knap / figur, kan du højreklikke på den og trykke tildel macro

hvis du har 2007 kan du indsætte en knap i "værktøjslinien hurtig adgang"


udklip fra excel hjælp

Afspille en makro ved at klikke på en knap på værktøjslinjen Hurtig adgang
Klik på Microsoft Office-knappen , og klik derefter på Excel-indstillinger.
Klik på Tilpas, og vælg derefter Makroer på listen Vælg kommandoer fra.
Klik på den makro, du har oprettet, på listen, og klik derefter på Tilføj.
Hvis du vil ændre knapfladen for makroen, skal du markere makroen i boksen, hvor den er tilføjet, og derefter klikke på Rediger.
Klik på den knapflade, du vil bruge, under Symbol.
Hvis du vil ændre navnet på den makro, der vises, når markøren placeres oven på knappen, skal du i boksen Vist navn skrive det navn, du vil bruge.
Klik på OK for at føje makroknappen til værktøjslinjen Hurtig adgang.


Klik på makroknappen på Værktøjslinjen Hurtig adgang.

Det jeg ville var at have knappen inde på selve regnearket. For det er ud til mit arbejde hvor vi er 3 operatører og der er 14 forskellige regneark hvor der skal skrives initialer ind en del steder. og så var tanken at lave 3 makroer på hvert ark og 3 knapper en til hver det var der for at jeg ville bruge en komandoknap fra kontrolelementer og så sætte den til at den ikke bliver udskrevet, det var derfor at jeg manglede lidt visual basic asistanse. For jeg kan sagtens få en knap på en værktøjslinie til at fungere, men det vil blive en velvoksen værktøjslinie. Så for at mindske forviringen så vil jeg gøre det på den måde som jeg har beskrevet

brug jeres username

[Ark1].[A1] = Application.UserName

eller brug netværkets username, og så denne kode i et module

Option Explicit
Public Sub auto_open()
Select Case UCase(Bruger)
Case "THO"
' Opdater_Bruger "1"' brug 'Opdater_Bruger bruger', hvis det er username, der bruges.'
Case "HBA"
Opdater_Bruger "2"

Case "Per"
' Opdater_Bruger "3"
Case Else
End Select

End Sub

Public Function Bruger()
Dim wshNetwork
Set wshNetwork = CreateObject("WScript.Network")
Bruger = wshNetwork.UserName
Set wshNetwork = Nothing
End Function

Public Sub Opdater_Bruger(BR)
[Ark1].[A1] = BR
' fortsæt selv med flere
End Sub

er det ikke mugligt at få en komandoknap til at køre en makro

Denne kører makroen  makro

Private Sub CommandButton1_Click()
Call makro
End Sub

Hej Excelent smid et svar den var lige i øjet

ok