VBA, как создать комбинированный список внутри ячейки, на которую щелкнули - PullRequest
Новая
       10

VBA, как создать комбинированный список внутри ячейки, на которую щелкнули

0 голосов
/ 27 сентября 2018

возможно ли создать комбинированный список / выпадающий список внутри ячейки, которая в данный момент активна?Я пробовал это, но ничего не произошло:

Программно добавить выпадающий список к определенной ячейке

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

Я также попытался скопировать это и посмотреть, работает ли он, но он всегда переходит к возобновлению при ошибке Далее 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim str As String
Dim cboTemp As OLEObject
Dim ws As Worksheet
Set ws = ActiveSheet
On Error GoTo errHandler

If Target.Count > 1 Then GoTo exitHandler

Set cboTemp = ws.OLEObjects("TempCombo")
  On Error Resume Next
If cboTemp.Visible = True Then
  With cboTemp
    .Top = 10
    .Left = 10
    .ListFillRange = ""
    .LinkedCell = ""
    .Visible = False
    .Value = ""
  End With
End If

  On Error GoTo errHandler
  If Target.Validation.Type = 3 Then
    'if the cell contains a data validation list
    Application.EnableEvents = False
    'get the data validation formula
    str = Target.Validation.Formula1
    str = Right(str, Len(str) - 1)
    With cboTemp
      'show the combobox with the list
      .Visible = True
      .Left = Target.Left
      .Top = Target.Top
      .Width = Target.Width + 15
      .Height = Target.Height + 5
      .ListFillRange = ws.Range(str).Address
      .LinkedCell = Target.Address
    End With
    cboTemp.Activate
  End If

exitHandler:
  Application.ScreenUpdating = True
  Application.EnableEvents = True
  Exit Sub
errHandler:
  Resume exitHandler

End Sub
...