Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Денис Хочувсезнать
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
написать генератор возможных комбинаций
 
#
11.08.2025 10:54:32
дано : -  английский алфавит  большие и маленькие буквы и символы без пробела.(94 штуки)
нужно сохранить в текстовый файл все варианты комбинаций длинной 66 символов
файл взял на форуме, думаю его можно просто изменить, но моих знаний не хватает.
цену пишите в личку.
 
Перейти    
Генератор всех возможных комбинаций из набора символов, VBA или формулой
 
#
11.08.2025 08:56:55
Здравствуйте. Помогите, пожалуйста, создать генератор всех возможных комбинаций из символов в ячейках B1:CQ1. Результаты можно выводить в столбец A.  Решение возможно формулой или VBA.
 
Перейти    
помогите найти ошибку кода VBA
 
#
23.04.2023 21:01:55
конечно есть.
но я ее вставляю без переменной
 
Перейти    
помогите найти ошибку кода VBA
 
#
23.04.2023 20:59:51
Роман Петров,  ну я ее с макроса и стянул))) я туда вставил изменение заголовка столбца
вот там походу и проблема
 
Перейти    
помогите найти ошибку кода VBA
 
#
23.04.2023 20:58:23
я примерно понимаю где моя ошибка.  вот в этом участке. " & ster & "  может я переменную не так объявил????
Код
Sub AddPRO()

        Dim ster As String 
        PrListObj.ListColumns(Count).Range(2).FormulaLocal = "=СУММЕСЛИМН(Отгрузка[кол-во];Отгрузка[кому];[@Подразделения];Отгрузка[изделие];Подразделения[[#Заголовки];[" & ster & "]])"
  
End Sub
 
Перейти    
помогите найти ошибку кода VBA
 
#
23.04.2023 20:13:37
так выше писал же!!!
в этой строчке ошибка, как ее исправить?
Код
 PrListObj.ListColumns(Count).Range(2).FormulaLocal = "=СУММЕСЛИМН(Отгрузка[кол-во];Отгрузка[кому];[@Подразделения];Отгрузка[изделие];Подразделения[[#Заголовки];[" & ster & "]])"
 
Перейти    
помогите найти ошибку кода VBA
 
#
23.04.2023 19:58:36
и все разбежались))))
 
Перейти    
помогите найти ошибку кода VBA
 
#
23.04.2023 19:37:52
если это поможет скидываю файл.
на листе изделие при добавлении нового товара всё идет как надо, даже на листе подразделения всё идет хорошо, но только до вставки формулы(((
 
Перейти    
помогите найти ошибку кода VBA
 
#
23.04.2023 19:26:26
мне кажется проблема вот тут FormulaLocal  !!!!
но я не знаю код, что б изменить  
 
Перейти    
помогите найти ошибку кода VBA
 
#
23.04.2023 19:23:27
PrListObj.ListColumns(Count).Range(2).FormulaLocal = "=суммA1:E1)"

вот этот код работает отлично, но мне нужна именно та формула
 
Перейти    
помогите найти ошибку кода VBA
 
#
23.04.2023 19:16:37
так в том то и проблема, столбец у меня постоянно меняется при добавлении нового компонента
поэтому поставил Count
 
Перейти    
помогите найти ошибку кода VBA
 
#
23.04.2023 19:00:10
ListColumns(4).Range(5)

ну вот же обращение к 4 столбцу 5 строке
или я не  правильно понимаю?
 
Перейти    
помогите найти ошибку кода VBA
 
#
23.04.2023 18:44:17
Цитата
написал:
Range - должен иметь конкретное расположение (т.е. строку и столбец). Вы указываете (2) - что компухтер должен понять (2 строка? 2 столбец?)?
как вы видите решение этой проблемы?
просто еще днем этот код работал нормально, но я экспериментировал с выравниванием динамической таблицы и много поменял в коде.
теперь сам не могу разобраться((((
 
Перейти    
помогите найти ошибку кода VBA
 
#
23.04.2023 18:38:48
Цитата
написал:
Здравствуйте.
Range(2) - здесь должна быть конкретная ячейка. Например, "A1", или cells(1,1)
тут у меня идея такая.
он добавляет новый столбец и вставляет формулу во вторую строчку этого же столбца, поэтому Range(2)
обычный метод вставки в ячейку не подходит, т.к. это умная таблица.
или я чего то не понимаю????
 
Перейти    
помогите найти ошибку кода VBA
 
#
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
 
Перейти    
Страницы: 1
Наверх