Добавление поля со списком через несколько ячеек

Question

Мне нужно добавить комбинированный блок (ActiveX Control) или Data Validation в качестве выпадающего списка. У меня есть диапазон из 15 значений, таких как: высокий, низкий, средний и т. Д. Создал именованный диапазон под названием «priorityvalue».

Я могу создать раскрывающийся список, используя поле со списком, добавив именованный диапазон в ListFillRange в свойствах или список проверки данных, указав именованный диапазон.

Но мое беспокойство, мне нужно выпадающий список для 58cells с теми же значениями, упомянутыми выше. Его утомительная работа по созданию комбинированного блока для всех ячеек. Пожалуйста, предложите мне лучший вариант здесь.

Данные для проверки достоверности данных служат для целей. Тем не менее, это делает пользователь прокручивать список на каждую ячейке в отличии от комбинированного окна она не имеет окна ввода ..

Пожалуйста, предложите

Answer 1

Вставьте следующий код в «ThisWokbook»

Private Sub Workbook_Open() 

    Dim oItem As Object 

    For Each oItem In Worksheets(1).OLEObjects 

     If TypeName(oItem.Object) = "ComboBox" Then 

      If Len(oItem.Object.Value) > 0 Then 
       oItem.Object.Value = "" 
      End If 

     End If 

    Next 

    Set oItem = Nothing 

End Sub 

ПРИМЕЧАНИЕ: Есть предостережения. Выше кода сбросит все выпадающие списки на вашем листе (также я установил рабочий лист на первый рабочий лист в книге, возможно, вы захотите сделать эту динамику). Если вы не хотите, чтобы сбросить все выпадающие списки и делать только те, которые вы добавили с помощью функции, вы можете использовать формат имя для фильтрации те, которые вы хотите очистить

Надеются, что это помогает

Answer 2

Попробуйте это:

Sub AddComboBoxToColumns(ByVal oRange As Excel.Range) 

    Dim oOLE As OLEObject 
    Dim oCell As Object 

    ' Loop through all the cells in the range 
    For Each oCell In oRange.Cells 

     ' Add ComboBox in each cell 
     With oCell 

      Set oOLE = .Parent.OLEObjects.Add("Forms.combobox.1") 
      oOLE.Top = .Top 
      oOLE.Left = .Left 
      oOLE.Width = .Width 
      oOLE.Height = .Height 
      oOLE.Name = "ComboBox" & .Address(False, False) 
      oOLE.Object.List = Array("Test1", "Test2") 

     End With 

    Next 

    Set oOLE = Nothing 

End Sub 

ПРИМЕЧАНИЯ: Вызов выше функции с диапазоном ячеек, к которым вы хотите добавить ComboBox. Вам придется изменить массив использовать значения, которые вы хотите (вы можете ввести их там или дать диапазон, где ваши существующие значения)