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

Вход

Регистрация

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

 

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

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

Excel 2007,2010,2013
Вариант через надстройку Power Query
[vba]
Код
let
    a=(nam)  => Excel.CurrentWorkbook(){[Name=nam]}[Content],
    Filter   =  Table.AddIndexColumn(Table.SelectRows(a("Таблица1"),each [Столбец1]=a("критерий"){0}[Column1]),"",0),
    Pivot    =  Table.RemoveColumns(Table.Pivot(Filter, List.Distinct(Filter[Столбец2]), "Столбец2", "Столбец3"),{""}),
    Custom1  =  List.Transform(List.Skip(Table.ToColumns(Pivot),1),each List.Distinct(List.RemoveNulls(_))),
    Result   =  Table.FromColumns(Custom1,List.Skip(Table.ColumnNames(Pivot),1))
in
    Result
[/vba]
К сообщению приложен файл: 8855963.xls (85.0 Kb)

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

Сообщение отредактировал krosav4ig - Понедельник, 08.04.2019, 08:18
 
Ответить
СообщениеВариант через надстройку Power Query
[vba]
Код
let
    a=(nam)  => Excel.CurrentWorkbook(){[Name=nam]}[Content],
    Filter   =  Table.AddIndexColumn(Table.SelectRows(a("Таблица1"),each [Столбец1]=a("критерий"){0}[Column1]),"",0),
    Pivot    =  Table.RemoveColumns(Table.Pivot(Filter, List.Distinct(Filter[Столбец2]), "Столбец2", "Столбец3"),{""}),
    Custom1  =  List.Transform(List.Skip(Table.ToColumns(Pivot),1),each List.Distinct(List.RemoveNulls(_))),
    Result   =  Table.FromColumns(Custom1,List.Skip(Table.ColumnNames(Pivot),1))
in
    Result
[/vba]
Автор - krosav4ig
Дата добавления - 08.04.2019 в 08:14
krosav4ig Дата: Среда, 10.04.2019, 19:29 | Сообщение № 2002 | Тема: Изменить стиль Обычный
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
если мне не изменяет память, стиль Обычный применяется ко всем ячейкам листа в момент его создания. Очистите форматы ячеек на существующих листах и они станут числовыми

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

Сообщение отредактировал krosav4ig - Среда, 10.04.2019, 19:31
 
