Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » NCHN
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Добавление текста в сводную таблицу, Как добавить определенный текст в сводную таблицу
 
#
12.08.2019 09:47:11
volfman, Классно, А как вы сделали такую таблицу. Как ее повторить мне в других файлах.  
 
Перейти    
Добавление текста в сводную таблицу, Как добавить определенный текст в сводную таблицу
 
#
08.08.2019 22:49:53
Ігор Гончаренко, Я бы с радостью. Но нужно именно в сводной таблице. На худой конец можно самостоятельно таблицу через VBA сделать. Но там много что придется писать в макросе.
Если есть возможность то лучше в сводной таблице.  
 
Перейти    
Добавление текста в сводную таблицу, Как добавить определенный текст в сводную таблицу
 
#
08.08.2019 22:20:30
Добрый вечер.
Из Лист1 делается сводная таблица(Лист2).
Как сделать что бы вместо цифр в сводной таблице было перечисление названий задач
например У Миши, нужно чтобы вместо цифры  "2" в ячейке было написано:

1. Отправить товар в Москву
2. Созвониться с контрагентами

И на других цифрах тоже

Можете посоветовать как это реализовать в сводной таблице?
EXCEL 2013  
 
Перейти    
Как сохранить в массив только первые 4 символа ячейки
 
#
25.07.2019 16:01:45
Код
For i = 1 To 20
   a(i,1) =  Left(Cells(i, 1), 4)
Next
 
Перейти    
Как сохранить в массив только первые 4 символа ячейки
 
#
25.07.2019 13:39:50
Sanja, Спасибо ,а как сразу записать в массив 4 символа, Без пост обработки  
 
Перейти    
Как сохранить в массив только первые 4 символа ячейки
 
#
25.07.2019 09:14:25
Добрый день.
Есть столбец,в нем записаны тексты. В данном моменте мы записываем в массив таблицу А и Выводим массив в таблицу Сю
Я хочу через макрос VBA сохранить в массив только первые 4 символа.Используя массив
Я не знаю как реализовать.
Прикладываю код и файл.
Код
Sub Макрос1()
'
' Макрос1 Макрос
'
' Сочетание клавиш: Ctrl+й
'
   Columns("A:A").Select
   Dim a As Variant
   a = Range("A:A").Value
   
   Dim i As Long
   For i = 1 To 20
   Cells(i, 3).Value = a(i, 1)
   Next
End Sub

Посоветуйте каким методом можно реализовать эту функцию.
Нужен только макрос. Т,К Этот макрос будет использоваться в других макросах.
Спасибо  
 
Перейти    
Страницы: 1
Наверх