如圖,48個色碼 個別自放在不同Label裡,滑鼠移至Label上時,TextBox1就會變色
用 OptionButton 控制文字及底色 ,Label1 如下
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If UserForm1.OptionButton1 = True Then
UserForm1.TextBox1.BackColor = Sheets("sheet2").Range("a" & 1).Value
Else
UserForm1.TextBox1.ForeColor = Sheets("sheet2").Range("a" & 1).Value
End If
End Sub
請教各位先拜 如何一次設定48個Label呢, 謝謝指教 |
發表於 2013-5-24 14:11
| 
