Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketsyntax

 Besvar Besvar
Forfatter
AnnetteTR Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 09.Jul.2010
Land: DK
Status: Offline
Point: 47
Direkte link til dette indlæg Emne: syntax
    Sendt: 14.Jan.2011 kl. 08:45

Hej

Jeg er ved at lave en større makro, hvor jeg beder brugeren angive hvilket output man vil have, ud fra det valg hentes også værdien i nabocellen, der skal bruges til at sætte enheden på det tal man får.
Feks. vælger man at hente Luftmængder får man også værdien m³/h, vælger man Areal får man også værdien m².
Når jeg skal indsætte værdien vil jeg gerne formattere den så der f.eks står 2500 m³/h eller 25 m².
Hvis jeg hard koder ser det sådan ud:
 
With ActiveSheet.PivotTables("ItemList").PivotFields("Sum af " & Andetvalg)
        .NumberFormat = "#,##0 ""m³/h""" 
End With
 
Det virker.
Men nu ved jeg ikke på forhånd om "Andetvalg" er Luftmængder eller Areal, derfor er enheden hentet ned i en variabel varVal, den har jeg checket værdien er rigtig.
Men hvordan får jeg det til at virke?
 
Jeg har prøvet dette:
With ActiveSheet.PivotTables("ItemList").PivotFields("Sum af " & Andetvalg)
      .NumberFormat = "#,##0 " & varVal
End With
Excel vil ikke godkende denne syntax.
 
Jeg har prøvet mange forskellige kombinationer, men kan ikke få det til at virke.
 
Håber I kan hjælpe.
Mvh Annette
 
PS
varVal er en string
Til top



Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
Direkte link til dette indlæg Sendt: 14.Jan.2011 kl. 12:57
Hej Annette,
 
Jeg tror du skal angribe problemet ved at løse udfordringen længere oppe i koden.
 
If varVal = ET_ELLER_ANDET Then
    varVal = "#.##0 ""m³/h"""
Else
    varVal = "#.##0 ""m²"""
End If
With ActiveSheet.PivotTables("ItemList").PivotFields("Sum af " & Andetvalg)
      .NumberFormat = varVal
End With
 
Hvordan ser dette ud hos dig?
 
//Allan
Til top
AnnetteTR Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 09.Jul.2010
Land: DK
Status: Offline
Point: 47
Direkte link til dette indlæg Sendt: 14.Jan.2011 kl. 13:32
Hej Allan
 
Min beskrivelse var lidt forenklet - der er mange former for enheder der kan bruges, men jeg fandt ud af syntaxen, den der virker hedder:
 
Enhed1 = "#,##0 " & """" & varVal & """"
With ActiveSheet.PivotTables("ItemList").PivotFields("Sum af " & Forstevalg)
        .NumberFormat = Enhed1
End With
 
Mvh Annette
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
Direkte link til dette indlæg Sendt: 14.Jan.2011 kl. 14:34
Super Annette,
 
Metoden er den samme, alligevel er det lidt underligt at den ikke godtager at man skriver direkte i .NumberFormat = xxxx når det er tale om variable strings.
 
Jeg vidste jo ikke hvordan resten af din kode så ud, så det var bare et gæt. Wink
 
//Allan
Til top
rassten Se dropdown
Guld bruger
Guld bruger


Medlem: 26.Okt.2010
Status: Offline
Point: 694
Direkte link til dette indlæg Sendt: 15.Jan.2011 kl. 02:30
http://www.mrexcel.com/forum/showthread.php?t=521301&highlight=annette
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk