A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
検索のプログラムがうるさいだけで、後はCharacters関数を使うだけ。
コードの最初のWEBの記事は参考までに挙げます。Sub Macro1()
'http://park7.wakwak.com/~efc21/cgi-bin/exqaloung …
Dim fc As Range
Dim fd As Range
Dim frst As String
Dim i
i = 1
Range("A1").Activate
Set fc = Range("A1:F30").Find(What:="1234", LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, MatchByte:=False, SearchFormat:=False)
If fc Is Nothing Then
Else
frst = fc.Address
'MsgBox "第" & i & frst
p = InStr(fc.Value, "1234")
fc.Characters(Start:=p, Length:=4).Font.ColorIndex = 3
i = i + 1
fc.Next.Activate
End If
Do
Set fd = Range("A1:F30").FindNext(After:=ActiveCell)
'MsgBox "第" & i & fd.Address
p = InStr(fd.Value, "1234")
fd.Characters(Start:=p, Length:=4).Font.ColorIndex = 3
i = i + 1
'MsgBox frst
fd.Next.Activate
Loop While fd.Address <> frst
End Sub
("A1:F30"の辺りや1234は修正のこと。
見つからない場合の対処が甘いかも。補充してください。
元の字の色は変えないことをテスト済み。
No.2
- 回答日時:
一旦黒に戻したあと、置換後の文字列をパターンマッチングで切り分けて、赤に設定するのはどうでしょうか。
○、△、×の実際が分かりませんので、下記がそのまま通用するかどうかは分かりませんが。詳細は「VBA 正規表現」で検索してください。複雑な事をしているので、処理時間はそれなりにかかります。
Sub test()
Dim i As Long
Dim targetString As String
Dim startPos As Long, myLength As Long
Dim myCell As Range
Set myCell = Range("A1")
myCell.Font.ColorIndex = 0 '一旦すべて黒に戻す
targetString = searchWord(myCell.Value, "[A-Z]{2}-\d-[A-Z]-\d-")
If targetString = "" Then Exit Sub
startPos = InStr(myCell.Value, targetString)
myCell.Characters(Start:=startPos, Length:=(Len(targetString) + 2)).Font.ColorIndex = 3
End Sub
Private Function searchWord(targetString As String, matchString As String) As String
Dim regEx As Variant, Matches As Variant, match As Variant
Set regEx = CreateObject("VBScript.RegExp")
regEx.MultiLine = False
regEx.Pattern = matchString
regEx.IgnoreCase = False
regEx.Global = False '一個見つかったら終了
Set Matches = regEx.Execute(targetString)
If Matches.Count > 0 Then
searchWord = Matches.Item(0)
Else
searchWord = ""
End If
Set Matches = Nothing
Set regEx = Nothing
End Function
No.1
- 回答日時:
たとえばセルA2の5文字目から4文字を赤にするコードはつぎでできます。
Cells(2, 1).Characters(Start:=5, Length:=4).Font.Color = RGB(255, 0, 0)
対象文字列のセル内での位置を取得して指定変更する
でいかが?
この回答への補足
すいません。マクロについては初心者でして、できればどのようにコードを組み合わせるべきかも教えていただけないでしょうか。
具体的にやりたいことは、
「△△(←黒)AW-2-1-○○(←赤) ××(←黒)」
↓
「△△(←黒)AW-2-S-1-○○(←赤) ××(←黒)」
というように、「S-」を挿入したい場所が「2-」と「1-」の間であることは固定なんですが、△や○や×は文字数も内容もセルによってことなる感じです。フォントの色を変えずに置換をかけるようなマクロはやはり難しいのでしょうか…
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel VBAでAA(BBB) → BBB.AA に置換したい 2 2022/10/30 13:59
- Excel(エクセル) Excelで、半角スペースをTABに変換する 5 2022/10/18 14:18
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/08 09:05
- Visual Basic(VBA) Excel VBA 教えてください。 VBA初心者です。 詳しい方がいましたら教えてください。 下記 3 2023/04/25 11:22
- Excel(エクセル) ExcelのVBAコードについて教えてください。 1 2022/06/20 09:22
- Excel(エクセル) Excelのセル内の特定の文字列を別のセルへ抽出したいです 2 2022/07/06 16:10
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/03/09 14:24
- その他(開発・運用・管理) 【至急】.htaccessによるディレクトリ単位でのリダイレクト 2 2023/08/10 13:46
- Excel(エクセル) excelで可視セルのみ置換 3 2022/08/04 11:02
- Visual Basic(VBA) EXCEL VBA 単語置き換え について質問です ブック名 ぶぶぶ シート名 ししし セル V3〜 3 2023/03/08 01:41
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA 置換文字がみつからない時
-
csvデータ ダブルクォーテ...
-
正規表現でURLを抽出したいと思...
-
スペースで区切られた氏名から...
-
正規表現で、特定の文字列を含...
-
テキストファイル中の文字列の置換
-
GoogleAppsScript文字列置換の...
-
対称群はなぜそう呼ばれるので...
-
python 大文字小文字を区別しな...
-
C言語の質問です、プログラミン...
-
【DreamWeaver】置換後に出てく...
-
C言語でテキストファイルの内容...
-
PowerShellでテキストの空白行...
-
秀丸での正規表現(文字の抜き...
-
\\(円)記号を置換したい
-
ExcelVBA バッチファイル編集
-
TeraPadエディターの操作方法に...
-
Perlで可変長の先読み戻り読み...
-
SQL IIF と REPLACE のやりかた
-
正規表現 URL抽出「 [\\/\\b]{0...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
各項目がダブルクォーテーショ...
-
VBA 置換文字がみつからない時
-
正規表現で、特定の文字列を含...
-
スペースで区切られた氏名から...
-
csvデータのダブルクォーテーシ...
-
csvデータ ダブルクォーテ...
-
GoogleAppsScript文字列置換の...
-
C言語でテキストファイルの内容...
-
正規表現 特定の文字列を含む行...
-
テキストボックスの文字列を置...
-
EXCEL警告「置換対象のデータが...
-
TeraPadエディターの操作方法に...
-
python 大文字小文字を区別しな...
-
xmlファイル内の文字列置換
-
C#で空白行を削除する方法
-
Excel VBA 教えてください。 VB...
-
テキストファイル中の文字列の置換
-
ハングルを日本語に置換
-
EXCEL VBA でCTRL+Fのダイア...
-
PowerShellでテキストの空白行...
おすすめ情報