Последние записи
- Нужен ли сайт разработчику?
- Обсуждаем технологию I2P
- Как запустить программу указанную в Edit.Text
- Скачать файл с использованием потока
- Поиск слова в Memo
- Распаковщик формата .img из GTA San Andreas
- Подсчет количества повторяющихся букв в файле
- Простейший скрипт загрузки картинки с помощью php
- Рассылка. Выпуск 154
- Получение картинки с веб-камеры
1st
Авг
как изменить номер колонки у адреса Area / Range?
Posted by Chas under Basic, Пост-обзор
дано: выделенный несмежный диапазон на одной(!) строке
надо: чтобы этот диапазон расширился на определенное кол-во строк вниз, т.е. выделением мы задаем колонки адреса, а строку надо туда вставить (не знаю, как это сделать Т_Т)
Казанский:
Попробуйте
Public Sub ChangeAreaLastR()
'выдает № последней строки каждого выделенного диапазона (в т.ч. несмежного)
Dim ChangeLastRow As Integer
ChangeLastRow = 5
Dim iArea As Range
For Each iArea In Selection.Areas
Union(Selection, iArea.Resize(ChangeLastRow, iArea.Columns.Count)).Select
Next iArea
End Sub