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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 2
  • 1
  • 2
  • »
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вопросы по Excel для Mac » Макрос - вставка величины из буфера обмена (Надо подправить макрос так, чтоб он брал параметры из буфера)
Макрос - вставка величины из буфера обмена
ToniZa Дата: Среда, 09.09.2020, 22:08 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Есть записанный макрос. Всё в нём устраивает, кроме одного - нужно, чтоб параметр, который сейчас прописан жестко, брался из буфера обмена

[vba]
Код
  With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 3243501
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
[/vba]

Надо, чтобы параметр строчки ".Color = 3243501" брался из буфера обмена.
Буду признателен за помощь!


Сообщение отредактировал ToniZa - Среда, 09.09.2020, 22:08
 
Ответить
СообщениеЕсть записанный макрос. Всё в нём устраивает, кроме одного - нужно, чтоб параметр, который сейчас прописан жестко, брался из буфера обмена

[vba]
Код
  With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 3243501
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
[/vba]

Надо, чтобы параметр строчки ".Color = 3243501" брался из буфера обмена.
Буду признателен за помощь!
Автор - ToniZa
Дата добавления - 09.09.2020 в 22:08
ToniZa Дата: Четверг, 10.09.2020, 16:39 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Всем привет, ещё раз - я так понимаю - что-то не так в вопросе? Или есть ещё какие-то причины, по которым никто не может мне помочь?
 
Ответить
СообщениеВсем привет, ещё раз - я так понимаю - что-то не так в вопросе? Или есть ещё какие-то причины, по которым никто не может мне помочь?
Автор - ToniZa
Дата добавления - 10.09.2020 в 16:39
Pelena Дата: Четверг, 10.09.2020, 17:35 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 19174
Репутация: 4413 ±
Замечаний: ±

Excel 365 & Mac Excel
В буфере обмена будет именно число, обозначающее цвет, или всё же ячейка со всеми свойствами?
Может, нужен формат по образцу?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеВ буфере обмена будет именно число, обозначающее цвет, или всё же ячейка со всеми свойствами?
Может, нужен формат по образцу?
Автор - Pelena
Дата добавления - 10.09.2020 в 17:35
ToniZa Дата: Четверг, 10.09.2020, 18:14 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Цитата Pelena, 10.09.2020 в 17:35, в сообщении № 3 ()
В буфере обмена будет именно число, обозначающее цвет

Да, именно так. Число цвета.

Цитата Pelena, 10.09.2020 в 17:35, в сообщении № 3 ()
Может, нужен формат по образцу?

Это было бы здОрово заполучить, но уже для другой задачи! :)
 
Ответить
Сообщение
Цитата Pelena, 10.09.2020 в 17:35, в сообщении № 3 ()
В буфере обмена будет именно число, обозначающее цвет

Да, именно так. Число цвета.

Цитата Pelena, 10.09.2020 в 17:35, в сообщении № 3 ()
Может, нужен формат по образцу?

Это было бы здОрово заполучить, но уже для другой задачи! :)
Автор - ToniZa
Дата добавления - 10.09.2020 в 18:14
nilem Дата: Четверг, 10.09.2020, 19:00 | Сообщение № 5
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
ToniZa, привет
попробуйте:
[vba]
Код
Sub test()
Dim clr&
With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    .GetFromClipboard
    clr = Val(.GetText)
End With
ActiveCell.Interior.Color = clr
End Sub
[/vba]
предварительно нужно скопировать число, например, 8696052

Яндекс.Деньги 4100159601573
 
Ответить
СообщениеToniZa, привет
попробуйте:
[vba]
Код
Sub test()
Dim clr&
With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    .GetFromClipboard
    clr = Val(.GetText)
End With
ActiveCell.Interior.Color = clr
End Sub
[/vba]
предварительно нужно скопировать число, например, 8696052
Автор - nilem
Дата добавления - 10.09.2020 в 19:00
ToniZa Дата: Четверг, 10.09.2020, 19:20 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Цитата nilem, 10.09.2020 в 19:00, в сообщении № 5 ()
попробуйте:

Упс.. выдает ошибку. Возможно, проблема в том, что у меня Excel for macOS?




Сообщение отредактировал ToniZa - Четверг, 10.09.2020, 19:23
 
Ответить
Сообщение
Цитата nilem, 10.09.2020 в 19:00, в сообщении № 5 ()
попробуйте:

Упс.. выдает ошибку. Возможно, проблема в том, что у меня Excel for macOS?


Автор - ToniZa
Дата добавления - 10.09.2020 в 19:20
nilem Дата: Четверг, 10.09.2020, 19:35 | Сообщение № 7
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Возможно, на Маке нет такого объекта "New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"
У себя проверил (Е2016), работает.

