Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VBA Макрос для разбиения листа рабочей книги на отдельные листы Добрый день! Подскажите, возникла проблема с написанием макроса для разбиения листа, состоящего из данных по 1300 облигациям на различные листы файла. Ниже прилагаю файл с 3-мя облигациями. На основе них мне бы хотелось понять, как запрограммировать код для всего листа из 1300 облигаций. https://www.cyberforum.ru/ vba/ thread1506650.html VBA Макрос в Excell 2013 отказывается работать
Собственно суть вопрос. Работал я долгое время в Excell 2007 и не знал никаких проблем. Недавно решил купить новый офис, собственно теперь у меня версия 2013 года. Писался у меня один замечательный макрос под 2007, в этой версии юзал его долгое время и никогда никаких ошибок не вылетало. Начинаю запускать этот же самый макрос в 2013, и вылетает ошибка в этом месте: Set shtData...
VBA Выгрузка данных из txt файла и формирование таблиц в Excel Здравствуйте, Форумчане! Вопрос состоит вот в чём, у меня имеются данные в формате txt файла, необходимо с помощью макроса выгружать данные из этого файла и формировать таблицы с ними. Выбор файла должен быть свободным и на усмотрение пользователя, а книга Excel при открытии автоматически запускала макрос и предлагала нажать на необходимые для операции кнопки (Выбор файла; Выгрузить данные;... https://www.cyberforum.ru/ vba/ thread1506628.html VBA Поиск слова VBA (Do While Selection.Find.Found) Добрый день! Подскажите, пожалуйста! Есть код Sub процесс_поиска_позиций_РЭ() Dim slovo As String Dim MyRange As Range Dim dannue As String Dim m0 As DataObject Dim objExceldApp As Object https://www.cyberforum.ru/ vba/ thread1506606.html
Как вставить символ после каждой 5-ой строки (Word 2010)? VBA
Здравствуйте. Подскажите пожалуйста кто знает, как вставить символ (например *) перед словом после каждой пятой строки. Например у меня есть тесты в виде: 1 ВОПРОС ВАРИАНТ1 ВАРИАНТ2 ВАРИАНТ3 ВАРИАНТ4 2 ВОПРОС ВАРИАНТ1 ВАРИАНТ2 ВАРИАНТ3
VBA Динамичное SUMIF https://www.cyberforum.ru/ vba/ thread1506575.html
Здравствуйте. Затрудняюсь в решение своей задачи , гугл не гугл , плохо получается реализовать идею... Вообщем Прошу помощи :) Лист Шабл , диапозон B5 по последнюю строку в столбце A, нужно вставить в этот диапозон SUMIF кодом VBA. Желательно самый быстрый способ) формула стобца B такая =СУММЕСЛИ($AA$5:$AG$59;A5;$AG$5:$AG$59) Спасибо большое, что уделили внимание :)
VBA Прописать в коде поиска часть слова Здравствуйте снова, уважаемые форумчане. Помогите, пожалуйста, правильно прописать поиск в коде. Итак у меня в коде есть строка, выполняющая поиск (код большой, переменные все объявлены). Set cell = Cells.Find(What:=x_text, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole) переменная x_text определяет "что ищем" (всё объявлено и определено). Но ка кобъявить слово с... https://www.cyberforum.ru/ vba/ thread1506518.html VBA Произведение элементов векторов циклом
Здравствуйте, помогите закончить. Требуется написать функцию, используя различные операторы цикла, остановился на нахождении произведения элементов векторов ("SumProduct", "СУММПРОИЗВ") Public Function SecondFunction(x, y As Variant) As Double Dim s1, s2, s3, s4 As Double, i, n, m As Integer 'Нахождение количества элементов вектора x m = x.Columns.Count 'Нахождение количества элементов...
VBA Макрос печати выделенного текста https://www.cyberforum.ru/ vba/ thread1506495.html
здравствуйте, есть у меня макрос, его назначение - печатать выделенный фрагмент текста предварительно он этот текст подготавливает к печати так вот я заметил что если в этом тексте будет нумерованный список то Ворд "падает" но просто сам список печатаю маросом всё нормально как же понять и залечить эту проблему? Добавлено через 4 минуты но просто сам список печатаю маросом всё нормально...
VBA Макрос для скачивания файлов с сайта Доброго времени суток помогите с макросом. есть ссылки для скачивания файлов (отчетов). формат файлов которые будут скачиваться - csv хотелось бы макросом скачать все десять файлов в ту же самую папку где находится основной файл, с которого будет запускаться макрос. имена скачаных файлов должны остаться оригинальными буду благодарен за любые полезные советы. спасибо! https://www.cyberforum.ru/ vba/ thread1506358.html
VBA Выполнение другого макроса при ошибке в макросе
И опять здравствуйте. Пишу макрос. Нужно прописать, чтобы при ошибке выполнялся другой макрос. Т.е. нужно написать типа так: On Error GoTo Макрос1(). Но так не работает, - пишет "Label not defined". Как же нужно такое прописывать?
VBA Макрос, добавляющий листы Здравствуйте, помогите пожалуйста. Требуется написать макрос, добавляющий к имеющимся трем листам нового файла Excel еще 5 листов и закрашивающий все 8 листов в различные базовые цвета, выдавая перед каждой окраской информационное сообщение с названием цвета листа. https://www.cyberforum.ru/ vba/ thread1506312.html
5 / 5 / 1
Регистрация: 27.07.2015
Сообщений: 88
29.07.2015, 17:08  [ТС] 0

