0
ピボットテーブルの選択を行うコマンドボタンがあります。私はVBAコードを使用して選択を行います。しかし、実行には時間がかかります。各行を通らないコードを最適化する方法はありますか？すべてのフィルタをクリアして、どこでSlicerItems("").Selected=Trueを選択しますか？コマンドslicerを選択するボタン
Sub HenkelOnly()
'
' HenkelOnly Macro
'
'
ActiveWorkbook.SlicerCaches("Slicer_Manufacturer1").ClearManualFilter
With ActiveWorkbook.SlicerCaches("Slicer_Manufacturer1")
.SlicerItems("HENKEL").Selected = True
.SlicerItems("3M").Selected = False
.SlicerItems("ADVANCED BEAUTY CARE INC").Selected = False
.SlicerItems("ADVANCED BEAUTY INC").Selected = False
.SlicerItems("AGILITY SPORTS").Selected = False
.SlicerItems("ALAMO MANUEL MARTIARENA").Selected = False
.SlicerItems("ALEN USA").Selected = False
.SlicerItems("AMERICAN SAFETY RAZOR").Selected = False
.SlicerItems("AMPRO INDUSTRIES").Selected = False
.SlicerItems("ANIKA LABORATORIES").Selected = False
.SlicerItems("AP DEAUVILLE").Selected = False
.SlicerItems("APOLLO").Selected = False
.SlicerItems("ASPEN BRANDS").Selected = False
.SlicerItems("AWESOME PRODUCTS").Selected = False
.SlicerItems("B&G FOODS INC").Selected = False
.SlicerItems("BEIERSDORF").Selected = False
.SlicerItems("BELLA CURLS").Selected = False
.SlicerItems("BIOCARE LABS").Selected = False
.SlicerItems("BLISTEX").Selected = False
.SlicerItems("BRIGHT AIR").Selected = False
.SlicerItems("BRONNER BROS").Selected = False
.SlicerItems("BURMAX CO").Selected = False
.SlicerItems("CAITCO").Selected = False
.SlicerItems("CALIFORNIA SCENTS").Selected = False
.SlicerItems("CARMA LABORATORIES").Selected = False
.SlicerItems("CHATTEM").Selected = False
.SlicerItems("CHEATHAM CHEMICAL CO.").Selected = False
.SlicerItems("CHEMTURA CORPORATION").Selected = False
.SlicerItems("CHIN HO SHING (USA)").Selected = False
.SlicerItems("CHURCH & DWIGHT").Selected = False
.SlicerItems("COLGATE-PALMOLIVE").Selected = False
.SlicerItems("CONAIR CORP").Selected = False
.SlicerItems("CONTROL BRAND").Selected = False
.SlicerItems("CR BRANDS").Selected = False
.SlicerItems("DAGETT & RAMSDELL").Selected = False
.SlicerItems("DAMPRID").Selected = False
.SlicerItems("DERMASIL LABS").Selected = False
.SlicerItems("DR MIRACLES LLC").Selected = False
.SlicerItems("E T BROWNE DRUG CO INC").Selected = False
.SlicerItems("ECOCO INC").Selected = False
.SlicerItems("ELITE ESSENTIALS").Selected = False
.SlicerItems("ENERGIZER").Selected = False
.SlicerItems("ENPER INC").Selected = False
.SlicerItems("EOS PRODUCTS").Selected = False
.SlicerItems("FANTASIA INDUSTRIES CORP").Selected = False
.SlicerItems("FAULTLESS STARCH/BON AMI COMPANY").Selected = False
.SlicerItems("FREEMAN BEAUTY LABS").Selected = False
.SlicerItems("FRUIT OF THE EARTH").Selected = False
.SlicerItems("GENOMMA LAB").Selected = False
.SlicerItems("GOJO INDUSTRIES").Selected = False
.SlicerItems("GROWORKS").Selected = False
.SlicerItems("HAIN CELESTIAL GROUP").Selected = False
.SlicerItems("HBC CHEMICAL CO.").Selected = False
.SlicerItems("HELEN OF TROY").Selected = False
.SlicerItems("HIGH RIDGE").Selected = False
.SlicerItems("HIGH TIME PRODUCTS").Selected = False
.SlicerItems("HILLSHIRE BRANDS").Selected = False
.SlicerItems("HOLLYWOOD BEAUTY IMPORTS CO").Selected = False
.SlicerItems("HOYU AMERICAN CO").Selected = False
.SlicerItems("ICONIC").Selected = False
.SlicerItems("ILEX CONSUMER PRODUCTS").Selected = False
.SlicerItems("IMPERIAL DAX CO").Selected = False
.SlicerItems("INSPIRED BEAUTY BRANDS").Selected = False
.SlicerItems("J M PRODUCTS").Selected = False
.SlicerItems("J STRICKLAND CO.").Selected = False
.SlicerItems("JELMAR").Selected = False
.SlicerItems("JOHNSON & JOHNSON").Selected = False
.SlicerItems("KAO").Selected = False
.SlicerItems("KEY BRANDS").Selected = False
.SlicerItems("KEYSTONE LABORATORIES INC").Selected = False
.SlicerItems("LA CORONA COMPANY").Selected = False
.SlicerItems("LANE BRYANT").Selected = False
.SlicerItems("LARRY CHERNILA").Selected = False
.SlicerItems("LAVO").Selected = False
.SlicerItems("L'OREAL").Selected = False
.SlicerItems("L'OREAL SSC").Selected = False
.SlicerItems("LORNAMEAD GROUP").Selected = False
.SlicerItems("LUSTER PRODUCTS INC.").Selected = False
.SlicerItems("M & M PRODUCTS").Selected = False
.SlicerItems("M30 MANUFACTURING").Selected = False
.SlicerItems("MACANDREWS FORBES HOLDINGS INC").Selected = False
.SlicerItems("MAID BRANDS").Selected = False
.SlicerItems("MENTHOLATUM COMPANY").Selected = False
.SlicerItems("MERCK").Selected = False
.SlicerItems("MURRAY S WORLDWIDE INC.").Selected = False
.SlicerItems("NAKOMA PRODUCTS").Selected = False
.SlicerItems("NAMASTE LABORATORIES LLC").Selected = False
.SlicerItems("NATURE'S PROTEIN INC").Selected = False
.SlicerItems("NEUTRLAB").Selected = False
.SlicerItems("NEW SUNSHINE").Selected = False
.SlicerItems("NEWHALL LABORATORIES").Selected = False
.SlicerItems("NO-AD PRODUCTS").Selected = False
.SlicerItems("NOVARTIS PHARMACEUTICALS").Selected = False
.SlicerItems("O'KEEFFE'S COMPANY").Selected = False
.SlicerItems("OLD WILLIAMSBURGH CANDLE").Selected = False
.SlicerItems("PANAMA JACK PRODUCTS").Selected = False
.SlicerItems("PARA LABORATORIES").Selected = False
.SlicerItems("PARAMOUNT CHEMICAL SPECIALTIES INC").Selected = False
.SlicerItems("PARFUMS DE COEUR").Selected = False
.SlicerItems("PDC BRANDS").Selected = False
.SlicerItems("PEPSICO").Selected = False
.SlicerItems("PERFECT PURITY").Selected = False
.SlicerItems("PERSONAL CARE").Selected = False
.SlicerItems("PF HARRIS COMPANY").Selected = False
.SlicerItems("PHOENIX BRANDS").Selected = False
.SlicerItems("PIC CORP").Selected = False
.SlicerItems("PRESTIGE BRANDS").Selected = False
.SlicerItems("PRIVATE LABEL").Selected = False
.SlicerItems("PROCTER & GAMBLE").Selected = False
.SlicerItems("PROFESSIONAL PRODUCTS UNLIMTED").Selected = False
.SlicerItems("PRO-LINE INTERNATIONAL").Selected = False
.SlicerItems("RCJP ACQUISITION INC").Selected = False
.SlicerItems("RECKITT BENCKISER").Selected = False
.SlicerItems("REDDING HAIR CARE").Selected = False
.SlicerItems("REDEX INDUSTRIES").Selected = False
.SlicerItems("REDOX BRANDS").Selected = False
.SlicerItems("RENPURE").Selected = False
.SlicerItems("REVLON").Selected = False
.SlicerItems("ROTO-ROOTER").Selected = False
.SlicerItems("RUG DOCTOR").Selected = False
.SlicerItems("SC JOHNSON").Selected = False
.SlicerItems("SCIENCE OF BEAUTY LLC").Selected = False
.SlicerItems("SCOTCH CORPORATION").Selected = False
.SlicerItems("SERVAAS LABORATORIES").Selected = False
.SlicerItems("SKINNUTRITIONS").Selected = False
.SlicerItems("SOFTEE").Selected = False
.SlicerItems("SPARTAN BRANDS INC").Selected = False
.SlicerItems("SPECTRUM BRANDS").Selected = False
.SlicerItems("SPRAYWAY INC").Selected = False
.SlicerItems("STRAIGHT ARROW PRODUCTS").Selected = False
.SlicerItems("STRENGTH OF NATURE").Selected = False
.SlicerItems("SUN AND SKIN CARE RESEARCH").Selected = False
.SlicerItems("SUN PRODUCTS").Selected = False
.SlicerItems("SUNDIAL BRANDS").Selected = False
.SlicerItems("SUNSHINE MAKERS").Selected = False
.SlicerItems("SUREFIL").Selected = False
.SlicerItems("SWIZCO").Selected = False
.SlicerItems("THE CLOROX COMPANY").Selected = False
.SlicerItems("THE COLOMER").Selected = False
.SlicerItems("THE COLOMER GROUP").Selected = False
.SlicerItems("ULTIMARK PRODUCTS LLC").Selected = False
.SlicerItems("ULTRA GLOW").Selected = False
.SlicerItems("UNILEVER").Selected = False
.SlicerItems("UNIVERSAL BEAUTY PRODUCTS").Selected = False
.SlicerItems("VALEANT CONSUMER PRODUCTS").Selected = False
.SlicerItems("VI-JON LABORATORIES").Selected = False
.SlicerItems("WAHL CLIPPER CORPORATION").Selected = False
.SlicerItems("WALT DISNEY").Selected = False
.SlicerItems("WAVE LIFE LLC").Selected = False
.SlicerItems("WD-40 COMPANY").Selected = False
.SlicerItems("WEIMAN PRODUCTS").Selected = False
.SlicerItems("WILLERT HOME PRODUCTS").Selected = False
.SlicerItems("WIPRO TECHNOLOGIES").Selected = False
.SlicerItems("(blank)").Selected = False
End With
End Sub