エラー番号の他にエラーの説明が出ると思うのですが、
それを提示した方が解決が早いでしょう。
因みに、シートの保護がかけてあると質問のエラーが出ます。
が、エラーメッセージにはその由書いてあるので分かるのですが。。。
以上です。
投稿日時 - 2009-11-20 12:55:49
補足
回答No1の補足に書いたものがエラーの詳細です。（エラー説明は書いてません）
エラー説明については今度からちゃんと書きますね＞＜
シートの保護・・・・・・あ！ピポットテーブル作成してピポットテーブルのフィールド設定終わると保護みたいな感じなってたような！！
原因がわかりましたね＾＾ありがとうございます
投稿日時 - 2009-11-26 11:50:41
お礼
回答ありがとうございます。
助かりました。
投稿日時 - 2011-08-31 13:54:50
2人が「このQ&Aが役に立った」と投票しています
ベストアンサー以外の回答（1件中 1～1件目)
Excel 2007 で何のデーターもない状態で正常にグループ化されました。
Sub test()
Columns("G:I").Group
End Sub
参考までに。
投稿日時 - 2009-11-20 12:32:10
補足
確かにこれだけのコードで書いた場合は落ちませんでした＞＜
っで、じゃあ自分が書いた奴はなんで落ちるんだ？って話になりさらに調べたところ。
Excelマクロ内でピポットテーブルを作る処理をしているのですが、どうもピポットテーブルを作成する処理の後にグループ化をすると落ちるようです。orz
～処理内容～
'ピポットテーブルを作成
ActiveSheet.PivotTableWizard _
SorceType:=xlDatabase, _
SourceData:=strDataSpan, _
TableDestination:="", _
TableName:="Table"
'ピポットテーブルの設定
With ActiveSheet.PivotTables("Table")
'行フィールド追加
.AddFields RowFields:=Array("会社","社員")
'列フィールド追加
With .PivotFields("商品")
.Orientation = xlColumnsField
.Position = 1
End With
'データフィールド追加
With .PivotFields("売上")
.Orientation = xSataField
.Function = xlSum
.Position = 1
End With
End With
'G～I行をグループ化
Columns("G:I").Group
っと、上記のようなコードを書くとエラーします。。。。。原因がよくわからないのでピポットテーブル作成直後にグループ化したら落ちなくなりました！
一応これでOKってことで、ありがとうございました。
投稿日時 - 2009-11-26 11:44:35
お礼
回答ありがとうございました。
投稿日時 - 2011-08-31 13:55:30
