ListBoxへの表示 及び Labelの文字色変更について

質問

こんばんわ。いつもお世話になっています。
下記質問事項についてよろしくお願い致します。

１．ListBoxへの表示
ListBoxへ、セルA列に入力している文字を表示させたい。
しかし、A列には追加があるので、決まったRangeではない。

２．Labelの文字色変更
Range("a1")の文字色書式が赤なら、UserFormに貼り付けているLabelの文字色も
赤にしたい。また、CommandButtonの表示色も同じく変えたい。

よろしくお願いいたします。

回答No.1

onlyrom · ベストアンサー

Label,CommdButtonの数が提示されてないので、それぞれ１個と仮定。
また対象になるシートは、Sheet1とする。

'-------------------------------------------
Private Sub UserForm_Initialize()

　Dim myColor As Long
　Dim LastRow As Long

　LastRow = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row
　ListBox1.RowSource = "Sheet1!A1:A" & LastRow

　myColor = Sheets("Sheet1").Range("A1").Font.Color
　Label1.ForeColor = myColor
　CommandButton1.ForeColor = myColor

End Sub
'----------------------------------------

LabelやCommandButtonが複数ある場合は
For～Nextでくるくるまわしてやればいいでしょう。
以上。