Яндекс.Деньги 4100159601573
 
Ответить
СообщениеВозможно, на Маке нет такого объекта "New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"
У себя проверил (Е2016), работает.
Автор - nilem
Дата добавления - 10.09.2020 в 19:35
ToniZa Дата: Четверг, 10.09.2020, 20:29 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
:( Жаль. А может кто-то подсказать решение, работающее на маке?
 
Ответить
Сообщение:( Жаль. А может кто-то подсказать решение, работающее на маке?
Автор - ToniZa
Дата добавления - 10.09.2020 в 20:29
RAN Дата: Четверг, 10.09.2020, 22:13 | Сообщение № 9
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Только счастливый обладатель огрызка. :)

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеТолько счастливый обладатель огрызка. :)
Автор - RAN
Дата добавления - 10.09.2020 в 22:13
krosav4ig Дата: Пятница, 11.09.2020, 06:40 | Сообщение № 10
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата ToniZa, 10.09.2020 в 20:29, в сообщении № 8 ()
решение, работающее на маке?

например функция getClipboardASStyledText отсюда выполняется через applescripttask или macscript
вроде должно работать, но проверять негде
может быть даже достаточно
[vba]
Код
MacScript("get clipboard as text")
[/vba]

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

Сообщение отредактировал krosav4ig - Пятница, 11.09.2020, 06:41
 
Ответить
Сообщение
Цитата ToniZa, 10.09.2020 в 20:29, в сообщении № 8 ()
решение, работающее на маке?

например функция getClipboardASStyledText отсюда выполняется через applescripttask или macscript
вроде должно работать, но проверять негде
может быть даже достаточно
[vba]
Код
MacScript("get clipboard as text")
[/vba]
Автор - krosav4ig
Дата добавления - 11.09.2020 в 06:40
ToniZa Дата: Пятница, 11.09.2020, 15:29 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Цитата krosav4ig, 11.09.2020 в 06:40, в сообщении № 10 ()
может быть даже достаточно

Пасиб... сейчас попробую проверить (хотя, с моей "латынью" это будет и сложновато :D )
 
Ответить
Сообщение
Цитата krosav4ig, 11.09.2020 в 06:40, в сообщении № 10 ()
может быть даже достаточно

Пасиб... сейчас попробую проверить (хотя, с моей "латынью" это будет и сложновато :D )
Автор - ToniZa
Дата добавления - 11.09.2020 в 15:29
ToniZa Дата: Пятница, 11.09.2020, 19:00 | Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Цитата ToniZa, 11.09.2020 в 15:29, в сообщении № 11 ()
krosav4ig

В общем, как и ожидалось, моей "латыни" не хватило, чтоб это реализовать. Чайник, они и в Австрии - чайник :D
Мне бы код целиком, чтоб прямо вставить и пользоваться...
 
Ответить
Сообщение
Цитата ToniZa, 11.09.2020 в 15:29, в сообщении № 11 ()
krosav4ig

В общем, как и ожидалось, моей "латыни" не хватило, чтоб это реализовать. Чайник, они и в Австрии - чайник :D
Мне бы код целиком, чтоб прямо вставить и пользоваться...
Автор - ToniZa
Дата добавления - 11.09.2020 в 19:00
bmv98rus Дата: Пятница, 11.09.2020, 23:00 | Сообщение № 13
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4106
Репутация: 768 ±
Замечаний: 0% ±

Excel 2013/2016
Попробуйте от этого отталкиватся.

Замечательный Временно просто медведь , процентов на 20.
 
Ответить
СообщениеПопробуйте от этого отталкиватся.
Автор - bmv98rus
Дата добавления - 11.09.2020 в 23:00
Hugo Дата: Пятница, 11.09.2020, 23:18 | Сообщение № 14
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3252
Репутация: 707 ±
Замечаний: 0% ±

2019
На Винде чтоб использовать DataObject - нужно или подключить в референсах (не помню точно что :) ), или что проще - добавить в проект форму. И можно сразу её удалить.
DataObject=GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")

excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеНа Винде чтоб использовать DataObject - нужно или подключить в референсах (не помню точно что :) ), или что проще - добавить в проект форму. И можно сразу её удалить.
DataObject=GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
Автор - Hugo
Дата добавления - 11.09.2020 в 23:18
Pelena Дата: Суббота, 12.09.2020, 10:06 | Сообщение № 15
Группа: Админы
Ранг: Местный житель
Сообщений: 19174
Репутация: 4413 ±
Замечаний: ±

Excel 365 & Mac Excel
Макрос от nilem на Маке работает в такой редакции
[vba]
Код
Sub test()
Dim clr&
With New DataObject
    .GetFromClipboard
    clr = Val(.GetText)
