他のブックの複数シートの〇記号の串刺し

質問

エクセルで次のような表のデータが１ヶ月分、31日分あり ます。すなわち31枚のシートに同じ表で中の○× の内容が違うデータがあります。〇×は単純に「まる」「ばつ」と入力して変換したものです。

　 ア イ ウ エ オ
(1) 〇 × × 〇 〇
(2) 〇 × 〇 〇 ×
(3) × 〇 〇 〇 ×
(4) 〇 〇 × × 〇

そして〇をゼロ、×を1と数えて、 31枚のシートの〇と×を集計して他のブックの
同じ表に集計の結果を示したい のです。 例えばこんな感じで他のブックのシート
の同一の表に計算結果を表示したいです。

ア イ ウ エ オ
(1) ７ ４ ５ ０ ０
(2) ８ ５ ０ ２ ２
(3) １ １ ０ １ ０
(4) ０ ０ ４ ６ ８
31枚のシートの〇と×を数値に 変換し、それを串刺し集計した いのです。
countifは串刺し集計 で使えないので
次のようなユーザ定義関数を教えて戴き、同じブックの３２枚目のシートの同じ表に
集計が可能となり誠に教えて戴いた方には感謝する次第では御座いますが、
他のブックの同一の表に集計するには、ユーザ定義関数の記述をどのようにすれば
よろしいでしょうか。宜しくお願い致します。

Public Function CountIfAcross(シート区間先頭セル As Range, シート区間後尾セル As Range, 検索条件 As String)
Dim sRef As String, sRefE As String, c As Range, cnt As Long, i As Long
　　sRef = シート区間先頭セル.Address(0, 0)
　　sRefE = シート区間後尾セル.Address(0, 0)
　　If sRefE <> sRef Then sRef = sRef & ":" & sRefE
　　For i = シート区間先頭セル.Worksheet.Index To シート区間後尾セル.Worksheet.Index
　　　　For Each c In Sheets(i).Range(sRef)
　　　　　　If c.Text Like 検索条件 Then cnt = cnt + 1
　　　　Next
　　Next i
　　CountIfAcross = cnt
End Function

普通のExcel関数のように、
=CountIfAcross(Sheet1!B2,Sheet31!B2,"×")
=CountIfAcross('#1'!B2,'#31'!B2,"×")
等の様に
シート区間先頭セル、シート区間後尾セル、検索条件
を指定してカウントした数を返します。

回答No.3

real beatin（@realbeatin） · ベストアンサー

回答No.1です。
こちらの読み方が間違っていましたね。
> 他のブックを参照するにはどういった記述にすれば
> よろしいでしょうか。
変更は３ヶ所です。
[シート区間先頭セル]に指定したセル範囲 の存在する ブック の シート区間
を集計の対象にします。

Public Function CountIfAcross(シート区間先頭セル As Range, シート区間後尾セル As Range, 検索条件 As String)
Dim sRef As String, sRefE As String, c As Range, cnt As Long, i As Long
　　sRef = シート区間先頭セル.Address(0, 0)
　　sRefE = シート区間後尾セル.Address(0, 0)
　　If sRefE <> sRef Then sRef = sRef & ":" & sRefE
　　With シート区間先頭セル.Worksheet.Parent　'　★追加
　　　　For i = シート区間先頭セル.Worksheet.Index To シート区間後尾セル.Worksheet.Index
　　　　　　For Each c In .Sheets(i).Range(sRef)　'　★１文字追加
　　　　　　　　If c.Text Like 検索条件 Then cnt = cnt + 1
　　　　　　Next
　　　　Next i
　　End With　'　★追加
　　CountIfAcross = cnt
End Function

お礼

私の意図をくみ取って戴き誠に有難う
御座います。
ご回答戴き感激しております。
自分で検証してからお返事をと思い
お礼のコメントが遅れまして
申し訳御座いませんでした。

回答No.2

imogasi

