Копирование диапазона при помощи макроса

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Копирование диапазона при помощи макроса (Макросы/Sub)

RipVanWinkel

Дата: Понедельник, 27.11.2017, 02:38 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 65

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Доброго времени суток, уважаемые программисты.
Помогите решить вопрос.

На листе в ячейку G2 - вписан адрес диапазона.
В ячейку F15 - вписан адрес ячейки.

Как макросом, щелчком на кнопку - скопировать, указанный в ячейке G2 диапазон - в ту ячейку, которая указана в ячейке F15 ?

К сообщению приложен файл: 07807654.xls (41.0 Kb)

Ответить

nilem

Дата: Понедельник, 27.11.2017, 08:14 | Сообщение № 2

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

Репутация: 563 ±

Замечаний: 0% ±

Excel 2013, 2016

Здравствуйте!
[vba]

Код

Sub ttt()
Range(Range("G2").Value).Copy Range(Range("H2").Value)
End Sub

[/vba]
У вас в B3:D8 автофигура, она тоже будет каждый раз копироваться.

Яндекс.Деньги 4100159601573

Ответить

_Boroda_

Дата: Понедельник, 27.11.2017, 10:02 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 17006

Репутация: 6667 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Как у Николая
[vba]

Код

Sub tt()
Range([G2]).Copy Range([H2])
End Sub

[/vba]
А так фигура не вставляется
[vba]

Код

Sub ee()
    Range([G2]).Copy
    Range([H2]).PasteSpecial (13)
    Application.CutCopyMode = 0
End Sub

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

RAN

Дата: Понедельник, 27.11.2017, 10:47 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Цитата _Boroda_, 27.11.2017 в 10:02, в сообщении № 3 ()

А так фигура не вставляется

А так и не копируется.
[vba]

Код

Application.CopyObjectsWithCells = False

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

RipVanWinkel

Дата: Понедельник, 27.11.2017, 13:04 | Сообщение № 5

Группа: Пользователи

Ранг: Участник

Сообщений: 65

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

nilem, _Boroda_, RAN, все макросы - работают хорошо.

А как осуществить копирование одного текста - без форматирования (то есть - без цвета ячеек, цвета шрифта) - только содержимое ячеек ?