Excel VBA質問箱 IV

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

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


63584 / 76732 ←次へ | 前へ→

【17743】Re:合計と件数の算出について
回答  Jaka  - 04/9/7(火) 9:19 -

引用なし
パスワード
   データレイアウトの記述は手抜きしないでちゃんと書いてください。
こちらは、提示されたデータレイアウトでコード書いていますので....。

最初に書いたコードを
このデータだけで試してみてください。

  A B C D E F G  H  I  J  K  L  M
1〜6行は空白です。

7       100  2  50 60 78 80 90
8        90 11  13 25 22 11  3
9        5  5  5  5  5  5  5
10        1  2  3  4  4  5  1
11
12
13
14        2 11  15 10 80 91  2 
15       10  4  5  6  6  6  6

*********************
Sub sffgh3()
  Dim Cure As Range, Gcure As Range, STR As Range, GK() As Long
  Dim CCR As Long
  Set STR = Range("G7")
  CCR = 8
  ReDim GK(1 To CCR)
  Do Until STR.End(xlDown).Row = 65536
    With STR
      Set Gcure = Nothing
      SSR = STR.End(xlDown).Row - STR.Row + 1
      Set Cure = STR.Resize(SSR, CCR)
      With Cure
         Set Gcure = .Offset(.Rows.Count).Resize(1)
         For i = 1 To .Cells.Columns.Count
          Gcure.Cells(i).Value = Application.Sum(.Cells.Columns(i))
          Gcure.Cells(i).Font.Bold = True
          GK(i) = GK(i) + Application.Sum(.Cells.Columns(i))
         Next
      End With
    End With
    Set STR = Gcure.Cells(i).End(xlDown)
    Set Cure = Nothing
  Loop
  Gcure.Cells(i).Resize(, CCR).Value = GK
  Gcure.Cells(i).Resize(, CCR).Font.Bold = True
  Set STR = Nothing
  Set Gcure = Nothing
  Erase GK
  End
End Sub
0 hits

【17623】合計と件数の算出について キタ 04/9/3(金) 15:17 質問
【17624】Re:合計と件数の算出について Asaki 04/9/3(金) 15:39 回答
【17625】Re:合計と件数の算出について キタ 04/9/3(金) 15:57 質問
【17626】Re:合計と件数の算出について Asaki 04/9/3(金) 16:05 回答
【17628】Re:合計と件数の算出について キタ 04/9/3(金) 17:30 質問
【17705】Re:合計と件数の算出について Jaka 04/9/6(月) 9:15 発言
【17707】Re:合計と件数の算出について キタ 04/9/6(月) 10:16 質問
【17743】Re:合計と件数の算出について Jaka 04/9/7(火) 9:19 回答
【17642】Re:合計と件数の算出について Kein 04/9/3(金) 20:37 発言

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