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

Страницы: 1
[ Закрыто] помогите с массивом!
 
#
16.09.2025 10:08:04
Здравствуйте!!!
Помогите написать код, что б из умной таблицы ( фамилия, имя и дата) таблица будет расти, при запросе данные будут вводится в массив , На каждого человека дни будут вводиться в определенную ячейку массива , номер ячейки массива совпадает с днем даты. ниже привел рисунок))).
заранее всем огромное спасибо!


'                дано в таблице
'|      А        |     В   |         С       |
'1 | иванов | иван | 14.09.25 |
'2 | петров  | саня |  15.09.25 |
'3 | иванов | толя  | 12.09.25 |
'4 | петров  | саня |  11.09.25 |
'5 | иванов | иван | 16.09.25 |
'
'                      надо в массиве

'
'   | 1 |......|       11      |       12    |      13     |        14   |       15     |      16    |......|     32    |  33    |
'1 |    |......|                 |               |                |14.09.25|                |16.09.25|      |иванов | иван |
'2 |    |......|                  |12.09.25|                |              |                |              |      |иванов | толя  |
'3 |    |......| 11.09.25 |                |                |              |                |16.09.25|      |петров  | саня |
 
Перейти    
написать генератор возможных комбинаций
 
#
11.08.2025 10:54:32
дано : -  английский алфавит  большие и маленькие буквы и символы без пробела.(94 штуки)
нужно сохранить в текстовый файл все варианты комбинаций длинной 66 символов
файл взял на форуме, думаю его можно просто изменить, но моих знаний не хватает.
цену пишите в личку.
 
Перейти    
помогите найти ошибку кода 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
Наверх