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

Вход

Регистрация

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

 

= Мир MS Excel/Выравнивание ячеек из диапазона по условию. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выравнивание ячеек из диапазона по условию. (Макросы/Sub)
Выравнивание ячеек из диапазона по условию.
VMax Дата: Четверг, 07.11.2019, 12:54 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день. Прошу помочь с примером. Требуется выровнять несколько ячеек из диапазона по условию. Для наглядности вот о чем речь.


Колонка B по колонке А, Колонка E по колонке D

К сообщению приложен файл: Example.rar (6.5 Kb)


Сообщение отредактировал VMax - Четверг, 07.11.2019, 17:25
 
Ответить
СообщениеДобрый день. Прошу помочь с примером. Требуется выровнять несколько ячеек из диапазона по условию. Для наглядности вот о чем речь.


Колонка B по колонке А, Колонка E по колонке D

Автор - VMax
Дата добавления - 07.11.2019 в 12:54
китин Дата: Четверг, 07.11.2019, 14:20 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7014
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
у меня ваш архив не открывается

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениеу меня ваш архив не открывается
Автор - китин
Дата добавления - 07.11.2019 в 14:20
VMax Дата: Четверг, 07.11.2019, 17:10 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
китин, собственно там то же что и на картинке. (вообще то у меня сейчас открылся)
 
Ответить
Сообщениекитин, собственно там то же что и на картинке. (вообще то у меня сейчас открылся)
Автор - VMax
Дата добавления - 07.11.2019 в 17:10
Апострофф Дата: Четверг, 07.11.2019, 17:43 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация: 123 ±
Замечаний: 0% ±

Excel 1997
Цитата VMax, 07.11.2019 в 12:54, в сообщении № 1 ()
Колонка B по колонке А

[vba]
Код
Sub Макрос1()
Dim rn As Range
For Each rn In [a1:a6]
  If rn.Offset(, 1) = "лево" Then
    rn.Offset(, 1).HorizontalAlignment = xlLeft
  ElseIf rn = "право" Then
    rn.Offset(, 1).HorizontalAlignment = xlRight
  End If
Next rn
End Sub
[/vba]
Цитата VMax, 07.11.2019 в 12:54, в сообщении № 1 ()
Колонка E по колонке D

Тут сами?
 
Ответить
Сообщение
Цитата VMax, 07.11.2019 в 12:54, в сообщении № 1 ()
Колонка B по колонке А

[vba]
Код
Sub Макрос1()
Dim rn As Range
For Each rn In [a1:a6]
  If rn.Offset(, 1) = "лево" Then
    rn.Offset(, 1).HorizontalAlignment = xlLeft
  ElseIf rn = "право" Then
    rn.Offset(, 1).HorizontalAlignment = xlRight
  End If
Next rn
End Sub
[/vba]
Цитата VMax, 07.11.2019 в 12:54, в сообщении № 1 ()
Колонка E по колонке D

Тут сами?
Автор - Апострофф
Дата добавления - 07.11.2019 в 17:43
VMax Дата: Четверг, 07.11.2019, 19:33 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Апострофф, Спасибо!!! Вы очень помогли.
 
Ответить
СообщениеАпострофф, Спасибо!!! Вы очень помогли.
Автор - VMax
Дата добавления - 07.11.2019 в 19:33
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выравнивание ячеек из диапазона по условию. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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