замена пустых ячеек на коротк тире

[Окоча Юра]

Привет, всем знатокам! Помогите создать макрос чтобы при выделении определенного диапазона ячеек во все пустые строки этого диапазона автоматически поместилось коротк тире (по центру ячеек)!

[0mega]

=Если( A1+B1=0*"-";A1+B1)

[Окоча Юра]

А куда поместить этот код. Если можно макрос!

[0mega]

Вообще-то это не макрос
Это обычная обшепринятая функция Exscel
Введите у себя такие же данные как на картинке.
В ячейку С2 запишите :=ЕСЛИ(A2*B2=0;"-";A2*B2)
протяните эту формулу вниз до С7

если чтоб по простому и понятно - тогда эта формула читается так
ЕСЛИ при умножении А2на В2 получается 0; тогда надо писать "значение в кавычках"; во всех остальных случаях надо написать результат умножени А2*В2

[The_Prist]

Вот Вам сложнейший макрос - во все пустые ячейки выделенного диапазона проставит тире

Sub Test()
Selection.Cells.SpecialCells(xlBlanks).Value = "-": Selection.HorizontalAlignment = xlCenter
End Sub

Не забывайте - ячейки с формулами, даже если формула вернула пустое значение(""), не являются пустыми.

[Окоча Юра]

А можно ли новый код, который будет заменять ПУСТЫЕ ячейки, несмотря на строку нулевой длины?

[The_Prist]

Можно.

Sub Test()
Selection.Replace Empty, "Replace", xlWhole
Selection.Replace "Replace", Empty, xlWhole
Selection.Cells.SpecialCells(xlBlanks).Value = "-": Selection.HorizontalAlignment = xlCenter
End Sub

Вместо "Replace" можете указать любое сочетание символов, которое никоим образом не может находиться у Вас в ячейках.

[Окоча Юра]

ИЗВИНИ, НЕ УСПЕЛ ОТВЕТИТЬ! ВАРИАНТ ПОДОШЕЛ - ТО ЧТО И ХОТЕЛ. СПАСИБО!!!!!!!!!!!!

[Sasha_Smirnov]

Selection.Cells.SpecialCells(xlBlanks).Value = "–": Selection.HorizontalAlignment = xlCenter

А вот это высший класс — выровнять по середине! Хорошо получилось, солидно.

Только забыли, что просили тире (а не «программистский» -).

Ввод «типографского» тире на кампюторе — вещь непростая, типа детям до 16 это рано! А серьёзно, надо держать левый Alt, а на цифровой (если не ноутбук) клаве набрать 0151. Для короткого тире (–) 0150.

[The_Prist]

Сообщение от Sasha_Smirnov

Только забыли, что просили тире (а не «программистский» -).

Если честно - у меня других "тире" на клавиатуре нет. Если подскажете код символа "не програмистского тире" - буду признателен. И исправлю код макроса на нужное тире.