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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос - вставка величины из буфера обмена - Страница 2 - Мир MS Excel

Старая форма входа
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: китин, _Boroda_  
Макрос - вставка величины из буфера обмена
ToniZa Дата: Понедельник, 12.10.2020, 13:49 | Сообщение № 21
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Pelena, - :) как в сабже и написано - нужно, чтоб брал из буфера обмена!


Сообщение отредактировал 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-и ричный код цвета в буфер обмена, затем - запускаю макрос


Сообщение отредактировал ToniZa - Понедельник, 12.10.2020, 13:53
 
Ответить
СообщениеPelena, :) ...я так и пытаюсь делать. Сначала копирую 16-и ричный код цвета в буфер обмена, затем - запускаю макрос

Автор - ToniZa
Дата добавления - 12.10.2020 в 13:53
Pelena Дата: Понедельник, 12.10.2020, 14:35 | Сообщение № 23
Группа: Админы
Ранг: Местный житель
Сообщений: 19409
Репутация: 4558 ±
Замечаний: ±

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
Группа: Админы
Ранг: Местный житель
Сообщений: 19409
Репутация: 4558 ±
Замечаний: ±

Excel 365 & Mac Excel
Видимо, надо перевести из шестнадцатиричной системы в десятичную. Попробуйте вместо
[vba]
Код
clr = Val(.GetText)
[/vba]написать
[vba]
Код
clr = Application.WorksheetFunction.Hex2Dec(.GetText)
[/vba]


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеВидимо, надо перевести из шестнадцатиричной системы в десятичную. Попробуйте вместо
[vba]
Код
clr = Val(.GetText)
[/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
Дата добавления - 12.10.2020 в 20:44
ToniZa Дата: Понедельник, 12.10.2020, 20:54 | Сообщение № 27
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Упсс... только цвет-то - не тот вставляется... :(

Видео
 
Ответить
СообщениеУпсс... только цвет-то - не тот вставляется... :(

Видео

Автор - ToniZa
Дата добавления - 12.10.2020 в 20:54
Pelena Дата: Понедельник, 12.10.2020, 21:55 | Сообщение № 28
Группа: Админы
Ранг: Местный житель
Сообщений: 19409
Репутация: 4558 ±
Замечаний: ±

Excel 365 & Mac Excel
Перепишите ещё раз эту строчку
[vba]
Код
clr = Application.WorksheetFunction.Hex2Dec(Mid(.GetText, 5, 2) & Mid(.GetText, 3, 2) & Mid(.GetText, 1, 2))
[/vba]


"Черт возьми, Холмс! Но как??!!"
Ю-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. - чисто из любопытства - в чём можете быть причина, по которой у вас код работал в прежней версии, а у меня - нет?


Сообщение отредактировал ToniZa - Понедельник, 12.10.2020, 22:04
 
Ответить
СообщениеPelena, Всё! Вот теперь - окончательно всё! Заработало, как надо! Спасибо огромное, что не бросаете людей в беде!

P.S. - чисто из любопытства - в чём можете быть причина, по которой у вас код работал в прежней версии, а у меня - нет?

Автор - ToniZa
Дата добавления - 12.10.2020 в 22:02
Pelena Дата: Понедельник, 12.10.2020, 22:38 | Сообщение № 30
Группа: Админы
Ранг: Местный житель
Сообщений: 19409
Репутация: 4558 ±
Замечаний: ±

Excel 365 & Mac Excel
Да нет, цвета так же не совпадали, я просто не проверила.
Интересно, что тот код, который считывается из палитры приходится "переворачивать" по принципу: в палитре B4C6E7, а в код надо вводить E7C6B4


"Черт возьми, Холмс! Но как??!!"
Ю-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
Дата добавления - 14.10.2020 в 23:38
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

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