Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Записи участника (krosav4ig) - Мир MS Excel

Старая форма входа
Мир MS Excel » Записи участника » krosav4ig [2343]
Результаты поиска
krosav4ig Дата: Пятница, 24.04.2015, 13:56 | Сообщение № 1621 | Тема: посчитать кол-во уникальных числовых значений за период
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Еще вариант, формула массивная, вводится комбинацией Ctrl+Shift+Enter
Код
=СУММ(ЕСЛИ(ЧАСТОТА(ЕСЛИ(РАЗНДАТ(ДАТАМЕС(J$3;-99);$G$5:$G$9;"m")=99;$A$5:$F$9);$A$5:$F$9);1))

опоздал :(

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Пятница, 24.04.2015, 13:57
 
Ответить
СообщениеЕще вариант, формула массивная, вводится комбинацией Ctrl+Shift+Enter
Код
=СУММ(ЕСЛИ(ЧАСТОТА(ЕСЛИ(РАЗНДАТ(ДАТАМЕС(J$3;-99);$G$5:$G$9;"m")=99;$A$5:$F$9);$A$5:$F$9);1))

опоздал :(
Автор - krosav4ig
Дата добавления - 24.04.2015 в 13:56
krosav4ig Дата: Пятница, 24.04.2015, 12:18 | Сообщение № 1622 | Тема: Поиск условия и копирование данных между листами
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013

В R26 можно написать формулу
Код
=СРЗНАЧ(R19:R25)
(наверно)
К сообщению приложен файл: 4849650.xlsm (35.1 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение

В R26 можно написать формулу
Код
=СРЗНАЧ(R19:R25)
(наверно)
Автор - krosav4ig
Дата добавления - 24.04.2015 в 12:18
krosav4ig Дата: Четверг, 23.04.2015, 16:01 | Сообщение № 1623 | Тема: Поиск условия и копирование данных между листами
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
KolyvanOFF, сколько значений с листа чек нужно копировать? на листе свод 7 строк, на листе чек - 8...

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеKolyvanOFF, сколько значений с листа чек нужно копировать? на листе свод 7 строк, на листе чек - 8...
Автор - krosav4ig
Дата добавления - 23.04.2015 в 16:01
krosav4ig Дата: Четверг, 23.04.2015, 14:15 | Сообщение № 1624 | Тема: Выборка данных из таблицы с разных листов по 2-ум условиям
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
как вариант, сводной
К сообщению приложен файл: 6416804.xlsx (24.6 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениекак вариант, сводной
Автор - krosav4ig
Дата добавления - 23.04.2015 в 14:15
krosav4ig Дата: Среда, 22.04.2015, 18:13 | Сообщение № 1625 | Тема: Массив нулевой длины (пустой)
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
[vba]
Код
Sub check_ar()
     Dim some_array(), N&
     On Error Resume Next
     N = UBound(some_array)
     If Err > N Then
         MsgBox "some_array is not exist!": Err.Clear
         Else: MsgBox "some_array is exist!"
     End If
End Sub
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение[vba]
Код
Sub check_ar()
     Dim some_array(), N&
     On Error Resume Next
     N = UBound(some_array)
     If Err > N Then
         MsgBox "some_array is not exist!": Err.Clear
         Else: MsgBox "some_array is exist!"
     End If
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 22.04.2015 в 18:13
krosav4ig Дата: Вторник, 21.04.2015, 22:57 | Сообщение № 1626 | Тема: сортировка динамических диапазонов
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
ага

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеага
Автор - krosav4ig
Дата добавления - 21.04.2015 в 22:57
krosav4ig Дата: Вторник, 21.04.2015, 22:27 | Сообщение № 1627 | Тема: Настройка полей в сводной таблице.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
можно с помощью надстройки Power Query
К сообщению приложен файл: 2620279.xlsm (35.2 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеможно с помощью надстройки Power Query
Автор - krosav4ig
Дата добавления - 21.04.2015 в 22:27
krosav4ig Дата: Вторник, 21.04.2015, 20:31 | Сообщение № 1628 | Тема: Копирование значения по столбцу в другие ячейки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата AlexBor, 21.04.2015 в 13:21, в сообщении № 8
А как Вы файл с Visual Basic сохранили в формате *.xls вместо *.xlsm?
ну дык Alt+ФВН (в 2007) в 2013 Alt+ФК, выбрать куда, выбрать тип 97-2003

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Вторник, 21.04.2015, 22:40
 
Ответить
Сообщение
Цитата AlexBor, 21.04.2015 в 13:21, в сообщении № 8
А как Вы файл с Visual Basic сохранили в формате *.xls вместо *.xlsm?
ну дык Alt+ФВН (в 2007) в 2013 Alt+ФК, выбрать куда, выбрать тип 97-2003
Автор - krosav4ig
Дата добавления - 21.04.2015 в 20:31
krosav4ig Дата: Вторник, 21.04.2015, 15:45 | Сообщение № 1629 | Тема: Сравнение ячеек со множеством значений
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
сократил свою третью формулу с 1440 до 954 891 (648 588 по условиям задачи)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Вторник, 21.04.2015, 16:14
 
Ответить
Сообщениесократил свою третью формулу с 1440 до 954 891 (648 588 по условиям задачи)
Автор - krosav4ig
Дата добавления - 21.04.2015 в 15:45
krosav4ig Дата: Вторник, 21.04.2015, 11:43 | Сообщение № 1630 | Тема: сортировка динамических диапазонов
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
[vba]
Код
Sub Сорт()
       Dim rng As Диапазон
       С Пересечение(Пересечение(ВсеЯчейкиЛистаСДанными, [C:C]).ПустыеЯчейки.ВсяСтрока, [A:B])
           Для Каждого rng В .Области
               rng.Сортировать rng(1, 2), xlПоВозрастанию
           Next
       Конец С
       MsgBox "отсортировано"
End Sub
[/vba] luny, так понятнее? ;)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Вторник, 21.04.2015, 11:46
 
Ответить
Сообщение[vba]
Код
Sub Сорт()
       Dim rng As Диапазон
       С Пересечение(Пересечение(ВсеЯчейкиЛистаСДанными, [C:C]).ПустыеЯчейки.ВсяСтрока, [A:B])
           Для Каждого rng В .Области
               rng.Сортировать rng(1, 2), xlПоВозрастанию
           Next
       Конец С
       MsgBox "отсортировано"
End Sub
[/vba] luny, так понятнее? ;)
Автор - krosav4ig
Дата добавления - 21.04.2015 в 11:43
krosav4ig Дата: Понедельник, 20.04.2015, 16:09 | Сообщение № 1631 | Тема: Копирование значения по столбцу в другие ячейки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
AlexBor, замените [vba]
Код
Target.Count > 1
[/vba] на [vba]
Код
Target.Count > 1 Or Intersect([C9:AG43], Target) Is Nothing
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеAlexBor, замените [vba]
Код
Target.Count > 1
[/vba] на [vba]
Код
Target.Count > 1 Or Intersect([C9:AG43], Target) Is Nothing
[/vba]
Автор - krosav4ig
Дата добавления - 20.04.2015 в 16:09
krosav4ig Дата: Понедельник, 20.04.2015, 13:59 | Сообщение № 1632 | Тема: Сравнение ячеек со множеством значений
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
у мну 2 формулы, обе 75, одна массивная, другая - нет массивная 71 63, немассивная 75 74
и еще одна 1440 :) массивная для любого количества любых чисел
все без "="

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Понедельник, 20.04.2015, 21:13
 
Ответить
Сообщениеу мну 2 формулы, обе 75, одна массивная, другая - нет массивная 71 63, немассивная 75 74
и еще одна 1440 :) массивная для любого количества любых чисел
все без "="
Автор - krosav4ig
Дата добавления - 20.04.2015 в 13:59
krosav4ig Дата: Понедельник, 20.04.2015, 04:24 | Сообщение № 1633 | Тема: Сравнение ячеек со множеством значений
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
[offtop]а у мну все равно 97 ;) [/offtop]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение[offtop]а у мну все равно 97 ;) [/offtop]
Автор - krosav4ig
Дата добавления - 20.04.2015 в 04:24
krosav4ig Дата: Понедельник, 20.04.2015, 01:58 | Сообщение № 1634 | Тема: Сравнение ячеек со множеством значений
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
а у мну есть формула короче и я хотю МШ :p
Chesse, по поводу ЛС

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Понедельник, 20.04.2015, 02:01
 
