Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти  
Форумы "Планета Excel" » Пользователи » V
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 148 След.
Максрос: фильтр меньше значения в ячейке
 
#
18 Янв 2019 11:51:24
кавычка не там
Код
Criteria1:="<" & Range("W7").Value
 
Перейти    
[ Закрыто] Суммы прописью
 
#
18 Янв 2019 11:28:40
напишите как есть и как нужно.
П.С. название темы не по правилам.
 
Перейти    
Составить формулу, которая возле чисел убирает букву
 
#
15 Янв 2019 11:56:05
Код
=ПОДСТАВИТЬ(C6;" B";"")
подойдет?
 
Перейти    
Запись ячеек через Userform
 
#
15 Янв 2019 11:52:09
Код
If .Columns(1).Find(TextBox1.Text, , xlValues, xlWhole) Is Nothing Then
'  .Rows("2:2").Insert Shift:=xlDown
  r = .Cells(Rows.Count, 1).End(xlUp).Row

 '.Rows("2:2").Insert Shift:=xlDown
'  .Cells(2, 1) = TextBox1.Value
'  .Cells(2, 2) = TextBox2.Value
  .Cells(r + 1, 1) = TextBox1.Value
  .Cells(r + 1, 2) = TextBox2.Value
  Else
 
Перейти    
Автоматическое изменение ширины графика
 
#
8 Янв 2019 08:55:45
как вариант создать рядом таблицу в которую подтягивать нужные данные и при постройке графика использовать динамические диапазоны.
 
Перейти    
Определение координат шейпов в определенном диапазоне
 
#
4 Янв 2019 11:18:17
Цитата
radioamator написал:
Координаты относительно собственно листа.
тогда предложенный код подойдет.
 
Перейти    
Определение координат шейпов в определенном диапазоне
 
#
4 Янв 2019 11:07:51
Код
Dim oDraw As Object, i&
i = 4
On Error Resume Next


For Each oDraw In ActiveSheet.Shapes
    If Not Intersect(oDraw.TopLeftCell, Range("G11:O36")) Is Nothing Then
        Cells(i, 3) = oDraw.Name
        Cells(i, 4) = oDraw.Left
        Cells(i, 5) = oDraw.Top
        i = i + 1
    End If
Next oDraw

координаты относительно чего?
 
Перейти    
Определение координат шейпов в определенном диапазоне
 
#
4 Янв 2019 09:48:21
Код
If Not Intersect(oDraw.TopLeftCell, Range("G11:O36")) Is Nothing Then
 
Перейти    
Заменить ссылки на ячейки в формуле на значения, Конвертация формул
 
#
21 Дек 2018 13:07:48
Цитата
vcomp71 написал:
элегантное решение
если только макросом. Если вручную то выделяете адрес ячейки и жмете F9. ссылка сменится на значение. и так по всем ссылкам.
 
Перейти    
Среднее по динамическому диапазону, границы которого указаны в ячейках.
 
#
19 Дек 2018 10:49:14
Код
=СРЗНАЧ(ИНДЕКС($B$2:$B$365;ПОИСКПОЗ($E$3;$A$2:$A$365;)):ИНДЕКС($B$2:$B$365;ПОИСКПОЗ($E$4;$A$2:$A$365;)))
 
Перейти    
Как вывести из последние позиции из одной таблицы в другую по условию, Как вывести из последние позиции из одной таблицы в другую по условию
 
#
18 Дек 2018 11:08:20
Код
=ИНДЕКС('Выдача ДС'!B:B;НАИБОЛЬШИЙ(ЕСЛИ($C$3='Выдача ДС'!A:A;СТРОКА('Выдача ДС'!B:B);"");СТРОКА(A1)))
 
Перейти    
Как вывести из последние позиции из одной таблицы в другую по условию, Как вывести из последние позиции из одной таблицы в другую по условию
 
#
18 Дек 2018 10:17:47
не понял что нужно, но в вашей формуле есть недочет.
СТРОКА()-4 в вашем файле получается 6-4=2 т.е. берется второе наибольшее, а вам я так думаю нужно первое. т.е СТРОКА()-5
Изменено: V - 18 Дек 2018 10:18:14
 
Перейти    
Копирование таблицы без строк, где в столбце F есть 1., Друзья, помогите написать макрос!
 
#
17 Дек 2018 10:24:26
фильтр по F - выделяем, найти и выделить, группа ячеек, только видимые - копируем - вставляем.
 
Перейти    
UserForm с текстом и полосой прокрутки
 
#
14 Дек 2018 08:23:17
для вписывания в текстбокс вручную в редакторе, текстбокс активировать нужно, ЛКМ по текстбоксу. Рамка станет заштрихованной а не в точку.
Изменено: V - 14 Дек 2018 08:24:48
 
