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

Вход

Регистрация

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

 

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

Старая форма входа
Мир MS Excel » Записи участника » krosav4ig [2343]
Результаты поиска
krosav4ig Дата: Воскресенье, 14.04.2019, 17:45 | Сообщение № 2021 | Тема: 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 | Сообщение № 2022 | Тема: 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 | Сообщение № 2023 | Тема: 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 | Сообщение № 2024 | Тема: Ввод данных из закрываемой формы в открываемую форму
Группа: Друзья
Ранг: Старожил
Сообщений: 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 | Сообщение № 2025 | Тема: Сломались теги формул
Группа: Друзья
Ранг: Старожил
Сообщений: 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 | Сообщение № 2026 | Тема: Кол-во коробок и штук
Группа: Друзья
Ранг: Старожил
Сообщений: 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 | Сообщение № 2027 | Тема: Сломались теги формул
Группа: Друзья
Ранг: Старожил
Сообщений: 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 | Сообщение № 2028 | Тема: Зависимость работы 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 | Сообщение № 2029 | Тема: Формула на основании математической функции
Группа: Друзья
Ранг: Старожил
Сообщений: 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 | Сообщение № 2030 | Тема: Не загружаются дробные значения
Группа: Друзья
Ранг: Старожил
Сообщений: 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 | Сообщение № 2031 | Тема: Длительное нажатие кнопки
Группа: Друзья
Ранг: Старожил
Сообщений: 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 | Сообщение № 2032 | Тема: Длительное нажатие кнопки
Группа: Друзья
Ранг: Старожил
Сообщений: 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 | Сообщение № 2033 | Тема: Длительное нажатие кнопки
Группа: Друзья
Ранг: Старожил
Сообщений: 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
krosav4ig Дата: Понедельник, 29.04.2019, 12:10 | Сообщение № 2034 | Тема: Суммировать вверх до первой пустой ячейки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
оно же, тока в профиль
Код
=СУММ(ИНДЕКС(C:C;ПРОСМОТР(;0^(C1:C9="");СТРОКА(C1:C9))):C9)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеоно же, тока в профиль
Код
=СУММ(ИНДЕКС(C:C;ПРОСМОТР(;0^(C1:C9="");СТРОКА(C1:C9))):C9)
Автор - krosav4ig
Дата добавления - 29.04.2019 в 12:10
krosav4ig Дата: Пятница, 03.05.2019, 17:27 | Сообщение № 2035 | Тема: PQ найти файл (из 95) с #REF
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

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

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеЗдравствуйте. На каком шаге ошибка?
Автор - krosav4ig
Дата добавления - 03.05.2019 в 17:27
krosav4ig Дата: Пятница, 03.05.2019, 17:47 | Сообщение № 2036 | Тема: 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
 
Ответить
СообщениеAnis625, в редакторе запросов пройдитесь по шагам, ошибка должна быть на шаге с фильтацией
[vba]
Код
Table.SelectRowsWithErrors(#"Переименованные столбцы", Table.ColumnNames(#"Переименованные столбцы"))
[/vba] выдаст строки с ошибками
Table.SelectRowsWithErrors - это Главная-Сократить строки-Сохранить строки-Сохранить ошибки
Автор - krosav4ig
Дата добавления - 03.05.2019 в 17:47
krosav4ig Дата: Понедельник, 06.05.2019, 17:00 | Сообщение № 2037 | Тема: Красивые числа на сайте
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
B)
К сообщению приложен файл: 5873157.png (27.0 Kb)

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

Excel 2007,2010,2013
Цитата t330, 06.05.2019 в 13:05, в сообщении № 1 ()
[vba]
Код
UserForm1_Initialize()
[/vba]
Единичка лишняя
[vba]
Код
GetSetting "test", "Defaults", ctl.Name ', ctl.Value
[/vba] функция старается, несется сломя голову в реестр, тащит нам от-туда какие-то данные, а мы у нее, такие неблагодарные, их не берем :)
[vba]
Код
ctl.Value = GetSetting ("test", "Defaults", ctl.Name)
[/vba]

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

Сообщение отредактировал krosav4ig - Вторник, 07.05.2019, 04:17
 
Ответить
Сообщение
Цитата t330, 06.05.2019 в 13:05, в сообщении № 1 ()
[vba]
Код
UserForm1_Initialize()
[/vba]
Единичка лишняя
[vba]
Код
GetSetting "test", "Defaults", ctl.Name ', ctl.Value
[/vba] функция старается, несется сломя голову в реестр, тащит нам от-туда какие-то данные, а мы у нее, такие неблагодарные, их не берем :)
[vba]
Код
ctl.Value = GetSetting ("test", "Defaults", ctl.Name)
[/vba]
Автор - krosav4ig
Дата добавления - 06.05.2019 в 18:42
krosav4ig Дата: Вторник, 07.05.2019, 04:18 | Сообщение № 2039 | Тема: Получение сохраненных данных из реестра
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата t330, 06.05.2019 в 23:52, в сообщении № 3 ()
выдает синтаксическую ошибку
скобочки забыл, исправил в своем посте

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Цитата t330, 06.05.2019 в 23:52, в сообщении № 3 ()
выдает синтаксическую ошибку
скобочки забыл, исправил в своем посте
Автор - krosav4ig
Дата добавления - 07.05.2019 в 04:18
krosav4ig Дата: Вторник, 07.05.2019, 18:36 | Сообщение № 2040 | Тема: PQ найти файл (из 95) с #REF
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата Anis625, 03.05.2019 в 18:28, в сообщении № 7 ()
Столбец "Content" таблицы не найден.
его не может не быть, если только он не был удален в функции getDate

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Цитата Anis625, 03.05.2019 в 18:28, в сообщении № 7 ()
Столбец "Content" таблицы не найден.
его не может не быть, если только он не был удален в функции getDate
Автор - krosav4ig
Дата добавления - 07.05.2019 в 18:36
Мир MS Excel » Записи участника » krosav4ig [2343]
Поиск:

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