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

Stort udvalg af Excel kurser til alle niveauer og jobfunktioner

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Formel til opdeling Af Chortik1 i Excel	6	29/01/202508:25	I går 10:25
Anden mindste værdi i en række Af ABE15 i Excel	6	26/01/202516:26	27/01/202508:08
Betinget formatering - Ingen formatering hvis søgefeltet er tomt. Af Laugesen1 i Excel	5	24/01/202520:50	26/01/202514:41
En formel som kan regne minutter om til timer... Af Oswald1 i Excel	3	21/01/202512:02	21/01/202512:52
Fejl meddelelse i excel 365 Af boro23 i Excel	5	21/01/202508:57	23/01/202506:59

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