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

Вход

Регистрация

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

 

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

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

Excel 2007,2010,2013
для C2 формула (массивная)
Код
=--ПОДСТАВИТЬ(ЗАМЕНИТЬ(B2;1;ПОИСК("_";ПОДСТАВИТЬ(B2;" ";"_";СЧЁТ(ПОИСК(ПОВТОР("* ";СТРОКА($1:$99));B2)))););"*";)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениедля C2 формула (массивная)
Код
=--ПОДСТАВИТЬ(ЗАМЕНИТЬ(B2;1;ПОИСК("_";ПОДСТАВИТЬ(B2;" ";"_";СЧЁТ(ПОИСК(ПОВТОР("* ";СТРОКА($1:$99));B2)))););"*";)
Автор - krosav4ig
Дата добавления - 04.10.2014 в 19:40
krosav4ig Дата: Пятница, 03.10.2014, 17:10 | Сообщение № 2142 | Тема: Макрос. Протянуть данные из последней заполненной ячейки.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Alex_ST, ну так не интересно :)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеAlex_ST, ну так не интересно :)
Автор - krosav4ig
Дата добавления - 03.10.2014 в 17:10
krosav4ig Дата: Пятница, 03.10.2014, 14:48 | Сообщение № 2143 | Тема: Как быстро удалить все ячейки по количеству символов в Exel?
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Status-n1, вы хоть пробовали сделать то что я писал
Цитата krosav4ig, 02.10.2014 в 04:25, в сообщении № 2
если очистить содержимое , то заменой в поле найти написать ?????????????????????????????????* , поле заменить на оставить пустым и нажать заменить все

немного объясню: ? = любой символ; * = любое количество любых символов, в маске замены (?????????????????????????????????*) написано 33 ? и 1 *, что означает "33 любых символа с любым количеством любых символов после них", следовательно кнопка заменить все удалит значения из всех ячеек, в которых более 32 символов

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

Сообщение отредактировал krosav4ig - Пятница, 03.10.2014, 14:49
 
Ответить
СообщениеStatus-n1, вы хоть пробовали сделать то что я писал
Цитата krosav4ig, 02.10.2014 в 04:25, в сообщении № 2
если очистить содержимое , то заменой в поле найти написать ?????????????????????????????????* , поле заменить на оставить пустым и нажать заменить все

немного объясню: ? = любой символ; * = любое количество любых символов, в маске замены (?????????????????????????????????*) написано 33 ? и 1 *, что означает "33 любых символа с любым количеством любых символов после них", следовательно кнопка заменить все удалит значения из всех ячеек, в которых более 32 символов
Автор - krosav4ig
Дата добавления - 03.10.2014 в 14:48
krosav4ig Дата: Пятница, 03.10.2014, 14:34 | Сообщение № 2144 | Тема: Табель учёта рабочего времени
Группа: Друзья
Ранг: Старожил
Сообщений: 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
krosav4ig Дата: Пятница, 03.10.2014, 02:27 | Сообщение № 2145 | Тема: Как быстро удалить все ячейки по количеству символов в Exel?
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

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

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениееще раз повторю свой вопрос: вам нужно именно удалить ячейки со сдвигом влево/вверх или удалить текст из ячеек?
Автор - krosav4ig
Дата добавления - 03.10.2014 в 02:27
krosav4ig Дата: Четверг, 02.10.2014, 19:59 | Сообщение № 2146 | Тема: Данные в ячейках-месяцах зависят от даты ввода-вывода единиц
Группа: Друзья
Ранг: Старожил
Сообщений: 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 Дата: Четверг, 02.10.2014, 19:07 | Сообщение № 2147 | Тема: Табель учёта рабочего времени
Группа: Друзья
Ранг: Старожил
Сообщений: 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, 16:03 | Сообщение № 2148 | Тема: Макрос. Протянуть данные из последней заполненной ячейки.
Группа: Друзья
Ранг: Старожил
Сообщений: 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, 15:35 | Сообщение № 2149 | Тема: Построение двух столбцов из 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, 06:42 | Сообщение № 2150 | Тема: Данные в ячейках-месяцах зависят от даты ввода-вывода единиц
Группа: Друзья
Ранг: Старожил
Сообщений: 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, 06:03 | Сообщение № 2151 | Тема: поменять изображение формулы на значение
Группа: Друзья
Ранг: Старожил
Сообщений: 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, 04:25 | Сообщение № 2152 | Тема: Как быстро удалить все ячейки по количеству символов в Exel?
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

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

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеудалить именно сами ячейки или очистить их содержимое?
если очистить содержимое , то заменой в поле найти написать ?????????????????????????????????* , поле заменить на оставить пустым и нажать заменить все
Автор - krosav4ig
Дата добавления - 02.10.2014 в 04:25
krosav4ig Дата: Вторник, 30.09.2014, 18:47 | Сообщение № 2153 | Тема: Преобразование нескольких ячеек в одну
Группа: Друзья
Ранг: Старожил
Сообщений: 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 Дата: Понедельник, 29.09.2014, 02:43 | Сообщение № 2154 | Тема: Заполнение значений таблицы при выборе значения из списка
Группа: Друзья
Ранг: Старожил
Сообщений: 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 Дата: Воскресенье, 28.09.2014, 18:51 | Сообщение № 2155 | Тема: Найти ошибку в формуле по выделению нескольких слов
Группа: Друзья
Ранг: Старожил
Сообщений: 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 Дата: Воскресенье, 28.09.2014, 18:18 | Сообщение № 2156 | Тема: Найти ошибку в формуле по выделению нескольких слов
Группа: Друзья
Ранг: Старожил
Сообщений: 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, 17:38 | Сообщение № 2157 | Тема: Присвоить уникальное значение
Группа: Друзья
Ранг: Старожил
Сообщений: 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, 17:12 | Сообщение № 2158 | Тема: макрос фильтрация таблицы по заданному критерию
Группа: Друзья
Ранг: Старожил
Сообщений: 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, 15:14 | Сообщение № 2159 | Тема: макрос фильтрация таблицы по заданному критерию
Группа: Друзья
Ранг: Старожил
Сообщений: 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, 02:22 | Сообщение № 2160 | Тема: Заполнение значений таблицы при выборе значения из списка
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

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

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

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