2016-08-09 10 views
-3

Ich habe keine Ahnung, wo ich anfangen soll. Kürzlich habe ich begonnen, VBA zu verwenden, um verschiedene Prozesse in einer Tabelle, an der ich gerade arbeite, zu automatisieren. Ich möchte effektiv ein Makro schreiben, das Daten aus einer Tabelle aufnimmt und dann alle N/A-Punkte entfernt, bevor die Daten irgendwo anders ausgegeben werden. Ich möchte dann, dass es eine einfache lineare Regression der Daten vornimmt. Mein Problem ist, dass ich am Anfang des Makros verschiedene Eingabefelder haben möchte, damit das Makro verschiedene Tabellen basierend auf den gleichen Daten erstellen kann. Zum Beispiel, wenn ich eine Tabelle hatte, die die Kosten verschiedener Früchte, ihre Gewichte und die Anzahl der Kalorien auflistet, könnte das Makro eine Tabelle ausgeben, die Kosten und Gewicht oder Kosten und Kalorien vergleicht, je nachdem, was der Benutzer möchte. Ich möchte auch auswählen können, wo die Daten ausgegeben werden.Makro, das eine Pivot-Tabelle mit veränderbaren Eingaben erstellt?

Ich entschuldige mich für den Mangel an Details, aber ich habe einen ganzen Tag lang das Internet für eine Art von Antwort durchforstet und ich konnte nichts finden.

+2

StackOverflow ist keine 'Code this for me'-Site. Bitte zeigen Sie einen Code von Ihnen. Es ist ziemlich schwer mit so wenig Details über die eigentliche Programmierung zu helfen. –

+0

Sorry, ich konnte nicht viel Code anzeigen, dies liegt an der Sensibilität des Projekts. Ich habe es geschafft, es funktioniert zu bekommen, also nehme ich an, es spielt keine Rolle mehr :) – PontusCuan

Antwort

0

Um alle N/A Punkte zu entfernen, möchten Sie:

klar aktive Filter

ausfiltern N/A

(Sie müssen die aktiven Filter entfernen, da Excel nicht wirklich . filtern Dinge aus, filtert es Dinge, wenn Sie einen Filter setzen und dann neue Daten hinzufügen, wird es nicht in der Menge der gefilterten Daten sein)

Hier ist, wie ich es für eine ähnliche Funktion haben:

ActiveSheet.PivotTables("PivotTable1").PivotFields("ECO - Project").ClearAllFilters 
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("ECO - Project") 
     .PivotItems("00/01/00 ").Visible = False 
     .PivotItems("(blank)").Visible = False 
    End With 
Verwandte Themen