Как добавить строку?

Программирование на Visual Basic for Applications
Legachoff
Обычный пользователь
Обычный пользователь
 
Сообщения: 75
Зарегистрирован: 14.10.2005 (Пт) 15:09

Как добавить строку?

Сообщение Legachoff » 31.01.2006 (Вт) 12:13

Sub ааа()
Dim r As Variant
For r = 5 To 20 Step 1
If Cells(r, 13).Value = "OK" Then Rows(r + 1).Select
Selection.Insert Shift:=xlDown
Next r
End Sub

добавляет аж до 20, а надо только 1 строку...

___________________
http://socialnye-sety.ru/
http://www.studopedia.ru/
http://zdos.ru/
http://life-prog.ru/
Последний раз редактировалось Legachoff 24.12.2012 (Пн) 12:54, всего редактировалось 1 раз.

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 31.01.2006 (Вт) 12:15

:shock:
Legachoff писал(а):Dim r As Variant


:shock:
Legachoff писал(а):Step 1


:shock:
Legachoff писал(а):Then Rows(r + 1).Select
Selection.Insert Shift:=xlDown

Наверное, всё же надо как-то прочитать в разделе "Азы" про область действия If?
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

Legachoff
Обычный пользователь
Обычный пользователь
 
Сообщения: 75
Зарегистрирован: 14.10.2005 (Пт) 15:09

???

Сообщение Legachoff » 31.01.2006 (Вт) 12:22

???

Legachoff
Обычный пользователь
Обычный пользователь
 
Сообщения: 75
Зарегистрирован: 14.10.2005 (Пт) 15:09

Лучше конечно когда сам вьезжаешь.....

Сообщение Legachoff » 01.02.2006 (Ср) 12:52

Sub dob()
Dim r As Variant
For r = 1 To 40 Step 1
Do While Cells(r, 2).Value = "AAA"
Rows(r + 1).Select
Selection.Insert Shift:=xlDown
Exit Do
Cells(r + 2, 2).Value = ""
Loop
Next r
End Sub

:wink:

Legachoff
Обычный пользователь
Обычный пользователь
 
Сообщения: 75
Зарегистрирован: 14.10.2005 (Пт) 15:09

Сообщение Legachoff » 01.02.2006 (Ср) 12:56

Sub dob()
Dim r As Variant
For r = 4 To 40 Step 1
Do While Cells(r, 2).Value = "FFF"
Rows(r + 1).Select
Selection.Insert Shift:=xlDown
Exit Do
Cells(r + 2, 2).Value = ""
Loop
Next r
End Sub

algol2
Начинающий
Начинающий
 
Сообщения: 9
Зарегистрирован: 28.07.2005 (Чт) 11:50
Откуда: Украина

Сообщение algol2 » 01.02.2006 (Ср) 19:20

Предположительно намек был на:

Sub ааа()
Dim r As Integer
For r = 5 To 20
If Cells(r, 13).Text = "WWW" Then
Rows(r + 1).Select
Selection.Insert Shift:=xlDown
Exit For
End If
Next r
End Sub

Legachoff
Обычный пользователь
Обычный пользователь
 
Сообщения: 75
Зарегистрирован: 14.10.2005 (Пт) 15:09

Сообщение Legachoff » 02.02.2006 (Чт) 11:52

Да где-то так :D

Avtopic
Постоялец
Постоялец
 
Сообщения: 442
Зарегистрирован: 30.09.2005 (Пт) 17:15
Откуда: Tbilisi

Сообщение Avtopic » 02.02.2006 (Чт) 16:10

Dim r As Integer
For r = 40 To 4 Step -1
If Cells(r, 2).Text = "fff" Then Rows(r + 1).Insert Shift:=xlDown
Next


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 91

    TopList  
cron