Excel VBA質問箱 IV

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

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


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

76674 / 76733

←次へ　｜　前へ→


	【4476】集計方法について(案その２)

こう

- 03/3/21(金) 22:32 -


	引用なし

	パスワード

はらへりおおかみさん，りんさんこんにちわ。
>ピボットテーブルを使う方法について教えていただいてありがとうございました。実はIf関数で振り分けることも考えていたのですが、

ベタで拡張性があまりありませんが...
項目から列添え字，成績から行添え字を求めて代入する方式です。

　　For i = 1 To 4 '成績表の最終行としてください
　　　　Select Case Cells(i, 1) '列添え字
　　　　　　Case "国語": wcol = 2
　　　　　　Case "社会": wcol = 3
　　　　　　Case "数学": wcol = 4
　　　　　　'　　　 :
　　　　　　'　　　 :
　　　　End Select
　　　　Select Case Cells(i, 2) '行添え字
　　　　　　Case "A": wrow = 2
　　　　　　Case "B": wrow = 3
　　　　　　Case "C": wrow = 4
　　　　　　'　　　 :
　　　　　　'　　　 :
　　　　End Select
　　　　With Worksheets("集計用シート")
　　　　　　.Cells(wrow, wcol) = .Cells(wrow, wcol) + 1
　　　　End With
　　Next i

2 hits

▼

【4374】集計方法について はらへりおおかみ 03/3/16(日) 22:41