Страницы: 1
RSS
Отображение в ячейке чисел из столбца с данными
 
Имеется столбец с различными числами. Каким образом сделать, чтобы в нужной ячейке отражались все эти числа через пробел или запятую к примеру? Так же нужно чтобы это работало при фильтре по этому столбцу.  
 
ПыСы: пардон, пример выложить не могу, корпоративные ограничения.  
 
Заранее спс =)
 
{quote}{login=BitlJuice}{date=16.06.2012 01:43}{thema=Отображение в ячейке чисел из столбца с данными}{post} пардон, пример выложить не могу, корпоративные ограничения.{/post}{/quote}Да уж... На листе один столбец с числами, например:  
14  
22  
38  
Ужасная тайна. Ерунду не говорите.
 
простите дяденька больше не буду =))
 
Данные на листе ЗДЕСЬ в А5:А20.  
Последовательное добавление в переменную данных из ячеек.  
Вывод результата в ячейку С5. Наколенный вариант :)  
 
Sub zpt ()  
Dim str As String, i As Long  
     Worksheets ("ЗДЕСЬ")  
 
           For i = 5 To 20  
                 str = str & .Cells(i,1).Value &", "&  
           Next i  
 
     End With  
      .Cells(5,3).Value = str  
 
End Sub  
 
Еще как-то обрезать или заменить на точку последнюю запятую.
 
:-)  
Public Sub www()  
[c1] = Join(Application.Transpose([a1:a15].Value), ", ")
End Sub
Я сам - дурнее всякого примера! ...
 
офф:  
Виктор, отступы на форуме только для модераторов?
Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?
 
{quote}{login=Юрий М}{date=16.06.2012 02:18}{thema=Re: Отображение в ячейке чисел из столбца с данными}{post}Ужасная тайна. Ерунду не говорите.{/post}{/quote}  
а причем здесь тайна? %)  
во многих фирмах выход в инет идет через прокси.  
прокси можно настроить так, чтобы "не пущать" файлы.  
в том числе - на форумы.
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
Исправленный вариант Виктора:  
Sub zpt()  
   Dim str As String, i As Long  
   With Worksheets("ЗДЕСЬ")  
       For i = 5 To 20  
           str = str & .Cells(i, 1).Value & ", "  
       Next i  
       .Cells(5, 3).Value = Left(str, Len(str) - 2)  
   End With  
End Sub
Я сам - дурнее всякого примера! ...
 
:-) Там еще и With не было. И амперсандов многовато.
Я сам - дурнее всякого примера! ...
 
LightZ, отступы для всех, но модераторы умрут, если будут выполнять такую работу во всех темах :)  
 
The_Prist, KukLP, точно, не доглядел.  
 
KukLP, спасибо, хотел потом поискать, а оно - вот оно.  
 
Не ругайте сильно, я хороший :)
 
Набросились... Может у человека вчера был тяжёлый день :-)
 
А он предупредил, что "наколенный". Никто не набрасывался. Все помогали.:-)  
 
77188
Я сам - дурнее всякого примера! ...
Страницы: 1
Наверх