ExcelVBAで表作り

Question

観覧いただきありがとうござます。
現在仕事で一覧シートを基にチェックシートを作成しようかとしているのですがその時のマクロで不明点があるため質問いたします。(自宅のPCにはExcelが入っていないためスプレットシートですが空気感だけでも感じていただければと思います。)

↓作成したいチェックシートのイメージ↓
![
↓表作成の素材↓
![

以下現在のコード（一部抜粋

'sheetをセット
Dim ws1,ws2 As Worksheet
Set ws1 = sheets("一覧")
Set ws2 = sheets("check")

'変化する数字をセット
Dim c As Long
c = 4
'一覧のB4から下へ空白までループ
Do While ws1.Cells(c,2).Value<>""
’一覧から２つの単語を含むセルを探し〇×表へ反映
If Instr(ws1.Cells(c,4).Value"app") And InStr(ws1.Cells(c,4).Value"102")<>0 Then
  '条件を満たせばchecksheetのB5へ〇満たせないなら×を
  ws2.Cells(5,2).Value = "〇"
  Exit Do
 Else
  ws2.Cells(5,2).Value = "×"
End If
c = c+1
Loop

これをapp等(一覧画像のA5から下)の13種、102等(一覧画像のB4から右)の30種ありすべてを上記のようにベタ打ち力技で作りました。
しかしこれでは何かある度に膨大な量の修正＆見逃しがないか何重もの確認を強いられどうにか簡単にできないか悩んでおります。
現在やってみたのは
[If Instr(ws1.Cells(c,4).Value"app") And InStr(ws1.Cells(c,4).Value"102")<>0 Then]
このコードを
[If Instr(ws1.Cells(c,4).Value"ws2.Cells(5,1)") And InStr(ws1.Cells(c,4).Value"ws2.Cells(4,2)")<>0 Then]
こんな感じで表から引用して済む様な仕組みにしたいと考え動いてみたのですがセル番地の指定、中の取り出し、１巡したら1つずらしてLoop。これをどう表現したらいいのかわからず困っています。
どうか参考になるサイトや考え方のこ教授お願いいたします。

Comments

[hatena19]

> コードと添付画像の結果に矛盾がありますが気にせずお願いします。
構文エラーで動作しないコード、かつ、矛盾した添付画像からでは、
気にせずにと言われても、回答しようかないかと。
あと、比較元は必ず101から始まるのですか。
比較対象も先頭3桁は必ず数字なのでしょうか。またC列はすべてTrueなんですか。True/Falseがある場合は、結果表に影響するのですか。

[JUN_FOX]

修正しました。
＞あと、比較元は必ず101から始まるのですか。
比較元は101のみですがこの101が変わる可能性があります。
＞比較対象も先頭3桁は必ず数字なのでしょうか。またC列はすべてTrueなんですか。
比較対象も変わる可能性があり、必ず数字や特定文字数等の決まりがない状況です。
C列はTrueのみです。Falseは別シートで管理しています。

[mattuwan]

質問は、リスト形式の表をクロス集計表形式にして出力したい、
という質問ですか？
あと、クロス集計表の表側、及び表頭の項目はすでにあるのですか？
それともそれを含めてマクロで自動作成のイメージでしょうか？

[JUN_FOX]

クロス集計表という単語を初めて聞きまして調べてみましたがそういうことになりますね。
表側、表頭は変更する可能性がありますが一応あります。

[hatena19]

まだ提示のコードの構文エラーが修正されていません。
あと、「比較対象」の列のデータのみが検索対象ですか。他の列のデータは無視してよいですか。
あと、チェック表の「横見出し」と「横見出し」を連結したものを検索すればいいのですか。
つまりB5セルなら、「102app」を検索すればいいのか、それとも 102 と app を含むもの例えば「xx102xxappxx」というようなデータも存在する可能性があり検索対象にするのですか。

[tatsu99]

もし、一覧シートのA5が101appでなく101APXだとしたら、
チェックシートのC5は何がセットされるべきなのでしょうか？
○、×のどちらでしょうか。（それとも△）

[JUN_FOX]

一覧に該当のものがあれば○、なければ×の選択肢は2つなので101.appで検索かけることになるのてc5は×になりますね

[tatsu99]

＞＞あと、比較元は必ず101から始まるのですか。
＞比較元は101のみですがこの101が変わる可能性があります。
ということですが、101が変わった場合は、（例えば201になったら）、201.appで検索をかけるのでしょうか。つまり、マクロの修正をおこなうということでしょうか。

[tatsu99]

もし、一覧シートのB5が103appでなく102appだった場合は、前の行にも102appがあることになります。
この場合、チェックシートのC5（103の欄）は当然×ですが、B5（102の欄）は○で良いのでしょうか。

Answer 1

＞表側、表頭は変更する可能性がありますが一応あります。

そこを最初に決める必要があると思います。
クロス集計表の記入欄を巡回し、
該当の物を一覧からシート上のMatch関数で検索してみました。

ステップイン等で研究してみてください。

Sub test()
    Dim rngFind As Range
    Dim rngTableBody As Range
    Dim c As Range
    Dim sKeyWord As String

    '各セル範囲の取得
    Set rngFind = Worksheets("一覧").Range("A4").CurrentRegion.Columns(2)
    With Worksheets("チェック").Range("A4").CurrentRegion
        Set rngTableBody = Intersect(.Cells, .Offset(1, 1))
    End With

    '書き込み位置を巡回して
    With rngTableBody
        For Each c In .Cells
            '該当文字を
            sKeyWord = Intersect(c.EntireColumn, .Rows(0)).Value & _
                       Intersect(c.EntireRow, .Columns(0)).Value
            'リストから検索して転記
            c.Value = IIf(CBool(rngFind _
                                .Cells(WorksheetFunction.Match(sKeyWord, rngFind, 10)) _
                                .Offset(, 1).Value), "○", "×")
        Next
    End With
End Sub

参考サイト＞＞
プロパティ、メソッドの探り方 マクロ記録とＦ１のHelpを使う

あぁ、ここまで書いて気づいた＾＾；
普通に数式を入れたら十分な案件ですね＾＾；；

True,Falseが文字列でなく、論理値ならば、セルの書式設定で〇×の表示をさせてもいいかもですね。