Ответить
Сообщениеесли мне не изменяет память, стиль Обычный применяется ко всем ячейкам листа в момент его создания. Очистите форматы ячеек на существующих листах и они станут числовыми
Автор - krosav4ig
Дата добавления - 10.04.2019 в 19:29
krosav4ig Дата: Среда, 10.04.2019, 22:35 | Сообщение № 2003 | Тема: Изменить стиль Обычный
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
через 7zip удалил styles.bin
Открыл с восстановлением, сменил числовой формат стиля Обычный на Число, сохранил
К сообщению приложен файл: 6611683.xlsb (9.8 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениечерез 7zip удалил styles.bin
Открыл с восстановлением, сменил числовой формат стиля Обычный на Число, сохранил
Автор - krosav4ig
Дата добавления - 10.04.2019 в 22:35
krosav4ig Дата: Четверг, 11.04.2019, 20:49 | Сообщение № 2004 | Тема: Чего вам не хватает на форуме?
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Никанор, средний период индексации страниц сайта в гугле - 1 неделя

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеНиканор, средний период индексации страниц сайта в гугле - 1 неделя
Автор - krosav4ig
Дата добавления - 11.04.2019 в 20:49
krosav4ig Дата: Воскресенье, 14.04.2019, 17:32 | Сообщение № 2005 | Тема: PQ извлечь строки после определенной строки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Anis625, ниже списка проектов могут идти какие-либо другие данные?

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

Excel 2007,2010,2013
тогда можно как-то так
[vba]
Код
let
    Источник = Excel.Workbook(File.Contents("F:\PQ\путь.xlsx"), null, true),
    #"Карта КПЭ_Sheet" = Источник{[Item="Карта КПЭ",Kind="Sheet"]}[Data],
    #"Другие удаленные столбцы" = Table.SelectColumns(#"Карта КПЭ_Sheet",{"Column2"}),
    #"Строки с примененным фильтром" = Table.SelectRows(#"Другие удаленные столбцы", each ([Column2] <> null and [Column2] <> " " and [Column2] <> "Дата:" and [Column2] <> "Подпись Работника")),
    Пользовательская = ((t)=>Table.Skip(t,List.PositionOf(Table.Column(t,"Column2"),"Ключевой проект:")+1))(#"Строки с примененным фильтром")
in
    Пользовательская
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениетогда можно как-то так
[vba]
Код
let
    Источник = Excel.Workbook(File.Contents("F:\PQ\путь.xlsx"), null, true),
    #"Карта КПЭ_Sheet" = Источник{[Item="Карта КПЭ",Kind="Sheet"]}[Data],
    #"Другие удаленные столбцы" = Table.SelectColumns(#"Карта КПЭ_Sheet",{"Column2"}),
    #"Строки с примененным фильтром" = Table.SelectRows(#"Другие удаленные столбцы", each ([Column2] <> null and [Column2] <> " " and [Column2] <> "Дата:" and [Column2] <> "Подпись Работника")),
    Пользовательская = ((t)=>Table.Skip(t,List.PositionOf(Table.Column(t,"Column2"),"Ключевой проект:")+1))(#"Строки с примененным фильтром")
in
    Пользовательская
[/vba]
Автор - krosav4ig
Дата добавления - 14.04.2019 в 17:37
krosav4ig Дата: Воскресенье, 14.04.2019, 17:42 | Сообщение № 2007 | Тема: PQ извлечь строки после определенной строки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
или так [vba]
Код
let
    Источник = Excel.Workbook(File.Contents("F:\PQ\путь.xlsx"), null, true),
    #"Карта КПЭ_Sheet" = Источник{[Item="Карта КПЭ",Kind="Sheet"]}[Data],
    #"Другие удаленные столбцы" = Table.SelectColumns(#"Карта КПЭ_Sheet",{"Column2"}),
    #"Строки с примененным фильтром" = Table.SelectRows(#"Другие удаленные столбцы", each ([Column2] <> null and [Column2] <> " " and [Column2] <> "Дата:" and [Column2] <> "Подпись Работника")),
    #"Added Conditional Column" = Table.AddColumn(#"Строки с примененным фильтром", "Пользовательская", each if [Column2] = "Ключевой проект:" then 1 else null),
    #"Filled Down" = Table.FillDown(#"Added Conditional Column",{"Пользовательская"}),
    #"Filtered Rows" = Table.SelectRows(#"Filled Down", each ([Пользовательская] = 1)),
    #"Removed Top Rows" = Table.Skip(#"Filtered Rows",1),
    #"Removed Columns" = Table.RemoveColumns(#"Removed Top Rows",{"Пользовательская"})
in
#"Removed Columns"
[/vba]

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

Сообщение отредактировал krosav4ig - Воскресенье, 14.04.2019, 17:43
 
Ответить
Сообщениеили так [vba]
Код
let
    Источник = Excel.Workbook(File.Contents("F:\PQ\путь.xlsx"), null, true),
    #"Карта КПЭ_Sheet" = Источник{[Item="Карта КПЭ",Kind="Sheet"]}[Data],
    #"Другие удаленные столбцы" = Table.SelectColumns(#"Карта КПЭ_Sheet",{"Column2"}),
    #"Строки с примененным фильтром" = Table.SelectRows(#"Другие удаленные столбцы", each ([Column2] <> null and [Column2] <> " " and [Column2] <> "Дата:" and [Column2] <> "Подпись Работника")),
    #"Added Conditional Column" = Table.AddColumn(#"Строки с примененным фильтром", "Пользовательская", each if [Column2] = "Ключевой проект:" then 1 else null),
    #"Filled Down" = Table.FillDown(#"Added Conditional Column",{"Пользовательская"}),
    #"Filtered Rows" = Table.SelectRows(#"Filled Down", each ([Пользовательская] = 1)),
    #"Removed Top Rows" = Table.Skip(#"Filtered Rows",1),
    #"Removed Columns" = Table.RemoveColumns(#"Removed Top Rows",{"Пользовательская"})
in
#"Removed Columns"
[/vba]
Автор - krosav4ig
Дата добавления - 14.04.2019 в 17:42
krosav4ig Дата: Воскресенье, 14.04.2019, 17:45 | Сообщение № 2008 | Тема: PQ извлечь строки после определенной строки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
или так [vba]
Код
let
    Источник = Excel.Workbook(File.Contents("F:\PQ\путь.xlsx"), null, true),
    #"Карта КПЭ_Sheet" = Источник{[Item="Карта КПЭ",Kind="Sheet"]}[Data],
    #"Другие удаленные столбцы" = Table.SelectColumns(#"Карта КПЭ_Sheet",{"Column2"}),
    #"Строки с примененным фильтром" = Table.SelectRows(#"Другие удаленные столбцы", each ([Column2] <> null and [Column2] <> " " and [Column2] <> "Дата:" and [Column2] <> "Подпись Работника")),
    #"Added Conditional Column" = Table.AddColumn(#"Строки с примененным фильтром", "Пользовательская", each if [Column2] = "Ключевой проект:" then 1 else null),
    #"Filled Up" = Table.FillUp(#"Added Conditional Column",{"Пользовательская"}),
    #"Filtered Rows" = Table.SelectRows(#"Filled Up", each ([Пользовательская] = null)),
    #"Removed Columns" = Table.RemoveColumns(#"Filtered Rows",{"Пользовательская"})
in
    #"Removed Columns"
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеили так [vba]
Код
let
    Источник = Excel.Workbook(File.Contents("F:\PQ\путь.xlsx"), null, true),
    #"Карта КПЭ_Sheet" = Источник{[Item="Карта КПЭ",Kind="Sheet"]}[Data],
    #"Другие удаленные столбцы" = Table.SelectColumns(#"Карта КПЭ_Sheet",{"Column2"}),
    #"Строки с примененным фильтром" = Table.SelectRows(#"Другие удаленные столбцы", each ([Column2] <> null and [Column2] <> " " and [Column2] <> "Дата:" and [Column2] <> "Подпись Работника")),
    #"Added Conditional Column" = Table.AddColumn(#"Строки с примененным фильтром", "Пользовательская", each if [Column2] = "Ключевой проект:" then 1 else null),
    #"Filled Up" = Table.FillUp(#"Added Conditional Column",{"Пользовательская"}),
    #"Filtered Rows" = Table.SelectRows(#"Filled Up", each ([Пользовательская] = null)),
    #"Removed Columns" = Table.RemoveColumns(#"Filtered Rows",{"Пользовательская"})
in
    #"Removed Columns"
[/vba]
Автор - krosav4ig
Дата добавления - 14.04.2019 в 17:45
krosav4ig Дата: Воскресенье, 14.04.2019, 18:15 | Сообщение № 2009 | Тема: PQ извлечь строки после определенной строки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
[vba]
Код
let
    Источник = Excel.Workbook(File.Contents("F:\PQ\путь.xlsx"), null, true),
    #"Карта КПЭ_Sheet" = Источник{[Item="Карта КПЭ",Kind="Sheet"]}[Data],
    #"Другие удаленные столбцы" = Table.SelectColumns(#"Карта КПЭ_Sheet",{"Column2"}),
    #"Строки с примененным фильтром" = Table.SelectRows(#"Другие удаленные столбцы", each ([Column2] <> null and [Column2] <> " " and [Column2] <> "Дата:" and [Column2] <> "Подпись Работника")),
    #"Added Custom" = Table.AddColumn(#"Строки с примененным фильтром", "Пользовательская", each if Text.Contains([Column2],"Ключев") and Text.Contains([Column2],"проект") then 1 else null),
    #"Filled Down" = Table.FillDown(#"Added Custom",{"Пользовательская"}),
    #"Filtered Rows" = Table.SelectRows(#"Filled Down", each ([Пользовательская] = 1)),
    #"Removed Top Rows" = Table.Skip(#"Filtered Rows",1),
    #"Removed Columns" = Table.RemoveColumns(#"Removed Top Rows",{"Пользовательская"})
in
    #"Removed Columns"
[/vba][p.s.]Table.FillDown - это Преобразование -> Заполнить -> Вниз

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

Сообщение отредактировал krosav4ig - Воскресенье, 14.04.2019, 18:17
 
Ответить
Сообщение[vba]
Код
let
    Источник = Excel.Workbook(File.Contents("F:\PQ\путь.xlsx"), null, true),
    #"Карта КПЭ_Sheet" = Источник{[Item="Карта КПЭ",Kind="Sheet"]}[Data],
    #"Другие удаленные столбцы" = Table.SelectColumns(#"Карта КПЭ_Sheet",{"Column2"}),
    #"Строки с примененным фильтром" = Table.SelectRows(#"Другие удаленные столбцы", each ([Column2] <> null and [Column2] <> " " and [Column2] <> "Дата:" and [Column2] <> "Подпись Работника")),
    #"Added Custom" = Table.AddColumn(#"Строки с примененным фильтром", "Пользовательская", each if Text.Contains([Column2],"Ключев") and Text.Contains([Column2],"проект") then 1 else null),
    #"Filled Down" = Table.FillDown(#"Added Custom",{"Пользовательская"}),
    #"Filtered Rows" = Table.SelectRows(#"Filled Down", each ([Пользовательская] = 1)),
    #"Removed Top Rows" = Table.Skip(#"Filtered Rows",1),
    #"Removed Columns" = Table.RemoveColumns(#"Removed Top Rows",{"Пользовательская"})
in
    #"Removed Columns"
[/vba][p.s.]Table.FillDown - это Преобразование -> Заполнить -> Вниз
Автор - krosav4ig
Дата добавления - 14.04.2019 в 18:15
krosav4ig Дата: Воскресенье, 14.04.2019, 19:37 | Сообщение № 2010 | Тема: PQ извлечь строки после определенной строки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Anis625, Не, кубик-рубика - это DAX :)

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

Excel 2007,2010,2013
Сергей13, без файла-примера тока могу предположить: сначала [vba]
Код
Hide
[/vba] потом копируем все, что нужно, тока потом [vba]
Код
Unload
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеСергей13, без файла-примера тока могу предположить: сначала [vba]
Код
Hide
[/vba] потом копируем все, что нужно, тока потом [vba]
Код
Unload
[/vba]
Автор - krosav4ig
Дата добавления - 14.04.2019 в 23:31
krosav4ig Дата: Понедельник, 15.04.2019, 23:49 | Сообщение № 2012 | Тема: Сломались теги формул
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Pelena, пробуйте ⌥⌘E потом обновить (или Shift+кнопка обновления)
Всем, кто успел установить мой скрипт, нужно его удалить, ибо он нафиг надо и лишние запросы к сайту

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеPelena, пробуйте ⌥⌘E потом обновить (или Shift+кнопка обновления)
Всем, кто успел установить мой скрипт, нужно его удалить, ибо он нафиг надо и лишние запросы к сайту
Автор - krosav4ig
Дата добавления - 15.04.2019 в 23:49
krosav4ig Дата: Вторник, 16.04.2019, 13:09 | Сообщение № 2013 | Тема: Кол-во коробок и штук
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
до кучи. кривовато, но работает
Код
=СУММ(10^-{0;3}*ОТБР(ОКРУГЛ(ОСТАТ(ОКРВВЕРХ(G2;D2)/D2/B2;9^9^{1;0})*B2^{0;1};5)))
и числовой формат
Код
0\ кор., ??0\ шт.
К сообщению приложен файл: 1628248.xlsx (10.8 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениедо кучи. кривовато, но работает
Код
=СУММ(10^-{0;3}*ОТБР(ОКРУГЛ(ОСТАТ(ОКРВВЕРХ(G2;D2)/D2/B2;9^9^{1;0})*B2^{0;1};5)))
и числовой формат
Код
0\ кор., ??0\ шт.
Автор - krosav4ig
Дата добавления - 16.04.2019 в 13:09
krosav4ig Дата: Вторник, 16.04.2019, 14:46 | Сообщение № 2014 | Тема: Сломались теги формул
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
китин, если ctrl+f5 не помогает, можно чистить кэш, можно через Firebug (F12 , вкладка Storage > Cache storage)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениекитин, если ctrl+f5 не помогает, можно чистить кэш, можно через Firebug (F12 , вкладка Storage > Cache storage)
Автор - krosav4ig
Дата добавления - 16.04.2019 в 14:46
krosav4ig Дата: Среда, 17.04.2019, 22:54 | Сообщение № 2015 | Тема: Зависимость работы c ListObjects(**) контекста
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата Павел2019, 17.04.2019 в 22:02, в сообщении № 7 ()
увидеть какую нибудь конструктивную идею: что же может сформировать в большом макросе ситуацию, когда перестают работать методы .Add, .Resize, .Del и просто добавление вниз умной таблицы строки с автоматическим изменением размера?

Цитата krosav4ig, 07.04.2019 в 10:11, в сообщении № 6 ()
в активной книге нет таблицы с таким именем или лист, на котором находится таблица защищен
и, до кучи, если все-таки хочется Activesheet, на активном листе нету таблицы с таким именем
Цитата Павел2019, 17.04.2019 в 22:02, в сообщении № 7 ()
обсуждения в 3х форумах
хде они?
смотрим тут п. 5.s
Цитата Павел2019, 17.04.2019 в 22:02, в сообщении № 7 ()
это не ко мне, а к тем кто задает мне вопросы на эту тему

а вопросы про активный лист задают потому, что
Цитата Павел2019, 06.04.2019 в 12:01, в сообщении № 1 ()
ActiveSheet.ListObjects("Spisok").Resize Range("$A$1:$E$92")

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Цитата Павел2019, 17.04.2019 в 22:02, в сообщении № 7 ()
увидеть какую нибудь конструктивную идею: что же может сформировать в большом макросе ситуацию, когда перестают работать методы .Add, .Resize, .Del и просто добавление вниз умной таблицы строки с автоматическим изменением размера?

Цитата krosav4ig, 07.04.2019 в 10:11, в сообщении № 6 ()
в активной книге нет таблицы с таким именем или лист, на котором находится таблица защищен
и, до кучи, если все-таки хочется Activesheet, на активном листе нету таблицы с таким именем
Цитата Павел2019, 17.04.2019 в 22:02, в сообщении № 7 ()
обсуждения в 3х форумах
хде они?
смотрим тут п. 5.s
Цитата Павел2019, 17.04.2019 в 22:02, в сообщении № 7 ()
это не ко мне, а к тем кто задает мне вопросы на эту тему

а вопросы про активный лист задают потому, что
Цитата Павел2019, 06.04.2019 в 12:01, в сообщении № 1 ()
ActiveSheet.ListObjects("Spisok").Resize Range("$A$1:$E$92")
Автор - krosav4ig
Дата добавления - 17.04.2019 в 22:54
krosav4ig Дата: Среда, 17.04.2019, 23:00 | Сообщение № 2016 | Тема: Формула на основании математической функции
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата Dadojon, 12.04.2019 в 14:06, в сообщении № 1 ()
на основании математической функции
хде она?

[moder]В другой теме.
Эта закрыта - неинформатифные название, пример и описание[/moder]

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

Сообщение отредактировал _Boroda_ - Четверг, 18.04.2019, 10:01
 
Ответить
Сообщение
Цитата Dadojon, 12.04.2019 в 14:06, в сообщении № 1 ()
на основании математической функции
хде она?

[moder]В другой теме.
Эта закрыта - неинформатифные название, пример и описание[/moder]
Автор - krosav4ig
Дата добавления - 17.04.2019 в 23:00
krosav4ig Дата: Вторник, 23.04.2019, 03:03 | Сообщение № 2017 | Тема: Не загружаются дробные значения
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Сергей13, [vba]
Код
FormReport.TxbResidue.Value = Range("D2").FormulaLocal
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеСергей13, [vba]
Код
FormReport.TxbResidue.Value = Range("D2").FormulaLocal
[/vba]
Автор - krosav4ig
Дата добавления - 23.04.2019 в 03:03
krosav4ig Дата: Вторник, 23.04.2019, 19:05 | Сообщение № 2018 | Тема: Длительное нажатие кнопки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
[vba]
Код
#If Win64 Then
    #If VBA7 Then
        Private Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal kState As LongLong) As LongLong
        Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
    #Else
        Private Declare Function GetAsyncKeyState Lib "user32" (ByVal kState As LongLong) As LongLong
        Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongLong)
    #End If
#Else
    #If VBA7 Then
        Private Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal kState As Long) As Long
        Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
    #Else
        Private Declare Function GetAsyncKeyState Lib "user32" (ByVal kState As Long) As Long
        Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
    #End If
