|
▼フェンリル さん:
こんにちは。
>コンボボックスの1行目(通常、空白になっている行)に見出しを付け、
>その行を選択できないように制御したいと思います。
>Load時に初期値として表示しても、他の行を選択すると消えてしまうので、
>消えないようにしたいのですが、どうすればよいでしょうか?
新規ブックで確認してください。
新規ブックでの準備
ユーザーフォーム Userform1 (既定の名前)
コンボボックス Combobox1
つまり、ユーザーフォームにはコンボボックスひとつを配置してください。
上記のユーザーフォームのモジュールに
'=====================================================
Option Explicit
Private Sub UserForm_Initialize()
Dim add As String
With Worksheets("sheet1").Range("a1:a5")
.Value = _
Application.Transpose(Array("方角", "東", "西", "南", "北"))
add = .Range("a2:a5").Address(, , , True)
End With
With ComboBox1
.ColumnHeads = True
.RowSource = add
End With
End Sub
標準モジュールに
'==============================================
sub main()
userform1.show
end sub
として、mainを実行してコンボボックスを操作してみてください。
|
|