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

Вход

Регистрация

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

 

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

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

Excel 2007,2010,2013
ну тогда как-то так
Код
=СУММ(ЕСЛИОШИБКА(--ПОДСТАВИТЬ(AL66:EY66/1%;ЛЕВБ(AL66:EY66;ПОИСК(",";AL66:EY66&",")-1);ЛЕВБ(AL66:EY66;ПОИСК(",";AL66:EY66&",")-1)&":";1);))
К сообщению приложен файл: 2130330.xls (92.0 Kb)

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

Сообщение отредактировал krosav4ig - Среда, 05.11.2014, 15:03
 
Ответить
Сообщениену тогда как-то так
Код
=СУММ(ЕСЛИОШИБКА(--ПОДСТАВИТЬ(AL66:EY66/1%;ЛЕВБ(AL66:EY66;ПОИСК(",";AL66:EY66&",")-1);ЛЕВБ(AL66:EY66;ПОИСК(",";AL66:EY66&",")-1)&":";1);))
Автор - krosav4ig
Дата добавления - 05.11.2014 в 15:01
krosav4ig Дата: Среда, 05.11.2014, 15:11 | Сообщение № 302 | Тема: Табель учёта рабочего времени
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
и если в вашу формулу вставить проверку на ошибки и вводить ее как формулу массива, то она вполне себе правильно работает
Код
=ТЕКСТ(СУММ(ЕСЛИОШИБКА(ВРЕМЯ(ЦЕЛОЕ(AL66:EY66);ОСТАТ(AL66:EY66;1)/1%;);));"[ч],мм")

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

Сообщение отредактировал krosav4ig - Среда, 05.11.2014, 15:15
 
Ответить
Сообщениеи если в вашу формулу вставить проверку на ошибки и вводить ее как формулу массива, то она вполне себе правильно работает
Код
=ТЕКСТ(СУММ(ЕСЛИОШИБКА(ВРЕМЯ(ЦЕЛОЕ(AL66:EY66);ОСТАТ(AL66:EY66;1)/1%;);));"[ч],мм")
Автор - krosav4ig
Дата добавления - 05.11.2014 в 15:11
krosav4ig Дата: Среда, 05.11.2014, 15:35 | Сообщение № 303 | Тема: Табель учёта рабочего времени
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
и еще
Код
=СУММ(ЕСЛИОШИБКА(--ПОДСТАВИТЬ(AL66:EY66&ЕСЛИ(ЕОШ(ПОИСК(",?,";AL66:EY66&","));"";)&":";",";":");))

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеи еще
Код
=СУММ(ЕСЛИОШИБКА(--ПОДСТАВИТЬ(AL66:EY66&ЕСЛИ(ЕОШ(ПОИСК(",?,";AL66:EY66&","));"";)&":";",";":");))
Автор - krosav4ig
Дата добавления - 05.11.2014 в 15:35
krosav4ig Дата: Среда, 05.11.2014, 16:03 | Сообщение № 304 | Тема: Заливка цветом диапазона ячеек во всех листах.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
[vba]
Код
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
     If Not Intersect([B5:B30], Target) Is Nothing And GetAsyncKeyState(18) Then
         Sheets(Array("Лист1", "Лист2", "Лист3")).Select
     Else
         ActiveSheet.Select
     End If
