Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.05.2018, 12:46   #1
Ирина48
 
Регистрация: 23.05.2018
Сообщений: 5
По умолчанию Помогите написать макрос

Добрый день. Помогите, пожалуйста, написать макрос. Есть таблица где первый столбец наименование объекта, и по каждому объекту еще 10 столбцов в которых есть даты. Необходимо, чтобы по определенной даты (при задании даты или можно по текущей дате) отображались данные с наименованием и наименование столбца где эта дата
Ирина48 вне форума Ответить с цитированием
Старый 23.05.2018, 12:49   #2
Ирина48
 
Регистрация: 23.05.2018
Сообщений: 5
По умолчанию например

например.по вложению если сегодня 24.07.18 то вывести пользователю информацию 333 КП-3
Вложения
Тип файла: xlsx пример.xlsx (15.9 Кб, 22 просмотров)
Ирина48 вне форума Ответить с цитированием
Старый 25.05.2018, 13:58   #3
Ирина48
 
Регистрация: 23.05.2018
Сообщений: 5
По умолчанию

Пример.Так должно получится
Вложения
Тип файла: xlsx пример.xlsx (16.5 Кб, 14 просмотров)
Ирина48 вне форума Ответить с цитированием
Старый 25.05.2018, 14:38   #4
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:
Sub sample()
    Dim dataSrc
    Dim i, j, k
    dataSrc = [B9]
    Range("A13:B50").ClearContents
    k = 13
    For i = 2 To 4 ' со 2 по 4 строку
        For j = 2 To 11 ' со 2 по 11 столбец
            If Cells(i, j) = dataSrc Then ' нашли совпадение
                Cells(k, "A") = Cells(i, "A")
                Cells(k, "B") = Cells(1, j)
                k = k + 1
            End If
        Next j
    Next i
End Sub
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 28.05.2018, 09:29   #5
Ирина48
 
Регистрация: 23.05.2018
Сообщений: 5
По умолчанию Спасибо большое

А как сделать чтобы, результат выводился при нажатии на кнопку
Ирина48 вне форума Ответить с цитированием
Старый 28.05.2018, 09:35   #6
Ирина48
 
Регистрация: 23.05.2018
Сообщений: 5
По умолчанию

Разобралась)))Спасибо за помощь
Ирина48 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите написать макрос cheyan Microsoft Office Excel 22 29.11.2014 04:18
помогите написать макрос... matveyqa Microsoft Office Excel 4 03.10.2009 13:00
Помогите написать макрос Govard Microsoft Office Excel 20 05.07.2009 21:29
Помогите написать макрос Urban Microsoft Office Excel 3 03.03.2009 22:28
Помогите написать макрос Neo007 Microsoft Office Excel 4 24.10.2008 07:25