Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 19.09.2017
Сообщений: 13
Excel

Задать диапазон ячеек

09.11.2017, 16:46. Показов 839. Ответов 5
Метки нет (Все метки)

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

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

Visual Basic
1
ActiveSheet.Range("А2:A" : Last).Value = "Abscheiderate".
Так все работает.
А мне нужно не со второй ячейки, а с ячейки номер Last и до ячейки номер LLast, где LLast = Last + const.

Есть ли способ как нибудь это в .Range() записать?

Заранее спасибо
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
09.11.2017, 16:46
Ответы с готовыми решениями:

Обработать выделенный диапазон ячеек, результат записать в смежный диапазон
Напишите в среде Excel макрос, который в выделенном диапазоне ячеек должен выполнять заданные...

Распечатать определенный диапазон ячеек в зависимости от введенного числа. Задать листы для печати
Всем привет!) Мне задали написать макрос, который будет распечатывать определенный диапазон ячеек в...

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

5
es geht mir gut
 Аватар для SoftIce
11274 / 4760 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
09.11.2017, 16:56
Visual Basic
1
ActiveSheet.Range("А" & Last & ":A"  &  (Last +const)).Value = "Abscheiderate".
0
0 / 0 / 0
Регистрация: 19.09.2017
Сообщений: 13
09.11.2017, 16:58  [ТС]
Так выдает ошибку. Знак ":" не нравится.

Но как только спросила - получилось.

Visual Basic
1
ActiveSheet.Range("A" & Last, "A" & LLast).Value = "Abscheiderate"
0
es geht mir gut
 Аватар для SoftIce
11274 / 4760 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
09.11.2017, 17:01
Цитата Сообщение от Slezinka Посмотреть сообщение
Знак ":" не нравится
Не верю!

Добавлено через 1 минуту
Цитата Сообщение от Slezinka Посмотреть сообщение
A" : Last
Вот это двоеточие у Вас было лишним.
0
 Аватар для pashulka
4139 / 2243 / 940
Регистрация: 01.12.2010
Сообщений: 4,624
09.11.2017, 22:13
Если нет об'единённых ячеек, то можно ещё и так :

Visual Basic
1
Cells(Last, "A").Resize(constR + 1) = "Abscheiderate"
0
0 / 0 / 0
Регистрация: 19.09.2017
Сообщений: 13
10.11.2017, 10:12  [ТС]
Цитата Сообщение от SoftIce Посмотреть сообщение
Не верю!
А вы знаете, сегодня с утра ошибку не выдает. Но вчера - чесноепионерское (хоть я пионером то уже и не была)

Спасибо всем за помощь!!!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
10.11.2017, 10:12
Помогаю со студенческими работами здесь

Задать диапазон ячеек через переменные
Привет! такой вопрос: мне надо задать диапазон ячеек. обычным способом типа Range("A1:A100") -...

Как задать диапазон ячеек
Здравствуйте. Как в этом коде задать диапазон через значения переменных типа...

Вставить диапазон с 1-го листа на 2-ой и удалить диапазон
Добрый день, всем. Посоветуйте каким образом сделать своеобразную кнопку отмены после вставки...

Как передать в формулу диапазон ячеек?
Здравствуйте, у меня такая проблема.. В общем надо программно работать с матриицей,введенной с...

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


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru