| |
一つのセル内に改行されて文字列が多数入力されています。
「未入荷」の場合は入出庫Noを赤に。
「入荷」の場合は入出庫Noを青にしたいと考えています。
状況 入出庫Ｎｏ 名前
==================================
入荷 Ａ１１１１１１ ああああああ
未入荷 Ａ１１１１１２ いいいいい
入荷 Ａ１１１１１３ うううううううう
完了 Ｂ１１１１１１ ええええええ
ｷｬﾝｾﾙ Ｂ１１１１１２ おおお
出荷 Ｂ１１１１１３ かかかかか
未入荷 Ｃ１１１１１１ きききき
↑の場合
Ａ１１１１１２とＣ１１１１１１が「赤」
Ａ１１１１１１とＡ１１１１１３が「青」です。
これが一つのセル内に入っており、名前の最後に必ず改行が入ります。
「未入荷」の場合は下記マクロにて作成できたのですが、「入荷」の場合のでつまづいています。お知恵をお貸し頂けたらと思います。
chStr = "未"
Set myR = Cells(2, 11)
myStr = myR.Value
cutLen = 0
Do
If Not InStr(myStr, chStr) > 0 Then Exit Do
SrtPos = InStr(myStr, chStr)
myR.Characters(Start:=SrtPos + 4 + cutLen,Length:=7).Font.ColorIndex = 3
cutLen = cutLen + SrtPos + 13
myStr = Mid(myStr, SrtPos + Len(chStr) + 13)
Loop
|
|
Characters
- 11/12/15(木) 16:09 -
