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

Вход

Регистрация

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

 

= Мир MS Excel/Копирование диапазона через переменную - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование диапазона через переменную (Макросы/Sub)
Копирование диапазона через переменную
vzdorny Дата: Суббота, 20.07.2019, 16:05 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Здравствуйте!
Пытаюсь скопировать диапазон в переменную,
а потом вставить рядом и ничего не происходит.
Подскажите, в чём тут может быть ошибка?
Спасибо!
[vba]
Код
Sub test_copy()

Dim rng As Range

Set rng = Range(Cells(1, 1), Cells(36, 8))

Cells(37, 1).Resize(36, 8) = rng

End Sub
[/vba]


Сообщение отредактировал vzdorny - Суббота, 20.07.2019, 16:07
 
Ответить
СообщениеЗдравствуйте!
Пытаюсь скопировать диапазон в переменную,
а потом вставить рядом и ничего не происходит.
Подскажите, в чём тут может быть ошибка?
Спасибо!
[vba]
Код
Sub test_copy()

Dim rng As Range

Set rng = Range(Cells(1, 1), Cells(36, 8))

Cells(37, 1).Resize(36, 8) = rng

End Sub
[/vba]
Автор - vzdorny
Дата добавления - 20.07.2019 в 16:05
krosav4ig Дата: Суббота, 20.07.2019, 16:25 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Здравствуйте

.Value не хватает[vba]
Код
Sub test_copy()

Dim rng As Range

Set rng = Range(Cells(1, 1), Cells(36, 8))

Cells(37, 1).Resize(36, 8) = rng.Value

End Sub
[/vba]
[vba]
Код
Sub test_copy_()
    With [A1].Resize(36, 8)
        .Offset(36) = .Value
    End With
End Sub
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеЗдравствуйте

.Value не хватает[vba]
Код
Sub test_copy()

Dim rng As Range

Set rng = Range(Cells(1, 1), Cells(36, 8))

Cells(37, 1).Resize(36, 8) = rng.Value

End Sub
[/vba]
[vba]
Код
Sub test_copy_()
    With [A1].Resize(36, 8)
        .Offset(36) = .Value
    End With
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 20.07.2019 в 16:25
RAN Дата: Суббота, 20.07.2019, 16:27 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Цитата vzdorny, 20.07.2019 в 16:05, в сообщении № 1 ()
Пытаюсь скопировать диапазон в переменную,

Неправда ваша. %)
Для диапазона
[vba]
Код
Sub test_copy()
Dim rng As Range
Set rng = Range(Cells(1, 1), Cells(36, 8))
rng.Copy Cells(37, 1)
End Sub
[/vba]
Для массива
[vba]
Код
Sub test_copy()
Dim arr
rng = Range(Cells(1, 1), Cells(36, 8)).Value
Cells(37, 1).Resize(36, 8) = arr
End Sub
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Цитата vzdorny, 20.07.2019 в 16:05, в сообщении № 1 ()
Пытаюсь скопировать диапазон в переменную,

Неправда ваша. %)
Для диапазона
[vba]
Код
Sub test_copy()
Dim rng As Range
Set rng = Range(Cells(1, 1), Cells(36, 8))
rng.Copy Cells(37, 1)
End Sub
[/vba]
Для массива
[vba]
Код
Sub test_copy()
Dim arr
rng = Range(Cells(1, 1), Cells(36, 8)).Value
Cells(37, 1).Resize(36, 8) = arr
End Sub
[/vba]
Автор - RAN
Дата добавления - 20.07.2019 в 16:27
vzdorny Дата: Четверг, 25.07.2019, 18:52 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Благодарю всех за ответы!
 
Ответить
СообщениеБлагодарю всех за ответы!
Автор - vzdorny
Дата добавления - 25.07.2019 в 18:52
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование диапазона через переменную (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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