|
知りたいのはVBScriptのプロパティのですが先ず説明します。
エクセルのSheetにA1:A125に文字データを入力し、ComboBox1を配置し
Commndbutton1を配置。
コンボボックスのコード
Private Sub ComboBox1_Change()
ComboBox1.ListFillRange = "A1:A125"
End Sub
コマンドボタンのコード
Private Sub CommandButton1_Click()
Dim i As Integer
With ComboBox1
If i = .ListIndex = -1 Then
MsgBox "リストが選択されてません。"
Else: i = .ListIndex
ActiveSheet.Unprotect
On Error GoTo HandleErr
UserForm1.ScrollBar1.Value = i
UserForm1.Show
HandleErr:
End If
End With
End Sub
上記のコードでComboBox1のリストを選択し、コマンドボタンでSheetの各行に書き込んだデータがフォームで表示されます。
フォームページ作成ソフトでページに上記表を作成し、ComboBox1とCommondbuttonを配置してます。Internet Explorerで表示目的です。
教えて頂きたいのはSheetの場合のListFillRangeプロパティがVBScriptでは同じプロパティが無いので、それに代わるものはないのでしょうか?
|
|