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

Страницы: 1 2 След.
сгруппировать числа в столбце и записать через тире
 
#
20.07.2017 17:03:10
Я благодарю Вас! Это как раз то, что надо!
 
Перейти    
сгруппировать числа в столбце и записать через тире
 
#
20.07.2017 14:58:42
Подскажите пожалуйста, как можно путём формул или vba сгруппировать числа в столбце и записать их через тире
1
2
3
4
8
34
35
36

в итоге нужно иметь 1-4, 8, 34-36
 
Перейти    
Найти наиболее похожие числа (комбинация цифр) поиск или сравнение двух столбиков
 
#
11.02.2015 09:59:07
Хорошие формулы! Большое Вам Спасибо!
 
Перейти    
Найти наиболее похожие числа (комбинация цифр) поиск или сравнение двух столбиков
 
#
11.02.2015 09:01:19
Добрый день! Подскажите пожалуйста, а возможно ли это реализовать (автоматизировать)?
Найти наиболее похожие числа (комбинация цифр) сравнение двух столбиков
1. В первом столбике цифры забиваемые первым человеком
2. Во втором столбике цифры забиваемые вторым человеком
Первый ошибся и ввёл не верный номер (одну цифру записал неверно)
Нужно во втором столбике найти наиболее похожее число по комбинации цифр. Чисел может быть несколько (наиболее похожих)
Изменено: Tebenkov Igor - 11.02.2015 09:21:59
 
Перейти    
Отфильтровать по определённым данным
 
#
25.12.2014 10:25:07
http://www.planetaexcel.ru/techniques/2/197/
Там есть раздел: Реализация сложных запросов

А для моего примера нужно всего навсего задать критерий поиска: "?.*"
И ничего более. Благодарю за участие в реализации этой маленькой идеи.  :)
 
Перейти    
Отфильтровать по определённым данным
 
#
25.12.2014 09:50:40
В общем я сам разобрался. Нужно всего навсего задать критерий поиска: "?.*"
Спасибо за внимание.
 
Перейти    
Отфильтровать по определённым данным
 
#
25.12.2014 09:36:18
Добрый день. В excele 2010 можно в фильтре мышкой щёлкать и выбирать те позиции, которые нужно оставить. А вот можно ли как-то автоматизировать этот процесс? Куда-то нажать, или макрос может такой есть?
Надо отфильтровать по данным, где значение начинается с цифр. ГЭСН, Раздел, Примечание - это не нужно.
 
Перейти    
Вставка данных из другого файла
 
#
16.12.2014 15:37:33
Спасибо за информацию. Буду искать другой вариант.
 
Перейти    
Вставка данных из другого файла
 
#
16.12.2014 14:05:45
Добрый день! Помогите пожалуйста формулу изменить.
Макрос вытаскивает из группы файлов из указанной папки значения указанных ячеек.
Мне нужно, когда формула шагнула на (известный мне адрес) ячейку E1, чтобы ещё прыгнула (CTRL+Down) и вытащила данные уже из ячейки E10

Код
...
Cells(i, 2).Formula = "='" & myPath & "[" & myName & "]Лист3'!$E$1"
...
Изменено: Tebenkov Igor - 16.12.2014 14:11:39
 
Перейти    
Макрос нумерации без скрытых ячеек
 
#
03.12.2014 17:13:13
Спасибо. Вы натолкнули меня на мысль. Скрытые ячейки теперь не участвуют
вот код:
Код
...
'это если нужно вниз нумеровать строчки
If icell.Rows.EntireRow.Hidden = False Then

'а это если нужно вправо нумеровать строчки
If iCell.EntireColumn.Hidden = False Then
 ...
Изменено: Tebenkov Igor - 03.12.2014 17:13:49
 
Перейти    
Макрос нумерации без скрытых ячеек
 
#
03.12.2014 16:50:20
Есть вот код для нумерации ячеек. Он нумерует нумеровать и вниз и вбок. Но нумерация продолжается в скрытых ячейках. А вот можно ли пронумеровать ячейки без скрытых ячеек? Скрытые ячейки пропускать.

Код
Sub Numbers()
i = 1
For Each icell In Selection
    If icell.Rows.Hidden = False Then
        icell.Value = i
        i = i + 1
    End If
