Выравнивание ячеек из диапазона по условию.

Старая форма входа

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

Выравнивание ячеек из диапазона по условию. (Макросы/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

Ответить

китин

Дата: Четверг, 07.11.2019, 14:20 | Сообщение № 2

Группа: Модераторы

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

Сообщений: 7029

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

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

Excel 2007;2010;2016

у меня ваш архив не открывается

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

VMax

Дата: Четверг, 07.11.2019, 17:10 | Сообщение № 3

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

Ранг: Прохожий

Сообщений: 8

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

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

Excel 2013

китин, собственно там то же что и на картинке. (вообще то у меня сейчас открылся)

Ответить

Апострофф

Дата: Четверг, 07.11.2019, 17:43 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 458

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

Замечаний: 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, 19:33 | Сообщение № 5

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

Ранг: Прохожий

Сообщений: 8

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

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

Excel 2013

Апострофф, Спасибо!!! Вы очень помогли.

Ответить

Выравнивание ячеек из диапазона по условию. (Макросы/Sub)

Страница 1 из 1
1