Excelのドロップダウンボックスで複数選択を設定する方法

Excel ドロップダウン ボックスで複数選択を設定する方法

1.「開発ツール」タブを表示します。 。 Excel 2010を開き、左上隅にある「ファイル」アイコンをクリックします。 「オプション」をクリックすると「Excelのオプション」ダイアログボックスが表示されるので、「リボンのカスタマイズ」の「開発ツール」にチェックを入れて「OK」をクリックします。

推奨: 「excel チュートリアル 」

# 2. ドロップのオプション内容を設定します。 -ダウンリスト。ワークシートsheet2の名前を「data」に変更し、列Aにドロップダウン オプションを入力します。

3. ListBox コントロールを挿入します。

1) ワークシートsheet1のA列を選択し、「開発ツール」タブをクリックし、「挿入」で「リストボックス」を選択し、A列に配置します。

2) リスト ボックス コントロールを選択し、[デザイン モード] をクリックし、デザイン モードで [プロパティ] をクリックすると、ListBox プロパティ ボックスが表示され、[カテゴリ順] を選択します。 MultiSelect 項目を「1 - fmMultiSelectMulti」に変更し、ListStyle 項目を「1 - fmListStyleOption」に変更し、ListFillRange 項目を選択したメニュー オプションが存在するテーブル名とセル範囲に設定します。特定の形式は「data!A1」です。 ：A8」。

4. コードを挿入します。 Excel の開発ツールの「Visual Basic」をクリックして VB エディタを開きます VB エディタの Sheet1 をダブルクリックして Sheet1 のエディタを開きます 以下のコードをエディタに貼り付けて保存します

シート 1 のコードを保存します:

Private Sub ListBox1_Change()
    If ReLoad Then Exit Sub '见下方说明
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then t = t & "," & ListBox1.List(i)
    Next
    ActiveCell = Mid(t, 2)
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With ListBox1
        If ActiveCell.Column = 1 And ActiveCell.Row > 1 Then
            t = 
ActiveCell.Value
            ReLoad = True '如果是根据单元格的值修改列表框，则暂时屏蔽listbox的change事件。
            For i = 0 To .ListCount - 1 '根据活动单元格内容修改列表框中被选中的内容
                If InStr(t, .List(i)) Then
                    .Selected(i) = True
                    Else
                    .Selected(i) = False
                End If
            Next
            ReLoad = False
            .Top = ActiveCell.Top + ActiveCell.Height '以下语句根据活动单元格位置显示列表框
            .Left = ActiveCell.Left
            .Width = ActiveCell.Width
            .Visible = True
            Else
            .Visible = False
        End If
    End With
End Sub

VB エディターで Sheet2 をダブルクリックし、次のコードをエディターに貼り付けて保存します。 (このコードは、ドロップダウン メニューのオプション値を動的に設定するために追加されます。ドロップダウン メニューのオプション値が固定されている場合は、次のコードを使用せずに、ListBox の ListFillRange プロパティで直接指定できます)

シート 2 (データ) にコードを保存します:

Private Sub Worksheet_Change(ByVal Target As Range)
    Sheets("Sheet1").ListBox1.ListFillRange = "data!a1:a" & Cells(1, 1).End(xlDown).Row
End Sub

コードを保存した後、VB エディターを閉じ、シート 1 ワークシートでセルをクリックします。結果は次の図のようになります。

モジュール 1 に保存:

Public ReLoad As Boolean 'Switch リストボックス変更イベント

以上がExcelのドロップダウンボックスで複数選択を設定する方法の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。