Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

54397 / 76732

←次へ　｜　前へ→


	【27129】subtotalでエラーが出るのですが

reiko - 05/7/29(金) 14:10 -


	引用なし

	パスワード

こんにちは。
データが入った表の最終行と最終列を求め、　　　　　　　　　　　　　　　　
データが入力されている範囲を集計したいと思い、　　　　　　　　　　　　　　　　
以下のようなコードを書いているのですが、　　　　　　　　　　　　　　　　
何度やっても『RangeクラスのSubtotalメソッドが　　　　　　　　　　　　　　　　
失敗しました。』というエラーがでてしまいます。　　　　　　　　　　　　　　　　
どこが悪いのか教えていただけないでしょうか？　　　　　　　　　　　　　　　　
よろしくお願いします。　　　　　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　　　　　
-------------------------------------------　　　　　　　　　　　　　　　　　　　　
Sub 機種合計の入力()　　　　　　　　　　　　　　　　　　　　
Dim lon_Limirow As Long　　　　　　　　　　　　　　　　　　　　
Dim tuki As Integer　　　　　　　　　　　　　　　　　　　　
Set wshjisseki = Worksheets("上期実績")　　　　　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　　　　　
wshjisseki.Activate　　　　　　　　　　　　　　　　　　　　
lon_Limirow = wshjisseki.Range("C65536").End(xlUp).Row '最終行の取得　　　　　　　　　　　　　　　　　　　　
tuki = wshjisseki.Range("IV" & lon_Limirow).End(xlToLeft).Column'最終列の取得　　　　　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　　　　　
Range(Cells(5, 2), Cells(lon_Limirow, tuki)).Select　　　　　　　　　　　　　　　　　　　　
Selection.Subtotal GroupBy:=2, Function:=xlSum, _　　　　
TotalList:=Array(6, 10, 14, 18, 22, 26), Replace:=True, PageBreaks:=False, SummaryBelowData:=True　　　　　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　　　　　
End sub

0 hits

▼

【27129】subtotalでエラーが出るのですが reiko 05/7/29(金) 14:10

≪