|
>退避させてはどうか?というアドバイスでしょうか?
そうです。
>Workbook_Openイベントにて、IT1:IV5エリアに退避した値を
>コンボボックス内へセットすることは出来ました
あ、それならイベントの種類はそれでいいとして、コードはどうしてますか ?
例えば
Private Sub Workbook_Open()
Dim MyV As Variant
Dim Obj As OLEObject
With Worksheets("Sheet1")
.Activate
If Not IsEmpty(.Range("IV5").Value) Then
MyV = .Range("IT1:IV").Value
For Each Obj In .OLEObjects
If Left$(Obj.Name, 3) = "Com" Then
Obj.Object.List = CbV
End If
Next
End If
End With
End Sub
というようにしてますか ?
>1行目はやはり、値がおかしくなり
具体的にどうなるのか分からないので、原因を推測することも出来ません。
それにしても2行目以下は正常だとすると、ますます ??? ですけどね・・。
|
|