Ответить
Сообщениеа у мну есть формула короче и я хотю МШ :p
Chesse, по поводу ЛС
Автор - krosav4ig
Дата добавления - 20.04.2015 в 01:58
krosav4ig Дата: Понедельник, 20.04.2015, 00:33 | Сообщение № 1635 | Тема: сортировка динамических диапазонов
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
[vba]
Код
Sub Сорт()
      Dim rng As Range
      With Intersect(Intersect(ActiveSheet.UsedRange, [C:C]).SpecialCells(4).EntireRow, [A:B])
          For Each rng In .Areas
              rng.sort rng(1, 2), xlAscending
          Next
      End With
      MsgBox "отсортировано"
End Sub
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Понедельник, 20.04.2015, 00:34
 
Ответить
Сообщение[vba]
Код
Sub Сорт()
      Dim rng As Range
      With Intersect(Intersect(ActiveSheet.UsedRange, [C:C]).SpecialCells(4).EntireRow, [A:B])
          For Each rng In .Areas
              rng.sort rng(1, 2), xlAscending
          Next
      End With
      MsgBox "отсортировано"
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 20.04.2015 в 00:33
krosav4ig Дата: Воскресенье, 19.04.2015, 23:51 | Сообщение № 1636 | Тема: Последовательное копирование строк на новый лист
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Spark777, держите еще вариант
Заполняете столбцы Заказ на листах, на листе Заказ таблица формируется автоматически
К сообщению приложен файл: Test.xlsm (27.5 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеSpark777, держите еще вариант
Заполняете столбцы Заказ на листах, на листе Заказ таблица формируется автоматически
Автор - krosav4ig
Дата добавления - 19.04.2015 в 23:51
krosav4ig Дата: Воскресенье, 19.04.2015, 01:56 | Сообщение № 1637 | Тема: Создать список клиентов для фирмы
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
еще вариант с использованием надстройки Power Query (для работы запроса в файле она должна быть установлена)
Свой исходный список вставляете в первый столбец Таблицы1, жмете Ctrl+Alt+F5 и в после выполнения запроса в таблице Список (справа) появляется сформированный список
К сообщению приложен файл: 9833490.xls (71.0 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениееще вариант с использованием надстройки Power Query (для работы запроса в файле она должна быть установлена)
Свой исходный список вставляете в первый столбец Таблицы1, жмете Ctrl+Alt+F5 и в после выполнения запроса в таблице Список (справа) появляется сформированный список
Автор - krosav4ig
Дата добавления - 19.04.2015 в 01:56
krosav4ig Дата: Суббота, 18.04.2015, 21:32 | Сообщение № 1638 | Тема: Копирование числа в ячейке
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата GSV_GRASEV, 18.04.2015 в 19:18, в сообщении № 1
Excel 2007
Ctrl+Alt+V, потом двойной тык по слову значения (или Alt+з>Enter)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Цитата GSV_GRASEV, 18.04.2015 в 19:18, в сообщении № 1
Excel 2007
Ctrl+Alt+V, потом двойной тык по слову значения (или Alt+з>Enter)
Автор - krosav4ig
Дата добавления - 18.04.2015 в 21:32
krosav4ig Дата: Суббота, 18.04.2015, 21:26 | Сообщение № 1639 | Тема: Поиск предыдущего минимального значения от задаваемой даты
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
еще вариант
Код
=ЕСЛИОШИБКА(СУММ(МАКС($O$3:ИНДЕКС($O$3:$O$33;ПОИСКПОЗ($E$7-1;$J$3:$J$33)))^{1;0})-1;ВПР(E7;$J$3:$O$33;6))

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениееще вариант
Код
=ЕСЛИОШИБКА(СУММ(МАКС($O$3:ИНДЕКС($O$3:$O$33;ПОИСКПОЗ($E$7-1;$J$3:$J$33)))^{1;0})-1;ВПР(E7;$J$3:$O$33;6))
Автор - krosav4ig
Дата добавления - 18.04.2015 в 21:26
krosav4ig Дата: Суббота, 18.04.2015, 18:38 | Сообщение № 1640 | Тема: Настроить быстрый ввод минут и секунд
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
еще вариант с проверкой на минуты и секунд, если больше 59, то число в время не переведется
для 6 цифр, с часами
[vba]
Код
v=Val(Target)
     Target = IIf(Target \ 100 Mod 100 < 60 And v Mod 100 < 60, _
     TimeSerial(v \ 10000, v \ 100 Mod 100, v Mod 100), v)
[/vba]
для 4 цифр, без часов
[vba]
Код
v=Val(Target)
     Target = IIf(v \ 100 < 60 And v Mod 100 < 60, _
     TimeSerial(0, v \ 100, v Mod 100), v)
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениееще вариант с проверкой на минуты и секунд, если больше 59, то число в время не переведется
для 6 цифр, с часами
[vba]
Код
v=Val(Target)
     Target = IIf(Target \ 100 Mod 100 < 60 And v Mod 100 < 60, _
     TimeSerial(v \ 10000, v \ 100 Mod 100, v Mod 100), v)
[/vba]
для 4 цифр, без часов
[vba]
Код
v=Val(Target)
     Target = IIf(v \ 100 < 60 And v Mod 100 < 60, _
     TimeSerial(0, v \ 100, v Mod 100), v)
[/vba]
Автор - krosav4ig
Дата добавления - 18.04.2015 в 18:38
Мир MS Excel » Записи участника » krosav4ig [2343]
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!