[[20220105134420]]　『『Ｅｘｃｅｌのマクロを使用して条件に合ったデー』（JIN）　ページの最後に飛ぶ

『『Ｅｘｃｅｌのマクロを使用して条件に合ったデータを取り出したい』2』（JIN）

以前に別の板で質問をしたのですが、少し自分の説明が良くなかったのでできなかったので再度質問です。
https://www.excel.studio-kazu.jp/kw/20211227133517.html

回答して下さった方が二人いまして。
配列数式の方は問題なかったのですが。

マクロで行う方で
元々の質問が
「〇」「●」「◎」「△」「▽」「▲」「▼」「□」「■」「◇」「◆」「☆」「★」などの場合にフラグを付けて欲しいと要望しました。

しかし、実際には上記を含むという風にしたかったので
◎＝山田
〇＝鈴木
□＝樋田
▽＝下さい
■＝納期
◆＝出荷日
★＝迄
☆＝要
◇＝まで

で文章の中に上記を含む場合のアクションを設定したかったので…

そして、ピンクさんが作成して下さったマクロでは、
記号を人の名前や言葉に直して行った際に全て「0」でフラグ付けされてしまいました。

Sub ピンクさん作成マクロ()

    Dim c As Range, ary As Variant
    For Each c In Range("A1", Cells(Rows.Count, "A").End(xlUp))
        c.Offset(, 1).Value = 0
        For Each ary In Array("〇", "●", "◎", "△", "▽", "▲", "▼", "■", "◇", "◆", "☆", "★")
            If InStr(c.Value, "□") > 0 And InStr(c.Value, ary) > 0 Then
                c.Offset(, 1).Value = 1
                Exit For
            End If
        Next
    Next
 End Sub

上記を下記に変更しました。

Sub TesFDt()

    Dim c As Range, ary As Variant
    For Each c In Range("A1", Cells(Rows.Count, "A").End(xlUp))
        c.Offset(, 1).Value = 0
        For Each ary In Array("下さい", "納期", "出荷日", "迄", "要", "まで", "返信", "平井", "吉村", "萩原", "崇本", "山田", "鈴木", "樋田")
            If InStr(c.Value, "明記") > 0 And InStr(c.Value, ary) > 0 Then
                c.Offset(, 1).Value = 1
                Exit For
            End If
        Next
    Next
End Sub

その際Ａ列には
送り状山田までください。
納期連絡、樋田迄下さい
納期連絡崇本まで
納期／送り状返信願います
納期返信願います
又、検索にヒットしない、ブランクや上記検索と関係ない文もあります。
上記の様な文字があります。

＜使用 Excel：unknown、使用 OS：unknown ＞

明記が無いからです。

（tkit） 2022/01/05(水) 14:26

送り状山田までください。についても

        For Each ary In Array("下さい", "納期", "出荷日", "迄", "要", "まで", "返信", "平井", "吉村", "萩原", "崇本", "山田", "鈴木", "樋田")
ここで山田を入れていますが、ヒットしません。
（JIN） 2022/01/05(水) 14:54

すみません、私のそもそもの質問の仕方が間違えていたようです。

（JIN） 2022/01/05(水) 15:17

コメント返信：

[ 一覧(最新更新順) ]

[[20220105134420]] 『『Ｅｘｃｅｌのマクロを使用して条件に合ったデー』（JIN） ページの最後に飛ぶ

[[20220105134420]]　『『Ｅｘｃｅｌのマクロを使用して条件に合ったデー』（JIN）　ページの最後に飛ぶ