Sample Macro  コントロール・リストボックス (ユーザーフォーム) Previous Next

4-2-1) リストボックスのリストに追加する このページのトップへ もくじへ 使用可能なExcelのバージョン
'=================================================================================
Private Sub UserForm_Initialize()
    For Each 各シート In Worksheets
        ListBox1.AddItem 各シート.Name          '※1
    Next
End Sub
'=================================================================================
<コメント>
※1 この例ではユーザーフォームのリストボックスのリストにブック内の各シート名を追加している
サンプルブックのダウンロードは ここをクリック (YNxv2342_listbox_set.xls 79KB)
※ 一旦、ブックをハードディスクに保存し、開き直してから実行してください。

Excel VBA Macro