Автоматически добавлять символы к набранному тексту

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

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

Автоматически добавлять символы к набранному тексту (Макросы/Sub)

AVI

Дата: Понедельник, 24.10.2016, 20:46 | Сообщение № 1

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

Ранг: Ветеран

Сообщений: 523

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

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

Excel 2016

Добрый день!
Не знаю как записать макрос.
Помогите сделать: есть диапазон ячеек A2:F2 необходимо, что бы при введении любого текста в них к этому тексту добавлялась звездочка в начале текста и сразу после него. Без пробелов.
Спасибо заранее.

К сообщению приложен файл: 6842996.xlsx (8.2 Kb)

Сообщение отредактировал AVI - Понедельник, 24.10.2016, 20:51

Ответить

Michael_S

Дата: Понедельник, 24.10.2016, 21:18 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 2012

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

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

Excel2016

Только макросом.

К сообщению приложен файл: 6842996.xlsm (13.4 Kb)

Ответить

_Boroda_

Дата: Понедельник, 24.10.2016, 21:22 | Сообщение № 3

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

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

Сообщений: 16743

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Такой вариант макроса.
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim d_ As Range
    Set d_ = Intersect(Target, Range("A2:F2"))
    If Not d_ Is Nothing Then
        Application.EnableEvents = 0
        For Each c_ In d_
            c_.Value = "*" & c_.Value & "*"
        Next c_
        Application.EnableEvents = 1
    End If
End Sub

[/vba]
[p.s.]Файл Михаила не смотрел - качать неохота[/p.s.]

Если устроит только видимость, то можно форматом (файл _2)
\*@\*
Или Условным форматированием

К сообщению приложен файл: 6842996_1.xlsm (13.9 Kb) · 6842996_2.xlsx (8.1 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Michael_S

Дата: Понедельник, 24.10.2016, 21:30 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 2012

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

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

Excel2016

Цитата _Boroda_, 24.10.2016 в 21:22, в сообщении № 3

Файл Михаила не смотрел - качать неохота

Забыл добавить макрос в текст сообщения

дано не был на форумах...
у меня другой:
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("A2:F2")) Is Nothing Then
Target = "*" & Target & "*"
End If
Application.EnableEvents = True
End Sub

[/vba]