Excel VBA質問箱 IV

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

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


22228 / 76734 ←次へ | 前へ→

【59889】Re:年間月別合計の出し方
発言  kanabun  - 09/1/15(木) 16:48 -

引用なし
パスワード
   ▼ひかる さん:
>▼kanabun さん:
>返事が遅くなりすみません。
>貴重なご意見をありがとうございました。
>さっそくコードを入力してやってみたのですが、
>次の矢印を入れているところで、実行時エラー91”オブジェクト変数またはwithブロック変数が設定されていません”と出るのですが、解決方法をお教えください。

そのまえの
>  Set rr = Worksheets("Sheet1").Range("A1").CurrentRegion
が、うまく動いているか確認してみてください。

手動で、
Sheet1 の[A1]をアクティブにして Ctrl+Shift+[*]を実行してみてください。
どの範囲が選択されますか?
想定した元表の範囲が選択されましたか?

あるいは コードにデバッグ行を挿入して 確認してください。
>
>  Dim rr As Range
>  Dim MonData, RoomData, dat, ss As String
>  Dim j As Long, n As Long, m As Long
>

>  Set rr = Worksheets("Sheet1").Range("A1").CurrentRegion.Resize(, 5)
'↑ この行を ↓のように 変更
  With Worksheets("Sheet1")
    .Activate      '◆デバッグ用追加
    Set rr = .Range("A1").CurrentRegion.Resize(, 5)
    rr.Select      '←↓◆◆デバッグ用追加
    If MsgBox("この範囲が元データ範囲ですか? " & _
      rr.Address(0, 0), vbOKCancel) = vbCancel Then Exit Sub
  End With

>  Set rr = Intersect(rr, rr.Offset(1, 1))
  
  'ここに↓ 追加
   If rr is Nothing then
     msgbox "範囲が不正です データ範囲が取得できません"
     exit sub
   End If
   rr.Select      '←↓◆◆デバッグ用追加
   If MsgBox("この範囲が正味データ範囲ですか? " & _
      rr.Address(0, 0), vbOKCancel) = vbCancel Then Exit Sub

>⇒ MonData = rr.Resize(, 1).Offset(, -1).Value
>  RoomData = rr.Resize(1).Offset(-1).Value
>  For i = 1 To UBound(MonData, 1)
>    dat = MonData(i, 1)
>    If IsDate(dat) Then
>      ss = Month(dat) & "月"
>      If dic.Exists(ss) Then
>        m = dic(ss) '何列目か
>        For j = 1 To UBound(RoomData, 2)
>          ss = RoomData(1, j)
>          If dic.Exists(ss) Then
>            n = dic(ss) '何行目か
>            '------tblのn行,m列目の要素に 数量を累加 -----
>            tbl(n, m) = tbl(n, m) + rr(i, j).Value
>          End If
>        Next
>      End If
>    End If
>  Next
>  
>  '---- 配列に集計した結果を表に書き出す ------
>  r.Value = tbl
2 hits

【59849】年間月別合計の出し方 ひかる 09/1/13(火) 20:39 質問
【59850】Re:年間月別合計の出し方 kanabun 09/1/13(火) 21:18 発言
【59855】Re:年間月別合計の出し方 ひかる 09/1/13(火) 22:47 質問
【59856】Re:年間月別合計の出し方 kanabun 09/1/14(水) 0:09 発言
【59857】Re:年間月別合計の出し方 kanabun 09/1/14(水) 0:15 発言
【59858】Re:年間月別合計の出し方 ひかる 09/1/14(水) 7:07 お礼
【59859】Re:年間月別合計の出し方 kanabun 09/1/14(水) 9:33 発言
【59886】Re:年間月別合計の出し方 ひかる 09/1/15(木) 16:07 質問
【59887】Re:年間月別合計の出し方 ひかる 09/1/15(木) 16:21 お礼
【59892】Re:年間月別合計の出し方 kanabun 09/1/15(木) 16:51 発言
【59949】Re:年間月別合計の出し方 ひかる 09/1/20(火) 18:29 質問
【59950】Re:年間月別合計の出し方 kanabun 09/1/20(火) 20:25 発言
【59954】Re:年間月別合計の出し方 ひかる 09/1/20(火) 21:35 質問
【59955】Re:年間月別合計の出し方 kanabun 09/1/20(火) 21:49 発言
【59956】Re:年間月別合計の出し方 ひかる 09/1/20(火) 22:09 質問
【59957】Re:年間月別合計の出し方 kanabun 09/1/20(火) 22:50 発言
【59958】Re:年間月別合計の出し方 kanabun 09/1/20(火) 23:04 発言
【59959】Re:年間月別合計の出し方 kanabun 09/1/20(火) 23:31 発言
【59960】Re:年間月別合計の出し方 ひかる 09/1/20(火) 23:42 お礼
【59981】Re:年間月別合計の出し方 ひかる 09/1/22(木) 12:02 お礼
【59983】Re:年間月別合計の出し方 ひかる 09/1/22(木) 12:52 質問
【59988】Re:年間月別合計の出し方 ひかる 09/1/22(木) 18:07 質問
【60025】Re:年間月別合計の出し方 kanabun 09/1/24(土) 10:35 発言
【60026】Re:年間月別合計の出し方 kanabun 09/1/24(土) 10:40 発言
【60036】Re:年間月別合計の出し方 ひかる 09/1/24(土) 19:18 お礼
【60054】Re:年間月別合計の出し方 ひかる 09/1/26(月) 11:50 質問
【60061】Re:年間月別合計の出し方 kanabun 09/1/26(月) 14:39 発言
【60097】Re:年間月別合計の出し方 ひかる 09/1/27(火) 12:42 お礼
【60105】Re:年間月別合計の出し方 kanabun 09/1/27(火) 15:56 発言
【60106】Re:年間月別合計の出し方 ひかる 09/1/27(火) 16:27 お礼
【59889】Re:年間月別合計の出し方 kanabun 09/1/15(木) 16:48 発言

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