![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
シートが2枚あって、sheet(1)の内容を変更するとsheet(2)の内容を検索して置換するマクロを作っています。
sheet(1)で変更された文字を検出して(検出は文字色で判断しています。)sheet(2)にある文字を置換した後。文字色を変更しようとしています。
Sheet(2)の文字は例えばこのように並んでいます。
各文字はsheet(1)のA,B列の内容を合せたものやユーザーが任意に入れた文字を含みます。
A1 上側 右側
A2 下側 左側
A3 両側
A1:A3を選択して、A1の「上側」を「上面」に置換した後、文字色変更したいのです。
ユーザーの入力値が含まれるため、書式や文字列のコピペは出来ません。
なお、文字数は一定では有りません。また、この範囲の検索が終了すると次ぎの範囲を選択し同様の処理を行っています。
現在使っているのはマクロの記録を行ったものを使っています。
a="上側"
b = "上面"
Selection.Find(What:=a・・・・・・)
ActiveCell.Replace What:=a, Replacement:=b, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
この中でReplaceFormatで書式設定を行っているのは判るのですが、ここをどの様にするば希望の文字色(例えば赤)にする事が出来るのでしょうか?
また、その方法だとA1セル全ての書式が変わってしまいます。欲を言えば置換後の”上面”だけを変更したいのですがそれは可能でしょうか。
宜しくお願い致します。
No.1ベストアンサー
- 回答日時:
質問がよく分からん
結局、置換後の文字列に色を付けたいだけ?
置換までは出来るんだよね
じゃあ、文字列の色変更のみ
Sub Macro1()
Dim a As String
Dim i As Integer, ii As Integer
b = "上面"
i = InStr([A1], b)
ii = Len(b)
[A1].Characters(Start:=i, Length:=ii).Font.ColorIndex = 3
End Sub
A1 上面 右側
上面の色を赤色にする
アレンジは自分でしてね
分かりにくい説明にもかかわらずご回答頂きありがとうございます。
仰る通り置換後の文字列に色を付けたかったのです。
なるほどLen関数で文字数をカウントしてやる訳ですね。
おかげ様で解決できました。
実はこれ以外にも罫線の引き方で悩んでいましたが、これの方法を使って解決する事が出来ました。
大変ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ファイル名の右側を変更したい ファイル名:「1001日別売上」の左側へ「2022」を追加し、「202 6 2022/10/14 10:03
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Excel(エクセル) マクロだと数式が表示される 2 2022/09/10 14:48
- その他(プログラミング・Web制作) python OpenPyXLを使って出力結果をエクセルに書き込み 2 2022/06/04 19:46
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/15 08:30
- Visual Basic(VBA) EXCEL VBA 単語置き換え について質問です ブック名 ぶぶぶ シート名 ししし セル V3〜 3 2023/03/08 01:41
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Excel(エクセル) Excel 値を返す数式についてです 3 2022/11/21 20:08
- Visual Basic(VBA) 入力ボックスが繰り返しポップアップして止まらない。 下記コードでファイル名の変更をしたいのですが、変 1 2022/09/08 11:27
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル VBA 複数条件一...
-
正規表現で、特定の文字列を含...
-
csvデータ ダブルクォーテ...
-
各項目がダブルクォーテーショ...
-
複数のパワーポイントファイル...
-
ハングルを日本語に置換
-
秀丸で数字だけの行を削除したい
-
C言語でテキストファイルの内容...
-
テキストボックスの文字列を置...
-
cshの文字列置換
-
word オートシェイプ内も一括変換
-
csvデータのダブルクォーテーシ...
-
HPに画像を載せる際
-
秀丸での正規表現(文字の抜き...
-
テキストファイル中の文字列の置換
-
○文字目に文字挿入
-
VBA 置換文字がみつからない時
-
MKエディタやサクラエディタを...
-
VBA 複数の非連続セルのみ指定...
-
PowerShellでテキストの空白行...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
GoogleAppsScript文字列置換の...
-
VBA 置換文字がみつからない時
-
各項目がダブルクォーテーショ...
-
正規表現で、特定の文字列を含...
-
csvデータ ダブルクォーテ...
-
EXCEL警告「置換対象のデータが...
-
EXCEL VBA でCTRL+Fのダイア...
-
C言語でテキストファイルの内容...
-
スペースで区切られた氏名から...
-
csvデータのダブルクォーテーシ...
-
PowerShellでテキストの空白行...
-
\\(円)記号を置換したい
-
C#で空白行を削除する方法
-
【Excel VBA】文字列の置換作業...
-
python 大文字小文字を区別しな...
-
テキストファイル中の文字列の置換
-
Excel VBA 教えてください。 VB...
-
ハングルを日本語に置換
-
ダブルコーテーション 、"を二...
-
○文字目に文字挿入
おすすめ情報