サンプル ダウンロード

[テキストボックスのフォント色・背景色をループ処理で変更]





*テキストボックスのフォント色と背景色をループ処理で一気に変えます。　前提条件として、テキストボックスの名前が 1〜10、または01〜10と連続していることです。名前を規則正しくつけていた方が処理が簡単です。

---

Private Sub CommandButton1_Click()


'-----------------------------------------
'テキストボックスの色をループ処理で変更
'[TextBox1.Text] ---> [TextBox10.Text]
'-----------------------------------------

'1,2,3---> 10

Dim i As Long

For i = 1 To 10


'フォント色
Controls("TextBox" & i).ForeColor = RGB(255, 0, 0)

'背景色
Controls("TextBox" & i).BackColor = RGB(204, 255, 255)


Next i




End Sub

---

Private Sub CommandButton1_Click()

'-----------------------------------------
'テキストボックスの色をループ処理で変更
'[TextBox01.Text] ---> [TextBox10.Text]
'-----------------------------------------

'01,02,03---> 10

Dim i As Long

For i = 1 To 10

'フォント色
Controls("TextBox" & Format(i, "00")).ForeColor = RGB(255, 0, 0)
'背景色
Controls("TextBox" & Format(i, "00")).BackColor = RGB(204, 255, 255)


Next i





End Sub

---