Из-за периодической блокировки нашего сайта РКН сервисами, просим воспользоваться резервным адресом:
Загрузить через dTub.ru Загрузить через ClipSaver.ruУ нас вы можете посмотреть бесплатно How to Create A MULTI-SELECT Drop-Down List in Excel! или скачать в максимальном доступном качестве, которое было загружено на ютуб. Для скачивания выберите вариант из формы ниже:
Роботам не доступно скачивание файлов. Если вы считаете что это ошибочное сообщение - попробуйте зайти на сайт через браузер google chrome или mozilla firefox. Если сообщение не исчезает - напишите о проблеме в обратную связь. Спасибо.
Если кнопки скачивания не
загрузились
НАЖМИТЕ ЗДЕСЬ или обновите страницу
Если возникают проблемы со скачиванием, пожалуйста напишите в поддержку по адресу внизу
страницы.
Спасибо за использование сервиса savevideohd.ru
In this video, I'll walk you through the step-by-step process of setting up a multi-select drop-down list, a technique that can significantly streamline your workflow and reduce the margin for error. Whether you're compiling reports, managing inventories, or tracking projects, this tutorial is designed to make your Excel experience smoother and more efficient. Don't forget to subscribe to Anser's Excel Academy for more tips and tricks that will turn you into an Excel wizard. Together, let's unlock the full potential of Excel and make data management a breeze. VBA Code credit goes to @SoftTechTutorials89 Private Sub Worksheet_Change(ByVal Target As Range) ' Initializing variables Dim oldVal As String Dim newVal As String ' Checking for changes in the drop down lists Application.EnableEvents = True If Target.Address = "$G$2" Or Target.Address = "$G$3" Then If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then Exit Sub ' Adding the multiple selected items to the list Else If Target.Value = "" Then Exit Sub Else Application.EnableEvents = False newVal = Target.Value Application.Undo oldVal = Target.Value If oldVal = "" Then Target.Value = newVal Else If InStr(oldVal, newVal) = 0 Then Target.Value = oldVal & ", " & newVal '& vbNewLine & Else Target.Value = oldVal End If End If End If End If End If Application.EnableEvents = True End Sub