End Sub
[/vba]
при выборе любой ячейки или диапазона из B5:B30 с зажатым alt вносимые изменения будут отображаться на всех 3-х листах
К сообщению приложен файл: 5588406.xlsm (16.1 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение[vba]
Код
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
     If Not Intersect([B5:B30], Target) Is Nothing And GetAsyncKeyState(18) Then
         Sheets(Array("Лист1", "Лист2", "Лист3")).Select
     Else
         ActiveSheet.Select
     End If
End Sub
[/vba]
при выборе любой ячейки или диапазона из B5:B30 с зажатым alt вносимые изменения будут отображаться на всех 3-х листах
Автор - krosav4ig
Дата добавления - 05.11.2014 в 16:03
krosav4ig Дата: Среда, 05.11.2014, 17:34 | Сообщение № 305 | Тема: Заливка цветом диапазона ячеек во всех листах.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
vdekameron, зажали alt, выделили, опустили alt, внесли изменения/залили цветом, выделили любую другую ячейку

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеvdekameron, зажали alt, выделили, опустили alt, внесли изменения/залили цветом, выделили любую другую ячейку
Автор - krosav4ig
Дата добавления - 05.11.2014 в 17:34
krosav4ig Дата: Среда, 05.11.2014, 22:49 | Сообщение № 306 | Тема: Заливка цветом диапазона ячеек во всех листах.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
vdekameron, все листы однотипные, или есть листы, которые не должны изменяться?

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

Excel 2007,2010,2013
если нужно работать с листами к примеру с листами с 3 по 10 то код будет такой
[vba]
Код
Private Sub Workbook_SheetSelectionChange1(ByVal sh As Object, ByVal Target As Range)
       With Application: .ScreenUpdating = 0: .EnableEvents = 0: End With
       Dim f&, l&, arr()
       f = 3: l = 10
       If sh.Index <= l And sh.Index >= f Then
           If Not Intersect([B5:B30], Target) Is Nothing And GetAsyncKeyState(18) Then
               arr = Application.Transpose(Evaluate("=row(" & f & ":" & l & ")"))
               Sheets(arr).Select: sh.Activate: Target.Select
           Else
               sh.Select
           End If
       End If
       With Application: .ScreenUpdating = 1: .EnableEvents = 1: End With
End Sub
[/vba]
если со всеми листами то нужен 1 лишний лист в конце книги и код такой
[vba]
Код
Private Sub Workbook_SheetSelectionChange(ByVal sh As Object, ByVal Target As Range)
       With Application: .ScreenUpdating = 0: .EnableEvents = 0: End With
       Dim arr()
       If Not Intersect([B5:B30], Target) Is Nothing And GetAsyncKeyState(18) Then
           arr = Application.Transpose(Evaluate("=row(1:" & Sheets.Count - 1 & ")"))
           Sheets(arr).Select: sh.Activate: Target.Select
       Else
           sh.Select
       End If
       With Application: .ScreenUpdating = 1: .EnableEvents = 1: End With
End Sub
[/vba]

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

Сообщение отредактировал krosav4ig - Четверг, 06.11.2014, 00:40
 
Ответить
Сообщениеесли нужно работать с листами к примеру с листами с 3 по 10 то код будет такой
[vba]
Код
Private Sub Workbook_SheetSelectionChange1(ByVal sh As Object, ByVal Target As Range)
       With Application: .ScreenUpdating = 0: .EnableEvents = 0: End With
       Dim f&, l&, arr()
       f = 3: l = 10
       If sh.Index <= l And sh.Index >= f Then
           If Not Intersect([B5:B30], Target) Is Nothing And GetAsyncKeyState(18) Then
               arr = Application.Transpose(Evaluate("=row(" & f & ":" & l & ")"))
               Sheets(arr).Select: sh.Activate: Target.Select
           Else
               sh.Select
           End If
       End If
       With Application: .ScreenUpdating = 1: .EnableEvents = 1: End With
End Sub
[/vba]
если со всеми листами то нужен 1 лишний лист в конце книги и код такой
[vba]
Код
Private Sub Workbook_SheetSelectionChange(ByVal sh As Object, ByVal Target As Range)
       With Application: .ScreenUpdating = 0: .EnableEvents = 0: End With
       Dim arr()
       If Not Intersect([B5:B30], Target) Is Nothing And GetAsyncKeyState(18) Then
           arr = Application.Transpose(Evaluate("=row(1:" & Sheets.Count - 1 & ")"))
           Sheets(arr).Select: sh.Activate: Target.Select
       Else
           sh.Select
       End If
       With Application: .ScreenUpdating = 1: .EnableEvents = 1: End With
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 06.11.2014 в 00:38
krosav4ig Дата: Четверг, 06.11.2014, 01:56 | Сообщение № 308 | Тема: Объект-коллекция "Files"
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
можно еще WINAPI покурить :)

[p.s.]Achtung! немецкий язык!
К сообщению приложен файл: Module1.bas (8.6 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеможно еще WINAPI покурить :)

