アンケート一覧ページでアンケートを探す
ID非公開

2023/6/26 22:39

11回答

こんなマクロができますでしょうか。教えてください。A列からJ列まである文字（カタカナ）が入っています。 その列（A～J列）ごとに50音での連続性を確認するマクロを教えてください。

こんなマクロができますでしょうか。教えてください。A列からJ列まである文字（カタカナ）が入っています。 その列（A～J列）ごとに50音での連続性を確認するマクロを教えてください。 具体的にはA列からJ列まで確認したいです。列としては1000行ぐらいまで文字が入力されています。 連続性とは例えばカ行（カキクケコ）ですとカとキと列で50音の連続で並んでいる場合、赤文字（太文字）にしてそのセルをオレンジ色塗りつぶしにしたいです。但し、M列の人（名前）が同じであればその範囲での連続性をチェックしたいです。 カとコも連続していると考えます。サ行でいえば、サとシです。サとソも連続していると考えます。 また、連続とは1行目と2行目ということです。1行目と3行目が連続としてもそれはカウントしないです。参考の画像を貼り付けます。 オレンジ色の赤文字（太文字）がやりたい内容です。よろしくお願いいたします。

画像
補足

画像のG列からJ列は該当がないのでオレンジ色、赤文字にはなっていないです。よろしくお願いいたします。

Visual Basic・138閲覧

新機能 AI回答テストを実施中！ テスト対象カテゴリ：歴史・悩み相談 ※回答がつかない場合は、画面のリロードをお試しください

ベストアンサー

hige 082

2023/6/27 0:35

Sub test() Dim r, c, a(), i a = Array("アイウエオ", "カキクケコ", "サシスセソ", _ "タチツテト", "ナニヌネノ", "ハヒフヘホ", "マミムメモ", _ "ヤユヨ", "ラリルレロ", "ワヲン") For c = 1 To 10 For r = 1 To 1000 If Cells(r, 13) = Cells(r + 1, 13) And Cells(r, 13) <> "" Then For i = 0 To 9 If Cells(r, c) <> "" And _ (InStr(a(i), Cells(r, c)) > 0 And InStr(a(i), Cells(r + 1, c)) > 0) Then With Cells(r, c).Resize(2) .Font.Color = vbRed .Font.Bold = True .Interior.Color = rgbOrange Exit For End With End If Next i End If Next r Next c End Sub 追加質問には対応できません

NEW! この回答はいかがでしたか？ リアクションしてみよう

ID非公開

質問者2023/6/27 21:14

ありがとうございました！ほぼ要望通りにいきましたが、 同じ文字も拾ってしまうのと、小さいィもイとして拾ってもらいたです。（青塗りつぶし箇所拾ってもらいたいです） あとはコサのような連続も拾わないようでした。K列、L列が空欄であるからでしょうか？マクロ素人ですが、あとはで自力で修正がんばってみます。 参考に画像を貼り付けてみます。対象でない文字は消してあります。

画像

ThanksImg質問者からのお礼コメント

ありがとうございました！

お礼日時：6/28 7:00