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

Вход

Регистрация

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

 

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

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

Excel 2007,2010,2013
еще вариант ^_^
К сообщению приложен файл: PRIMER.xls (51.5 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениееще вариант ^_^
Автор - krosav4ig
Дата добавления - 16.01.2015 в 13:24
krosav4ig Дата: Пятница, 16.01.2015, 14:15 | Сообщение № 482 | Тема: Функция ВПР c частичным поиском
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
здравствутйе, пример файла в студию

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениездравствутйе, пример файла в студию
Автор - krosav4ig
Дата добавления - 16.01.2015 в 14:15
krosav4ig Дата: Пятница, 16.01.2015, 21:44 | Сообщение № 483 | Тема: Объединение таблиц
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Анна2015, обратите внимание на шаг 2б на скрине, для того, чтобы сводная таблица автоматически цепляла новые добавленные строки, при добавлении диапазонов в сводную нужно именно вписывать адреса таблиц в формате [vba]
Код
Имя_таблицы[#Все]
[/vba], а не выделять диапазон таблицы. Если просто выделять диапазон, то новые строки, добавленные в таблицы не будут попадать в сводную

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

Сообщение отредактировал krosav4ig - Пятница, 16.01.2015, 21:44
 
Ответить
СообщениеАнна2015, обратите внимание на шаг 2б на скрине, для того, чтобы сводная таблица автоматически цепляла новые добавленные строки, при добавлении диапазонов в сводную нужно именно вписывать адреса таблиц в формате [vba]
Код
Имя_таблицы[#Все]
[/vba], а не выделять диапазон таблицы. Если просто выделять диапазон, то новые строки, добавленные в таблицы не будут попадать в сводную
Автор - krosav4ig
Дата добавления - 16.01.2015 в 21:44
krosav4ig Дата: Суббота, 17.01.2015, 03:55 | Сообщение № 484 | Тема: Сравнение двух листов, подстановка данных (массив/словарь)
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
может немного не в тему, но все-таки предложу вариант с Power Query, авось где-нить пригодится. Данные для запроса берутся из двух именованных диапазонов.
К сообщению приложен файл: 5573520.xlsm (45.0 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеможет немного не в тему, но все-таки предложу вариант с Power Query, авось где-нить пригодится. Данные для запроса берутся из двух именованных диапазонов.
Автор - krosav4ig
Дата добавления - 17.01.2015 в 03:55
krosav4ig Дата: Понедельник, 19.01.2015, 02:33 | Сообщение № 485 | Тема: Вывод в ячейку номера цикла при условии
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
вариант 1
[vba]
Код
Sub Макрос1()
       Dim i&
       For i = 1000 To 50000 Step 1000
           [A1] = Trim([A1] & " " & i)
       Next i
End Sub
[/vba]
вариант 2
[vba]
Код
Sub Макрос1()
       Dim i&
       For i = 1 To 50000
           If i Mod 1000 = 0 Then [A1] = Trim([A1] & " " & i)
       Next i
End Sub
[/vba]
вариант 3 без цикла
[vba]
Код
Sub Макрос1()
      [A1] = Join(Evaluate("transpose(ROW(1:" & 50000 \ 1000 & "))*1000"), " ")
End Sub
[/vba]

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

Сообщение отредактировал krosav4ig - Понедельник, 19.01.2015, 02:52
 
Ответить
Сообщениевариант 1
[vba]
Код
Sub Макрос1()
       Dim i&
       For i = 1000 To 50000 Step 1000
           [A1] = Trim([A1] & " " & i)
       Next i
End Sub
[/vba]
вариант 2
[vba]
Код
Sub Макрос1()
       Dim i&
       For i = 1 To 50000
           If i Mod 1000 = 0 Then [A1] = Trim([A1] & " " & i)
       Next i
End Sub
[/vba]
вариант 3 без цикла
[vba]
Код
Sub Макрос1()
      [A1] = Join(Evaluate("transpose(ROW(1:" & 50000 \ 1000 & "))*1000"), " ")
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 19.01.2015 в 02:33
krosav4ig Дата: Понедельник, 19.01.2015, 12:55 | Сообщение № 486 | Тема: Формула возвращает много знаков после запятой
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
light26,
формула
Код
=ЕСЛИОШИБКА(ЕСЛИ(И(BQ6:CB6);BW6-BQ6;"");"")

числовой формат
увели\чило\сь на 0,0;у\меньшило\сь на 0,0;без из\менений
и будет вам счастье
К сообщению приложен файл: 4612782.zip (56.9 Kb)

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

Сообщение отредактировал krosav4ig - Понедельник, 19.01.2015, 12:55
 
Ответить
Сообщениеlight26,
формула
Код
=ЕСЛИОШИБКА(ЕСЛИ(И(BQ6:CB6);BW6-BQ6;"");"")

числовой формат
увели\чило\сь на 0,0;у\меньшило\сь на 0,0;без из\менений
и будет вам счастье
Автор - krosav4ig
Дата добавления - 19.01.2015 в 12:55
krosav4ig Дата: Понедельник, 19.01.2015, 19:24 | Сообщение № 487 | Тема: Файл увеличивается в размере.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
может быть стоит попроовать [vba]
Код
Cells(i,1).clearcontents
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеможет быть стоит попроовать [vba]
Код
Cells(i,1).clearcontents
[/vba]
Автор - krosav4ig
Дата добавления - 19.01.2015 в 19:24
krosav4ig Дата: Понедельник, 19.01.2015, 19:39 | Сообщение № 488 | Тема: Эксель не работае* нормально обмен между книгами.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Alexsandr, берем англо-русский словарь и идем читать :)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеAlexsandr, берем англо-русский словарь и идем читать :)
Автор - krosav4ig
Дата добавления - 19.01.2015 в 19:39
krosav4ig Дата: Понедельник, 19.01.2015, 23:31 | Сообщение № 489 | Тема: Файл увеличивается в размере.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
можно еще [vba]
Код
cells(i,1)=empty
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеможно еще [vba]
Код
cells(i,1)=empty
[/vba]
Автор - krosav4ig
Дата добавления - 19.01.2015 в 23:31
krosav4ig Дата: Понедельник, 19.01.2015, 23:34 | Сообщение № 490 | Тема: VBA - определение максимального значения в колонке
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
[vba]
Код
[max(A:A)]
[/vba] :o

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение[vba]
Код
[max(A:A)]
[/vba] :o
Автор - krosav4ig
Дата добавления - 19.01.2015 в 23:34
krosav4ig Дата: Вторник, 20.01.2015, 13:21 | Сообщение № 491 | Тема: Непростое сравнение двух столбцов
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
ТЫК

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

Excel 2007,2010,2013
как-то так, Условное форматирование
К сообщению приложен файл: 3527399.xls (29.5 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениекак-то так, Условное форматирование
Автор - krosav4ig
Дата добавления - 20.01.2015 в 13:43
krosav4ig Дата: Среда, 21.01.2015, 11:51 | Сообщение № 493 | Тема: генератор штрих кода
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
и вот еще
[p.s.]b1 - это архив, открывается через B1 archive manager, можно распаковать тут

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеи вот еще
[p.s.]b1 - это архив, открывается через B1 archive manager, можно распаковать тут
Автор - krosav4ig
Дата добавления - 21.01.2015 в 11:51
krosav4ig Дата: Четверг, 22.01.2015, 00:43 | Сообщение № 494 | Тема: Максимальное значение каждой строки в диапазоне.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
oleg_lar4enko, правила не читали, или не внимательно dont , оформляйте код тегами
еще вариант
[vba]
Код
Sub max()
     With [C1:E50]
         .Offset(, .Columns.Count).Resize(, 1).Formula = "=MAX(" & .Address & " " & .EntireRow(1).Address(0, 0) & ")"
     End With
End Sub
[/vba]

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

Сообщение отредактировал krosav4ig - Четверг, 22.01.2015, 00:44
 
Ответить
Сообщениеoleg_lar4enko, правила не читали, или не внимательно dont , оформляйте код тегами
еще вариант
[vba]
Код
Sub max()
     With [C1:E50]
         .Offset(, .Columns.Count).Resize(, 1).Formula = "=MAX(" & .Address & " " & .EntireRow(1).Address(0, 0) & ")"
     End With
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 22.01.2015 в 00:43
krosav4ig Дата: Четверг, 22.01.2015, 00:49 | Сообщение № 495 | Тема: Ежемесячное действие
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
rand81, вот так

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеrand81, вот так
Автор - krosav4ig
Дата добавления - 22.01.2015 в 00:49
krosav4ig Дата: Четверг, 22.01.2015, 02:02 | Сообщение № 496 | Тема: Подсчет без использования дополнительных таблиц
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
еще вариант, если будет больше дней/смен
1
Код
=СЧЁТЕСЛИ($C$4:ИНДЕКС($C$4:$Q$4;ПОИСКПОЗ(9^9;C5:Q5));ИНДЕКС($C$4:$Q$4;ПОИСКПОЗ(9^9;C5:Q5)))

2 у меня такая же, как у vikttur
Код
=СУММ(W5:Y5)

3-5
Код
=СЧЁТ(1/(ПРОМЕЖУТОЧНЫЕ.ИТОГИ(2;СМЕЩ(C5:Q5;;((""&$C$3:$Q$3)-1)*МАКС($C$4:$Q$4);;МАКС($C$4:$Q$4)))=1))

для 2х или 3х смен =1 заменить на =2 или =3

Upd.
3я формула массивная

еще вариант 1й формулы, тоже массивная
Код
=ОКРУГЛ(СЧЁТ(1/((СТОЛБЕЦ(C5:Q5)>=ТРАНСП(СТОЛБЕЦ(C5:Q5)-МАКС($C$4:$Q$4)))*C5:Q5*ТРАНСП(C5:Q5)))/СЧЁТ(C5:Q5);)

тока шо написал и сам не знаю как она работает :D

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

Сообщение отредактировал krosav4ig - Четверг, 22.01.2015, 02:15
 
Ответить
Сообщениееще вариант, если будет больше дней/смен
1
Код
=СЧЁТЕСЛИ($C$4:ИНДЕКС($C$4:$Q$4;ПОИСКПОЗ(9^9;C5:Q5));ИНДЕКС($C$4:$Q$4;ПОИСКПОЗ(9^9;C5:Q5)))

2 у меня такая же, как у vikttur
Код
=СУММ(W5:Y5)

3-5
Код
=СЧЁТ(1/(ПРОМЕЖУТОЧНЫЕ.ИТОГИ(2;СМЕЩ(C5:Q5;;((""&$C$3:$Q$3)-1)*МАКС($C$4:$Q$4);;МАКС($C$4:$Q$4)))=1))

для 2х или 3х смен =1 заменить на =2 или =3

Upd.
3я формула массивная

еще вариант 1й формулы, тоже массивная
Код
=ОКРУГЛ(СЧЁТ(1/((СТОЛБЕЦ(C5:Q5)>=ТРАНСП(СТОЛБЕЦ(C5:Q5)-МАКС($C$4:$Q$4)))*C5:Q5*ТРАНСП(C5:Q5)))/СЧЁТ(C5:Q5);)

тока шо написал и сам не знаю как она работает :D
Автор - krosav4ig
Дата добавления - 22.01.2015 в 02:02
krosav4ig Дата: Четверг, 22.01.2015, 18:47 | Сообщение № 497 | Тема: Скрыть окно помощи на панеле меню
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
My WebPage

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеMy WebPage
Автор - krosav4ig
Дата добавления - 22.01.2015 в 18:47
krosav4ig Дата: Четверг, 22.01.2015, 18:59 | Сообщение № 498 | Тема: Условие для множества чисел
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
[vba]
Код
If d.exists([a1].Value) Then Range("E3").Resize(d.Count) = Application.Transpose(d.keys)
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение[vba]
Код
If d.exists([a1].Value) Then Range("E3").Resize(d.Count) = Application.Transpose(d.keys)
[/vba]
Автор - krosav4ig
Дата добавления - 22.01.2015 в 18:59
krosav4ig Дата: Суббота, 24.01.2015, 00:23 | Сообщение № 499 | Тема: Шпионские игры - шифрование текста.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
года 3 назад тоже пытался экспериментировать с шифрованием, получился вот такой банальненький алгоритм.
К сообщению приложен файл: ggg.xls (33.0 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениегода 3 назад тоже пытался экспериментировать с шифрованием, получился вот такой банальненький алгоритм.
Автор - krosav4ig
Дата добавления - 24.01.2015 в 00:23
krosav4ig Дата: Суббота, 24.01.2015, 19:10 | Сообщение № 500 | Тема: Скрыть окно помощи на панеле меню
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
[vba]
Код
Application.CommandBars.DisableAskAQuestionDropdown = True
[/vba]

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

Сообщение отредактировал krosav4ig - Суббота, 24.01.2015, 19:12
 
Ответить
Сообщение[vba]
Код
Application.CommandBars.DisableAskAQuestionDropdown = True
[/vba]
Автор - krosav4ig
Дата добавления - 24.01.2015 в 19:10
Мир MS Excel » Записи участника » krosav4ig [2343]
Поиск:

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