Макрос - вставка величины из буфера обмена
ToniZa
Дата: Понедельник, 12.10.2020, 13:49 |
Сообщение № 21
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация:
0
±
Замечаний:
0% ±
Excel 2019
Pelena, - как в сабже и написано - нужно, чтоб брал из буфера обмена!
Pelena, - как в сабже и написано - нужно, чтоб брал из буфера обмена! ToniZa
Сообщение отредактировал ToniZa - Понедельник, 12.10.2020, 13:51
Ответить
Сообщение Pelena, - как в сабже и написано - нужно, чтоб брал из буфера обмена! Автор - ToniZa Дата добавления - 12.10.2020 в 13:49
ToniZa
Дата: Понедельник, 12.10.2020, 13:53 |
Сообщение № 22
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация:
0
±
Замечаний:
0% ±
Excel 2019
Pelena, ...я так и пытаюсь делать. Сначала копирую 16-и ричный код цвета в буфер обмена, затем - запускаю макрос
Pelena, ...я так и пытаюсь делать. Сначала копирую 16-и ричный код цвета в буфер обмена, затем - запускаю макрос ToniZa
Сообщение отредактировал ToniZa - Понедельник, 12.10.2020, 13:53
Ответить
Сообщение Pelena, ...я так и пытаюсь делать. Сначала копирую 16-и ричный код цвета в буфер обмена, затем - запускаю макрос Автор - ToniZa Дата добавления - 12.10.2020 в 13:53
Pelena
Дата: Понедельник, 12.10.2020, 14:35 |
Сообщение № 23
Группа: Админы
Ранг: Местный житель
Сообщений: 19403
Репутация:
4554
±
Замечаний:
±
Excel 365 & Mac Excel
видео
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение видео Автор - Pelena Дата добавления - 12.10.2020 в 14:35
ToniZa
Дата: Понедельник, 12.10.2020, 18:03 |
Сообщение № 24
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация:
0
±
Замечаний:
0% ±
Excel 2019
Pelena, Может быть у меня с настройками Excel/MS-Office что-то не то? Работа макроса у меня (Видео) Куда копать-то, в поисках причины - ума не приложу!?
Сообщение отредактировал ToniZa - Понедельник, 12.10.2020, 18:04
Ответить
Сообщение Pelena, Может быть у меня с настройками Excel/MS-Office что-то не то? Работа макроса у меня (Видео) Куда копать-то, в поисках причины - ума не приложу!? Автор - ToniZa Дата добавления - 12.10.2020 в 18:03
Pelena
Дата: Понедельник, 12.10.2020, 18:20 |
Сообщение № 25
Группа: Админы
Ранг: Местный житель
Сообщений: 19403
Репутация:
4554
±
Замечаний:
±
Excel 365 & Mac Excel
Видимо, надо перевести из шестнадцатиричной системы в десятичную. Попробуйте вместо [vba][/vba]написать [vba]Код
clr = Application.WorksheetFunction.Hex2Dec(.GetText)
[/vba]
Видимо, надо перевести из шестнадцатиричной системы в десятичную. Попробуйте вместо [vba][/vba]написать [vba]Код
clr = Application.WorksheetFunction.Hex2Dec(.GetText)
[/vba] Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Видимо, надо перевести из шестнадцатиричной системы в десятичную. Попробуйте вместо [vba][/vba]написать [vba]Код
clr = Application.WorksheetFunction.Hex2Dec(.GetText)
[/vba] Автор - Pelena Дата добавления - 12.10.2020 в 18:20
ToniZa
Дата: Понедельник, 12.10.2020, 20:44 |
Сообщение № 26
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация:
0
±
Замечаний:
0% ±
Excel 2019
Pelena, Ура! Заработало! Пасибо огромное!!!
Pelena, Ура! Заработало! Пасибо огромное!!! ToniZa
Ответить
Сообщение Pelena, Ура! Заработало! Пасибо огромное!!! Автор - ToniZa Дата добавления - 12.10.2020 в 20:44
ToniZa
Дата: Понедельник, 12.10.2020, 20:54 |
Сообщение № 27
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация:
0
±
Замечаний:
0% ±
Excel 2019
Упсс... только цвет-то - не тот вставляется... Видео
Упсс... только цвет-то - не тот вставляется... Видео ToniZa
Ответить
Сообщение Упсс... только цвет-то - не тот вставляется... Видео Автор - ToniZa Дата добавления - 12.10.2020 в 20:54
Pelena
Дата: Понедельник, 12.10.2020, 21:55 |
Сообщение № 28
Группа: Админы
Ранг: Местный житель
Сообщений: 19403
Репутация:
4554
±
Замечаний:
±
Excel 365 & Mac Excel
Перепишите ещё раз эту строчку [vba]Код
clr = Application.WorksheetFunction.Hex2Dec(Mid(.GetText, 5, 2) & Mid(.GetText, 3, 2) & Mid(.GetText, 1, 2))
[/vba]
Перепишите ещё раз эту строчку [vba]Код
clr = Application.WorksheetFunction.Hex2Dec(Mid(.GetText, 5, 2) & Mid(.GetText, 3, 2) & Mid(.GetText, 1, 2))
[/vba] Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Перепишите ещё раз эту строчку [vba]Код
clr = Application.WorksheetFunction.Hex2Dec(Mid(.GetText, 5, 2) & Mid(.GetText, 3, 2) & Mid(.GetText, 1, 2))
[/vba] Автор - Pelena Дата добавления - 12.10.2020 в 21:55
ToniZa
Дата: Понедельник, 12.10.2020, 22:02 |
Сообщение № 29
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация:
0
±
Замечаний:
0% ±
Excel 2019
Pelena, Всё! Вот теперь - окончательно всё! Заработало, как надо! Спасибо огромное, что не бросаете людей в беде! P.S. - чисто из любопытства - в чём можете быть причина, по которой у вас код работал в прежней версии, а у меня - нет?
Pelena, Всё! Вот теперь - окончательно всё! Заработало, как надо! Спасибо огромное, что не бросаете людей в беде! P.S. - чисто из любопытства - в чём можете быть причина, по которой у вас код работал в прежней версии, а у меня - нет? ToniZa
Сообщение отредактировал ToniZa - Понедельник, 12.10.2020, 22:04
Ответить
Сообщение Pelena, Всё! Вот теперь - окончательно всё! Заработало, как надо! Спасибо огромное, что не бросаете людей в беде! P.S. - чисто из любопытства - в чём можете быть причина, по которой у вас код работал в прежней версии, а у меня - нет? Автор - ToniZa Дата добавления - 12.10.2020 в 22:02
Pelena
Дата: Понедельник, 12.10.2020, 22:38 |
Сообщение № 30
Группа: Админы
Ранг: Местный житель
Сообщений: 19403
Репутация:
4554
±
Замечаний:
±
Excel 365 & Mac Excel
Да нет, цвета так же не совпадали, я просто не проверила. Интересно, что тот код, который считывается из палитры приходится "переворачивать" по принципу: в палитре B4C6E7 , а в код надо вводить E7C6B4
Да нет, цвета так же не совпадали, я просто не проверила. Интересно, что тот код, который считывается из палитры приходится "переворачивать" по принципу: в палитре B4C6E7 , а в код надо вводить E7C6B4 Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Да нет, цвета так же не совпадали, я просто не проверила. Интересно, что тот код, который считывается из палитры приходится "переворачивать" по принципу: в палитре B4C6E7 , а в код надо вводить E7C6B4 Автор - Pelena Дата добавления - 12.10.2020 в 22:38
ToniZa
Дата: Среда, 14.10.2020, 23:38 |
Сообщение № 31
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация:
0
±
Замечаний:
0% ±
Excel 2019
Pelena, Ещё раз - спасибо!
Pelena, Ещё раз - спасибо! ToniZa
Ответить
Сообщение Pelena, Ещё раз - спасибо! Автор - ToniZa Дата добавления - 14.10.2020 в 23:38