KatherineBack (Все сообщения пользователя)

Обмен значений двух диапозонов, Ребят, милые, нужна помощь в объяснении макроса. Пожалуйста, буду очень признательна.

KatherineBack Пользователь Сообщений: 3 Регистрация: 18.02.2016	# 18.02.2016 20:49:40 Ну я надеюсь, учебник мне в помощь... Просто именно этот раздел непонятно описан
	Перейти

KatherineBack Пользователь Сообщений: 3 Регистрация: 18.02.2016	# 18.02.2016 20:45:30 Спасибо огромное
	Перейти

KatherineBack

Пользователь

Сообщений: 3 Регистрация: 18.02.2016

18.02.2016 20:08:37

Ребят, в лабораторной работе задание: произвести обмен данными (значениями) между двумя диапазонами.
Нашла макрос, он работает как надо, все замечательно...
Но мне для защиты нужно объяснить каждую функцию, строку и их значения.

вот сам макрос:

Код

Sub SelsXchange()
With Selection
If Not .Areas.Count = 2 Then Exit Sub
If Not .Areas(1).Columns.Count = .Areas(2).Columns.Count Then Exit Sub
If Not .Areas(1).Rows.Count = .Areas(2).Rows.Count Then Exit Sub
Dim tmpArea: tmpArea = .Areas(1)
'Range("A1:A10").Value = tmpArea.Value
.Areas(1).Value = .Areas(2).Value
.Areas(2).Value = tmpArea
'.Areas(2).Value = Range("A1:A10").Value
End With
End Sub

Пожалуйста :cry:

Изменено: KatherineBack - 18.02.2016 20:18:50 (Неверное оформление кода)

Перейти