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

Вход

Регистрация

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

 

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

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

Excel 2007,2010,2013
еще вариант
Код
=ПРОСМОТР(ДЛСТР(B2)&ДЛСТР(M2);{55;57;75;77}&"";{"Акт не сдaн.";"";"Сдан оригинал.";"Сдана копия"})

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениееще вариант
Код
=ПРОСМОТР(ДЛСТР(B2)&ДЛСТР(M2);{55;57;75;77}&"";{"Акт не сдaн.";"";"Сдан оригинал.";"Сдана копия"})
Автор - krosav4ig
Дата добавления - 23.09.2014 в 20:40
krosav4ig Дата: Вторник, 23.09.2014, 21:31 | Сообщение № 182 | Тема: Среднее значение по 2 основаниям
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
посччитать сумму можно еще так
для R38 массивная формула
Код
=МУМНОЖ(ТРАНСП(МУМНОЖ(--(0&$C$2:$AI$34);--(ТРАНСП($C$1:$AI$1)=R$37)));--($B$2:$B$34=$Q38))

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

Сообщение отредактировал krosav4ig - Вторник, 23.09.2014, 22:21
 
Ответить
Сообщениепосччитать сумму можно еще так
для R38 массивная формула
Код
=МУМНОЖ(ТРАНСП(МУМНОЖ(--(0&$C$2:$AI$34);--(ТРАНСП($C$1:$AI$1)=R$37)));--($B$2:$B$34=$Q38))
Автор - krosav4ig
Дата добавления - 23.09.2014 в 21:31
krosav4ig Дата: Вторник, 23.09.2014, 21:55 | Сообщение № 183 | Тема: Сокращение формулы подстановки значений
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
еще вариант
Код
=ПОИСКПОЗ(1;СЧЁТЕСЛИ(СМЕЩ($F$2:$F$65536;;{0;1;2});A2)^0;)

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

Сообщение отредактировал krosav4ig - Вторник, 23.09.2014, 21:57
 
Ответить
Сообщениееще вариант
Код
=ПОИСКПОЗ(1;СЧЁТЕСЛИ(СМЕЩ($F$2:$F$65536;;{0;1;2});A2)^0;)
Автор - krosav4ig
Дата добавления - 23.09.2014 в 21:55
krosav4ig Дата: Воскресенье, 28.09.2014, 02:22 | Сообщение № 184 | Тема: Заполнение значений таблицы при выборе значения из списка
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Здесь смотрели?

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

Excel 2007,2010,2013
а обязательно макросом?
К сообщению приложен файл: 0864914.xlsx (12.2 Kb)

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

Excel 2007,2010,2013
ну тогда как-то так
К сообщению приложен файл: 1648347.xls (46.5 Kb)

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

Сообщение отредактировал krosav4ig - Воскресенье, 28.09.2014, 17:13
 
Ответить
Сообщениену тогда как-то так
Автор - krosav4ig
Дата добавления - 28.09.2014 в 17:12
krosav4ig Дата: Воскресенье, 28.09.2014, 17:38 | Сообщение № 187 | Тема: Присвоить уникальное значение
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

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

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

Сообщение отредактировал krosav4ig - Воскресенье, 28.09.2014, 17:41
 
Ответить
Сообщениекак-то так
Автор - krosav4ig
Дата добавления - 28.09.2014 в 17:38
krosav4ig Дата: Воскресенье, 28.09.2014, 18:18 | Сообщение № 188 | Тема: Найти ошибку в формуле по выделению нескольких слов
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

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

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