#End If

Sub Мак1()
While GetAsyncKeyState(1) And &H8000
    Sleep 300: DoEvents
    [C3] = [C3] + 1
Wend
End Sub
[/vba]

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

Сообщение отредактировал krosav4ig - Среда, 24.04.2019, 00:42
 
Ответить
Сообщение[vba]
Код
#If Win64 Then
    #If VBA7 Then
        Private Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal kState As LongLong) As LongLong
        Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
    #Else
        Private Declare Function GetAsyncKeyState Lib "user32" (ByVal kState As LongLong) As LongLong
        Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongLong)
    #End If
#Else
    #If VBA7 Then
        Private Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal kState As Long) As Long
        Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
    #Else
        Private Declare Function GetAsyncKeyState Lib "user32" (ByVal kState As Long) As Long
        Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
    #End If
#End If

Sub Мак1()
While GetAsyncKeyState(1) And &H8000
    Sleep 300: DoEvents
    [C3] = [C3] + 1
Wend
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 23.04.2019 в 19:05
krosav4ig Дата: Среда, 24.04.2019, 00:41 | Сообщение № 2019 | Тема: Длительное нажатие кнопки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
изменил свой предыдущий пост

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

Excel 2007,2010,2013
АлексейАльтман, [vba]
Код
Sub Мак1()
While GetAsyncKeyState(1) And &H8000
    Sleep 300: DoEvents
    [C3] = [C3] + 1
    ActiveSheet.Shapes.Range(Array("Rounded Rectangle 2")).IncrementLeft 24
    With Application: .WindowState = .WindowState: End With
Wend
End Sub
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеАлексейАльтман, [vba]
Код
Sub Мак1()
While GetAsyncKeyState(1) And &H8000
    Sleep 300: DoEvents
    [C3] = [C3] + 1
    ActiveSheet.Shapes.Range(Array("Rounded Rectangle 2")).IncrementLeft 24
    With Application: .WindowState = .WindowState: End With
Wend
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 24.04.2019 в 22:29
Мир MS Excel » Записи участника » krosav4ig [2323]
Поиск:

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