Выделить ячейки с B4 и до последней заполненной - VBA - Ответ 7922955

29.07.2015, 17:08. Показов 48545. Ответов 23
Метки (Все метки)

Ответ

В примере работает, а в оригинальном файле - нет. Вот файл и код (что написано в комментариях никому не говорить). Столбцы от B до E. Стиль ссылок у меня R1C1.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Макрос12()
'
' Макрос12 Макрос
'
 
'
    Range("B4", Cells(ActiveCell.SpecialCells(xlLastCell).Row, 5)).Select
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("C4", Cells(Rows.Count, 3).End(xlUp)), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("Лист2").Sort
        .SetRange Range("B3:E554")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub


Вернуться к обсуждению:
Выделить ячейки с B4 и до последней заполненной VBA
Вложения
Тип файла: xlsx Сравнение ПЕРЕМЕЩЕНИЙ.xlsx (37.5 Кб, 39 просмотров)
0
Заказать работу у эксперта

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.07.2015, 17:08
Готовые ответы и решения:

Поиск последней заполненной ячейки
Еще раз здравствуйте. помогите пожалуйста с таким вопросом. Есть формула вида: ...

Определить адрес последней заполненной ячейки
Range("A1").SpecialCells(xlLastCell).Address возвращает тупо последнюю ячейку Cells(Rows.Count,...

Диапазон до последней заполненной ячейки в строке
Здравствуйте, подскажите пожалуйста, как указать в макросе не определенный диапазон, а до последней...

Макрос для копирования последней заполненной ячейки
Добрый вечер! Уважаемые гуру макросастроения. Буду весьма благодарен за ваше потраченное время ...

23
29.07.2015, 17:08
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.07.2015, 17:08
Помогаю со студенческими работами здесь

Поиск последней заполненной ячейки и добавлением примечания в соседнию
Здравствуйте, найти последнюю заполненную ячейку в столбце В и добавить примечание в соседнею...

Номер строки последней заполненной ячейки в заданном диапазоне
Всем доброго времени суток. Помогите наладить код по определению номера строки последней...

Найти номер последней заполненной ячейки в столбце, Excel
Добрый день! Импортирую данные из таблицы Excel,таблица состоит из двух столбцов. Первый очень...

Вывести в сообщении значение последней заполненной ячейки в базе Access
Здравствуйте! Подскажите пожалуйста каким образом с помощью VBA можно вывести в сообщении...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru