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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 148 След.
Максрос: фильтр меньше значения в ячейке
 
кавычка не там
Код
Criteria1:="<" & Range("W7").Value
[ Закрыто] Суммы прописью
 
напишите как есть и как нужно.
П.С. название темы не по правилам.
Составить формулу, которая возле чисел убирает букву
 
Код
=ПОДСТАВИТЬ(C6;" B";"")
подойдет?
Запись ячеек через Userform
 
Код
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
Автоматическое изменение ширины графика
 
как вариант создать рядом таблицу в которую подтягивать нужные данные и при постройке графика использовать динамические диапазоны.
Определение координат шейпов в определенном диапазоне
 
Цитата
radioamator написал:
Координаты относительно собственно листа.
тогда предложенный код подойдет.
Определение координат шейпов в определенном диапазоне
 
Код
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

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

П.С. Вот не хотел писать про ELSE. :)
Визуализация состояния остатков в ячейке
 
Цитата
Nondarion написал:
Возможно это макрос?
нет. Это УФ (условное форматирование).
https://www.planetaexcel.ru/techniques/9/185/
Изменено: V - 11 Дек 2018 16:58:39
Условие If... then выдает ошибку. Неверный синтаксис?
 
ЕжеВика, после Then нужно писать все в одну строку ( что относится к Then) или все с новой строки. Если нет ELSE. :)
П.С. если все в одну строку то end if не нужно.
Код
If r1.Column <> 5 Then MsgBox "error r1", vbCritical: Exit Sub
Изменено: V - 11 Дек 2018 16:51:42
Перенос ячеек со смещением по столбцам, Суммирование столбцов со смещением
 
про сумму не понятно. про заполнение, связка ИНДЕКС и ПОИСПОЗ должна помочь.
П.С. Название темы не о чем.
Как разделить поле на колонки, если текст в поле разделен "переносом строки" (alt+enter)"
 
Сергей, данный метод работает если на клавиатуре есть отдельная цифровая панель. на ноутбуках её может не быть. :)
Изменено: V - 10 Дек 2018 16:10:36
Замена отдельных слов с помощью VBA
 
один вопрос одна тема.
Как разделить поле на колонки, если текст в поле разделен "переносом строки" (alt+enter)"
 
Ctrl+J в окне "Найти" для поиска СИМВОЛ(10)
Текст по столбцам - С разделителями - Другой.
Изменено: V - 10 Дек 2018 15:46:01
Замена отдельных слов с помощью VBA
 
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
Быстрый ввод времени, нужна помощь...
 
Цитата
Алексей П написал:
Файл пример во вложении.
великоват наверно. нет его.
подойдет?
Код
=ВРЕМЯ(ЕСЛИ(ДЛСТР(A1)>2;ЛЕВСИМВ(A1;ДЛСТР(A1)-2);0);ЕСЛИ(ДЛСТР(A1)>1;ПРАВСИМВ(A1;2);A1);0)
Изменено: V - 10 Дек 2018 09:29:41
Добавить столбец, сцепить, найти и вернуть значение со всеми слобцами
 
добавляем столбец ручками и вставляем формулу, растягиваем.
Код
=ВПР($A$1&A2;Leg!$A$1:$B$27;2;)

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