Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


16 / 13274 ツリー ←次へ | 前へ→

【80678】セル内の特定文字列から特定文字列のフォント変更について 台所 19/4/3(水) 14:17 質問[未読]
【80679】Re:セル内の特定文字列から特定文字列のフ... よろずや 19/4/3(水) 17:09 回答[未読]
【80685】Re:セル内の特定文字列から特定文字列のフ... 台所 19/4/4(木) 15:02 お礼[未読]

【80678】セル内の特定文字列から特定文字列のフォ...
質問  台所  - 19/4/3(水) 14:17 -

引用なし
パスワード
   【質問】
1つのセル内の特定文字列から特定文字列の直前までのフォント変更するExcel VBAコードがわかりません。


【例】
・「あああ」から「いいい」の上の行までを赤色にする
・「いいい」から「ううう」の上の行までを青色にする
・「ううう」以降を緑色にする

--A1セルここから--
あああ
25615615231

いいい
11156315619198
519615123455
516156131848132

ううう
156165121231

--A1セルここまで--


よろしくお願いいたします。

【80679】Re:セル内の特定文字列から特定文字列の...
回答  よろずや  - 19/4/3(水) 17:09 -

引用なし
パスワード
   こんな感じ。

Option Explicit
Sub Macro1()
Dim pos1 As Long
Dim pos2 As Long
Dim pos3 As Long
Dim pos4 As Long
  With Range("A1")
    pos1 = InStr(1, .Value, "あああ")
    pos2 = InStr(pos1, .Value, "いいい")
    pos3 = InStr(pos2, .Value, "ううう")
    pos4 = Len(.Value) + 1
    .Characters(Start:=pos1, Length:=pos2 - pos1).Font.Color = vbRed
    .Characters(Start:=pos2, Length:=pos3 - pos2).Font.Color = vbBlue
    .Characters(Start:=pos3, Length:=pos4 - pos3).Font.Color = vbGreen
  End With
End Sub

【80685】Re:セル内の特定文字列から特定文字列の...
お礼  台所  - 19/4/4(木) 15:02 -

引用なし
パスワード
   >>よろずやさん

ご回答ありがとうございます。(返信遅れすみません;

いただいた内容を組み込みまして理想通りにいきました!
大変助かりました、効率化できそうです。

16 / 13274 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free