[p.s.]Achtung! немецкий язык!
Автор - krosav4ig
Дата добавления - 06.11.2014 в 01:56
krosav4ig Дата: Четверг, 06.11.2014, 02:30 | Сообщение № 309 | Тема: Круговую диаграмму из сгруппированных данных одного столбца
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Файл xls в студию rules А пока подсказка: СЧЁТЕСЛИМН()[offtop]опять опоздал )

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

Сообщение отредактировал krosav4ig - Четверг, 06.11.2014, 02:32
 
Ответить
СообщениеФайл xls в студию rules А пока подсказка: СЧЁТЕСЛИМН()[offtop]опять опоздал )
Автор - krosav4ig
Дата добавления - 06.11.2014 в 02:30
krosav4ig Дата: Четверг, 06.11.2014, 16:50 | Сообщение № 310 | Тема: Цифровые данные через тире -> данные по ячейкам
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
К сообщению приложен файл: 8353568.xls (48.5 Kb)

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

Excel 2007,2010,2013
.
К сообщению приложен файл: 6230365.xlsm (34.6 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение.
Автор - krosav4ig
Дата добавления - 06.11.2014 в 18:18
krosav4ig Дата: Четверг, 06.11.2014, 20:23 | Сообщение № 312 | Тема: Объект-коллекция "Files"
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
а еси так
[vba]
Код
    Set fso = CreateObject("Scripting.FileSystemObject")
     Set fld = fso.GetFolder(ThisWorkbook.Path)
     Set ss = New Collection
     Set ss = fld.Files
     For Each ff In ss
         Debug.Print ff.Name
     Next
[/vba], чем черт не шутит, вдруг сработает

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеа еси так
[vba]
Код
    Set fso = CreateObject("Scripting.FileSystemObject")
     Set fld = fso.GetFolder(ThisWorkbook.Path)
     Set ss = New Collection
     Set ss = fld.Files
     For Each ff In ss
         Debug.Print ff.Name
     Next
[/vba], чем черт не шутит, вдруг сработает
Автор - krosav4ig
Дата добавления - 06.11.2014 в 20:23
krosav4ig Дата: Четверг, 06.11.2014, 21:56 | Сообщение № 313 | Тема: Цифровые данные через тире -> данные по ячейкам
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
AndreTM, ну дык у мну же возвращается результат в ячейку, из которой функция вызывается, в A11 формула [vba]
Код
=qwe($A$2:$A$8;СТРОКА(B1))
[/vba] и растянута вниз до A36

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеAndreTM, ну дык у мну же возвращается результат в ячейку, из которой функция вызывается, в A11 формула [vba]
Код
=qwe($A$2:$A$8;СТРОКА(B1))
[/vba] и растянута вниз до A36
Автор - krosav4ig
Дата добавления - 06.11.2014 в 21:56
krosav4ig Дата: Четверг, 06.11.2014, 22:59 | Сообщение № 314 | Тема: Цифровые данные через тире -> данные по ячейкам
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата VadimVV, 06.11.2014 в 17:56, в сообщении № 3
А в виде макроса это можно реализовать?
все можно, только в соответствующем разделе форума

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Цитата VadimVV, 06.11.2014 в 17:56, в сообщении № 3
А в виде макроса это можно реализовать?
все можно, только в соответствующем разделе форума
Автор - krosav4ig
Дата добавления - 06.11.2014 в 22:59
krosav4ig Дата: Пятница, 07.11.2014, 12:18 | Сообщение № 315 | Тема: Анимация Excel
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Rioran, привет, пасяба.
А у мну в 2007 на работе работает, мало того в immediate
[vba]
Код
?activesheet.Shapes(0).ID=activesheet.Shapes(1).ID
[/vba]
возвращает True. Волшебство, однако

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеRioran, привет, пасяба.
А у мну в 2007 на работе работает, мало того в immediate
[vba]
Код
?activesheet.Shapes(0).ID=activesheet.Shapes(1).ID
[/vba]
возвращает True. Волшебство, однако
Автор - krosav4ig
Дата добавления - 07.11.2014 в 12:18
krosav4ig Дата: Пятница, 07.11.2014, 15:59 | Сообщение № 316 | Тема: Построение строкового массива по двум условиям
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
чето у мну какой-то монстр получился, да еще и с доп.столбцом
К сообщению приложен файл: _2-1-.xlsx (9.0 Kb)

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

Сообщение отредактировал krosav4ig - Пятница, 07.11.2014, 16:02
 
Ответить
Сообщениечето у мну какой-то монстр получился, да еще и с доп.столбцом
Автор - krosav4ig
Дата добавления - 07.11.2014 в 15:59
krosav4ig Дата: Пятница, 07.11.2014, 21:06 | Сообщение № 317 | Тема: Поиск, вывод значений из столбца с учетом двух критериев
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

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

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

Сообщение отредактировал krosav4ig - Пятница, 07.11.2014, 22:11
 
Ответить
Сообщениекак-то так
upd.
заменил файл
Автор - krosav4ig
Дата добавления - 07.11.2014 в 21:06
krosav4ig Дата: Пятница, 07.11.2014, 22:18 | Сообщение № 318 | Тема: Не суммируются числа
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
или введите этот не обычный пробел комбинацией Alt+0160 в строку поиска

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеили введите этот не обычный пробел комбинацией Alt+0160 в строку поиска
Автор - krosav4ig
Дата добавления - 07.11.2014 в 22:18
krosav4ig Дата: Суббота, 08.11.2014, 04:17 | Сообщение № 319 | Тема: Цифровые данные через тире -> данные по ячейкам
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
VadimVV, выделяем диапазон, жмем комбинацию ctrl+ь
К сообщению приложен файл: 6850758.xls (34.0 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеVadimVV, выделяем диапазон, жмем комбинацию ctrl+ь
Автор - krosav4ig
Дата добавления - 08.11.2014 в 04:17
krosav4ig Дата: Воскресенье, 09.11.2014, 01:58 | Сообщение № 320 | Тема: Поиск, вывод значений из столбца с учетом двух критериев
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
немного сократил свою формулу
Код
=ЕСЛИОШИБКА(ИНДЕКС(B:B;НАИМЕНЬШИЙ(ЕСЛИ((C$2:G$2=J$2)*ЕЧИСЛО(C$3:G$8)*(C$3:G$8<=ВЫБОР(СУММ(ЕЧИСЛО(ПОИСК({"-";" "};J$3))*{1;2};1);J$3;--ЗАМЕНИТЬ(J$3;1;ПОИСК("-";J$3););9^9))*(C$3:G$8>=ВЫБОР(СУММ(ЕЧИСЛО(ПОИСК({"-";" "};J$3))*{1;2};1);J$3;ЛЕВБ(J$3;ПОИСК("-";J$3)-1)%;ЛЕВБ(J$3;ПОИСК(" ";J$3)-1)%));СТРОКА(B$3:B$8);"");СТРОКА(O1)));"")
К сообщению приложен файл: 31101071.xlsx (12.0 Kb)

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

Сообщение отредактировал krosav4ig - Воскресенье, 09.11.2014, 01:59
 
Ответить
Сообщениенемного сократил свою формулу
Код
=ЕСЛИОШИБКА(ИНДЕКС(B:B;НАИМЕНЬШИЙ(ЕСЛИ((C$2:G$2=J$2)*ЕЧИСЛО(C$3:G$8)*(C$3:G$8<=ВЫБОР(СУММ(ЕЧИСЛО(ПОИСК({"-";" "};J$3))*{1;2};1);J$3;--ЗАМЕНИТЬ(J$3;1;ПОИСК("-";J$3););9^9))*(C$3:G$8>=ВЫБОР(СУММ(ЕЧИСЛО(ПОИСК({"-";" "};J$3))*{1;2};1);J$3;ЛЕВБ(J$3;ПОИСК("-";J$3)-1)%;ЛЕВБ(J$3;ПОИСК(" ";J$3)-1)%));СТРОКА(B$3:B$8);"");СТРОКА(O1)));"")
Автор - krosav4ig
Дата добавления - 09.11.2014 в 01:58
Мир MS Excel » Записи участника » krosav4ig [2343]
Поиск:

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