無理してＶＢＡを使わずとも、前問に回答したように思うが、その繰り返しですが
原ブックをコピーして、２ブック用意して
（１）全シート（集計シートを除く）を○を１に、×を０に置換
（２）全シート（集計シートを除く）を○を０に、×を１に置換
この際（１）（２）共に、操作はシートタブの第１とＳＨＩＦＴキーしながら、第３０シートをクリックすることで、全シート（集計シートを除く）選択ができて、１回の置換で３０シート１辺に済むことです。＜＝＝ここが便利なところ
あとは「３Ｄ集計」でＷＥＢ解説ある方法で式を入れれば、そのセル位置の○や×の数が出るはず。
ＶＢＡで第１から第３０シートまでのい１つの番地位置のセルの○と×の数をカウントしても
（総なめ法）で来るが無理しなくても良いのではないか。
＝＝＝
ＶＢＡに興味が出たようだが
参考　ＶＢＡで○の数がＳｈｅｅｔ４、×の数がＳｈｅｅｔ５に出る．
データ範囲はA2:D5のテストデータ
Sub test01()
For Each cl In Worksheets(1).Range("A2:D5")
s1 = 0: s2 = 0
For Each sh In Worksheets
If sh.Name <> "Sheet4" Or sh.Name = "Sheet5" Then
Select Case sh.Cells(cl.Row, cl.Column)
Case "○"
s1 = s1 + 1
Case "×"
s2 = s2 + 1
Case Else
End Select
End If
Next
Worksheets("Sheet4").Cells(cl.Row, cl.Column) = s1
Worksheets("Sheet5").Cells(cl.Row, cl.Column) = s2
Next
End Sub
＝＝
例データ
Ｓｈｅｅｔ１
ー １月 ２月 ３月
東京支店 ○ × ×
名古屋支店 ○ ○ ×
大阪支店　 × ○
Ｓｈｅｅｔ２
- １月 ２月 ３月
東京支店 ○ × ×
名古屋支店 × × ○
大阪支店　 × ○ ○
Ｓｈｅｅｔ３
- １月 ２月 ３月
東京支店 ○ × ○
名古屋支店 × ○
大阪支店　 × ○ ○
＝＝＝
実行結果
Ｓｈｅｅｔ４　Ｂ３：Ｄ５　○のセルごと数
3 0 1
1 2 1
0 3 2
Ｓｈｅｅｔ５　Ｂ３：Ｄ５　×のセルごと数

0 3 2
2 1 1
3 0 0
＝＝
コード行数を少なくすることを第１としてコードを書いたので、見出し部分など省いている。

お礼

imogasiさんの仰られる通り検索置換で出来たので無理せず
ＶＢＡを使う必要はないのですが、ＶＢＡを使うとどうなる
のかなぁと興味がわいてきまして、全くimogasiさんに千里眼
で心を見透かされているような気持になりました。
今回回答戴いて、ＶＢＡを勉強するきっかけになり、
誠に感謝しております。
お返事が遅れまして大変申し訳御座いませんでした。

回答No.1

real beatin（@realbeatin）

こんにちは。

Q『複数のシートの○×記号の串刺し集計』
http://okwave.jp/qa/q9182888.html
コメントを投稿しました。
コメント文を書いている間に新しい質問立てていたのですね。
行き違いがあったようで、失礼しました。

ユーザー定義関数（ＵＤＦ）をアドインブックとして保存して、
Excelメニューからアドイン登録して、Excel再起動、です。
手順を踏めば、どのブックからでもＵＤＦを使えるようになります。

コメント欄に書いた内容
｜　
｜　新しいブック
｜　→標準モジュールを挿入
｜　→ＵＤＦを貼付け
｜　→アドイン（*.xlam,*.xla）ブックとして名前を付けて保存
｜　→保存したアドインブックを閉じる
｜　
｜　→
｜　[Excel][開発][アドイン]保存したアドインを登録
｜　→Excel再起動
｜　
｜　■検索キーワード『excel ユーザー定義関数 アドイン』■

もしわからないところがあったら、とりあえずやってみて、
何処が解らなかったか、補足欄にでも書いてみて下さい。
一応、問題や課題が解決することが目標ですから、
ご自身で解決を確認（検証）し終わるまで、
或いは回答者が後から気が付いたことを伝えたい時もあるので、
少し（１日とか）時間を開けてから締め切るとベターで、
寧ろ好感を持って回答者からも受け入れられ易いと私は思いますです。

とりあえず以上です。

お礼

アドインの仕方を教えて戴き誠に有難う御座います。
実際に出来るとなんだか自信がつきます。
今回realbeatinさん方々のお陰でVBAを勉強して
みようというきっかけになりました。
本当に有難う御座います。