Excel 2007,2010,2013
lisa3281, немножко подправил формулу Nic70y
К сообщению приложен файл: 18_1.xlsx (15.3 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеlisa3281, немножко подправил формулу Nic70y
Автор - krosav4ig
Дата добавления - 28.09.2014 в 18:51
krosav4ig Дата: Понедельник, 29.09.2014, 02:43 | Сообщение № 190 | Тема: Заполнение значений таблицы при выборе значения из списка
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
еще вариант с использованием имен, смотрите записку на первом листе
К сообщению приложен файл: 8173038.xls (27.0 Kb)

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

Excel 2007,2010,2013
Еще вариант UDF
[vba]
Код
Function JoinArr$(rng As Range, c$, rng1 As Range, Optional del$ = ", ")
     Dim arr
     arr = Evaluate("=IF(" & rng.Address & "=""" & c & """," & rng1.Address & ",)")
     If UBound(rng.Value) > 1 Then arr = Application.Transpose(arr)
     JoinArr = Replace(join(arr, del), del & 0, "")
     JoinArr = Right(JoinArr, Len(JoinArr) + (arr(1) = 0) * (Len(del) + 1))
     Erase arr
End Function
[/vba]
К сообщению приложен файл: 4542912.xls (34.0 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеЕще вариант UDF
[vba]
Код
Function JoinArr$(rng As Range, c$, rng1 As Range, Optional del$ = ", ")
     Dim arr
     arr = Evaluate("=IF(" & rng.Address & "=""" & c & """," & rng1.Address & ",)")
     If UBound(rng.Value) > 1 Then arr = Application.Transpose(arr)
     JoinArr = Replace(join(arr, del), del & 0, "")
     JoinArr = Right(JoinArr, Len(JoinArr) + (arr(1) = 0) * (Len(del) + 1))
     Erase arr
End Function
[/vba]
Автор - krosav4ig
Дата добавления - 30.09.2014 в 18:47
krosav4ig Дата: Четверг, 02.10.2014, 04:25 | Сообщение № 192 | Тема: Как быстро удалить все ячейки по количеству символов в Exel?
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
удалить именно сами ячейки или очистить их содержимое?
если очистить содержимое , то заменой в поле найти написать ?????????????????????????????????* , поле заменить на оставить пустым и нажать заменить все

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеудалить именно сами ячейки или очистить их содержимое?
если очистить содержимое , то заменой в поле найти написать ?????????????????????????????????* , поле заменить на оставить пустым и нажать заменить все
Автор - krosav4ig
Дата добавления - 02.10.2014 в 04:25
krosav4ig Дата: Четверг, 02.10.2014, 06:03 | Сообщение № 193 | Тема: поменять изображение формулы на значение
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
установить формат ячейки общий или числовой, сейчас у вас стоит текстовый

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

Excel 2007,2010,2013
еще авриант
Код
=Ч(ПОИСК(ПСТР($A3;ПОИСК(" ";$A3)+2;2);"нвеварпраяюнюлвгенктояек")*-1^СТРОКА()>=ПОИСК(ПСТР(B$2;2;2);"нвеварпрайюнюлвгенктояек")*-1^СТРОКА())
К сообщению приложен файл: 3546026.xlsx (10.0 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениееще авриант
Код
=Ч(ПОИСК(ПСТР($A3;ПОИСК(" ";$A3)+2;2);"нвеварпраяюнюлвгенктояек")*-1^СТРОКА()>=ПОИСК(ПСТР(B$2;2;2);"нвеварпрайюнюлвгенктояек")*-1^СТРОКА())
Автор - krosav4ig
Дата добавления - 02.10.2014 в 06:42
krosav4ig Дата: Четверг, 02.10.2014, 15:35 | Сообщение № 195 | Тема: Построение двух столбцов из 1 при совпадении данных
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата ide, 02.10.2014 в 09:20, в сообщении № 3
На третьем листе

Все равно не видно <_<

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Цитата ide, 02.10.2014 в 09:20, в сообщении № 3
На третьем листе

Все равно не видно <_<
Автор - krosav4ig
Дата добавления - 02.10.2014 в 15:35
krosav4ig Дата: Четверг, 02.10.2014, 16:03 | Сообщение № 196 | Тема: Макрос. Протянуть данные из последней заполненной ячейки.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
решил напрячь свои телепатические способности, но так и не понял чего вы пытались добиться в последней строке своего кода
[vba]
Код
Dim wsh As Worksheet, cell As Range,rng as Range  
     Set wsh = Windows("FilenamesCollectionEx - копия.xlsm").ActiveSheet.Parent.Sheets("вх")
     With wsh
         Set cell = .Cells(.Rows.Count, 25).End(xlUp).Offset(1)
         cell.PasteSpecial xlPasteValues, xlNone, 0, 0
         Set cell = .Cells(.Rows.Count, 25).End(xlUp)
         With cell
             Set Rng = .Offset(2 - .Row, 1 - .Column).Resize(.Row - 1 * (.Row > 2))
             '??????????????????????????
         End With
     End With
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениерешил напрячь свои телепатические способности, но так и не понял чего вы пытались добиться в последней строке своего кода
[vba]
Код
Dim wsh As Worksheet, cell As Range,rng as Range  
     Set wsh = Windows("FilenamesCollectionEx - копия.xlsm").ActiveSheet.Parent.Sheets("вх")
     With wsh
         Set cell = .Cells(.Rows.Count, 25).End(xlUp).Offset(1)
         cell.PasteSpecial xlPasteValues, xlNone, 0, 0
         Set cell = .Cells(.Rows.Count, 25).End(xlUp)
         With cell
             Set Rng = .Offset(2 - .Row, 1 - .Column).Resize(.Row - 1 * (.Row > 2))
             '??????????????????????????
         End With
     End With
[/vba]
Автор - krosav4ig
Дата добавления - 02.10.2014 в 16:03
krosav4ig Дата: Четверг, 02.10.2014, 19:07 | Сообщение № 197 | Тема: Табель учёта рабочего времени
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
HoBU4OK, как вариант
К сообщению приложен файл: 8704501.zip (33.1 Kb)

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

Excel 2007,2010,2013
еще немного короче
Код
=Ч(-1^(ЛЕВБ($A3)="с")*(ЕСЛИОШИБКА(МЕСЯЦ(ПСТР($A3;4-(ЛЕВБ($A3)="с");3)&0);5)-СТОЛБЕЦ(A1))>=0)

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

Сообщение отредактировал krosav4ig - Четверг, 02.10.2014, 20:01
 
Ответить
Сообщениееще немного короче
Код
=Ч(-1^(ЛЕВБ($A3)="с")*(ЕСЛИОШИБКА(МЕСЯЦ(ПСТР($A3;4-(ЛЕВБ($A3)="с");3)&0);5)-СТОЛБЕЦ(A1))>=0)
Автор - krosav4ig
Дата добавления - 02.10.2014 в 19:59
krosav4ig Дата: Пятница, 03.10.2014, 02:27 | Сообщение № 199 | Тема: Как быстро удалить все ячейки по количеству символов в Exel?
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
еще раз повторю свой вопрос: вам нужно именно удалить ячейки со сдвигом влево/вверх или удалить текст из ячеек?

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениееще раз повторю свой вопрос: вам нужно именно удалить ячейки со сдвигом влево/вверх или удалить текст из ячеек?
Автор - krosav4ig
Дата добавления - 03.10.2014 в 02:27
krosav4ig Дата: Пятница, 03.10.2014, 14:34 | Сообщение № 200 | Тема: Табель учёта рабочего времени
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
HoBU4OK, исправил формулы, проверяйте
К сообщению приложен файл: 1649065.zip (29.6 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеHoBU4OK, исправил формулы, проверяйте
Автор - krosav4ig
Дата добавления - 03.10.2014 в 14:34
Мир MS Excel » Записи участника » krosav4ig [2343]
Поиск:

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