CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

mayaih Nybegynder

03. januar 2014 - 11:27 Der er 3 kommentarer

Makro i excel

Jeg har en makro i excel der "solver" i ét andet ark end hvor makro knappen er. Når makroen afspilles (beregner) viser den arket hvor den solver i 2-4 sek før den går tilbage til arket med makro knappen.. Er der nogen der ved hvordan dette kan undgåes? - evt. vha. VBA koden?

Synes godt om

erikjuul (ikke aktiv længere) Mester

03. januar 2014 - 11:48 #1

Application.ScreenUpdating = False

'din kode'

Application.ScreenUpdating = True

Synes godt om

mayaih Nybegynder

04. januar 2014 - 21:34 #2

Hvad hvis denne kode ikke er i min makro?
- hvor skal den så indsættes?

Den ser sådan her ud:

Sheets("Del3 - Behov").Select
Sheets("Del3 - Beregning").Visible = True
Sheets("Del3 - Beregning").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Del3 - Beregning").Select
ActiveSheet.Unprotect
SolverReset
SolverOk SetCell:="$D$39", MaxMinVal:=2, ValueOf:=0, ByChange:="$D$30:$J$30", _
Engine:=2, EngineDesc:="Simplex LP"
SolverAdd CellRef:="$D$30:$J$30", Relation:=4, FormulaText:="heltal"
SolverAdd CellRef:="$D$27", Relation:=1, FormulaText:="$D$29"
SolverAdd CellRef:="$E$27", Relation:=1, FormulaText:="$E$29"
SolverAdd CellRef:="$F$27", Relation:=1, FormulaText:="$F$29"
SolverAdd CellRef:="$G$27", Relation:=1, FormulaText:="$G$29"
SolverAdd CellRef:="$H$27", Relation:=1, FormulaText:="$H$29"
SolverAdd CellRef:="$I$27", Relation:=1, FormulaText:="$I$29"
SolverAdd CellRef:="$J$27", Relation:=1, FormulaText:="$J$29"
SolverOk SetCell:="$D$39", MaxMinVal:=2, ValueOf:=0, ByChange:="$D$30:$J$30", _
Engine:=2, EngineDesc:="Simplex LP"
SolverOk SetCell:="$D$39", MaxMinVal:=2, ValueOf:=0, ByChange:="$D$30:$J$30", _
Engine:=2, EngineDesc:="Simplex LP"
Application.ScreenUpdating = False
SolverSolve True
Sheets("Del3 - Beregning").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Del3 - Beregning").Select
Sheets("Del3 - Bemandingsplan").Visible = True
ActiveWindow.SmallScroll Down:=1
Sheets("Del3 - Bemandingsplan").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Del3 - Beregning").Select
Sheets("Introduktion").Visible = True
Sheets("Introduktion").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Del3 - Behov").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Del3 - Beregning").Select
ActiveWindow.SelectedSheets.Visible = False

Synes godt om

kalasin Nybegynder

05. januar 2014 - 20:05 #3

Først og sidst som erikjuul skriver.

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Excel kurser

Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Identificér og hent del af tekststreng Af TheLibrarian i Excel	1	I går 16:49	I går 21:00
Ændre nuller til ovenstående tekst Af boro23 i Excel	4	20/11/202410:44	20/11/202412:08
HVIS med datoer Af HHA i Excel	6	20/11/202408:31	20/11/202412:51
Numerisk liste Af AND i Excel	8	19/11/202414:05	19/11/202423:31
Ændre nuller til ovenstående tal Af boro23 i Excel	3	19/11/202409:39	19/11/202411:51

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS