Avatar billede rene_h_pedersen Nybegynder
08. juli 2004 - 16:36 Der er 1 kommentar

Makro (visual basic)

Jeg har brug for hjælp til makroer i excel, det drejer sig om et beregningsark på mit arbejde, som udfører nogle beregninger via makroer, men da jeg ikke er så stærk i visual basic som jo ligger til grund for makroer, har jeg brug for lidt hjælp til dette.
Jeg skal udvide regnearket fra 13 rækker til 18 rækker, men jeg har en fornemmelse af at nogle af makroerne har indflydelse på resultatet, så derfor ville lidt expert hjælp være herligt.

selve makroerne er beskrevet neden under, men det er de 2 øverste makroer som jeg har mistænkt for at have indflydelse på beregningerne, hvad gør disse 2 makro (GVberegn) og (mult_t) ???

Håber der er nogen der kan hjælpe mig :-)

Sub GVberegn()
    Sheets("Beregningsark").Select
    Range("G7").Select
    ActiveCell.FormulaR1C1 = "=Gulvvarme!R[-6]C[4]"
    Sheets("Gulvvarme").Select
    Range("A1").Select
End Sub


'
' mult_t Makro
' Makro indspillet 27-06-97 af Ole Lindhardt
'
'
Sub mult_t()
    Sheets("Beregningsark").Select
    Range("K6").Select
    If Range("k6") > -0.9 Then
      Range("K6").GoalSeek Goal:=-1, ChangingCell:=Range("B4")
    End If
    Range("G7").Select
    ActiveCell.FormulaR1C1 = "=Tabeller!R[8]C[9]"
    Sheets("Multitherm").Select
    Range("a1").Select
End Sub




' Gulvtabel Makro
' Makro indspillet 22-05-97 af Ole Lindhardt
'
'
Sub Gulvtabel()
    Sheets("Tabeller").Select
    Application.Goto Reference:="R1C1"
End Sub
'
' TilbageTop Makro
' Makro indspillet 22-05-97 af Ole Lindhardt
'
'
Sub TilbageTop()
    Sheets("Beregningsark").Select
    Application.Goto Reference:="R1C1"
End Sub
'
' GVberegn Makro
' Makro indspillet 07-07-97 af Ole Lindhardt
'
'
Sub GVberegn()
    Sheets("Beregningsark").Select
    Range("G7").Select
    ActiveCell.FormulaR1C1 = "=Gulvvarme!R[-6]C[4]"
    Sheets("Gulvvarme").Select
    Range("A1").Select
End Sub


' NavnAdresse Makro
' Makro indspillet 07-07-97 af Ole Lindhardt
'
'
Sub NavnAdresse()
    Sheets("NavnAdresse").Select
    Range("A1").Select
    Range("B2").Select
End Sub
'
' GVudskr Makro
' Makro indspillet 08-07-97 af Ole Lindhardt
'
'
Sub GVudskr()
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("GVmatr").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("GVbrev").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("Gulvvarme").Select
End Sub

' MTudskriv Makro
' Makro indspillet 08-07-97 af Ole Lindhardt
'
'
Sub MTudskriv()
    Application.Run Macro:="mult_t"
    Sheets("Multitherm").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("MTmatr").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("MTbrev").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("Multitherm").Select
End Sub
Avatar billede rene_h_pedersen Nybegynder
08. juli 2004 - 16:37 #1
Dette er en prøve for at se om det virker
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 for alle niveauer og behov – find det kursus, der passer til dig

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