Перейти    
UserForm с текстом и полосой прокрутки
 
#
14 Дек 2018 08:17:36
свойство Text.
 
Перейти    
Через каждые N символов вставить знак (любой) VBA
 
#
13 Дек 2018 17:11:08
Отсчет сначала или с конца?
 
Перейти    
Сортировка с "конца"
 
#
11 Дек 2018 17:13:53
Как вариант: единожды, вручную составить свой список, внести его в списки и пользоваться им в дальнейшем.
 
Перейти    
Условие If... then выдает ошибку. Неверный синтаксис?
 
#
11 Дек 2018 17:05:33
RAN, я имел ввиду такой вариант. :)
Код
If r1.Column <> 5 Then MsgBox "error r1", vbCritical: Exit Sub
Else
    MsgBox "Ой!"
end if
End If

П.С. Вот не хотел писать про ELSE. :)
 
Перейти    
Визуализация состояния остатков в ячейке
 
#
11 Дек 2018 16:55:11
Цитата
Nondarion написал:
Возможно это макрос?
нет. Это УФ (условное форматирование).
https://www.planetaexcel.ru/techniques/9/185/
Изменено: V - 11 Дек 2018 16:58:39
 
Перейти    
Условие If... then выдает ошибку. Неверный синтаксис?
 
#
11 Дек 2018 16:48:58
ЕжеВика, после Then нужно писать все в одну строку ( что относится к Then) или все с новой строки. Если нет ELSE. :)
П.С. если все в одну строку то end if не нужно.
Код
If r1.Column <> 5 Then MsgBox "error r1", vbCritical: Exit Sub
Изменено: V - 11 Дек 2018 16:51:42
 
Перейти    
Перенос ячеек со смещением по столбцам, Суммирование столбцов со смещением
 
#
11 Дек 2018 09:17:17
про сумму не понятно. про заполнение, связка ИНДЕКС и ПОИСПОЗ должна помочь.
П.С. Название темы не о чем.
 
Перейти    
Как разделить поле на колонки, если текст в поле разделен "переносом строки" (alt+enter)"
 
#
10 Дек 2018 16:09:54
Сергей, данный метод работает если на клавиатуре есть отдельная цифровая панель. на ноутбуках её может не быть. :)
Изменено: V - 10 Дек 2018 16:10:36
 
Перейти    
Замена отдельных слов с помощью VBA
 
#
10 Дек 2018 16:07:39
один вопрос одна тема.
 
Перейти    
Как разделить поле на колонки, если текст в поле разделен "переносом строки" (alt+enter)"
 
#
10 Дек 2018 15:43:23
Ctrl+J в окне "Найти" для поиска СИМВОЛ(10)
Текст по столбцам - С разделителями - Другой.
Изменено: V - 10 Дек 2018 15:46:01
 
Перейти    
Замена отдельных слов с помощью VBA
 
#
10 Дек 2018 10:26:55
replace в помощь.
Код
For i = 2 To Cells(Rows.Count, 7).End(xlUp).Row
    Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).Replace Cells(i, 7), Cells(i, 8)
Next
Изменено: V - 10 Дек 2018 10:33:54
 
Перейти    
Быстрый ввод времени, нужна помощь...
 
#
10 Дек 2018 09:22:44
Цитата
Алексей П написал:
Файл пример во вложении.
великоват наверно. нет его.
подойдет?
Код
=ВРЕМЯ(ЕСЛИ(ДЛСТР(A1)>2;ЛЕВСИМВ(A1;ДЛСТР(A1)-2);0);ЕСЛИ(ДЛСТР(A1)>1;ПРАВСИМВ(A1;2);A1);0)
Изменено: V - 10 Дек 2018 09:29:41
 
Перейти    
Добавить столбец, сцепить, найти и вернуть значение со всеми слобцами
 
#
5 Дек 2018 16:49:16
добавляем столбец ручками и вставляем формулу, растягиваем.
Код
=ВПР($A$1&A2;Leg!$A$1:$B$27;2;)

подойдет?
 
Перейти    
Запуск группы макросов по нескольким условиям
 
#
5 Дек 2018 13:12:56
вешаем код на кнопку пуск. в цикле проверяем чекбоксы и на выходе запускаем нужный макрос.
 
Перейти    
Макрос на дублирование строки без значений
 
#
30 Ноя 2018 13:41:25
поищите по форуму, было уже такое.
 
Перейти    
Поиск части слов в ячейках
 
#
30 Ноя 2018 10:44:36
подстановочные символы никто не отменял, а если ввести *Ивано*нович*
Изменено: V - 30 Ноя 2018 10:45:43
 
Перейти    
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 148 След.
Наверх