Excel VBA質問箱 IV

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

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


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

11627 / 76734

←次へ　｜　前へ→


	【70639】行及び列の集計

おおば - 11/12/11(日) 10:52 -


	引用なし

	パスワード

行の合計点、平均、数値の個数を計算して出力をしようと下記のように書きましたが全て被ってしまい　最後の”数値の個数”のみが表示されてしまいました
１行ずつずらして表示する方法を教えていただきたいのですが
また、列の集計方法も知りたいのでよろしく御願いいたします

Sub 点数集計()
　　Dim sht As Worksheet
　　Set sht = Workbooks("学力試験.xls").Worksheets("試験結果")　　
　　sht.Activate　　With ActiveSheet.ListObjects.Add(SourceType:=xlSrcRange, Source:=Range("B7").CurrentRegion)
　　　　 .Range.Sort key1:=Range("K8"), order1:=xlDescending　'降順
　　　　 .ShowTotals = True
　'------合計点を記入する---------
　　　　 .ListColumns("国語").TotalsCalculation = xlTotalsCalculationSum
　　　　 .ListColumns("英語").TotalsCalculation = xlTotalsCalculationSum
　　　　 .ListColumns("社会").TotalsCalculation = xlTotalsCalculationSum
　　　　 .ListColumns("数学").TotalsCalculation = xlTotalsCalculationSum
　　　　 .ListColumns("理科").TotalsCalculation = xlTotalsCalculationSum
　　　　 .ListColumns("合計点").TotalsCalculation = xlTotalsCalculationSum
　'------平均点を記入する---------
　　　　 .ListColumns("国語").TotalsCalculation = xlTotalsCalculationAverage
　　　　 .ListColumns("英語").TotalsCalculation = xlTotalsCalculationAverage
　　　　 .ListColumns("社会").TotalsCalculation = xlTotalsCalculationAverage
　　　　 .ListColumns("数学").TotalsCalculation = xlTotalsCalculationAverage
　　　　 .ListColumns("理科").TotalsCalculation = xlTotalsCalculationAverage
　　　　 .ListColumns("合計点").TotalsCalculation = xlTotalsCalculationAverage
　 '------数値データーの数を記入する---------
　　　　 .ListColumns("国語").TotalsCalculation = xlTotalsCalculationCountNums
　　　　 .ListColumns("英語").TotalsCalculation = xlTotalsCalculationCountNums
　　　　 .ListColumns("社会").TotalsCalculation = xlTotalsCalculationCountNums
　　　　 .ListColumns("数学").TotalsCalculation = xlTotalsCalculationCountNums
　　　　 .ListColumns("理科").TotalsCalculation = xlTotalsCalculationCountNums
　　　　 .ListColumns("合計点").TotalsCalculation = xlTotalsCalculationCountNums
　　End With
End Sub

4 hits

▼

【70639】行及び列の集計 おおば 11/12/11(日) 10:52

≪