Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Вывести заголовки заполненных ячеек - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вывести заголовки заполненных ячеек (Формулы/Formulas)
Вывести заголовки заполненных ячеек
barskz Дата: Пятница, 12.09.2014, 08:39 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Привет. Как вывести заголовки заполненных ячеек в файле пример
К сообщению приложен файл: 0383981.xlsx (8.3 Kb)
 
Ответить
СообщениеПривет. Как вывести заголовки заполненных ячеек в файле пример
Автор - barskz
Дата добавления - 12.09.2014 в 08:39
Russel Дата: Пятница, 12.09.2014, 08:48 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1394
Репутация: 320 ±
Замечаний: 0% ±

Excel 2010
Решение "в лоб":
Код
=ЕСЛИ(A2<>"";$A$1&", ";"")&ЕСЛИ(B2<>"";$B$1&", ";"")&ЕСЛИ(C2<>"";$C$1&", ";"")&ЕСЛИ(D2<>"";$D$1&", ";"")&ЕСЛИ(E2<>"";$E$1&", ";"")

Уверен, что будет более изящное ;)

QIWI 9173973973
 
Ответить
СообщениеРешение "в лоб":
Код
=ЕСЛИ(A2<>"";$A$1&", ";"")&ЕСЛИ(B2<>"";$B$1&", ";"")&ЕСЛИ(C2<>"";$C$1&", ";"")&ЕСЛИ(D2<>"";$D$1&", ";"")&ЕСЛИ(E2<>"";$E$1&", ";"")

Уверен, что будет более изящное ;)
Автор - Russel
Дата добавления - 12.09.2014 в 08:48
barskz Дата: Пятница, 12.09.2014, 08:55 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
А если количество столбцов не 4, а 600
 
Ответить
СообщениеА если количество столбцов не 4, а 600
Автор - barskz
Дата добавления - 12.09.2014 в 08:55
Russel Дата: Пятница, 12.09.2014, 09:02 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1394
Репутация: 320 ±
Замечаний: 0% ±

Excel 2010
Цитата barskz, 12.09.2014 в 08:55, в сообщении № 3
количество столбцов не 4, а 600

Столбцов не 4, а 5, а если будет 600 то
Цитата Russel, 12.09.2014 в 08:48, в сообщении № 2
Уверен, что будет более изящное

QIWI 9173973973
 
Ответить
Сообщение
Цитата barskz, 12.09.2014 в 08:55, в сообщении № 3
количество столбцов не 4, а 600

Столбцов не 4, а 5, а если будет 600 то
Цитата Russel, 12.09.2014 в 08:48, в сообщении № 2
Уверен, что будет более изящное
Автор - Russel
Дата добавления - 12.09.2014 в 09:02
barskz Дата: Пятница, 12.09.2014, 09:07 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
я в прошлом году делал не помню как там небольшая формула
 
Ответить
Сообщениея в прошлом году делал не помню как там небольшая формула
Автор - barskz
Дата добавления - 12.09.2014 в 09:07
Russel Дата: Пятница, 12.09.2014, 09:21 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1394
Репутация: 320 ±
Замечаний: 0% ±

Excel 2010
Цитата barskz, 12.09.2014 в 09:07, в сообщении № 5
я в прошлом году делал не помню как там небольшая формула

Судя по этой теме, краткое решение только через UDF

QIWI 9173973973
 
Ответить
Сообщение
Цитата barskz, 12.09.2014 в 09:07, в сообщении № 5
я в прошлом году делал не помню как там небольшая формула

Судя по этой теме, краткое решение только через UDF
Автор - Russel
Дата добавления - 12.09.2014 в 09:21
barskz Дата: Пятница, 12.09.2014, 09:54 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
А как сделать эту формулу протянуть на 100 столбцов или вручную
 
Ответить
СообщениеА как сделать эту формулу протянуть на 100 столбцов или вручную
Автор - barskz
Дата добавления - 12.09.2014 в 09:54
AlexM Дата: Пятница, 12.09.2014, 10:12 | Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация: 1130 ±
Замечаний: 0% ±

Excel 2003
Функция пользователя[vba]
Код
Function Join_Title(Range_Values As Range, Range_Title As Range, Delimiter As String) As String
Dim x(), y(), i As Long, s As String
x = Application.Transpose(Range_Values.Value)
y = Application.Transpose(Range_Title.Value)
For i = 1 To UBound(x)
If x(i, 1) <> 0 Then s = s & Delimiter & y(i, 1)
Next i
Join_Title = Mid(s, Len(Delimiter) + 1)
End Function
[/vba]
К сообщению приложен файл: 0383981_1.xls (29.5 Kb)


Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
СообщениеФункция пользователя[vba]
Код
Function Join_Title(Range_Values As Range, Range_Title As Range, Delimiter As String) As String
Dim x(), y(), i As Long, s As String
x = Application.Transpose(Range_Values.Value)
y = Application.Transpose(Range_Title.Value)
For i = 1 To UBound(x)
If x(i, 1) <> 0 Then s = s & Delimiter & y(i, 1)
Next i
Join_Title = Mid(s, Len(Delimiter) + 1)
End Function
[/vba]
Автор - AlexM
Дата добавления - 12.09.2014 в 10:12
ikki Дата: Пятница, 12.09.2014, 10:22 | Сообщение № 9
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
кросс на планете http://www.planetaexcel.ru/forum....ostform

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki

Сообщение отредактировал ikki - Пятница, 12.09.2014, 10:23
 
Ответить
Сообщениекросс на планете http://www.planetaexcel.ru/forum....ostform
Автор - ikki
Дата добавления - 12.09.2014 в 10:22
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вывести заголовки заполненных ячеек (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!