Как добавить более 500 записей в раскрывающемся списке из проверки данных? - PullRequest
0 голосов
/ 29 января 2019

Я пытаюсь сделать лист Excel в качестве примера шаблона для пользователя, чтобы загружать объемные данные.Я хочу показать список как выпадающий в столбце из проверки данных.Я не могу использовать второй лист или столбец в качестве ссылки из-за проверки на стороне сервера.Когда я добавляю разделенные запятыми записи в раскрывающемся списке с листа Google, загружаю и открываю их, я не могу открыть раскрывающийся список, думаю, это что-то из-за ограничения или чего-то еще.Пожалуйста, помогите мне здесь.

1 Ответ

0 голосов
/ 29 января 2019

Если вы хотите использовать VBA, вы можете попробовать:

Option Explicit

Sub test()

    Dim LastRow As Long, Row As Long, strList As String
    Dim rng As Range

    With ThisWorkbook.Worksheets("Sheet1")

        'Set rng as cell B1
        Set rng = .Range("B1")

        'Find last row fo column A
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

        strList = ""

        'Loop Column A, starting from row 1 and ends at Last row column A
        For Row = 1 To LastRow

            If strList = "" Then
                'If strList is "" then takes the value of .Cells(Row, 1)
                strList = .Cells(Row, 1).Value
            Else
                'If strList not "" takes the value of strList + "," + .Cells(Row, 1)
                 strList = strList & "," & .Cells(Row, 1).Value
            End If

        Next Row

        'Set drop down list on cell B1
        With rng.Validation
            .Delete 'Delete previous validation list
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
                Formula1:=strList 'Import new validation list
        End With

    End With

End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...