Excel VBA 質問スレ Part14

Excel VBA 質問スレ P ..

875:デフォルトの名無しさん
10/04/02 16:52:52
回避するって
＞セルをダブルクリックして値入力状態であったり、モーダルで
＞バルーンを表示させていたりすると、
はどうするねん
別にexcel.applicationを起こしてそっちでontimeさせればええやん

876:デフォルトの名無しさん
10/04/04 19:32:11
XPsp2,EXCEL2003です。

ピボットテーブルをVBAで作成しているのですが、
データによって（件数？）、集計の仕方が、
「個数／金額」になったり、「合計/金額」になったりします。
常に「合計／金額」になるようにするには、どうすれば良いのでしょうか？

コードは次の通りです。

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"ZZZWORK!R5C" & c_yymm_p & ":R" & lastrow & "C" & c_io_p).CreatePivotTable TableDestination:="", TableName:= _
"ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ4", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ4").ColumnGrand = False
ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ4").AddFields RowFields:=Array("分類", "科目") _
, ColumnFields:="年月"
ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ4").PivotFields("金額").Orientation = _
xlDataField
Application.CommandBars("PivotTable").Visible = False
ActiveWorkbook.ShowPivotTableFieldList = False

よろしくお願いします。

877:デフォルトの名無しさん
10/04/05 02:29:05
>>876
ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ4").PivotFields("金額").Function = xlSum

878:876
10/04/05 08:04:46
>>877
レスありがとうございます。

そのコードを追加したら、

実行時エラー'1004':
PivotFieldクラスのFunctionプロパティを設定できません。

になりました。どうすれば良いのでしょうか？

追加した位置は、下記のステートメントの次です。

ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ4").PivotFields("金額").Orientation = _
xlDataField

よろしくお願いします。

879:デフォルトの名無しさん
10/04/05 12:28:18
>>878
フィールド名の「金額」の部分を自分の作ったテーブルに合わせて書き換える
テーブルの一番左上の灰色のセルの値を見る

880:878=876
10/04/05 17:07:07
>>879
レスありがとうございます。

常に合計になるようにできましたm(_ _)m

881:デフォルトの名無しさん
10/04/05 18:37:42
サブメニューを複数個作りましたが、
どのサブメニューを選択しても、同じSubプロシージャを呼び出したいです。

Subプロシージャ側で、どのサブメニューが選択されたかを知るにはどうすればいいでしょうか？
パラメーターとか使えますか？

参考になるサイトがありましたら紹介していただけませんか。