- Excel VBA 質問スレ Part47 [無断転載禁止]©2ch.net
237 ：デフォルトの名無しさん (ﾜｯﾁｮｲ bfd4-eowZ)[sage]：2017/03/21(火) 18:42:39.01 ID:ImIzgaAk0 - 質問です。
常に前面配置したユーザーフォームのテキストエリアに、他ブックも含めて現在選択しているセルの値をリアルタイムで反映させたい。
他ブックは、数千単位であって、全部にマクロをかけない。また、他ブックの名前は統一されていない。
ThisWorkbook に、
Private Sub Workbook_Open()
UserForm1.Show vbModeless
End Sub
Sheet1 に、
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.TextBox1.Text = Cells(ActiveCell.Row, ActiveCell.Column)
End Sub
上記で、開いたブックのシート内なら、リアルタイムで書き込める。でも、このselectionchangeイベントは、そのシート内のセル選択にしか反応してくれない。
また、ユーザーフォームのコマンドボタンに、
Private Sub CommandButton1_Click()
Dim telno As String
telno = ActiveWorkbook.ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column)
UserForm1.TextBox3 = telno
という風に書き込めば、ボタンを押すことで他ブックのセルを選択していても、そのセルの値を書き込める。
ボタンを押さなくても、他ブックのセルを選択することで、リアルタイムに数値を書き込む方法を教えてくだせぇ。
|