エクセル VBA セル内の文字検索について

質問

ある列にある（　）の中の文字を切り取り、隣のセルに貼り付け、そのセルの色を変える方法を教えてください。検索範囲はそのファイル全てです。
よろしくお願いします。

回答No.4

hige_082

＞ある列にある（　）の中の文字を切り取り、隣のセルに貼り付け、そのセルの色を変える方法を教えてください。
ある列：A列
（　）：指定が無いので半角括弧のみ
隣のセル：B列
セルの色：赤色
と、質問者さんが指定すべきとは思いますが無いので勝手に決めました

Sub test()
Dim i As Long
Dim ws As Integer
For ws = 1 To Worksheets.Count
With Worksheets(ws)
For i = 1 To .Range("a65536").End(xlUp).Row
If InStr(.Cells(i, 1).Value, "(") > 0 And InStr(.Cells(i, 1).Value, ")") > 0 Then
.Cells(i, 2).Value = Mid(.Cells(i, 1).Value, InStr(.Cells(i, 1).Value, "(") + 1, InStr(.Cells(i, 1).Value, ")") - InStr(.Cells(i, 1).Value, "(") - 1)
.Cells(i, 2).Interior.ColorIndex = 3
End If
Next i
End With
Next ws
End Sub

VBAでの質問なので基本は分っていると思うので解説はなし

回答No.3

mitarashi

他の皆さんのご回答が分かりやすくて速いと思いますが、昔作ったのがあったので引っ張り出してきました。
ユーザー定義関数として使用する場合、
A1に、abc(def)ghi(jkl)mnという文字列があるとき、
B1に、=searchWord(A1,"[\(（](.*?)[\)）]")という式を入れると、defを返します。全角の括弧にも対応しているつもりです。VBAでループを回して処理するのはご自分でお願いします。興味を持たれたら、正規表現 VBAで検索してみてください。
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 = True
regEx.Global = False
Set Matches = regEx.Execute(targetString)
If Matches.Count > 0 Then
searchWord = Matches(0).subMatches.Item(0)
Else
searchWord = ""
End If
Set Matches = Nothing
Set regEx = Nothing
End Function

回答No.2

hallo-2007

一般機能で説明すると
A列を、B列にコピィ、貼り付け
置換え　検索する文字列　*(
置換え後の文字列　空白のまま　OK
同様にもう一度
検索する文字列　)*
置換え後の文字列　空白のまま　OK
VBAというのであれば、上記の操作を、マクロの記録で得られます。
すべてのシートで実行するのであれば
For　i=1 to Sheets.Count
・・・
Next
で繰り返してみてください。

回答No.1

imogasi

まず必要なコード作成技術要素を切り分けること。
何処が自分には出来ないか認識が肝心。みんなわからないー＞
ＶＢＡでやるのが早すぎる。
（１）－（２）など頻繁にＶＢＡで現れる常識的タイプ。
（１）ブックの全てのシートを対称にするコード（＜＝ファイル全てです、ーー＞あいまいな表現？）
Sub test03()
For Each sh In Worksheets
MsgBox sh.Name
Next
End Sub
これを実行してみて、納得のこと。
（２）ある列の各セルを捉える
Sub test04()
d = Range("A65536").End(xlUp).Row
MsgBox d
For i = 2 To d
MsgBox Cells(i, "A")
Next i
End Sub
を実行して納得のこと。
（３）（）の中の文字を捉える
Ｉｎｓｔｒ関数で（と）の文字位置を捉える。
Sub test05()
d = Range("A65536").End(xlUp).Row
For i = 2 To d
x = Cells(i, "A")
p1 = InStr(x, "(")
p2 = InStr(x, ")")
If p1 = 0 Or p2 = 0 Then
Cells(i, "B") = "( ) NotFound"
Else
y = Mid(x, p1 + 1, p2 - p1 - 1)
Cells(i, "B") = y
End If
Next i
End Sub
ーー
＞そのセルの色を変える方法を
詳細が質問では不明。条件付き書式みたいなことを考えているのか、どうか？。
単純にはマクロの記録を採れば仕舞い。