Подстановки текста изходя из условия

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подстановки текста изходя из условия (Макросы/Sub)

Tatiana098

Дата: Суббота, 25.11.2017, 06:56 | Сообщение № 1

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

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

Сообщений: 2

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

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

Excel 2007

Нужен макрос, для наглядности все описал на картинке

К сообщению приложен файл: 6028207.jpg (41.6 Kb) · 6363828.xlsm (9.9 Kb)

Сообщение отредактировал Tatiana098 - Суббота, 25.11.2017, 06:56

Ответить

китин

Дата: Суббота, 25.11.2017, 10:07 | Сообщение № 2

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

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

Сообщений: 7014

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

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

Excel 2007;2010;2016

И вам здравствуйте!!!
как то так
[vba]

Код

Sub TTT()
Dim lr As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
    For i = lr To 2 Step -1
     If Range("A" & i) = 0 Then
        Rows(i).Delete
      Else
      Range("B" & i).Value = "Ремонт"
     End If
    Next
End Sub

[/vba]
[p.s.]объединенные ячейки зло для Экселя :'(

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

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

Сообщение отредактировал китин - Суббота, 25.11.2017, 11:22

Ответить

китин

Дата: Суббота, 25.11.2017, 10:10 | Сообщение № 3

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

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

Сообщений: 7014

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

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

Excel 2007;2010;2016

[offtop]хм, Tatiana098,

Цитата Tatiana098, 25.11.2017 в 06:56, в сообщении № 1 ()

все описал

истелесно!!!

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

Ответить

Nic70y

Дата: Суббота, 25.11.2017, 22:02 | Сообщение № 4

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

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

Сообщений: 8759

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

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

Excel 2010

а так смешнее
[vba]

Код

Sub u_59()
    u = Cells(Rows.Count, 1).End(xlUp).Row
    Range("A2:A" & u).Replace What:="0", Replacement:="", LookAt:=xlWhole
    Range("A2:A" & u).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
    f = Cells(Rows.Count, 1).End(xlUp).Row
    Range("B" & f & ":B" & u).Clear
    Range("B2" & ":B" & f).Merge
    With Range("B2" & ":B" & f)
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
    Range("B2" & ":B" & f).Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("B2" & ":B" & f).Borders(xlEdgeBottom).LineStyle = xlContinuous
End Sub

[/vba]

ЮMoney 41001841029809

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подстановки текста изходя из условия (Макросы/Sub)

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