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

faithless Praktikant

03. august 2004 - 14:23 Der er 6 kommentarer og
1 løsning

.Orientation i Pivot

Hej

Jeg har lavet følgende VBA linier, men den virker ikke rigtig og jeg kan ikke finde ud af hvad som er galt, så jeg håber i kan hjælpe.

Set ori = Worksheets("Pivot").PivotTables("PivotTable1").PivotFields("Pizza segments").Orientation
Worksheets("Grafik").Range("J2") = ori

Det jeg godt kunne tænke mig den skrev i J2 er: xlColumnField, xlDataField, xlHidden, xlPageField eller xlRowField. Selvfølgelig afhængig af hvor "Pizza segments" ligger i pivoten.

Synes godt om

bak Forsker

03. august 2004 - 15:36 #1

Sub testmig()
Dim ori As Variant, FType As String
ori = Worksheets("Pivot").PivotTables("PivotTable2").PivotFields("Pizza segments").Orientation
Select Case ori
Case 0: FType = "Hidden field"
Case 1: FType = "Rowfield"
Case 2: FType = "Columnfield"
Case 3: FType = "Pagefield"
Case 4: FType = "Datafield"
Case Else: FType = "Not a field i the pivottable"
End Select
Worksheets("Grafik").Range("J2") = FType
End Sub

Synes godt om

bak Forsker

03. august 2004 - 15:41 #2

Lidt kortere, men samme princip

Sub testmig2()
Dim ori As Variant
ori = Worksheets("Pivot").PivotTables("PivotTable2").PivotFields("DEPARTMENT").Orientation + 1
Range("J2") = Choose(ori, "Hidden field", "Rowfield", "Columnfield", "Pagefield", "Datafield")
End Sub

Synes godt om

bak Forsker

03. august 2004 - 15:46 #3

skal det være helt rigtig så:

Sub testmig2()
Dim ori As Variant
ori = Worksheets("Pivot").PivotTables("PivotTable1").PivotFields("Pizza segments").Orientation + 1
Worksheets("Grafik").Range("J2") = Choose(ori, "xlHidden", "xlRowField", "xlColumnField", "xlPageField", "xlDataField")
End Sub

Synes godt om

faithless Praktikant

03. august 2004 - 15:54 #4

Hej Bak

Jeg får først testet dine svar i morgen, men hvad betyder +1 efter .Orientation

Synes godt om

bak Forsker

03. august 2004 - 16:59 #5

Det er fordi at choose-funktionen starter ved 1 og ikke ved 0

Synes godt om

faithless Praktikant

04. august 2004 - 09:50 #6

Brugte den sidste du lavede og det virker perfekt, så bak smid et svar. Jeg læste lidt om Choose på den grimme F1, så jeg tror også jeg forstår koden nu(c;.

Synes godt om

bak Forsker

04. august 2004 - 11:57 #7

fint at det både virker og at du blev lidt klogere :-)

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
VBA - Excel programering til Onenote Af ingeman i Excel	4	24/04/202512:37	25/04/202510:23
SQL til excel med farver Af Jjn i Excel	1	24/04/202511:50	24/04/202513:56
Tidsformater Af Peder Lund Nielsen i Excel	5	21/04/202520:54	23/04/202522:15
Opdele ét ark i flere ark Af karina1971 i Excel	13	15/04/202507:20	16/04/202509:07
Arbejdstid opdeles i tidsintervaller Af Camilla i Excel	2	14/04/202516:08	14/04/202517:17

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