Søg
Avatar billede 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?
Avatar billede erikjuul (ikke aktiv længere) Mester
03. januar 2014 - 11:48 #1
Application.ScreenUpdating = False

'din kode'

Application.ScreenUpdating = True
Avatar billede 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
Avatar billede kalasin Nybegynder
05. januar 2014 - 20:05 #3
Først og sidst som erikjuul skriver.
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
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Opdatering af celler i excel ark Af lurup i Excel 2 09/06/202619:40 10/06/202614:34
data fra et excel til google kalender Af lurup i Excel 3 02/06/202613:23 03/06/202615:06
Inverse formler Af tdktman i Excel 5 26/05/202616:16 28/05/202606:50
Flere brugere i 1 delt pivottabel Af mira96ac i Excel 3 26/05/202609:09 28/05/202604:23
Beregning af flextid - formler Af Slettet bruger i Excel 0 25/05/202618:29 -
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 20:51 Creative Soundblaster Audigy FX v2 Af ErikHg i Andet hardware
27/0616:10 Tilbage til Outlook Klassisk design Af susalapi i E-mail programmer
27/0613:59 CRASH og så gik windows ud af vinduet og ret til helvede .... Af snestrup2000 i Windows
26/0621:22 Problem med "Explorer Patcher" (File Explorer i Win 11) Af ErikHg i Andet software
26/0611:14 Windows 10 forlænger 1 år til 12. Okt. 2027 Af Uvanga i Windows
White papers
Flere white papers »