Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

45436 / 76735

←次へ　｜　前へ→


	【36292】Re:ファイルを開いた際に以前設定したコンボボックス内の値が変更されてしまう

Kein - 06/3/27(月) 16:30 -


	引用なし

	パスワード

>退避させてはどうか？というアドバイスでしょうか？
そうです。
>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

というようにしてますか ?
>１行目はやはり、値がおかしくなり
具体的にどうなるのか分からないので、原因を推測することも出来ません。
それにしても２行目以下は正常だとすると、ますます ??? ですけどね・・。

0 hits

▼

【36269】ファイルを開いた際に以前設定したコンボボックス内の値が変更されてしまう ともた 06/3/27(月) 12:05