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
Flytte fra et projekt til andet Af hkprofil i Excel 1 11/11/202612:17 11/11/202613:08
Slet tal, bevar de underliggende formler Af bbkdk i Excel 7 11/11/202609:23 I går 16:57
Måned og år på graf Af mort1 i Excel 4 31/10/202613:01 01/11/202614:13
VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel 9 23/09/202618:11 24/09/202611:16
Ændre tal i en celle Af xvid i Excel 1 04/09/202616:05 04/09/202616:54
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 08:39 Produktnøgle Af hkv i Office & Kontorpakker
13/1116:59 Bitlocker Af nico i Windows
12/1116:30 Wlan i windows 11 home Af dcedata1977 i Windows
11/1121:19 Irriterende ikon på proceslinjen Af ErikHg i Windows
11/1116:33 Kan man slippe af med "msn" ? Af Ikke-ekspert i Windows
White papers
Flere white papers »