|
あと、
シートの特定のセルを ComboBoxと 対応するTextBox から
共通して参照する、という手もあります。
コード的には 非常にシンプルなものになります。
先ほどとは別のユーザーフォームを作ってお試しください。
'----------------------------------------------- UserForm
Option Explicit
Private Sub UserForm_Initialize()
Dim i As Long
Dim j As Long
Dim ss As String
For i = 1 To 5
ss = "Sheet1!AA" & i
With Me("ComboBox" & i)
.List = Split("AAA BBB CCC DDD EEE")
.ControlSource = ss '参照するセル 【要変更】
End With
j = i + 26
Me("TextBox" & j).ControlSource = ss
Next
End Sub
'---------
コードは簡素化されましたが、
この方法は Changeイベントでセルが更新されるのでなく、
AfterUpdateイベントで機能するので、TextBoxの文字が
更新されるのは、ComboBoxで選択をしてどこか他のコントロールに
移動するときです。
これがちょっと、イマイチです。
|
|