Денис Хочувсезнать (Автор тем)

написать генератор возможных комбинаций

Пользователь

Сообщений: 15 Регистрация: 23.04.2023

11.08.2025 10:54:32

дано : - английский алфавит большие и маленькие буквы и символы без пробела.(94 штуки)
нужно сохранить в текстовый файл все варианты комбинаций длинной 66 символов
файл взял на форуме, думаю его можно просто изменить, но моих знаний не хватает.
цену пишите в личку.

Перейти

помогите найти ошибку кода VBA

Денис Хочувсезнать

Пользователь

Сообщений: 15 Регистрация: 23.04.2023

23.04.2023 17:58:35

Здравствуйте! не могу понят' где ошибка, вся надежда на вас , ГУРУ кодинга!!!

последняя строчка кода где ошибка

Код

Sub AddPRO()


        Set ShPr = ThisWorkbook.Worksheets("Подразделения")
        Set PrListObj = ShPr.ListObjects("Подразделения")
        
        Dim Count As Integer
        Dim ster As String
        
        Sheets("Подразделения").Select
        
        ster = FI.TextBox6.Value
        PrListObj.ListColumns.Add.Name = FI.TextBox6.Value & " принял" '
        Count = PrListObj.ListColumns.Count

        
        PrListObj.ListColumns(Count).Range(2).FormulaLocal = "=СУММЕСЛИМН(Отгрузка[кол-во];Отгрузка[кому];[@Подразделения];Отгрузка[изделие];Подразделения[[#Заголовки];[" & ster & "]])"
         
    
End Sub

Перейти