УФ перевести в макрос

Вход

Регистрация

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

= Мир MS Excel/УФ перевести в макрос - Мир MS Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » УФ перевести в макрос (Макросы/Sub)

УФ перевести в макрос

Lich

Дата: Среда, 01.03.2017, 04:43 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 33

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

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

Excel 2003

Здравствуйте, скажите, пожалуйста, можно ли УФ перевести в макрос?

Код

=ЕЧИСЛО($A1)

- линии границ - все внешние; применяется к диапазону $A:$F

К сообщению приложен файл: 1776195.xls (30.0 Kb)

Ответить

Pelena

Дата: Среда, 01.03.2017, 08:56 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19187

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

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Если макрос, то зачем УФ, просто нарисовать границы не вариант?
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Columns(1)) Is Nothing Then Exit Sub
    If Not Target = Empty Then
        Target.Resize(, 6).Borders.LineStyle = xlContinuous
    Else
        Target.Resize(, 6).Borders.LineStyle = xlLineStyleNone
    End If
End Sub

[/vba]

К сообщению приложен файл: 7811468.xls (36.5 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Lich

Дата: Среда, 01.03.2017, 16:55 | Сообщение № 3

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

Ранг: Новичок

Сообщений: 33

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

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

Excel 2003

Pelena, спасибо, понятно как проще сделать.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » УФ перевести в макрос (Макросы/Sub)

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