End With
ActiveCell.Interior.Color = clr
End Sub
[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеМакрос от nilem на Маке работает в такой редакции
[vba]
Код
Sub test()
Dim clr&
With New DataObject
    .GetFromClipboard
    clr = Val(.GetText)
End With
ActiveCell.Interior.Color = clr
End Sub
[/vba]
Автор - Pelena
Дата добавления - 12.09.2020 в 10:06
ToniZa Дата: Суббота, 10.10.2020, 20:40 | Сообщение № 16
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Pelena, еще не проверял, но - огромное спасибо!
 
Ответить
СообщениеPelena, еще не проверял, но - огромное спасибо!
Автор - ToniZa
Дата добавления - 10.10.2020 в 20:40
ToniZa Дата: Воскресенье, 11.10.2020, 16:27 | Сообщение № 17
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Pelena, Проверил работу Макроса. Работает, но - ведет себя странно (совсем не так, как хотелось бы :( )

1. - Похоже, макрос вставляет не значение из буфера обмена, а просто одни нули (значение 000000). Т.к. цвет заливки всегда становится чёрный

2. - Изменения происходят только в одной ячейке, даже, если выделен целый диапазон. А нужно, чтоб изменения применялись ко всему выделенному диапазону
------
P.S. - на всякий случай, уточню - нужно, чтоб макрос менял цвет заливки выделенного диапазона. При этом 16-и ричное значение цвета должно браться из буфера обмена.


Сообщение отредактировал ToniZa - Воскресенье, 11.10.2020, 16:37
 
Ответить
СообщениеPelena, Проверил работу Макроса. Работает, но - ведет себя странно (совсем не так, как хотелось бы :( )

1. - Похоже, макрос вставляет не значение из буфера обмена, а просто одни нули (значение 000000). Т.к. цвет заливки всегда становится чёрный

2. - Изменения происходят только в одной ячейке, даже, если выделен целый диапазон. А нужно, чтоб изменения применялись ко всему выделенному диапазону
------
P.S. - на всякий случай, уточню - нужно, чтоб макрос менял цвет заливки выделенного диапазона. При этом 16-и ричное значение цвета должно браться из буфера обмена.
Автор - ToniZa
Дата добавления - 11.10.2020 в 16:27
Pelena Дата: Воскресенье, 11.10.2020, 17:40 | Сообщение № 18
Группа: Админы
Ранг: Местный житель
Сообщений: 19174
Репутация: 4413 ±
Замечаний: ±

Excel 365 & Mac Excel
Я проверяла работу макроса на своём файле-примере, так как Вы свой не приложили. Поэтому не могу ничего сказать по Вашему файлу.
Цитата ToniZa, 11.10.2020 в 16:27, в сообщении № 17 ()
чтоб изменения применялись ко всему выделенному диапазону
попробуйте заменить ActiveCell на Selection

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЯ проверяла работу макроса на своём файле-примере, так как Вы свой не приложили. Поэтому не могу ничего сказать по Вашему файлу.
Цитата ToniZa, 11.10.2020 в 16:27, в сообщении № 17 ()
чтоб изменения применялись ко всему выделенному диапазону
попробуйте заменить ActiveCell на Selection
Автор - Pelena
Дата добавления - 11.10.2020 в 17:40
ToniZa Дата: Понедельник, 12.10.2020, 11:59 | Сообщение № 19
Группа: Пользователи
Ранг: Новичок
Сообщений: 33
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Pelena, замена ActiveCell на Selection помогла, в той части, что теперь, действительно, изменения применяются ко всему выделенному диапазону

Но, проблема с "чёрным цветом" осталась не решена. Прилагаю мой файл для проверки
К сообщению приложен файл: 4808059.xls (48.5 Kb)
 
Ответить
СообщениеPelena, замена ActiveCell на Selection помогла, в той части, что теперь, действительно, изменения применяются ко всему выделенному диапазону

Но, проблема с "чёрным цветом" осталась не решена. Прилагаю мой файл для проверки
Автор - ToniZa
Дата добавления - 12.10.2020 в 11:59
Pelena Дата: Понедельник, 12.10.2020, 12:01 | Сообщение № 20
Группа: Админы
Ранг: Местный житель
Сообщений: 19174
Репутация: 4413 ±
Замечаний: ±

Excel 365 & Mac Excel
Откуда Вы берёте код цвета?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеОткуда Вы берёте код цвета?
Автор - Pelena
Дата добавления - 12.10.2020 в 12:01
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вопросы по Excel для Mac » Макрос - вставка величины из буфера обмена (Надо подправить макрос так, чтоб он брал параметры из буфера)
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск:

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