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

Вход

Регистрация

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

 

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

Старая форма входа
Мир MS Excel » Записи участника » krosav4ig [2343]
Результаты поиска
krosav4ig Дата: Четверг, 16.05.2019, 20:13 | Сообщение № 301 | Тема: Преобразование цветов в RGB и обратно
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата t330, 16.05.2019 в 18:29, в сообщении № 1 ()
что делает оператор AND 255 в этих формулах?

Извлекает младший байт
[vba]
Код
Function DECIMAL2RGB(ColorVal) As Variant
'   Converts a color value to an RGB triplet
'   Returns a 3-element variant array
    With Application
        DECIMAL2RGB = .Bitand(.Bitrshift(ColorVal, Array(0, 8, 16)), &HFF)
    End With
End Function
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Цитата t330, 16.05.2019 в 18:29, в сообщении № 1 ()
что делает оператор AND 255 в этих формулах?

Извлекает младший байт
[vba]
Код
Function DECIMAL2RGB(ColorVal) As Variant
'   Converts a color value to an RGB triplet
'   Returns a 3-element variant array
    With Application
        DECIMAL2RGB = .Bitand(.Bitrshift(ColorVal, Array(0, 8, 16)), &HFF)
    End With
End Function
[/vba]
Автор - krosav4ig
Дата добавления - 16.05.2019 в 20:13
krosav4ig Дата: Среда, 15.05.2019, 16:01 | Сообщение № 302 | Тема: Текст в функции
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
немного изврата...
Код
=ВПР(C3;ИНДЕКС(Лист2!$C$3:$E$5;Ч(ИНДЕКС(--Лист2!$B$3:$B$5;0));Ч(ИНДЕКС({2;1;3};0)));3;0)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениенемного изврата...
Код
=ВПР(C3;ИНДЕКС(Лист2!$C$3:$E$5;Ч(ИНДЕКС(--Лист2!$B$3:$B$5;0));Ч(ИНДЕКС({2;1;3};0)));3;0)
Автор - krosav4ig
Дата добавления - 15.05.2019 в 16:01
krosav4ig Дата: Среда, 15.05.2019, 11:07 | Сообщение № 303 | Тема: Протяжка формул в зависимости от кол-ва объедененных ячеек
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Здравствуйте. Как-то так
в столбце Q
Код
=ЕСЛИОШИБКА(ПОИСКПОЗ(1;D8:D999^0;)+СТРОКА();ПОИСКПОЗ(9E+307;A:A)+1)-ПОИСКПОЗ(9E+307;$D$1:D7)

в столбце M
Код
=ПРОСМОТР(9E+307;D$7:D7)/$Q7
К сообщению приложен файл: 3910037.xlsx (17.7 Kb)

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

Сообщение отредактировал krosav4ig - Среда, 15.05.2019, 11:09
 
Ответить
СообщениеЗдравствуйте. Как-то так
в столбце Q
Код
=ЕСЛИОШИБКА(ПОИСКПОЗ(1;D8:D999^0;)+СТРОКА();ПОИСКПОЗ(9E+307;A:A)+1)-ПОИСКПОЗ(9E+307;$D$1:D7)

в столбце M
Код
=ПРОСМОТР(9E+307;D$7:D7)/$Q7
Автор - krosav4ig
Дата добавления - 15.05.2019 в 11:07
krosav4ig Дата: Вторник, 07.05.2019, 18:36 | Сообщение № 304 | Тема: 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
krosav4ig Дата: Вторник, 07.05.2019, 04:18 | Сообщение № 305 | Тема: Получение сохраненных данных из реестра
Группа: Друзья
Ранг: Старожил
Сообщений: 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 Дата: Понедельник, 06.05.2019, 18:42 | Сообщение № 306 | Тема: Получение сохраненных данных из реестра
Группа: Друзья
Ранг: Старожил
Сообщений: 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 Дата: Понедельник, 06.05.2019, 17:00 | Сообщение № 307 | Тема: Красивые числа на сайте
Группа: Друзья
Ранг: Старожил
Сообщений: 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 Дата: Пятница, 03.05.2019, 17:47 | Сообщение № 308 | Тема: 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 Дата: Пятница, 03.05.2019, 17:27 | Сообщение № 309 | Тема: 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 Дата: Понедельник, 29.04.2019, 12:10 | Сообщение № 310 | Тема: Суммировать вверх до первой пустой ячейки
Группа: Друзья
Ранг: Старожил
Сообщений: 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 Дата: Среда, 24.04.2019, 22:29 | Сообщение № 311 | Тема: Длительное нажатие кнопки
Группа: Друзья
Ранг: Старожил
Сообщений: 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 Дата: Среда, 24.04.2019, 00:41 | Сообщение № 312 | Тема: Длительное нажатие кнопки
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

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

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеизменил свой предыдущий пост
Автор - krosav4ig
Дата добавления - 24.04.2019 в 00:41
krosav4ig Дата: Вторник, 23.04.2019, 19:05 | Сообщение № 313 | Тема: Длительное нажатие кнопки
Группа: Друзья
Ранг: Старожил
Сообщений: 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 Дата: Вторник, 23.04.2019, 03:03 | Сообщение № 314 | Тема: Не загружаются дробные значения
Группа: Друзья
Ранг: Старожил
Сообщений: 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 Дата: Среда, 17.04.2019, 23:00 | Сообщение № 315 | Тема: Формула на основании математической функции
Группа: Друзья
Ранг: Старожил
Сообщений: 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 Дата: Среда, 17.04.2019, 22:54 | Сообщение № 316 | Тема: Зависимость работы 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 Дата: Вторник, 16.04.2019, 14:46 | Сообщение № 317 | Тема: Сломались теги формул
Группа: Друзья
Ранг: Старожил
Сообщений: 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 Дата: Вторник, 16.04.2019, 13:09 | Сообщение № 318 | Тема: Кол-во коробок и штук
Группа: Друзья
Ранг: Старожил
Сообщений: 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 Дата: Понедельник, 15.04.2019, 23:49 | Сообщение № 319 | Тема: Сломались теги формул
Группа: Друзья
Ранг: Старожил
Сообщений: 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 Дата: Воскресенье, 14.04.2019, 23:31 | Сообщение № 320 | Тема: Ввод данных из закрываемой формы в открываемую форму
Группа: Друзья
Ранг: Старожил
Сообщений: 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
Мир MS Excel » Записи участника » krosav4ig [2343]
Поиск:

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