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 質問
【27139】Re:subtotalでエラーが出るのですが Jaka 05/7/29(金) 17:06 発言
【27143】Re:subtotalでエラーが出るのですが YN62 05/7/29(金) 21:20 発言

54397 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free