excel - Excelユーザーフォームで、ラベルのキャプションを更新するにはどうすればよいですか？

Question

最初のモードレスUserFormをExcelで作成し、ActiveXラベルを付けました。Sheet1.Range("A1")ラベルのキャプションを設定して、にあるものをすべて表示し、セルA1の値が変更されると自動的に更新されるようにするにはどうすればよいですか？

基本的にUserform's、Excelセルの2番目にラベルが変更されるたびにラベルを更新する必要があります。ありがとうございました！

Answer 1

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が呼び出されます。コードはこれを行います。変更された場合は、 onA1のキャプションを変更します。フォームはモーダルではなく開かれている必要があります（）。Label1UserForm1vbModeless

UserForm1.Show vbModeless

Answer 2

これは私のために働いた。

Sheets("Sheet").Shapes("TheNameOfTheLabel").TextFrame.Characters.Text = "Hello"