エクセルのVBA

>　( [ ] ) は出現する。 この場合、"(" と ")" には色を付けないようにしています。 （あ[い]う）は考慮していません。無しですよね。 実行前は、全て黒色であるか、または規定の色とします。 一旦着けた色は、括弧内以外は元に戻しません。 こんなのでどうでしょうか。　あとは適当にいじってください。 Sub Strcoloring() Dim Tb As TextBox Dim N As Integer Dim Coi As Variant Dim CMode As Boolean Coi = xlAutomatic On Error Resume Next For N = 1 To 200 　　Set Tb = ActiveSheet.TextBoxes("Text Box " & CStr(N)) 　　If Err.Number <> 0 Then GoTo err_noobj 　　　　If StrConv(Left(Trim(Tb.Text), 1), vbNarrow) = "(" Then 　　　　　　CMode = True 　　　　　　Coi = 3 　　　　　　If StrConv(Left(Trim(ActiveSheet.TextBoxes("Text Box " & _ 　　　　　　　　CStr(N) + 1).Text), 1), vbNarrow) <> "[" Then 　　　　　　　　Tb.Font.ColorIndex = Coi 　　　　　　Else 　　　　　　　　Tb.Font.ColorIndex = xlAutomatic 　　　　　　End If 　　　　ElseIf StrConv(Left(Trim(Tb.Text), 1), vbNarrow) = ")" Then 　　　　　　Tb.Font.ColorIndex = Coi 　　　　　　CMode = False 　　　　　　Coi = xlAutomatic 　　　　ElseIf StrConv(Left(Trim(Tb.Text), 1), vbNarrow) = "[" Then 　　　　　　Coi = 5 　　　　　　Tb.Font.ColorIndex = Coi 　　　　　　CMode = True 　　　　ElseIf StrConv(Left(Trim(Tb.Text), 1), vbNarrow) = "]" Then 　　　　　　Tb.Font.ColorIndex = Coi 　　　　　　CMode = False 　　　　　　Coi = xlAutomatic 　　　　Else 　　　　　　If CMode = True Then 　　　　　　　　Tb.Font.ColorIndex = Coi 　　　　　　End If 　　　　End If err_noobj: Err.Number = 0 Next N Set Tb = Nothing End Sub

> ようするに、文字を並べて絵を作っているという感じです。 なるほどね。 ちょっと、シツコイと言われそうですが、それだったらセルを使っても出来ると 思います。 ただ、テキストボックスのように個々の配置が、バラバラには出来ませんが・・・ 規則正しく並んでいるときは、セルでもいいと思いますが、どうなんでしょう。

> (テキストボックスの数は実際は1000を超えています) しかし、追加質問を考える前に、テキストボックスをこんなに大量に使って、 こんなことするより方法がないのかと、ちょっと考えてしまいますね。 セルをVBAで操作するのはダメなんですかね。 用途が解らないから、ちょっと疑問でぇ～す。

Tb.Font.ColorIndex = xlAutomatic　の行は、２つありますが、 まず、最初の方が無いと・・・ 今、(abc)de があって、実行結果"(abc)" が、赤になったとします。 今度は　( を "x"等に変更して実行すると、"xabc" までは黒に戻りますが、 残った ) が 赤のままになると思います。 2つ目も同じようにテキストボックスの内容を変更したときに対応させるため には、必要なのです。 そうでないと一旦、括弧の中で赤になったものをデータを変更して括弧の外へ 出たときに、黒に戻らないのです。 まぁ、その辺の機能が不要であれば、削除してもいいのですが、動作は同じでは ありません。 今の所、気が付かないだけと思います。 一応、あらゆる事態を想定しましたので・・・気の使い過ぎ？？

koala3さん、ja7awuさん補足ありがとうございました。 そんな所にもテキストボックスが・・・ というより私もそちらの方を普段使っていました。 ＶＢＡでという事で、コントロール ツールボックスしか 頭にありませんでした。 おかげで何故？とおもっていた事が分かりすっきりしました。 質問者の質問ではないのに補足頂きありがとうございました。

