【Excel】複数選択プルダウンの作り方

Описание: ルイカともうします。
今回は複数選択できるプルダウンの作り方をご紹介いたします。
複数選択だけでなく、ボタンを常に表示、ボタンやリストの文字も大きくできたりと
色々な問題をまとめて解決できます。
VBAを使用しますが、概要欄にコードも載せていますので、ぜひお試しくださいね。

Excelは2021で解説しています。


【使用素材】

Microsoft Excel
https://www.amazon.co.jp/s?k=microsof...

音声
VOICEVOX: 四国めたん
https://voicevox.hiroshiba.jp/

音楽
BGMer: https://bgmer.net

イラスト
イラストAC: https://www.ac-illust.com/
いらすとや: https://www.irasutoya.com/

その他フリー素材サイト


#excel
#プルダウン
#複数選択
#ドロップダウン
#文字
#大きく


標準モジュールのコードです


Option Explicit

Sub リスト表示非表示()

With ActiveSheet.Shapes("リスト")
If .Visible = True Then
Call リスト非表示
Else
Call リスト表示
End If
End With

End Sub

Sub リスト表示()

With ActiveSheet.リスト
.Visible = True
.Activate
End With

End Sub

Sub リスト非表示()

With ActiveSheet.リスト
.Visible = False
End With

End Sub

Sub セルの値表示()

Dim セルの値 As String
Dim i As Long

セルの値 = ""

With ActiveSheet.リスト
For i = 0 To .ListCount - 1 ' リストの先頭から最後までループ
If .Selected(i) = True Then ' リストが選択されていたら
セルの値 = セルの値 & "," & .List(i) ' カンマ区切りでリストの値をつなげる
End If
Next i
End With
セルの値 = Mid(セルの値, 2)
Range("B2").Value = セルの値

End Sub



ここから下はワークシートの方のコードです


Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

' 対象セルを選択したときだけボタンを表示する場合は、コメントを解除してください
' If Target.Address = "$B$2" Then
' ActiveSheet.Shapes("ボタン").Visible = True
' Else
' ActiveSheet.Shapes("ボタン").Visible = False
' End If

End Sub

Private Sub リスト_Change()

Call セルの値表示

End Sub

Private Sub リスト_LostFocus()

Call リスト非表示

End Sub

Private Sub リスト_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyReturn Or KeyCode = vbKeyTab Then
Call リスト非表示
KeyCode = 0
Range("B2").Select
Exit Sub
End If


End Sub