Результаты поиска
krosav4ig
Дата: Вторник, 11.11.2014, 01:49 |
Сообщение № 2001 | Тема: Поиск, вывод значений из столбца с учетом двух критериев
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
для гуглдок формула Цитата
=ArrayFormula(IFERROR(INDEX(B$1:B$65536;SMALL(IF((C$2:G$2=J$2)*ISNUMBER(C$3:G$8)*(C$3:G$8<=CHOOSE(SUM(ISNUMBER(SEARCH({"-"\" "};J$3))*{1\2};1);J$3;--REPLACE(J$3;1;SEARCH("-";J$3););9^9))*(C$3:G$8>=CHOOSE(SUM(ISNUMBER(SEARCH({"-"\" "};J$3))*{1\2};1);J$3;LEFT(J$3;SEARCH("-";J$3)-1)%;LEFT(J$3;SEARCH(" ";J$3)-1)%));ROW(B$3:B$8););ROW(O1)));))
для OO Calc (у мну 4.1.1, в 3 введенные формулы работают, но новые ввести не получится) Цитата
=T(INDEX(B$1:B$65536;SMALL(IF((C$2:G$2=J$2)*ISNUMBER(C$3:G$8)*(C$3:G$8<=CHOOSE(SUM(ISNUMBER(SEARCH({"-";" "};J$3))*{1;2};1);J$3;SUBSTITUTE(REPLACE(J$3;1;SEARCH("-";J$3);"");"%";"")%;9^9))*(C$3:G$8>=CHOOSE(SUM(ISNUMBER(SEARCH({"-";" "};J$3))*{1;2};1);J$3;LEFT(J$3;SEARCH("-";J$3)-1)%;LEFT(J$3;SEARCH(" ";J$3)-1)%));ROW(B$3:B$8);4^8);ROW(O1))))
для гуглдок формула Цитата
=ArrayFormula(IFERROR(INDEX(B$1:B$65536;SMALL(IF((C$2:G$2=J$2)*ISNUMBER(C$3:G$8)*(C$3:G$8<=CHOOSE(SUM(ISNUMBER(SEARCH({"-"\" "};J$3))*{1\2};1);J$3;--REPLACE(J$3;1;SEARCH("-";J$3););9^9))*(C$3:G$8>=CHOOSE(SUM(ISNUMBER(SEARCH({"-"\" "};J$3))*{1\2};1);J$3;LEFT(J$3;SEARCH("-";J$3)-1)%;LEFT(J$3;SEARCH(" ";J$3)-1)%));ROW(B$3:B$8););ROW(O1)));))
для OO Calc (у мну 4.1.1, в 3 введенные формулы работают, но новые ввести не получится) Цитата
=T(INDEX(B$1:B$65536;SMALL(IF((C$2:G$2=J$2)*ISNUMBER(C$3:G$8)*(C$3:G$8<=CHOOSE(SUM(ISNUMBER(SEARCH({"-";" "};J$3))*{1;2};1);J$3;SUBSTITUTE(REPLACE(J$3;1;SEARCH("-";J$3);"");"%";"")%;9^9))*(C$3:G$8>=CHOOSE(SUM(ISNUMBER(SEARCH({"-";" "};J$3))*{1;2};1);J$3;LEFT(J$3;SEARCH("-";J$3)-1)%;LEFT(J$3;SEARCH(" ";J$3)-1)%));ROW(B$3:B$8);4^8);ROW(O1))))
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Вторник, 11.11.2014, 12:35
Ответить
Сообщение для гуглдок формула Цитата
=ArrayFormula(IFERROR(INDEX(B$1:B$65536;SMALL(IF((C$2:G$2=J$2)*ISNUMBER(C$3:G$8)*(C$3:G$8<=CHOOSE(SUM(ISNUMBER(SEARCH({"-"\" "};J$3))*{1\2};1);J$3;--REPLACE(J$3;1;SEARCH("-";J$3););9^9))*(C$3:G$8>=CHOOSE(SUM(ISNUMBER(SEARCH({"-"\" "};J$3))*{1\2};1);J$3;LEFT(J$3;SEARCH("-";J$3)-1)%;LEFT(J$3;SEARCH(" ";J$3)-1)%));ROW(B$3:B$8););ROW(O1)));))
для OO Calc (у мну 4.1.1, в 3 введенные формулы работают, но новые ввести не получится) Цитата
=T(INDEX(B$1:B$65536;SMALL(IF((C$2:G$2=J$2)*ISNUMBER(C$3:G$8)*(C$3:G$8<=CHOOSE(SUM(ISNUMBER(SEARCH({"-";" "};J$3))*{1;2};1);J$3;SUBSTITUTE(REPLACE(J$3;1;SEARCH("-";J$3);"");"%";"")%;9^9))*(C$3:G$8>=CHOOSE(SUM(ISNUMBER(SEARCH({"-";" "};J$3))*{1;2};1);J$3;LEFT(J$3;SEARCH("-";J$3)-1)%;LEFT(J$3;SEARCH(" ";J$3)-1)%));ROW(B$3:B$8);4^8);ROW(O1))))
Автор - krosav4ig Дата добавления - 11.11.2014 в 01:49
krosav4ig
Дата: Понедельник, 10.11.2014, 15:59 |
Сообщение № 2002 | Тема: Заливка цветом диапазона ячеек во всех листах.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
vdekameron , ну ладно, уговорили Кнопка должна быть только на 1 листе?
vdekameron , ну ладно, уговорили Кнопка должна быть только на 1 листе?krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение vdekameron , ну ладно, уговорили Кнопка должна быть только на 1 листе?Автор - krosav4ig Дата добавления - 10.11.2014 в 15:59
krosav4ig
Дата: Понедельник, 10.11.2014, 15:53 |
Сообщение № 2003 | Тема: расстановка разрыва страниц по условию
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
сколько? точно, в граммах По поводу размера бумаги. Ставьте любой виртуальный принтер, выбираете его по умолчанию, создаете в настройках нужный формат бумаги. После этого в excel можно выбрать созданный формат в качестве размера листа и не нужно будет считать строки. в файл добавил 2 именованных диапазона [vba]Код
Sub QWE() Dim dic, cell As Range, arr, k& Set dic = CreateObject("scripting.dictionary") For Each cell In [города] dic.Add [список].Find(cell).Row, cell.Value Next arr = dic.keys For k = 1 To UBound(arr) Me.HPageBreaks.Add before:=Range("список")(arr(k)) Next Set dic = Nothing End Sub
[/vba]
сколько? точно, в граммах По поводу размера бумаги. Ставьте любой виртуальный принтер, выбираете его по умолчанию, создаете в настройках нужный формат бумаги. После этого в excel можно выбрать созданный формат в качестве размера листа и не нужно будет считать строки. в файл добавил 2 именованных диапазона [vba]Код
Sub QWE() Dim dic, cell As Range, arr, k& Set dic = CreateObject("scripting.dictionary") For Each cell In [города] dic.Add [список].Find(cell).Row, cell.Value Next arr = dic.keys For k = 1 To UBound(arr) Me.HPageBreaks.Add before:=Range("список")(arr(k)) Next Set dic = Nothing End Sub
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Понедельник, 10.11.2014, 16:09
Ответить
Сообщение сколько? точно, в граммах По поводу размера бумаги. Ставьте любой виртуальный принтер, выбираете его по умолчанию, создаете в настройках нужный формат бумаги. После этого в excel можно выбрать созданный формат в качестве размера листа и не нужно будет считать строки. в файл добавил 2 именованных диапазона [vba]Код
Sub QWE() Dim dic, cell As Range, arr, k& Set dic = CreateObject("scripting.dictionary") For Each cell In [города] dic.Add [список].Find(cell).Row, cell.Value Next arr = dic.keys For k = 1 To UBound(arr) Me.HPageBreaks.Add before:=Range("список")(arr(k)) Next Set dic = Nothing End Sub
[/vba] Автор - krosav4ig Дата добавления - 10.11.2014 в 15:53
krosav4ig
Дата: Воскресенье, 09.11.2014, 23:59 |
Сообщение № 2004 | Тема: научить эксель не менять формулы
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
koyaanisqatsi , а если так?
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение koyaanisqatsi , а если так? Автор - krosav4ig Дата добавления - 09.11.2014 в 23:59
krosav4ig
Дата: Воскресенье, 09.11.2014, 01:58 |
Сообщение № 2005 | Тема: Поиск, вывод значений из столбца с учетом двух критериев
Группа: Друзья
Ранг: Старожил
Сообщений: 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)));"")
немного сократил свою формулу Код
=ЕСЛИОШИБКА(ИНДЕКС(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
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
krosav4ig
Дата: Суббота, 08.11.2014, 04:17 |
Сообщение № 2006 | Тема: Цифровые данные через тире -> данные по ячейкам
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
VadimVV , выделяем диапазон, жмем комбинацию ctrl+ь
VadimVV , выделяем диапазон, жмем комбинацию ctrl+ьkrosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение VadimVV , выделяем диапазон, жмем комбинацию ctrl+ьАвтор - krosav4ig Дата добавления - 08.11.2014 в 04:17
krosav4ig
Дата: Пятница, 07.11.2014, 22:18 |
Сообщение № 2007 | Тема: Не суммируются числа
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
или введите этот не обычный пробел комбинацией Alt+0160 в строку поиска
или введите этот не обычный пробел комбинацией Alt+0160 в строку поиска krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение или введите этот не обычный пробел комбинацией Alt+0160 в строку поиска Автор - krosav4ig Дата добавления - 07.11.2014 в 22:18
krosav4ig
Дата: Пятница, 07.11.2014, 21:06 |
Сообщение № 2008 | Тема: Поиск, вывод значений из столбца с учетом двух критериев
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
как-то так upd. заменил файл
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, 15:59 |
Сообщение № 2009 | Тема: Построение строкового массива по двум условиям
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
чето у мну какой-то монстр получился, да еще и с доп.столбцом
чето у мну какой-то монстр получился, да еще и с доп.столбцом krosav4ig
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, 12:18 |
Сообщение № 2010 | Тема: Анимация Excel
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Rioran , привет, пасяба. А у мну в 2007 на работе работает, мало того в immediate [vba]Код
?activesheet.Shapes(0).ID=activesheet.Shapes(1).ID
[/vba] возвращает True. Волшебство, однако
Rioran , привет, пасяба. А у мну в 2007 на работе работает, мало того в immediate [vba]Код
?activesheet.Shapes(0).ID=activesheet.Shapes(1).ID
[/vba] возвращает True. Волшебство, однакоkrosav4ig
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
Дата: Четверг, 06.11.2014, 22:59 |
Сообщение № 2011 | Тема: Цифровые данные через тире -> данные по ячейкам
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
krosav4ig
Дата: Четверг, 06.11.2014, 21:56 |
Сообщение № 2012 | Тема: Цифровые данные через тире -> данные по ячейкам
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
AndreTM , ну дык у мну же возвращается результат в ячейку, из которой функция вызывается, в A11 формула [vba]Код
=qwe($A$2:$A$8;СТРОКА(B1))
[/vba] и растянута вниз до A36
AndreTM , ну дык у мну же возвращается результат в ячейку, из которой функция вызывается, в A11 формула [vba]Код
=qwe($A$2:$A$8;СТРОКА(B1))
[/vba] и растянута вниз до A36krosav4ig
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, 20:23 |
Сообщение № 2013 | Тема: Объект-коллекция "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], чем черт не шутит, вдруг сработает
а еси так [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
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, 18:18 |
Сообщение № 2014 | Тема: Заливка цветом диапазона ячеек во всех листах.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
.
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение . Автор - krosav4ig Дата добавления - 06.11.2014 в 18:18
krosav4ig
Дата: Четверг, 06.11.2014, 16:50 |
Сообщение № 2015 | Тема: Цифровые данные через тире -> данные по ячейкам
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
[vba]
Код
Function qwe(rng As Range, r&) Application.Volatile False Dim cell As Range, i&, j, n&, arr&() For Each cell In rng If IsNumeric(cell) Then ReDim Preserve arr(i) arr(i) = cell i = i + 1 Else If InStr(cell, "-") Then For j = Split(cell, "-")(0) To Split(cell, "-")(1) ReDim Preserve arr(i) arr(i) = j i = i + 1 Next End If End If Next qwe = arr(r - 1) End Function
[/vba]
[vba]
Код
Function qwe(rng As Range, r&) Application.Volatile False Dim cell As Range, i&, j, n&, arr&() For Each cell In rng If IsNumeric(cell) Then ReDim Preserve arr(i) arr(i) = cell i = i + 1 Else If InStr(cell, "-") Then For j = Split(cell, "-")(0) To Split(cell, "-")(1) ReDim Preserve arr(i) arr(i) = j i = i + 1 Next End If End If Next qwe = arr(r - 1) End Function
[/vba]
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение
[vba]
Код
Function qwe(rng As Range, r&) Application.Volatile False Dim cell As Range, i&, j, n&, arr&() For Each cell In rng If IsNumeric(cell) Then ReDim Preserve arr(i) arr(i) = cell i = i + 1 Else If InStr(cell, "-") Then For j = Split(cell, "-")(0) To Split(cell, "-")(1) ReDim Preserve arr(i) arr(i) = j i = i + 1 Next End If End If Next qwe = arr(r - 1) End Function
[/vba]
Автор - krosav4ig Дата добавления - 06.11.2014 в 16:50
krosav4ig
Дата: Четверг, 06.11.2014, 02:30 |
Сообщение № 2016 | Тема: Круговую диаграмму из сгруппированных данных одного столбца
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Файл xls в студию А пока подсказка: СЧЁТЕСЛИМН()[offtop]опять опоздал )
Файл xls в студию А пока подсказка: СЧЁТЕСЛИМН()[offtop]опять опоздал ) krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Четверг, 06.11.2014, 02:32
Ответить
Сообщение Файл xls в студию А пока подсказка: СЧЁТЕСЛИМН()[offtop]опять опоздал ) Автор - krosav4ig Дата добавления - 06.11.2014 в 02:30
krosav4ig
Дата: Четверг, 06.11.2014, 01:56 |
Сообщение № 2017 | Тема: Объект-коллекция "Files"
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
можно еще WINAPI покурить [p.s.]Achtung! немецкий язык!
можно еще WINAPI покурить [p.s.]Achtung! немецкий язык! krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение можно еще WINAPI покурить [p.s.]Achtung! немецкий язык! Автор - krosav4ig Дата добавления - 06.11.2014 в 01:56
krosav4ig
Дата: Четверг, 06.11.2014, 00:38 |
Сообщение № 2018 | Тема: Заливка цветом диапазона ячеек во всех листах.
Группа: Друзья
Ранг: Старожил
Сообщений: 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]
если нужно работать с листами к примеру с листами с 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
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
Дата: Среда, 05.11.2014, 22:49 |
Сообщение № 2019 | Тема: Заливка цветом диапазона ячеек во всех листах.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
vdekameron , все листы однотипные, или есть листы, которые не должны изменяться?
vdekameron , все листы однотипные, или есть листы, которые не должны изменяться?krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение vdekameron , все листы однотипные, или есть листы, которые не должны изменяться?Автор - krosav4ig Дата добавления - 05.11.2014 в 22:49
krosav4ig
Дата: Среда, 05.11.2014, 17:34 |
Сообщение № 2020 | Тема: Заливка цветом диапазона ячеек во всех листах.
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
vdekameron , зажали alt, выделили, опустили alt, внесли изменения/залили цветом, выделили любую другую ячейку
vdekameron , зажали alt, выделили, опустили alt, внесли изменения/залили цветом, выделили любую другую ячейкуkrosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение vdekameron , зажали alt, выделили, опустили alt, внесли изменения/залили цветом, выделили любую другую ячейкуАвтор - krosav4ig Дата добавления - 05.11.2014 в 17:34