taisuke555 さんへ 原因は、コントロール ツールボックスのテキストボックスを使用した からですね。 200個もあるのですから、普通は操作性(配置等ほとんど)が悪いので使わない と思いますよ。 オートシェーブを使うのが一般的かと・・・? ツールボックスのテキストボックスにすれば、そのコードで、間違いなく 動作しています。 koala3 さんへ 追加質問、ちょっと待っててね。

＃２です。 やっぱり、できませんでしたか。（私のではこれで動くのですが・・・） 私の方では、＃１さんのコードが実行できなかったので、 もしかしたらとは思いましたが・・・ 私の環境は、Windows98 Excel2000 コントロール ツールボックスのテキストボックスを使用しています。 koala3さんはどうですか？ （＃１さんの回答でできたみたいなので、私のは無視して頂いていいのですが、 　できたら今後の為に教えてください。） ja7awuさん、もし何か知っていたら教えてください。 とにかく、間違えたコードを載せてしまい、申し訳ありません。

No.1 ですが・・・　ちょっと書き漏らしで～す。 各テキストボックスが１文字ということで、小さいのでリターンコードが 入っていても気が付かないことがあると思いますので、括弧閉じ ")" を検出 する11行目も "(" と同様に先頭の１文字を検出するように下記のようにした方が、 いいと思いますので修正してください。 実際やってみると結構「リターンコード」が入っていますね。 11行目の修正 ElseIf StrConv(Trim(Tb.Text), vbNarrow) = ")" Then 　　　　↓ ElseIf StrConv(Left(Trim(Tb.Text), 1), vbNarrow) = ")" Then あと、テキストボックスの番号に欠番があっても無視する場合は、次のコードを 使ってください。 Sub Strcoloring() Dim Tb As TextBox Dim N As Integer Dim CMode As Boolean On Error Resume Next For N = 1 To 200 　　Set Tb = ActiveSheet.TextBoxes("Text Box " & CStr(N)) 　　If Err.Number <> 0 Then GoTo err_noobj 　　　　If StrConv(Left(Trim(Tb.Text), 1), vbNarrow) = "(" Then 　　　　　　CMode = True 　　　　　　Tb.Font.ColorIndex = 3 　　　　ElseIf StrConv(Left(Trim(Tb.Text), 1), vbNarrow) = ")" Then 　　　　　　If CMode = True Then 　　　　　　　　Tb.Font.ColorIndex = 3 　　　　　　　　CMode = False 　　　　　　Else 　　　　　　　　Tb.Font.ColorIndex = xlAutomatic 　　　　　　End If 　　　　Else 　　　　　　If CMode = True Then 　　　　　　　　Tb.Font.ColorIndex = 3 　　　　　　Else 　　　　　　　　Tb.Font.ColorIndex = xlAutomatic 　　　　　　End If 　　　　End If err_noobj: Err.Number = 0 Next N Set Tb = Nothing End Sub

＃１の方と似たような感じですが 私とは、設定するプロパティが違っていたので 一応、私も記載しておきます。 同じでも芸が無いので、テキストボックスが無くても 続行できるようにしてみました。(EXCEL2000) Sub test() 　　Dim Tx As Object 　　Dim wColor As Long 　　Dim i As Integer 　　On Error GoTo wErr 　　'初期値は黒 　　wColor = &H0 　　For i = 1 To 200 　　　　Set Tx = ActiveSheet.OLEObjects("TextBox" & CStr(i)).Object 　　　　If (Not Tx Is Nothing) Then 　　　　　　'（ならば赤色をセット 　　　　　　If (StrConv(Tx.Value, vbNarrow) = "(") Then 　　　　　　　　wColor = &HFF 　　　　　　End If 　　　　　　'テキストボックスのForeColorを変更する 　　　　　　Tx.ForeColor = wColor 　　　　　　'）ならば黒色をセット 　　　　　　If (StrConv(Tx.Value, vbNarrow) = ")") Then 　　　　　　　　wColor = &H0 　　　　　　End If 　　　　End If 　　Next i 　　Set Tx = Nothing 　　Exit Sub wErr: 　　If (MsgBox("TextBox" & CStr(i) & "が見つかりません" & Chr(13) & "作業を続けますか？", vbYesNo) = vbYes) Then 　　　　Resume Next 　　End If End Sub １文字という事でしたのでその部分処理していませんが、 必要ならば追加してください。