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

Страницы: 1 2 3 След.
модернизировать функционал умных таблиц, убрать макросы, убрать макросы но оставить функционал, предложить свои идеи по реализации поставленных задач
 
#
09.09.2025 12:15:13
Здравствуйте уважаемые форумчане и эксэлеводы !!!

за несколько лет работы в одном из образовательных учреждений, я создал на базе ВАШИХ идей, использование умных таблиц и тд и тп ВСЕ ВСЗЯТО С  ЭТОГО ФОРУМА!!  и получился очень полезный (для нашей педагогической работы) продукт - "алфавитная книга", но идет время и много меняется, а мне как человеку не сведущему в экселе НИЧЕГО, остается только продолжать пользоваться устаревающим файлом...

не сочтите за труд, помогите пожалуйста! готов рассмотреть бюджет посильный педагогу дополнительного образования находящемуся на пенсии....

1 задача-
имеется:
алфавит - список всей информации, текстовая база данных, в которую в ручную вписываются необходимые данные.
колонка СОЦСТАТУС - важный элемент ради чего все это создавалось, а именно -
по этой колонке считаются дети (в нашем учреждении их МНОГО) согласно соц статуса перечисленного через ","

обозначения сокращений:

м -      многодетная семья
сво -  дети участника СВО
впр - вынужденные переселенцы
н -      неполная семья
овз -   ограничение по здоровью
ди -    дети инвалиды
соп -   социально-опасные
с -       дети сироты
пп -    проблемы поведения
пр -    проживающие не с родителями
о -      опека
до -    домашнее обучение
дс -    дошкольники
но -    неорганизованные дети

и список детей формируется на вкладке СОЦСПРАВКИ !! и это ВАЖНО!
необходимое количество строк при их превышении "10" приходится добавлять вручную, или уменьшать (для плотности печати)
ТРЕБУЕТСЯ: автоматизировать данную процедуру!


2 задача-
- можно ли связать расписание гр1..2..3 с вкладкой "расписание" - и автоматизировать расстановку времени и групп по занятиям

например: гр1 , секция расписание - есть дни, можно выбрать время, а в этот момент на вкладке "расписание" происходит заполнение таблицы?
сейчас это реализовано простым выбором из списка.. но происходят подвижки времени и ен всегда удается это синхронизировать.. возникают коллизии и проблемы..


3 задача -
избавиться от макросов, но оставить систему подсветки выбранных детей по  группам.. можно ли реализовать по другому?

как это происходит - если дети не выбраны в какую либо группу на вкладке алфавит они остаются неподсвеченными. (что бы никого не потерять)
через условное форматирование не удобно т.к. не все пользователи готовы вносить данные вручную, простое копирование убивает форматирование и все ломается.


4 задача -
вопрос: может все данные заносить через всплывающую форму? и минимизировать поломку всех формул путем закрытия и скрытия процессов, их огромное количество на всех вкладках!


5 задача -
вкладка "освобождение"
реализовать выбор списка по выпадающему сверху (см. в красной рамке)
с расстановкой необходимых по таблице данных

например: выбираем гр1. и список заполняется только детьми с вкладки "гр1"; выбираем "гр4" - список заполняется из вкладки "гр4" итд..


6 задача -
схожа с задачей 1 - автоматизировать умные таблицы количеством строк согласно группы и списка детей.
например в гр1 - 4 человека, достаточно 5 строк (оставить пустой, что бы было видно)
(сейчас это реализуется по нажатию кнопок скрыть и показать строки) .. по моему тоже макрос... а хотелось бы избавиться от них.

во всем документе - красная рамка означает редактирование вручную.
списки в группах формируются по выпадающему списку, автозаполнение по ВПР
ВАМ можно разобрать ВСЁ !! и предложить что то свое...

вот такие нелегкие задачи стоят передо мной. Спасибо всем кто откликнется
 
Перейти    
заполнение таблицы данными из разных сводных по выпадающему списку, требуется заполнить ФИО из выпадающего списка групп
 
#
09.09.2025 11:07:06
gling, Спасибо большое!  
 
Перейти    
заполнение таблицы данными из разных сводных по выпадающему списку, требуется заполнить ФИО из выпадающего списка групп
 
#
08.09.2025 13:15:11
Здравствуйте уважаемые форумчане и экселеводы!

встал вопрос - как быстро заполнить ФИО в таблицу из выпадающего списка групп.
имеются готовые вкладки - алфавит, группы, список групп.. А в документе освобождение необходимо заполнять разными фио согласно списков групп

помогите пожалуйста решить проблему..

PS в данном документе собрано большое количество разных идей! был бы признателен если кто то поможет это все упростить!
 
Перейти    
заполнение данных по выбору
 
#
10.04.2019 09:20:49
потестировал данный продукт, но он не работает как нужно

т.е. если изменить выбор "Х" по другим ячейкам, фио не разносит, или разносит но только по 2 строчки, например яблоки выдали 5 -рым а на вкладке яблоки только 2 фио, 3 потерялись...

и возможно ли опустить всю таблицу на 7 строк вниз:
Изменено: Jystas - 10.04.2019 09:21:54
 
Перейти    
заполнение данных по выбору
 
#
10.04.2019 08:52:38
Цитата
Юрий М написал:
Ametist69 , а теперь (вместо автора) предложите вменяемое название темы.
Добрый день!
огромное спасибо за макрос,

название темы: "Макрос заполнения таблицы по выбору" - подойдет?
 
Перейти    
заполнение данных по выбору
 
#
09.04.2019 17:09:13
Цитата
Ametist69 написал:
А зачем в столбцах C и D оставлены пустые ячейки? Они нужны?
на остальных листах С и D не нужны...  
 
Перейти    
заполнение данных по выбору
 
#
09.04.2019 16:54:33
Здравствуйте уважаемые знатоки экселя!
помогите пожалуйста решить задачку (для 1 класса Excel)
есть данные, список огромный! необходимо разнести по выбору ячеек соответственно в свой лист автоматически, думаю что ВПР можно но не понимаю как?!?!?

что бы при вводе значения (например Х) на первом листе, данные ФИО скажем - заполнялись в соответствующем листе
Изменено: Jystas - 09.04.2019 17:06:22
 
Перейти    
Автоматическое добавление или удаление строк в таблице.
 
#
29.06.2018 12:12:48
Цитата
_Igor_61 написал:
Для добавления строк попробуйте так (в модуль листа):Код ? 12345678910Private Sub Worksheet_Change(ByVal Target As Range)Dim lrCount As LonglrCount = Cells(Rows.Count, 3).End(xlUp).Row + 1If Target.Cells.Count > 1 Then Exit SubIf Not Intersect(Target, Range("C4:C" & lrCount)) Is Nothing ThenIf ActiveCell.Row = lrCount - 1 Then   Rows(lrCount).Insert Shift:=xlDownEnd IfEnd IfEnd SubА по второму вопросу (насчет удаления) - не думали, что можно просто мышкой удалять строки? Т.к. Цитата Jystas  написал: в случае удаления данных из строк (лист гр1, гр2)для удаления данных Вам придется делать действий не меньше, чем при удалении строки    
добавление строк работает, а нельзя что бы форма таблицы сохранялась?? т.е. что бы не приходилось ее каждый раз обрисовывать границами ячеек
ну и задача №2 = при удалении фио в столбце С, стиралась вся строка, сокращалась таблица.
Удалять руками можно - но нудно и долго, ведь таких листов много! и в каждой есть по меньшей мере строк по 200 активных
Изменено: Jystas - 29.06.2018 12:14:13
 
Перейти    
Автоматическое добавление или удаление строк в таблице.
 
#
28.06.2018 14:27:14
Уважаемые форумчане помогите пожалуйста решить проблему:
как в моем случае сделать автоматически удаляемые или добавляемые строки в примере (лист гр1, гр2), если по выпадающему списку на листе гр1 две строки данных а отображалось бы три (+ одна пустая),или гр2 - 4 строки занято + еще одна пустая, и в случае добавления в последней данных по выпадающему списку, автоматически добавлялась еще строка., но при этом данные под таблицей "спускались ниже".
а в случае удаления данных из строк (лист гр1, гр2), таблица так же сокращалась!
Изменено: Jystas - 28.06.2018 14:29:43
 
Перейти    
Отображение количества строк в зависимости от значений в ячейке
 
#
28.06.2018 14:15:10
Цитата
Юрий М написал:
Jystas , а какое отношение Ваш вопрос имеет к этой теме?
искал по форуму про автоматическое отображение строк.
Или мне создать просто новую тему??
Изменено: Jystas - 28.06.2018 14:15:46
 
Перейти    
Отображение количества строк в зависимости от значений в ячейке
 
#
28.06.2018 13:40:28
webley, Доброго времени суток!
скажите пожалуйста как в моем случае сделать автоматически удаляемые или добавляемые строки в примере, если например по выпадающему списку на листах гр1 или гр2 нужно добавить только две строки данных а отображалось бы три (+ одна пустая), и в случае добавления в ней данных по выпадающему списку автоматически добавлялась еще строка., но при этом данные под таблицей "спускались ниже".
в данных примерах строк гораздо больше, и если к примеру выводить на печать с пустыми строчками не очень красиво получается, да и учесть если этих строк 160!
Изменено: Jystas - 28.06.2018 13:42:43
 
Перейти    
Автоматическое добавление строк в ЭКСЕЛЬ, Автоматическое добавление строк в ЭКСЕЛЬ
 
#
28.06.2018 12:38:57
Доброго времени суток!
скажите пожалуйста как в моем случае сделать автоматически удаляемые или добавляемые строки в примере, если например по выпадающему списку на листах гр1 или гр2 нужно добавить только две строки данных а отображалось бы три (+ одна пустая), и в случае добавления в ней данных по выпадающему списку автоматически добавлялась еще строка., но при этом данные под таблицей "спускались ниже".
Изменено: Jystas - 28.06.2018 12:47:08
 
Перейти    
Копирование значения а не формул, макрос копирует формулу, а необходимо значение
 
#
20.12.2017 12:02:52
Ігор Гончаренко, Приятно иметь дело с умными людьми!!
спасибо, я так с вашей помощью и шаманским бубном скоро стану ого го!!!
 
Перейти    
Копирование значения а не формул, макрос копирует формулу, а необходимо значение
 
#
20.12.2017 11:50:32
Ігор Гончаренко, Compile error Variable not defined  :qstn:  
 
Перейти    
Копирование значения а не формул, макрос копирует формулу, а необходимо значение
 
#
20.12.2017 11:21:22
Доброе утро друзья! помогите пожалуйста разобраться с макросом (взял его на одной из веток) штука хорошая, но мне нужно что бы она копировала не формулы из ячеек а значения, моих мозгов на это не хватит никогда, и вся надежда на Ваши Светлые головы!!!
Код
Option Explicit

Sub CollectAllClients()
Dim BazaWb As Workbook 'текущая книга (общий файл)
Dim BazaSht As Worksheet 'лист База покупателей в общем файле
Dim iTempFileName As String 'имя по-очерёдно открываемого файла
Dim iPath As String 'путь к папке, где лежат все файлы
Dim iLastRowBaza As Long 'последняя заполненная строка в общем файле в столбце A
Dim iLastRowTempWb As Long 'последняя заполненная строка в по-очерёдно открываемом файле в столбце A
Dim iNumFiles As Long 'количество открываемых файлов

    With Application 'операции с приложением/отключаем для повышения скорости работы макроса
        .ScreenUpdating = False 'обновление экрана
        .DisplayAlerts = False 'выод системных сообщений
        .Calculation = xlManual 'автопересчет формул
        
        'присваиваем значения нашим переменным
        Set BazaWb = ThisWorkbook
        Set BazaSht = BazaWb.Sheets("данные")
        iPath = BazaWb.Path & "\"
        iTempFileName = Dir(iPath & "*.xlsm")
        Do While iTempFileName <> "" 'запускае цикл перебора файдов в папке
            If iTempFileName <> BazaWb.Name Then 'если имя файла не равно общему открываем
                With .Workbooks.Open _
                     (Filename:=iPath & iTempFileName, UpdateLinks:=False, ReadOnly:=True)
                     iNumFiles = iNumFiles + 1
                     'Рабочая книга не должна быть защищена паролем
                     With .Worksheets("алфавит") 'с конкретным листом в открытой книге
                          'номер последней заполенной строки
                          iLastRowTempWb = .Cells(Rows.Count, 2).End(xlUp).Row
                          'последняя строка в итоговом файле на листе
                          iLastRowBaza = BazaSht.Cells(Rows.Count, 1).End(xlUp).Row + 1
                          'копируем диапазон с открытой книги в заданный лист
                          .Range("B11:Q175").Copy Destination:=BazaSht.Cells(iLastRowBaza, 1)
                     End With
                     .Close saveChanges:=False
                End With
            End If
            iTempFileName = Dir 'следующий файл
        Loop
        
        'включаем что отключили
        .Calculation = xlAutomatic
        .DisplayAlerts = True
        .ScreenUpdating = True
    End With
    MsgBox "Информация собрана из " & iNumFiles & " файлов!", vbInformation, "Конец"
End Sub
Изменено: Jystas - 20.12.2017 13:36:13
 
Перейти    
Выделение по условию использованной ячейки
 
