Результаты поиска
krosav4ig
Дата: Воскресенье, 22.03.2015, 03:02 |
Сообщение № 1681 | Тема: Закраска ячеек, которые содержат нуль и не равны пусто
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
[offtop]для чистоты эксперимента считываю значение из A1 в переменную на выходе получается не все так однозначно
[vba]
Код
'A1 пусто Test1 = 329 Test1 = 312 Test1 = 328 Test1 = 328 Test1 = 312 Test1 = 313 Test1 = 328 Test1 = 328 Test1 = 328 Test1 = 312 Test2 = 328 Test2 = 328 Test2 = 328 Test2 = 328 Test2 = 328 Test2 = 328 Test2 = 344 Test2 = 328 Test2 = 328 Test2 = 329 Test3 = 531 Test3 = 515 Test3 = 516 Test3 = 516 Test3 = 531 Test3 = 516 Test3 = 531 Test3 = 515 Test3 = 516 Test3 = 531 'A1 = 0 Test1 = 469 Test1 = 453 Test1 = 453 Test1 = 453 Test1 = 468 Test1 = 469 Test1 = 469 Test1 = 469 Test1 = 453 Test1 = 469 Test2 = 468 Test2 = 469 Test2 = 453 Test2 = 484 Test2 = 469 Test2 = 469 Test2 = 468 Test2 = 469 Test2 = 469 Test2 = 484 Test3 = 625 Test3 = 641 Test3 = 641 Test3 = 640 Test3 = 641 Test3 = 640 Test3 = 641 Test3 = 641 Test3 = 640 Test3 = 641 'A1 = 777 Test1 = 641 Test1 = 640 Test1 = 641 Test1 = 641 Test1 = 625 Test1 = 656 Test1 = 625 Test1 = 656 Test1 = 625 Test1 = 656 Test2 = 625 Test2 = 641 Test2 = 641 Test2 = 625 Test2 = 625 Test2 = 625 Test2 = 640 Test2 = 641 Test2 = 625 Test2 = 625 Test3 = 813 Test3 = 828 Test3 = 828 Test3 = 797 Test3 = 844 Test3 = 812 Test3 = 828 Test3 = 829 Test3 = 828 Test3 = 828 'A1 = lkj Test1 = 1109 Test1 = 1094 Test1 = 1094 Test1 = 1109 Test1 = 1109 Test1 = 1110 Test1 = 1093 Test1 = 1110 Test1 = 1109 Test1 = 1172 Test2 = 1125 Test2 = 1109 Test2 = 1094 Test2 = 1094 Test2 = 1109 Test2 = 1094 Test2 = 1109 Test2 = 1109 Test2 = 1094 Test2 = 1094 Test3 = 406 Test3 = 391 Test3 = 390 Test3 = 407 Test3 = 406 Test3 = 406 Test3 = 406 Test3 = 391 Test3 = 422 Test3 = 406
[/vba]
[/offtop]
[offtop]для чистоты эксперимента считываю значение из A1 в переменную на выходе получается не все так однозначно
[vba]
Код
'A1 пусто Test1 = 329 Test1 = 312 Test1 = 328 Test1 = 328 Test1 = 312 Test1 = 313 Test1 = 328 Test1 = 328 Test1 = 328 Test1 = 312 Test2 = 328 Test2 = 328 Test2 = 328 Test2 = 328 Test2 = 328 Test2 = 328 Test2 = 344 Test2 = 328 Test2 = 328 Test2 = 329 Test3 = 531 Test3 = 515 Test3 = 516 Test3 = 516 Test3 = 531 Test3 = 516 Test3 = 531 Test3 = 515 Test3 = 516 Test3 = 531 'A1 = 0 Test1 = 469 Test1 = 453 Test1 = 453 Test1 = 453 Test1 = 468 Test1 = 469 Test1 = 469 Test1 = 469 Test1 = 453 Test1 = 469 Test2 = 468 Test2 = 469 Test2 = 453 Test2 = 484 Test2 = 469 Test2 = 469 Test2 = 468 Test2 = 469 Test2 = 469 Test2 = 484 Test3 = 625 Test3 = 641 Test3 = 641 Test3 = 640 Test3 = 641 Test3 = 640 Test3 = 641 Test3 = 641 Test3 = 640 Test3 = 641 'A1 = 777 Test1 = 641 Test1 = 640 Test1 = 641 Test1 = 641 Test1 = 625 Test1 = 656 Test1 = 625 Test1 = 656 Test1 = 625 Test1 = 656 Test2 = 625 Test2 = 641 Test2 = 641 Test2 = 625 Test2 = 625 Test2 = 625 Test2 = 640 Test2 = 641 Test2 = 625 Test2 = 625 Test3 = 813 Test3 = 828 Test3 = 828 Test3 = 797 Test3 = 844 Test3 = 812 Test3 = 828 Test3 = 829 Test3 = 828 Test3 = 828 'A1 = lkj Test1 = 1109 Test1 = 1094 Test1 = 1094 Test1 = 1109 Test1 = 1109 Test1 = 1110 Test1 = 1093 Test1 = 1110 Test1 = 1109 Test1 = 1172 Test2 = 1125 Test2 = 1109 Test2 = 1094 Test2 = 1094 Test2 = 1109 Test2 = 1094 Test2 = 1109 Test2 = 1109 Test2 = 1094 Test2 = 1094 Test3 = 406 Test3 = 391 Test3 = 390 Test3 = 407 Test3 = 406 Test3 = 406 Test3 = 406 Test3 = 391 Test3 = 422 Test3 = 406
[/vba]
[/offtop] krosav4ig
К сообщению приложен файл:
test.xls
(50.5 Kb)
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Воскресенье, 22.03.2015, 03:11
Ответить
Сообщение [offtop]для чистоты эксперимента считываю значение из A1 в переменную на выходе получается не все так однозначно
[vba]
Код
'A1 пусто Test1 = 329 Test1 = 312 Test1 = 328 Test1 = 328 Test1 = 312 Test1 = 313 Test1 = 328 Test1 = 328 Test1 = 328 Test1 = 312 Test2 = 328 Test2 = 328 Test2 = 328 Test2 = 328 Test2 = 328 Test2 = 328 Test2 = 344 Test2 = 328 Test2 = 328 Test2 = 329 Test3 = 531 Test3 = 515 Test3 = 516 Test3 = 516 Test3 = 531 Test3 = 516 Test3 = 531 Test3 = 515 Test3 = 516 Test3 = 531 'A1 = 0 Test1 = 469 Test1 = 453 Test1 = 453 Test1 = 453 Test1 = 468 Test1 = 469 Test1 = 469 Test1 = 469 Test1 = 453 Test1 = 469 Test2 = 468 Test2 = 469 Test2 = 453 Test2 = 484 Test2 = 469 Test2 = 469 Test2 = 468 Test2 = 469 Test2 = 469 Test2 = 484 Test3 = 625 Test3 = 641 Test3 = 641 Test3 = 640 Test3 = 641 Test3 = 640 Test3 = 641 Test3 = 641 Test3 = 640 Test3 = 641 'A1 = 777 Test1 = 641 Test1 = 640 Test1 = 641 Test1 = 641 Test1 = 625 Test1 = 656 Test1 = 625 Test1 = 656 Test1 = 625 Test1 = 656 Test2 = 625 Test2 = 641 Test2 = 641 Test2 = 625 Test2 = 625 Test2 = 625 Test2 = 640 Test2 = 641 Test2 = 625 Test2 = 625 Test3 = 813 Test3 = 828 Test3 = 828 Test3 = 797 Test3 = 844 Test3 = 812 Test3 = 828 Test3 = 829 Test3 = 828 Test3 = 828 'A1 = lkj Test1 = 1109 Test1 = 1094 Test1 = 1094 Test1 = 1109 Test1 = 1109 Test1 = 1110 Test1 = 1093 Test1 = 1110 Test1 = 1109 Test1 = 1172 Test2 = 1125 Test2 = 1109 Test2 = 1094 Test2 = 1094 Test2 = 1109 Test2 = 1094 Test2 = 1109 Test2 = 1109 Test2 = 1094 Test2 = 1094 Test3 = 406 Test3 = 391 Test3 = 390 Test3 = 407 Test3 = 406 Test3 = 406 Test3 = 406 Test3 = 391 Test3 = 422 Test3 = 406
[/vba]
[/offtop] Автор - krosav4ig Дата добавления - 22.03.2015 в 03:02
krosav4ig
Дата: Воскресенье, 22.03.2015, 02:53 |
Сообщение № 1682 | Тема: Закраска ячеек, которые содержат нуль и не равны пусто
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
KSV , пасяба подозреваю, что это из-за того, что содержимое ячейки считывается только один раз
тут это значительно влияет на результат [offtop]добавил еще 1 процедуру
[vba]
Код
Private Sub Test3() Dim lngTime As Long Dim i As Long Dim b As Boolean lngTime = GetTickCount() For i = 1& To IterationCount b = (a & "" = "0") Next lngTime = GetTickCount() - lngTime Debug.Print "Test3 = "; lngTime End Sub
[/vba]
на выходе получил
[vba]
Код
' при пустой A1 Test1 = 98109 Test1 = 98016 Test1 = 98000 Test2 = 98610 Test2 = 98500 Test2 = 98000 Test3 = 50062 Test3 = 49828 Test3 = 50000 ' при A1 = 0 Test1 = 99734 Test1 = 99671 Test1 = 99703 Test2 = 99766 Test2 = 99797 Test2 = 99797 Test3 = 51078 Test3 = 51094 Test3 = 51265 ' A1 = 777 Test1 = 100531 Test1 = 100141 Test1 = 100172 Test2 = 100329 Test2 = 100187 Test2 = 100297 Test3 = 51360 Test3 = 51360 Test3 = 51375
[/vba]
[p.s.]intel core 2 duo E6550, Win 6.1 build 7600 x32, Office 2013 Pro+ x32[/offtop]
KSV , пасяба подозреваю, что это из-за того, что содержимое ячейки считывается только один раз
тут это значительно влияет на результат [offtop]добавил еще 1 процедуру
[vba]
Код
Private Sub Test3() Dim lngTime As Long Dim i As Long Dim b As Boolean lngTime = GetTickCount() For i = 1& To IterationCount b = (a & "" = "0") Next lngTime = GetTickCount() - lngTime Debug.Print "Test3 = "; lngTime End Sub
[/vba]
на выходе получил
[vba]
Код
' при пустой A1 Test1 = 98109 Test1 = 98016 Test1 = 98000 Test2 = 98610 Test2 = 98500 Test2 = 98000 Test3 = 50062 Test3 = 49828 Test3 = 50000 ' при A1 = 0 Test1 = 99734 Test1 = 99671 Test1 = 99703 Test2 = 99766 Test2 = 99797 Test2 = 99797 Test3 = 51078 Test3 = 51094 Test3 = 51265 ' A1 = 777 Test1 = 100531 Test1 = 100141 Test1 = 100172 Test2 = 100329 Test2 = 100187 Test2 = 100297 Test3 = 51360 Test3 = 51360 Test3 = 51375
[/vba]
[p.s.]intel core 2 duo E6550, Win 6.1 build 7600 x32, Office 2013 Pro+ x32[/offtop]krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Воскресенье, 22.03.2015, 03:12
Ответить
Сообщение KSV , пасяба подозреваю, что это из-за того, что содержимое ячейки считывается только один раз
тут это значительно влияет на результат [offtop]добавил еще 1 процедуру
[vba]
Код
Private Sub Test3() Dim lngTime As Long Dim i As Long Dim b As Boolean lngTime = GetTickCount() For i = 1& To IterationCount b = (a & "" = "0") Next lngTime = GetTickCount() - lngTime Debug.Print "Test3 = "; lngTime End Sub
[/vba]
на выходе получил
[vba]
Код
' при пустой A1 Test1 = 98109 Test1 = 98016 Test1 = 98000 Test2 = 98610 Test2 = 98500 Test2 = 98000 Test3 = 50062 Test3 = 49828 Test3 = 50000 ' при A1 = 0 Test1 = 99734 Test1 = 99671 Test1 = 99703 Test2 = 99766 Test2 = 99797 Test2 = 99797 Test3 = 51078 Test3 = 51094 Test3 = 51265 ' A1 = 777 Test1 = 100531 Test1 = 100141 Test1 = 100172 Test2 = 100329 Test2 = 100187 Test2 = 100297 Test3 = 51360 Test3 = 51360 Test3 = 51375
[/vba]
[p.s.]intel core 2 duo E6550, Win 6.1 build 7600 x32, Office 2013 Pro+ x32[/offtop]Автор - krosav4ig Дата добавления - 22.03.2015 в 02:53
krosav4ig
Дата: Воскресенье, 22.03.2015, 00:00 |
Сообщение № 1683 | Тема: Закраска ячеек, которые содержат нуль и не равны пусто
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
еще вариант формулы для УФ
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение еще вариант формулы для УФ Автор - krosav4ig Дата добавления - 22.03.2015 в 00:00
krosav4ig
Дата: Пятница, 20.03.2015, 21:47 |
Сообщение № 1684 | Тема: Печать файлов Word
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
еще вариант [vba]Код
Sub PrintDoc() CreateObject("Shell.Application").Namespace(0). _ ParseName(ThisWorkbook.Path & "\otdr.doc").InvokeVerbEx "Print" End Sub
[/vba]
еще вариант [vba]Код
Sub PrintDoc() CreateObject("Shell.Application").Namespace(0). _ ParseName(ThisWorkbook.Path & "\otdr.doc").InvokeVerbEx "Print" End Sub
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение еще вариант [vba]Код
Sub PrintDoc() CreateObject("Shell.Application").Namespace(0). _ ParseName(ThisWorkbook.Path & "\otdr.doc").InvokeVerbEx "Print" End Sub
[/vba] Автор - krosav4ig Дата добавления - 20.03.2015 в 21:47
krosav4ig
Дата: Пятница, 20.03.2015, 17:18 |
Сообщение № 1685 | Тема: Объединить разные строки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
расскажите, как сделали?)
вот так расскажите, как сделали?)
вот так (массивная формула)Код
=ЕСЛИ(И(A2<>"";ЕНД(ПОИСКПОЗ(СТРОКА();ЕСЛИ(($A$1:$A$10="")*($A$2:$A$11<>"")+(СТРОКА($A$2:$A$11)=2);СТРОКА($A$2:$A$11));)));ИНДЕКС(A:A;ПРОСМОТР(СТРОКА();ЕСЛИ(($A$1:$A$10="")*($A$2:$A$11<>"")+(СТРОКА($A$2:$A$11)=2);СТРОКА($A$2:$A$11))))&A2;"")
расскажите, как сделали?)
вот так расскажите, как сделали?)
вот так (массивная формула)Код
=ЕСЛИ(И(A2<>"";ЕНД(ПОИСКПОЗ(СТРОКА();ЕСЛИ(($A$1:$A$10="")*($A$2:$A$11<>"")+(СТРОКА($A$2:$A$11)=2);СТРОКА($A$2:$A$11));)));ИНДЕКС(A:A;ПРОСМОТР(СТРОКА();ЕСЛИ(($A$1:$A$10="")*($A$2:$A$11<>"")+(СТРОКА($A$2:$A$11)=2);СТРОКА($A$2:$A$11))))&A2;"")
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение расскажите, как сделали?)
вот так расскажите, как сделали?)
вот так (массивная формула)Код
=ЕСЛИ(И(A2<>"";ЕНД(ПОИСКПОЗ(СТРОКА();ЕСЛИ(($A$1:$A$10="")*($A$2:$A$11<>"")+(СТРОКА($A$2:$A$11)=2);СТРОКА($A$2:$A$11));)));ИНДЕКС(A:A;ПРОСМОТР(СТРОКА();ЕСЛИ(($A$1:$A$10="")*($A$2:$A$11<>"")+(СТРОКА($A$2:$A$11)=2);СТРОКА($A$2:$A$11))))&A2;"")
Автор - krosav4ig Дата добавления - 20.03.2015 в 17:18
krosav4ig
Дата: Пятница, 20.03.2015, 16:45 |
Сообщение № 1686 | Тема: Объединить разные строки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
..
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Пятница, 20.03.2015, 16:56
Ответить
Сообщение .. Автор - krosav4ig Дата добавления - 20.03.2015 в 16:45
krosav4ig
Дата: Пятница, 20.03.2015, 15:45 |
Сообщение № 1687 | Тема: Среднее значение для чисел кроме нулевых, в разных ячейках
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
как вариант Код
=СУММ(ПРОСМОТР({2;4;5;8;10;13;14;16};СТОЛБЕЦ(1:1);2:2))/СЧЁТ(1/ПРОСМОТР({2;4;5;8;10;13;14;16};СТОЛБЕЦ(1:1);2:2))
как вариант Код
=СУММ(ПРОСМОТР({2;4;5;8;10;13;14;16};СТОЛБЕЦ(1:1);2:2))/СЧЁТ(1/ПРОСМОТР({2;4;5;8;10;13;14;16};СТОЛБЕЦ(1:1);2:2))
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение как вариант Код
=СУММ(ПРОСМОТР({2;4;5;8;10;13;14;16};СТОЛБЕЦ(1:1);2:2))/СЧЁТ(1/ПРОСМОТР({2;4;5;8;10;13;14;16};СТОЛБЕЦ(1:1);2:2))
Автор - krosav4ig Дата добавления - 20.03.2015 в 15:45
krosav4ig
Дата: Пятница, 20.03.2015, 12:20 |
Сообщение № 1688 | Тема: Активация поля при смене переключатлеля
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
SmartCat , жмете Alt+F11 там по двойному тыку по имени нужного листа открывается его интерфейсный модуль, вот туда и нужно вставить этот код (я в своем файле его уже вставил)
SmartCat , жмете Alt+F11 там по двойному тыку по имени нужного листа открывается его интерфейсный модуль, вот туда и нужно вставить этот код (я в своем файле его уже вставил)krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение SmartCat , жмете Alt+F11 там по двойному тыку по имени нужного листа открывается его интерфейсный модуль, вот туда и нужно вставить этот код (я в своем файле его уже вставил)Автор - krosav4ig Дата добавления - 20.03.2015 в 12:20
krosav4ig
Дата: Четверг, 19.03.2015, 20:25 |
Сообщение № 1689 | Тема: Перенос информации из сайта
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
mishayakimenko , а у вас случайно не ручное вычисление формул установлено?
mishayakimenko , а у вас случайно не ручное вычисление формул установлено?krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение mishayakimenko , а у вас случайно не ручное вычисление формул установлено?Автор - krosav4ig Дата добавления - 19.03.2015 в 20:25
krosav4ig
Дата: Четверг, 19.03.2015, 20:04 |
Сообщение № 1690 | Тема: Построение таблицы относительной величены.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
как вариант, сводная
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение как вариант, сводная Автор - krosav4ig Дата добавления - 19.03.2015 в 20:04
krosav4ig
Дата: Четверг, 19.03.2015, 18:37 |
Сообщение № 1691 | Тема: Перенос информации из сайта
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
высвечивается только минимальная цена, а всего остального нет...
mishayakimenko , скорее всего у вас блокируется активное содержимое если под лентой при открытии показывает такое или такое предупреждение, то нужно нажать на кнопку Включить содержимое и переоткрыть файл
высвечивается только минимальная цена, а всего остального нет...
mishayakimenko , скорее всего у вас блокируется активное содержимое если под лентой при открытии показывает такое или такое предупреждение, то нужно нажать на кнопку Включить содержимое и переоткрыть файлkrosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение высвечивается только минимальная цена, а всего остального нет...
mishayakimenko , скорее всего у вас блокируется активное содержимое если под лентой при открытии показывает такое или такое предупреждение, то нужно нажать на кнопку Включить содержимое и переоткрыть файлАвтор - krosav4ig Дата добавления - 19.03.2015 в 18:37
krosav4ig
Дата: Среда, 18.03.2015, 20:26 |
Сообщение № 1692 | Тема: Перенос информации из сайта
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
mishayakimenko , udf - это user defigned function (пользовательская функция) мой файл смотрели? там все правильно работает?
mishayakimenko , udf - это user defigned function (пользовательская функция) мой файл смотрели? там все правильно работает?krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение mishayakimenko , udf - это user defigned function (пользовательская функция) мой файл смотрели? там все правильно работает?Автор - krosav4ig Дата добавления - 18.03.2015 в 20:26
krosav4ig
Дата: Среда, 18.03.2015, 15:02 |
Сообщение № 1693 | Тема: макрос который будет открывать C:\Новая папка
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
ниче не понял что должно получиться на листе1?
ниче не понял что должно получиться на листе1? krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение ниче не понял что должно получиться на листе1? Автор - krosav4ig Дата добавления - 18.03.2015 в 15:02
krosav4ig
Дата: Среда, 18.03.2015, 14:57 |
Сообщение № 1694 | Тема: Активация поля при смене переключатлеля
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
в ячейку проверку данных по формуле в модуль листа [vba]Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$E$6" And [E6] <> "Äà" Then [I6].MergeArea.ClearContents End Sub
[/vba]
в ячейку проверку данных по формуле в модуль листа [vba]Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$E$6" And [E6] <> "Äà" Then [I6].MergeArea.ClearContents End Sub
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение в ячейку проверку данных по формуле в модуль листа [vba]Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$E$6" And [E6] <> "Äà" Then [I6].MergeArea.ClearContents End Sub
[/vba] Автор - krosav4ig Дата добавления - 18.03.2015 в 14:57
krosav4ig
Дата: Среда, 18.03.2015, 13:40 |
Сообщение № 1695 | Тема: Массивная сумма без вспомогательного массива
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
еще вариант немассивная формула Код
=МУМНОЖ(ПРОСМОТР({"а";"в";"в";"д";"б";"а"};$A$3:$A$7;$B$3:$B$7);ПРОСМОТР({"к":"и":"ж":"ж":"з":"е"};$F$3:$F$7;$G$3:$G$7))
или тоже немассивная Код
=СУММ(ПРОСМОТР({"а":"в":"в":"д":"б":"а"};$A$3:$A$7;$B$3:$B$7)*ПРОСМОТР({"к":"и":"ж":"ж":"з":"е"};$F$3:$F$7;$G$3:$G$7))
еще вариант немассивная формула Код
=МУМНОЖ(ПРОСМОТР({"а";"в";"в";"д";"б";"а"};$A$3:$A$7;$B$3:$B$7);ПРОСМОТР({"к":"и":"ж":"ж":"з":"е"};$F$3:$F$7;$G$3:$G$7))
или тоже немассивная Код
=СУММ(ПРОСМОТР({"а":"в":"в":"д":"б":"а"};$A$3:$A$7;$B$3:$B$7)*ПРОСМОТР({"к":"и":"ж":"ж":"з":"е"};$F$3:$F$7;$G$3:$G$7))
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Среда, 18.03.2015, 13:47
Ответить
Сообщение еще вариант немассивная формула Код
=МУМНОЖ(ПРОСМОТР({"а";"в";"в";"д";"б";"а"};$A$3:$A$7;$B$3:$B$7);ПРОСМОТР({"к":"и":"ж":"ж":"з":"е"};$F$3:$F$7;$G$3:$G$7))
или тоже немассивная Код
=СУММ(ПРОСМОТР({"а":"в":"в":"д":"б":"а"};$A$3:$A$7;$B$3:$B$7)*ПРОСМОТР({"к":"и":"ж":"ж":"з":"е"};$F$3:$F$7;$G$3:$G$7))
Автор - krosav4ig Дата добавления - 18.03.2015 в 13:40
krosav4ig
Дата: Среда, 18.03.2015, 01:06 |
Сообщение № 1696 | Тема: Перенос информации из сайта
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
alex77755 , это функция ВЕБСЛУЖБА , там еще есть функция ФИЛЬТР.XML эти функции были введены с excel 2013
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Среда, 18.03.2015, 01:22
Ответить
Сообщение alex77755 , это функция ВЕБСЛУЖБА , там еще есть функция ФИЛЬТР.XML эти функции были введены с excel 2013Автор - krosav4ig Дата добавления - 18.03.2015 в 01:06
krosav4ig
Дата: Вторник, 17.03.2015, 16:21 |
Сообщение № 1697 | Тема: Осталось ?? дней
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
еще вариант до кучи Код
=КОНМЕСЯЦА(A1;-(ДЕНЬ(A1)<=20))+20-A1
еще вариант до кучи Код
=КОНМЕСЯЦА(A1;-(ДЕНЬ(A1)<=20))+20-A1
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение еще вариант до кучи Код
=КОНМЕСЯЦА(A1;-(ДЕНЬ(A1)<=20))+20-A1
Автор - krosav4ig Дата добавления - 17.03.2015 в 16:21
krosav4ig
Дата: Вторник, 17.03.2015, 14:19 |
Сообщение № 1698 | Тема: Подстановка значений в зависимости от даты.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
для A4 Код
=ПРОСМОТР(C4;$A$1:$Q$1;$A$2:$Q$2)
UPD. дочитал до если допусти значение пустое то он брал предыдущее значение
для A4 массивная формула Код
=ИНДЕКС(2:2;МАКС((A1:Q1<=C4)*(ДЛСТР(A2:Q2)>0)*СТОЛБЕЦ(A:Q)))
для A4 Код
=ПРОСМОТР(C4;$A$1:$Q$1;$A$2:$Q$2)
UPD. дочитал до если допусти значение пустое то он брал предыдущее значение
для A4 массивная формула Код
=ИНДЕКС(2:2;МАКС((A1:Q1<=C4)*(ДЛСТР(A2:Q2)>0)*СТОЛБЕЦ(A:Q)))
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Вторник, 17.03.2015, 15:45
Ответить
Сообщение для A4 Код
=ПРОСМОТР(C4;$A$1:$Q$1;$A$2:$Q$2)
UPD. дочитал до если допусти значение пустое то он брал предыдущее значение
для A4 массивная формула Код
=ИНДЕКС(2:2;МАКС((A1:Q1<=C4)*(ДЛСТР(A2:Q2)>0)*СТОЛБЕЦ(A:Q)))
Автор - krosav4ig Дата добавления - 17.03.2015 в 14:19
krosav4ig
Дата: Вторник, 17.03.2015, 14:06 |
Сообщение № 1699 | Тема: Сравнение двух таблиц из двух столбцов
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
вариант со сводной таблицей
К сообщению приложен файл:
-2-.xlsx
(14.2 Kb)
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение вариант со сводной таблицей Автор - krosav4ig Дата добавления - 17.03.2015 в 14:06
krosav4ig
Дата: Понедельник, 16.03.2015, 18:29 |
Сообщение № 1700 | Тема: Перенос информации из сайта
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
как-то так... наименование лота Цитата
=ЕСЛИОШИБКА(ФИЛЬТР.XML(ПОДСТАВИТЬ(ПСТР(ВЕБСЛУЖБА(E21);ПОИСК("<table";ВЕБСЛУЖБА(E21);ПОИСК(">"&ЗАМЕНИТЬ(ЗАМЕНИТЬ(E21;1;ПОИСК("=";E21););7;14;)&"<";ВЕБСЛУЖБА(E21)));ПОИСК("</table";ВЕБСЛУЖБА(E21);ПОИСК(">"&ПРАВБ(E21;7)&"<";ВЕБСЛУЖБА(E21)))-ПОИСК("<table";ВЕБСЛУЖБА(E21);ПОИСК(">"&ЗАМЕНИТЬ(ЗАМЕНИТЬ(E21;1;ПОИСК("=";E21););7;14;)&"<";ВЕБСЛУЖБА(E21)))+8);" ";" ");"//tr[4]/td[2]");"")
начальная цена Цитата
=ЕСЛИОШИБКА(--ПОДСТАВИТЬ(ПОДСТАВИТЬ(ФИЛЬТР.XML(ПОДСТАВИТЬ(ПСТР(ВЕБСЛУЖБА(E21);ПОИСК("<table";ВЕБСЛУЖБА(E21);ПОИСК(">"&ЗАМЕНИТЬ(ЗАМЕНИТЬ(E21;1;ПОИСК("=";E21););7;14;)&"<";ВЕБСЛУЖБА(E21)));ПОИСК("</table";ВЕБСЛУЖБА(E21);ПОИСК(">"&ПРАВБ(E21;7)&"<";ВЕБСЛУЖБА(E21)))-ПОИСК("<table";ВЕБСЛУЖБА(E21);ПОИСК(">"&ЗАМЕНИТЬ(ЗАМЕНИТЬ(E21;1;ПОИСК("=";E21););7;14;)&"<";ВЕБСЛУЖБА(E21)))+8);" ";" ");"//tr[6]/td[2]");".";ПСТР(1/2;2;1));" ";);"")
описание Цитата
=ЕСЛИОШИБКА(ФИЛЬТР.XML(ПОДСТАВИТЬ(ПСТР(ВЕБСЛУЖБА(E21);ПОИСК("<table";ВЕБСЛУЖБА(E21);ПОИСК(">"&ЗАМЕНИТЬ(ЗАМЕНИТЬ(E21;1;ПОИСК("=";E21););7;14;)&"<";ВЕБСЛУЖБА(E21)));ПОИСК("</table";ВЕБСЛУЖБА(E21);ПОИСК(">"&ПРАВБ(E21;7)&"<";ВЕБСЛУЖБА(E21)))-ПОИСК("<table";ВЕБСЛУЖБА(E21);ПОИСК(">"&ЗАМЕНИТЬ(ЗАМЕНИТЬ(E21;1;ПОИСК("=";E21););7;14;)&"<";ВЕБСЛУЖБА(E21)))+8);" ";" ");"//tr[5]/td[2]");"")
как-то так... наименование лота Цитата
=ЕСЛИОШИБКА(ФИЛЬТР.XML(ПОДСТАВИТЬ(ПСТР(ВЕБСЛУЖБА(E21);ПОИСК("<table";ВЕБСЛУЖБА(E21);ПОИСК(">"&ЗАМЕНИТЬ(ЗАМЕНИТЬ(E21;1;ПОИСК("=";E21););7;14;)&"<";ВЕБСЛУЖБА(E21)));ПОИСК("</table";ВЕБСЛУЖБА(E21);ПОИСК(">"&ПРАВБ(E21;7)&"<";ВЕБСЛУЖБА(E21)))-ПОИСК("<table";ВЕБСЛУЖБА(E21);ПОИСК(">"&ЗАМЕНИТЬ(ЗАМЕНИТЬ(E21;1;ПОИСК("=";E21););7;14;)&"<";ВЕБСЛУЖБА(E21)))+8);" ";" ");"//tr[4]/td[2]");"")
начальная цена Цитата
=ЕСЛИОШИБКА(--ПОДСТАВИТЬ(ПОДСТАВИТЬ(ФИЛЬТР.XML(ПОДСТАВИТЬ(ПСТР(ВЕБСЛУЖБА(E21);ПОИСК("<table";ВЕБСЛУЖБА(E21);ПОИСК(">"&ЗАМЕНИТЬ(ЗАМЕНИТЬ(E21;1;ПОИСК("=";E21););7;14;)&"<";ВЕБСЛУЖБА(E21)));ПОИСК("</table";ВЕБСЛУЖБА(E21);ПОИСК(">"&ПРАВБ(E21;7)&"<";ВЕБСЛУЖБА(E21)))-ПОИСК("<table";ВЕБСЛУЖБА(E21);ПОИСК(">"&ЗАМЕНИТЬ(ЗАМЕНИТЬ(E21;1;ПОИСК("=";E21););7;14;)&"<";ВЕБСЛУЖБА(E21)))+8);" ";" ");"//tr[6]/td[2]");".";ПСТР(1/2;2;1));" ";);"")
описание Цитата
=ЕСЛИОШИБКА(ФИЛЬТР.XML(ПОДСТАВИТЬ(ПСТР(ВЕБСЛУЖБА(E21);ПОИСК("<table";ВЕБСЛУЖБА(E21);ПОИСК(">"&ЗАМЕНИТЬ(ЗАМЕНИТЬ(E21;1;ПОИСК("=";E21););7;14;)&"<";ВЕБСЛУЖБА(E21)));ПОИСК("</table";ВЕБСЛУЖБА(E21);ПОИСК(">"&ПРАВБ(E21;7)&"<";ВЕБСЛУЖБА(E21)))-ПОИСК("<table";ВЕБСЛУЖБА(E21);ПОИСК(">"&ЗАМЕНИТЬ(ЗАМЕНИТЬ(E21;1;ПОИСК("=";E21););7;14;)&"<";ВЕБСЛУЖБА(E21)))+8);" ";" ");"//tr[5]/td[2]");"")
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Понедельник, 16.03.2015, 18:50
Ответить
Сообщение как-то так... наименование лота Цитата
=ЕСЛИОШИБКА(ФИЛЬТР.XML(ПОДСТАВИТЬ(ПСТР(ВЕБСЛУЖБА(E21);ПОИСК("<table";ВЕБСЛУЖБА(E21);ПОИСК(">"&ЗАМЕНИТЬ(ЗАМЕНИТЬ(E21;1;ПОИСК("=";E21););7;14;)&"<";ВЕБСЛУЖБА(E21)));ПОИСК("</table";ВЕБСЛУЖБА(E21);ПОИСК(">"&ПРАВБ(E21;7)&"<";ВЕБСЛУЖБА(E21)))-ПОИСК("<table";ВЕБСЛУЖБА(E21);ПОИСК(">"&ЗАМЕНИТЬ(ЗАМЕНИТЬ(E21;1;ПОИСК("=";E21););7;14;)&"<";ВЕБСЛУЖБА(E21)))+8);" ";" ");"//tr[4]/td[2]");"")
начальная цена Цитата
=ЕСЛИОШИБКА(--ПОДСТАВИТЬ(ПОДСТАВИТЬ(ФИЛЬТР.XML(ПОДСТАВИТЬ(ПСТР(ВЕБСЛУЖБА(E21);ПОИСК("<table";ВЕБСЛУЖБА(E21);ПОИСК(">"&ЗАМЕНИТЬ(ЗАМЕНИТЬ(E21;1;ПОИСК("=";E21););7;14;)&"<";ВЕБСЛУЖБА(E21)));ПОИСК("</table";ВЕБСЛУЖБА(E21);ПОИСК(">"&ПРАВБ(E21;7)&"<";ВЕБСЛУЖБА(E21)))-ПОИСК("<table";ВЕБСЛУЖБА(E21);ПОИСК(">"&ЗАМЕНИТЬ(ЗАМЕНИТЬ(E21;1;ПОИСК("=";E21););7;14;)&"<";ВЕБСЛУЖБА(E21)))+8);" ";" ");"//tr[6]/td[2]");".";ПСТР(1/2;2;1));" ";);"")
описание Цитата
=ЕСЛИОШИБКА(ФИЛЬТР.XML(ПОДСТАВИТЬ(ПСТР(ВЕБСЛУЖБА(E21);ПОИСК("<table";ВЕБСЛУЖБА(E21);ПОИСК(">"&ЗАМЕНИТЬ(ЗАМЕНИТЬ(E21;1;ПОИСК("=";E21););7;14;)&"<";ВЕБСЛУЖБА(E21)));ПОИСК("</table";ВЕБСЛУЖБА(E21);ПОИСК(">"&ПРАВБ(E21;7)&"<";ВЕБСЛУЖБА(E21)))-ПОИСК("<table";ВЕБСЛУЖБА(E21);ПОИСК(">"&ЗАМЕНИТЬ(ЗАМЕНИТЬ(E21;1;ПОИСК("=";E21););7;14;)&"<";ВЕБСЛУЖБА(E21)))+8);" ";" ");"//tr[5]/td[2]");"")
Автор - krosav4ig Дата добавления - 16.03.2015 в 18:29