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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос замены значений - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос замены значений (Макросы/Sub)
Макрос замены значений
tak_sebe_Dima Дата: Четверг, 22.11.2018, 09:15 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Доброго времени суток!
Есть скрипт, который меняет значение между выделенными ячейками
Увожаемые форумчане, помогите пожалуйста скорректировать код, так, чтобы можно было менять несколько значений в одной строке на несколько в другой:
Sub ReValues ()
If Selection.Count <> 2 Then Exit Sub
For Each cell In Selection
n = n+1
If n=1 Then
Val1 = cell.Value
Adr1 = cell.Adress
Else
Val2 = cell.Value
Adr2 = cell.Adress
End If
Next
Range (Adr1) = Val2
Range (Adr2) = Val1
End Sub
 
Ответить
СообщениеДоброго времени суток!
Есть скрипт, который меняет значение между выделенными ячейками
Увожаемые форумчане, помогите пожалуйста скорректировать код, так, чтобы можно было менять несколько значений в одной строке на несколько в другой:
Sub ReValues ()
If Selection.Count <> 2 Then Exit Sub
For Each cell In Selection
n = n+1
If n=1 Then
Val1 = cell.Value
Adr1 = cell.Adress
Else
Val2 = cell.Value
Adr2 = cell.Adress
End If
Next
Range (Adr1) = Val2
Range (Adr2) = Val1
End Sub

Автор - tak_sebe_Dima
Дата добавления - 22.11.2018 в 09:15
китин Дата: Четверг, 22.11.2018, 09:41 | Сообщение № 2
Группа: Модераторы
Ранг: Участник клуба
Сообщений: 5155
Репутация: 817 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
tak_sebe_Dima, Оформите код тэгами в соответствии с п№ 3 Правил форума Пояснялка здесь
приложите файл-пример


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщениеtak_sebe_Dima, Оформите код тэгами в соответствии с п№ 3 Правил форума Пояснялка здесь
приложите файл-пример

Автор - китин
Дата добавления - 22.11.2018 в 09:41
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос замены значений (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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