Next
End Sub
 
Перейти    
В формулу добавить значение из другой ячейки
 
#
01.12.2014 12:41:08
А, так это вы Vikttur исправили код без тегов.  А я подумал, что код сам исправился  :) )))
 
Перейти    
В формулу добавить значение из другой ячейки
 
#
01.12.2014 12:37:15
Крутяк! Большое Спасибо! Я вот тут ещё забыл указать в тексте, что если нечего плюсовать, то формула остаётся в покое. Ну я тут немножко доработал под свои нужды. Теперь формула работает.
Код
Sub SumDop()
Dim LastRow As Long, i As Long
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
        For i = 2 To LastRow
    m = Cells(i, 5)
 If m > 0 Then
         Cells(i, 4).Value = "=" & Cells(i, 1).Address(RowAbsolute:=False, ColumnAbsolute:=False) _
& "*" & Cells(i, 2).Address(RowAbsolute:=False, ColumnAbsolute:=False) & "+" & m
Cells(i, 4).Font.ColorIndex = 3
 ElseIf m < 0 Then
         Cells(i, 4).Value = "=" & Cells(i, 1).Address(RowAbsolute:=False, ColumnAbsolute:=False) _
& "*" & Cells(i, 2).Address(RowAbsolute:=False, ColumnAbsolute:=False) & "-" & Abs(m)
Cells(i, 4).Font.ColorIndex = 3
  Else
         Cells(i, 4).Value = "=" & Cells(i, 1).Address(RowAbsolute:=False, ColumnAbsolute:=False) _
& "*" & Cells(i, 2).Address(RowAbsolute:=False, ColumnAbsolute:=False)
 End If
 Next
 End Sub
Изменено: Tebenkov Igor - 01.12.2014 12:39:03
 
Перейти    
В формулу добавить значение из другой ячейки
 
#
01.12.2014 11:47:41
Вот это уже больше подходит! Получается =$A$2*$B$2+-1 . Ну эти доллары можно будет удалить потом через замену символов. А вот как реализовать, если при получении  "+ -", (плюс и минус) в формулу записывался только минус "-" =A2*B2-1
 
Перейти    
В формулу добавить значение из другой ячейки
 
#
01.12.2014 10:37:05
Ну нет, так не пойдёт. Надо код макроса править, чтобы выглядело, как будто это я в формуле ручками добавил "+7" или "-4".
 
Перейти    
В формулу добавить значение из другой ячейки
 
#
01.12.2014 10:20:28
Просто я планировал этот столбец "Е" потом после всех манипуляций удалить.
 
Перейти    
Как код макроса вставляемого в сообщение разукрашивать (кнопкой ТЕГА)?
 
#
01.12.2014 09:31:41
А как сделать, чтобы так красиво было? Имею ввиду последовательность моих действий.
 
Перейти    
В формулу добавить значение из другой ячейки
 
#
01.12.2014 09:27:23
Готовый результат это конечно можно. Так проще. Но мне нужно именно так, чтобы видно было где и сколько добавлено. Если это невыполнимо, тогда я смирюсь с тем, что есть, но лёгкий путь это не для нас :)
 
Перейти    
В формулу добавить значение из другой ячейки
 
#
01.12.2014 09:14:15
Нет, так не годится. Надо именно чтобы изменилась формула не на =А2*В2-Е2, а на =А2*В2-1
Изменено: Tebenkov Igor - 01.12.2014 09:14:35
 
Перейти    
Как код макроса вставляемого в сообщение разукрашивать (кнопкой ТЕГА)?
 
#
01.12.2014 09:08:46
Хотел код макроса в сообщении вставить и разукрасить, как положено соответствующим тегом.
А где инструкцию по эксплуатации почитать?
 
Перейти    
В формулу добавить значение из другой ячейки
 
#
01.12.2014 09:01:24
Уважаемые знатоки Экселя, подскажите пожалуйста, как в формулу добавить значение из другой ячейки и протянуть формулу до последней ячейки в столбце? Формула должна быть не постоянной А2*В2, а меняться в соответствии с адресом ячеек (А3*В3, А4*В4). В итоге чтобы получилось А2*В2+3, А3*В3-4.
Пример я прикладываю с разработанным мной макросом. Он в частично сделан, только адреса ячеек типа А2*В2 не могу сообразить, как добавить.
 
