Как запустить готовый макрос?

22.12.2016, 20:51. Показов 611. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

понадобился такой же макрос, как в теме
вставка нужного количества строк

вот его код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub bb()
Const FIRST& = 1, LAST& = 10000
 
Dim i&, c As Range
Set c = Cells(Rows.Count, 1).End(xlUp)
If c < LAST Then c.Offset(1) = LAST
i = FIRST
Set c = [A1]
Application.ScreenUpdating = False
Do
'c.Select
    If c > i Then
        Rows(i & ":" & c - 1).Insert
        With c.Offset(i - c).Resize(c - i)
            .Value = Evaluate("ROW(" & .Address & ")")
        End With
'c.Select
    End If
    i = c + 1
    Set c = c.Offset(1)
Loop While i < LAST
Application.ScreenUpdating = True
End Sub

но не пойму, как его запустить
эксель 2007.
копирую это в редактор макросов
и там выделяются красным строки 12-16 и 18-20

Добавлено через 6 минут
всё, разобрался - столбец чисел слева не нужен
удалите тему, плз

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

22.12.2016, 20:51

Ответы с готовыми решениями:

Как запустить макрос
добрый вечер! помогите разобраться.. вот код (вроде написан правильно).. чтобы запустить его, нажимаю ф5.. вылезает окно с макросом, и есть...

Готовый макрос
Срочно нужна помощь. В экселе: Колонки без заголовков. В первые 6 колонок(А-F) вставляю шесть номеров, в колонки (H-M) вставляю...

Как запустить макрос в Access из Excel?
Как запустить макрос в Access(на создание и добавление таблицы) из Excel?Заранее спасибо.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

22.12.2016, 20:51

Помогаю со студенческими работами здесь

Как запустить из Excel макрос Access?
Добрый день, уважаемые! Напишите код как из Excel запустить макрос написанный в Access???

Как запустить макрос из окна Word
Пишу программы для зачёта в универ, через офис набираю alt+F11. Вопрос в том, как сделать так, чтобы при открытии листа word сразу...

Как запустить на выполнение макрос нестандартного типа
Коллеги, подскажите кто сталкивался с таким. Сколько работаю с Excel ни разу не видел такого способа написания макросов. Интересует как...

Как запустить макрос когда проваливаешься в ячейку
Добрый день! Если я проваливаюсь в ячейку определенного столбца (пусть 1-го) то должен запускаться макрос. Под проваливаться, я понимаю...

Как открыть БД Access, и запустить в ней макрос
как из VBA открыть БД Access, и запустить в ней макрос Спасиво, Антон

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .

Наверх