2011-07-28 3 views
4

Excel에서 내 첫 모델 성 UserForm을 생성하고 ActiveX 레이블을 붙였습니다. Sheet1.Range("A1")에있는 내용을 표시하도록 레이블의 캡션을 설정하고 셀 A1의 값이 변경되면 자체를 업데이트합니까?Excel 사용자 정의 폼에서 레이블의 캡션을 어떻게 업데이트합니까?

기본적으로 Userform's 레이블을 Excel 셀 변경시 두 번째 항목으로 항상 업데이트하고 싶습니다. 고맙습니다!

답변

4
Private Sub Worksheet_Change(ByVal Target As Range) 
    If Intersect(Cells(1, 1), Target) Is Nothing Then 
     Exit Sub 
    End If 
    UserForm1.Label1.Caption = Sheet1.Range("A1").Value 
End Sub 

하위 Change은 셀이 변경 될 때마다 호출됩니다. 코드에서이 작업을 수행합니다. A1이 변경된 경우 Label1 캡션을 UserForm1으로 변경하십시오. 양식이 모달이 아니어야합니다 (vbModeless).

UserForm1.Show vbModeless 
+0

놀랍게도 빠른 응답에 감사드립니다. 이것은 나를 위해 일했다. – phan

1

이것은 저에게 도움이되었습니다.

Sheets("Sheet").Shapes("TheNameOfTheLabel").TextFrame.Characters.Text = "Hello" 
관련 문제