Перейти    
Как выдилить макросом диапазон от ТЕКУЩЕЙ АКТИВНОЙ ячейки до например ячейки A1 ?, Нужно выделить диапазон от текущей ячейки до какой-нибудь другой
 
#
29.11.2014 14:37:21
Спасибо. А ещё подскажите пожалуйста. Вот вы пишите: - "код на форуме следует оформлять соответствующим тегом." Это каким образом можно можно осуществить?
 
Перейти    
Как выдилить макросом диапазон от ТЕКУЩЕЙ АКТИВНОЙ ячейки до например ячейки A1 ?, Нужно выделить диапазон от текущей ячейки до какой-нибудь другой
 
#
29.11.2014 14:08:47
Добрый день уважаемые мастера Excel!
Подскажите пожалуйста, как выделить макросом диапазон от ТЕКУЩЕЙ ЯЧЕЙКИ до например A1 ?
Текущая ячейка - это не конкретно B10. Это ячейка которая получается в разном месте в разных случаях. (т.е. Текущая активная ячейка).
Код
Sub Макрос1()
    Range("B10").Activate
    Range("A1:B10") .Select
    Selection.Copy
End Sub
 
Перейти    
Сквозная нумерация столбцов (кроме тех которые сжаты)
 
#
15.03.2012 09:06:30
Подскажите пожалуйста как это можно сделать сквозная нумерация столбцов (кроме тех которые сжаты).
 
Перейти    
Как объединить суммы продаж по дням?
 
#
13.12.2011 09:30:32
Hugo, дорботайте пожалуйста Ваш супер полезный макрос, чтобы в итоговом файле стало 4 столбца:  
 
В итоговом новом файле будут 4 столбца:  
1. уникальные  
2. суммы  
3. суммы  
4. сколько раз встретилось уникальное (количество повторов)
 
Перейти    
Сортировка и суммирование по одинаковым данным
 
#
12.12.2011 16:05:16
Я из далека конечно начал своими вопросами… Думал, что простой пример приведу и этого будет достаточно. И никак не могу внедрить в свою таблицу ваши формулы.    
 
Посмотрите пожалуйста, как к более сложной и большой таблице применить «Сортировку и суммирование по одинаковым данным»  
 
Поменьше файл сделал я.
 
Перейти    
Сортировка и суммирование по одинаковым данным
 
#
12.12.2011 15:32:54
Макрос хороший.  
Я из далека конечно начал своими вопросами… Думал, что простой пример приведу и этого будет достаточно. И никак не могу внедрить в свою таблицу ваши формулы.    
 
Посмотрите пожалуйста, как к более сложной и большой таблице применить «Сортировку и суммирование по одинаковым данным»  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>
 
Перейти    
Сортировка и суммирование по одинаковым данным
 
#
12.12.2011 13:26:47
Владимир, Ваша формула хороша. Но вот при добавлении строк в таблицу почему-то она перестаёт считать. Пишет "#Н/Д". Как расширить диапазон в этой формуле?  
 
Нужно тысяч этак на пять строк расширить диапазон...
 
Перейти    
Сортировка и суммирование по одинаковым данным
 
#
12.12.2011 11:56:03
Помогите пожалуйста. Нужно отсортировать по одинаковым наименованиям,  и сложить количество в этих одинаковых наименованиях.
 
Перейти    
Сцепление двух дат в одну ячейку
 
#
05.11.2011 13:42:41
Ура!!! мы его победили!!! Спасибо!  
 
Новая замудрённая формула работает на всех компьютерах!  
="с "&ТЕКСТ(G25;ЕСЛИ(ТЕКСТ(1;"дд")="01";"дд.ММ.ГГ";"dd.mm.yy"))&"г. по "&ТЕКСТ(H25;ЕСЛИ(ТЕКСТ(1;"дд")="01";"дд.ММ.ГГ";"dd.mm.yy"))&"г."  
 
P.S. Однако непонятно, почему один компьютер понимает формулу, а другой нет? С чем это связано? ОФис 2010 стоит на всех компьютерах один и тот же.
 
Перейти    
Страницы: 1 2 След.
Наверх