I'll talk to Ruika.
This time I will show you how to create a pulldown that allows multiple selections.
In addition to multiple selection, buttons can always be displayed, and the text on buttons and lists can be made larger.
You can solve various problems at once.
We use VBA, but the code is also posted in the summary section, so please give it a try.
Excel is explained in 2021.
[Materials used]
Microsoft Excel
www.amazon.co....
audio
VOICEVOX: Shikoku Medan
voicevox.hiros...
music
BGMer: bgmer.net
An illustration
Illustration AC: www.ac-illust....
Irasutoya: www.irasutoya....
Other free material sites
#excel
#pulldown
#Multiple selection
#drop down
#letter
#big
標準モジュールのコードです
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
Негізгі бет [Excel] How to create a multiple selection pulldown
Пікірлер: 10