| |
>kanabun さん：
早速のご回答ありがとうございました。
>コードのRowSourceは ↑の説明とちがって Sheet3[F10]からの3列のようですが？
ご指摘のとおり、ｆ列からです。すいませんでした。
早速、ご回答いただいたとおりにしてみたのですが、前回と同じエラーが出て実行できませんでした。
どうすればいいのか分かりません。
何度もすいませんが、よろしくお願いいたします。
>▼チロル さん
>'---------------------------------------
>Option Explicit
>
>Private Sub UserForm_initialize()
>
> With bunrui
> .ColumnCount = 3
> .RowSource = Sheet3.Range("F10", _
> Sheet3.Range("H250").End(xlUp)) _
> .Address(, , , True)
> .ColumnHeads = True
> .ListWidth = 500
> .ColumnWidths = "50;300;100"
> End With
>End Sub
>
>Private Sub bunrui_Change()
> With bunrui
> TextBox1.Value = .Column(1)
> TextBox2.Value = .Column(2)
> End With
>End Sub
>
>（Meは不要です）
|
|
チロル
- 13/1/21(月) 10:36 -
