Excel総合相談所 151at BSOFTExcel総合相談所 151 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト972:977 22/12/23 10:55:17.89 .net >>970のサイトを参考に ' 作業年月を更新 Dim d As String d = Controls("txt_term").Value Dim pivotItem As pivotItem Sheets(4).PivotTables(1).PivotCache.MissingItemsLimit = xlMissingItemsNone Sheets(4).PivotTables(1).PivotCache.Refresh For Each pivotItem In Sheets(4).PivotTables(1).PivotFields("作業年月").PivotItems If pivotItem.Name = d Then pivotItem.Visible = True Else pivotItem.Visible = False End If Next で、テキストボックスの文字列と同じ年月にささっと更新できるかと思ったけど、これでも>>966のエラーが出て上手くいかない。 Ｗｉｎｄｏｗｓ１０ Office365 一応最新のＥｘｃｅｌのはずなんだけど 973:977 22/12/23 11:02:55.81 .net このフィルター設定しようとしてるのはxlPageFieldなんだけど関係あるかな？ 何か別の方法でもいいんだけど、月の数字をフォームのテキストボックスの文字列で切り替えたい。 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch