|
|
Другие темы раздела | |
VBA Отображение связей в определенном диапазоне
https://www.cyberforum.ru/ vba/ thread1922719.html Добрый день, форумчане. Подскажите ответ на вопрос. У меня есть макрос отображающий связи на листе - при открытии книги. Private Sub Workbook_Open() Dim cl As Range Application.ScreenUpdating = False Application.DisplayAlerts = False For Each cl In ActiveSheet.UsedRange With cl |
VBA Написать программу шифровки (Word) VBA Здравствуйте! Не могу сделать задание: Написать программу, шифрующую и расшифровывающую сообщение заменой каждой буквы на букву циклически сдвинутую на N позиций в алфавитe. (Word) Можете помочь? |
VBA Ускорить действие макроса переноса данных на другой лист Здравствуйте, имеется макрос для переноса данных на другой лист, но когда данных много (например: около 2000 тыс строк) он начинает нереально долго их обрабатывать, можно ли ускорить его работу? https://www.cyberforum.ru/ vba/ thread1922560.html | VBA Установление курсора в нужную (неизвестную) ячейку На листе создана "умная" таблица "План". Ее адрес (например B2:M16) неизвестен. В первой строке таблицы - заголовок столбцов. Вопрос: Как в VBA установить курсор в первую строку под заголовком первого столбца таблицы. Изначальное расположение (адрес) курсора неизвестен. https://www.cyberforum.ru/ vba/ thread1922534.html |
VBA Создание макроса для редактирование текста в Word Создать макрос, который устанавливает двойной интервал между строками, выравнивает текст по левому краю страницы, формирует абзацный отступ 1,75 пт. Первое слово в предложении выделяет красным цветом. Столкнулся с проблемой, выделение красным цветом первого слова в предложение. Подскажите кто что может ps. код работает pss. код на изменение цвета отсутствует Selection.WholeStory ... |
VBA Сравнение данных из TextBox в VBA с ячейками таблицы Excel
https://www.cyberforum.ru/ vba/ thread1922301.html В форме задаю номер (вагона), нажимаю Ввести, происходит перебор столбца, но сравнения не находит. Для отладки печатаю введенный номер, его видит. Private Sub ВВ_Click() Dim nv, nv1, inum As Single nv = НВ.Text kv = КВ.Text inum = 0 For i = 2 To 70 |
VBA Скрыть строки по условию Здравствуйте господа-товарищи! у меня стоит следующая задача: имеется файл эксель с N количество листов. в каждом листе забиты данные. необходимо по следующему услововию: 1) Если в ячейке С5 не пусто (а в идеале содержится текст "текст 1" или "текст 2" или "текст 3") тогда проверяем ячейку В7, В8, В9.. В15 -Если в ячейке пусто тогда нужно скрыть всю строку. Если нет тогда тогда... https://www.cyberforum.ru/ vba/ thread1922296.html |
VBA Итоги в конце таблицы и преобразование в число данных Есть файл, который выгружает система. Т.к. книг с одинаковым содержимым много, то для удобства пользователя сделала загрузку содержимого через макрос. А дальше необходимо, что бы применялось условное форматирование в виде светофора и вниз таблицы добавлялись итоги. Сколько всего человек, сколько прошло тест и средние значения по результатам в%. Где-то закралась ошибка и несколько смущает... |
VBA Простой макрос фильтра по столбцам Excel
https://www.cyberforum.ru/ vba/ thread1922047.html Добрый день. В документе мне необходимо при открытии применить фильтр на столбец, значения должны быть больше нуля. Вот что я навоял, но не работает. Sub Auto_Open() Range("A").AutoFilter Field:=1, Criteria1:>0 End Sub |
VBA не получается задать переменную как только что открытый workbook
https://www.cyberforum.ru/ vba/ thread1921979.html добрый день! макрос открывает файлы (путь указывает пользователь через диалоговое окно), затем присваивает файлу имя и работает дальше код: fileToOpen = Application.GetOpenFilename() Set WB2 = Workbooks.Open(fileToOpen) некоторые файлы открываются без проблем, а некоторые почему то не воспринимаются программой (в окне locals WB2 = Nothing, fileToOpen определяется верно) файлы одного и... |
VBA Макрос Excel для автоматической сортировки при открытие документа Доброго времени суток уважаемые форумчане. У меня есть документ в Excel с очень большой таблицей. В модуле общей книги существует след код Private Sub Workbook_Open() ActiveSheet.Unprotect "rootvolkuz" ActiveSheet.EnableOutlining = True ActiveSheet.Protect Password:="rootvolkuz", Contents:=True, Scenarios:=True, UserinterfaceOnly:=True ActiveSheet.EnableAutoFilter = True... |
VBA Кнопка удаления записи
https://www.cyberforum.ru/ vba/ thread1921835.html Есть кнопка которая совершает поиск и удаляет строку. Пытаюсь дописать код так что бы удаленную строчку он записывал на отдельный лист, и с последующим удалением каждое новая строчка записывалась на новой строке, а не просто перезаписывалась. Прощу помочь мне. Буду признателен Private Sub CommandButton1_Click() For i = 2 To 250 For j = 1 To 110 Sheets("Результат").Cells(i, j) = "" ... |
2 / 2 / 0
Регистрация: 23.01.2017
Сообщений: 3
|
|
19.02.2017, 12:27 [ТС] | 0 |
Копирование нных ячеек из основного листа в другие листы согласно определенного критерияопределё - VBA - Ответ 1013038419.02.2017, 12:27. Показов 1254. Ответов 5
Метки (Все метки)
Ответ
Спасибо за поддержку и отзывчивость, очень помогли в решении моей задачи!
Вернуться к обсуждению: Копирование нных ячеек из основного листа в другие листы согласно определенного критерияопределё VBA
1
|
19.02.2017, 12:27 | |
Готовые ответы и решения:
5
Как распространить цвет ячеек из одного листа в другие соответственно Перенос данных из ячеек одного листа на другие, при соблюдении условия (IF?). С примером Копирование листа excel с сохранением формата ячеек Копирование ячеек с одного листа на другой по условию |
19.02.2017, 12:27 | |
19.02.2017, 12:27 | |
Помогаю со студенческими работами здесь
0
Копирование диапазона ячеек из одного листа в другой Как подсчитать количество не пустых ячеек определенного листа и записать в переменную Копирование кнопкой видимых ячеек с первого листа на второй Копирование ячеек с листа на лист по условию одной ячейки |