#
18.12.2017 20:44:14
Karataev, а вот после встраивания в документ конфликтует..позволите с вами пообщаться почтой и показать вам весь документ, может что подскажете?
Изменено: Jystas - 18.12.2017 21:50:47
 
Перейти    
Выделение по условию использованной ячейки
 
#
18.12.2017 17:59:05
Karataev, Респект! все работает! СПАСИБО !!!!
Изменено: Jystas - 18.12.2017 21:51:00
 
Перейти    
Выделение по условию использованной ячейки
 
#
18.12.2017 17:48:25
Karataev, ДА! с ячейки 1 там куча инфы, но нужно понимать только начиная с 16 строки
 
Перейти    
Выделение по условию использованной ячейки
 
#
18.12.2017 17:43:26
Karataev, начиная с Лист2 там выпадающий список ФИО созданный из списка ФИО на ЛИСТ1 и встала необходимость увидеть - кто из списка "выпал" если ничем не окрашен...
Изменено: Jystas - 18.12.2017 22:15:36
 
Перейти    
Выделение по условию использованной ячейки
 
#
18.12.2017 17:32:04
Лист1 данные с B11 - B300
Лист2 данные С16 - С300
Лист3 данные С16 - С300
...
Лист25 данные С16 - С300
 
Перейти    
Выделение по условию использованной ячейки
 
#
18.12.2017 16:26:48
Karataev, простите! можно еще раз вас потревожить!!
а если изменить расположение данных таблиц до вот такого состояния,  то как быть??
 
Перейти    
Выделение по условию использованной ячейки
 
#
18.12.2017 15:48:27
Karataev, ВЫ гений!!! Спасибо!!!
 
Перейти    
Выделение по условию использованной ячейки
 
#
18.12.2017 15:09:44
Karataev,
не все версии офиса (2003 например) не поддерживают такое количество УФ !! помимо этого выделения у меня уже есть сравнение дубликатов и тд. и тп..
мне необходимо решение именно на макросе!!
 
Перейти    
Выделение по условию использованной ячейки
 
#
14.12.2017 15:36:18
можно сделать это УФ на каждую страницу, но тогда их будет 25 !!!

а как поведет себе эксель в таком случае??
 
Перейти    
Выделение по условию использованной ячейки
 
#
14.12.2017 15:08:44
Цитата
Karataev написал: Используется условное форматирование
а если ЛИСТов больше?? 25 например?? но выделяется только на Лист1

спасибо за формулу! уже работает..
Изменено: Jystas - 14.12.2017 20:58:37
 
Перейти    
Выделение по условию использованной ячейки
 
#
14.12.2017 15:04:30
Цитата
Sanja написал: Может лучше использованные удалять?
нет нет! удалять не нужно, подсветка нужна на ЛИСТ1 при использования данных на Лист2
 
Перейти    
Выделение по условию использованной ячейки
 
#
14.12.2017 14:43:56
Здравствуйте! уважаемые экселеводы и форумчане!

при работе с большим числом строк (от 300 и более) сложно удержать всю информацию в голове, а при выборе данных на другой странице (выпадающий список Лист2) хотелось бы видеть подсветку использованных строк с Лист 1

с моим зрением листать весь форум тяжеловато, подскажите пожалуйста!
 
Перейти    
Подсветить временной промежуток по выбору дня недели
 
#
08.10.2017 22:19:02
имеется ввиду следующее:
создается "шахматное" расписание уроков, на листе "Список.гр"
достаточно ввести в желтой ячейке лист "Гр1" например пн (понедельник)  - и закрашивается время от и до как в табличке, или вводим ср (среда) - соответственно в колонке среда выделяется заданный промежуток.
количество цветов неограничено.. как раз и требуется раскрасить! для наглядности
Изменено: Jystas - 08.10.2017 22:19:57
 
Перейти    
Подсветить временной промежуток по выбору дня недели
 
#
08.10.2017 21:39:00
Друзья! здравствуйте!!!
разобрался как подсветить временной промежуток через УФ,  но не могу понять как сделать это по выбору дня недели: (пример: пн вт пт) в примере..

задача: написать в желтой ячейке - лист гр1 - день недели (пн, вт, ср, чт, пт, сб, вс) - указать время начала и время окончания - подсветка соответствовала нужному дню.
 
Перейти    
Автозаполнение цветом "шахматного" расписания
 
#
01.10.2017 21:40:02
..все! нашел себе вариант в приемах! http://www.planetaexcel.ru/techniques/4/238/
 
Перейти    
Страницы: 1 2 3 След.
Наверх