Записи участника (krosav4ig)

Страница 16 из 117
«
1
2
…
14
15
16
17
18
…
116
117
»

Результаты поиска

krosav4ig

Дата: Пятница, 03.05.2019, 17:47 | Сообщение № 301 | Тема: PQ найти файл (из 95) с #REF

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Anis625, в редакторе запросов пройдитесь по шагам, ошибка должна быть на шаге с фильтацией
[vba]

Код

Table.SelectRowsWithErrors(#"Переименованные столбцы", Table.ColumnNames(#"Переименованные столбцы"))

[/vba] выдаст строки с ошибками
Table.SelectRowsWithErrors - это Главная-Сократить строки-Сохранить строки-Сохранить ошибки

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

Ответить

krosav4ig

Дата: Пятница, 03.05.2019, 17:27 | Сообщение № 302 | Тема: PQ найти файл (из 95) с #REF

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Здравствуйте. На каком шаге ошибка?

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

Ответить

krosav4ig

Дата: Понедельник, 29.04.2019, 12:10 | Сообщение № 303 | Тема: Суммировать вверх до первой пустой ячейки

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

оно же, тока в профиль

Код

=СУММ(ИНДЕКС(C:C;ПРОСМОТР(;0^(C1:C9="");СТРОКА(C1:C9))):C9)

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

Ответить

krosav4ig

Дата: Среда, 24.04.2019, 22:29 | Сообщение № 304 | Тема: Длительное нажатие кнопки

Группа: Друзья

Ранг: Старожил

Сообщений: 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

Ответить

krosav4ig

Дата: Среда, 24.04.2019, 00:41 | Сообщение № 305 | Тема: Длительное нажатие кнопки

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

изменил свой предыдущий пост

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

Ответить

krosav4ig

Дата: Вторник, 23.04.2019, 19:05 | Сообщение № 306 | Тема: Длительное нажатие кнопки

Группа: Друзья

Ранг: Старожил

Сообщений: 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

Ответить

krosav4ig

Дата: Вторник, 23.04.2019, 03:03 | Сообщение № 307 | Тема: Не загружаются дробные значения

Группа: Друзья

Ранг: Старожил

Сообщений: 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

Ответить

krosav4ig

Дата: Среда, 17.04.2019, 23:00 | Сообщение № 308 | Тема: Формула на основании математической функции

Группа: Друзья

Ранг: Старожил

Сообщений: 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

Ответить

krosav4ig

Дата: Среда, 17.04.2019, 22:54 | Сообщение № 309 | Тема: Зависимость работы 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

Ответить

krosav4ig

Дата: Вторник, 16.04.2019, 14:46 | Сообщение № 310 | Тема: Сломались теги формул

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

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

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

Ответить

krosav4ig

Дата: Вторник, 16.04.2019, 13:09 | Сообщение № 311 | Тема: Кол-во коробок и штук

Группа: Друзья

Ранг: Старожил

Сообщений: 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

Ответить

krosav4ig

Дата: Понедельник, 15.04.2019, 23:49 | Сообщение № 312 | Тема: Сломались теги формул

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

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

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

Ответить

krosav4ig

Дата: Воскресенье, 14.04.2019, 23:31 | Сообщение № 313 | Тема: Ввод данных из закрываемой формы в открываемую форму

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Сергей13, без файла-примера тока могу предположить: сначала [vba]

Код

Hide

[/vba] потом копируем все, что нужно, тока потом [vba]

Код

Unload

[/vba]

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

Ответить

krosav4ig

Дата: Воскресенье, 14.04.2019, 19:37 | Сообщение № 314 | Тема: PQ извлечь строки после определенной строки

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Anis625, Не, кубик-рубика - это DAX

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

Ответить

krosav4ig

Дата: Воскресенье, 14.04.2019, 18:15 | Сообщение № 315 | Тема: 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

Ответить

krosav4ig

Дата: Воскресенье, 14.04.2019, 17:45 | Сообщение № 316 | Тема: 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

Ответить

krosav4ig

Дата: Воскресенье, 14.04.2019, 17:42 | Сообщение № 317 | Тема: 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

Ответить

krosav4ig

Дата: Воскресенье, 14.04.2019, 17:37 | Сообщение № 318 | Тема: PQ извлечь строки после определенной строки

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

тогда можно как-то так
[vba]

Код

[/vba]

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

Ответить

krosav4ig

Дата: Воскресенье, 14.04.2019, 17:32 | Сообщение № 319 | Тема: PQ извлечь строки после определенной строки

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

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

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

Ответить

krosav4ig

Дата: Четверг, 11.04.2019, 20:49 | Сообщение № 320 | Тема: Чего вам не хватает на форуме?

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

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

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

Ответить

Страница 16 из 117
«
1
2
…
14
15
16
17
18
…
116
117
»