Excelで初めてのモデルをUserFormに作成し、ActiveXラベルを貼り付けました。 Sheet1.Range("A1")に何が表示されるようにラベルのキャプションを設定し、セルA1の値が変更されたときに自分自身を更新するにはどうすればよいですか？Excelのユーザーフォームで、ラベルのキャプションを更新するにはどうすればよいですか？
基本的には、Userform'sラベルは、Excelセルの変更で2番目のものが常に更新されるようにします。ありがとうございました！
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のキャプションを変更します。フォームはモーダルではない（vbModeless）開いている必要があります。
UserForm1.Show vbModeless
これは私のために働いたものです。
Sheets("Sheet").Shapes("TheNameOfTheLabel").TextFrame.Characters.Text = "Hello"
こんにちは、cularis、驚くほど高速応答のおかげで！これは私のために働いた。 – phan