Изменени диапозона действия формулы

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Изменени диапозона действия формулы (Диапозон действия формулы через ссылку)

Изменени диапозона действия формулы

stas

Дата: Вторник, 30.07.2013, 23:07 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

2007

Доброго времени суток всем. Может сможете подсказать. На форуме скачал модульную функцию InRow(), спасибо тому кто ее придумал. Суть вопроса: из специализированной программы извлекаются данные и импортируются в вайл excel. В файле есть столбец с кодом товара. При помощи функии InRow все коды из столбца записываются в строку, черз запятую. У формулы есть диапозон действия (A1:A100), но числа в столбце заканчиваются на 50 или 75 или 39 и т.д. а формула пишет запятые. Пробовал через другую формулу считать количество строк, например 35 - ok но дальше все. Можноли задать конечный диапозон для формулы так, чтобы она не лепила мне лишную тысячу запятых? InRow (A1:A-энное), А-энное записать через формулу для подсчета строк или иным способом но чтобы оно менялось, а не было заданно строго с 1 по 1956 строку например. Спасибо!

Ответить

SkyPro

Дата: Вторник, 30.07.2013, 23:46 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1206

Репутация: 255 ±

Замечаний: 0% ±

2010

Тут решение

skypro1111@gmail.com

Ответить

AlexM

Дата: Среда, 31.07.2013, 00:19 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4517

Репутация: 1129 ±

Замечаний: 0% ±

Excel 2003

Можно немного изменить функцию InRow так
[vba]

Код

Function InRow(r As Range) As String
Set r = Range(r, Cells(Rows.Count, r.Column).End(xlUp))
InRow = Join(Application.Transpose(r), ", ")
End Function

[/vba]
При задании аргумента функции r надо указать первую ячейку диапазона "А1", а последнюю функция определит сама.
Например так

Код

=InRow(A1)

Для автоматического пересчета функции надо сделать так

Код

=InRow(A1)&ЕСЛИ(СЕГОДНЯ()*0;;"")