Помогите с VBA плиз!!!

Программирование на Visual Basic for Applications
Artdevil
Начинающий
Начинающий
Аватара пользователя
 
Сообщения: 7
Зарегистрирован: 19.07.2005 (Вт) 10:35

Помогите с VBA плиз!!!

Сообщение Artdevil » 19.07.2005 (Вт) 11:13

В кратце это так - есть таблица в EXCEL нужно что бы при заполнении последней строки появлялась еще одна
Буду очень благодарен

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

Сообщение GSerg » 19.07.2005 (Вт) 11:16

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

Twister
Теоретик
Теоретик
Аватара пользователя
 
Сообщения: 2251
Зарегистрирован: 28.06.2005 (Вт) 12:32
Откуда: Алматы

Сообщение Twister » 19.07.2005 (Вт) 16:22

Не понял что тебе именно надо, но отлавливай событие Change у листа
А я все практикую лечение травами...

Artdevil
Начинающий
Начинающий
Аватара пользователя
 
Сообщения: 7
Зарегистрирован: 19.07.2005 (Вт) 10:35

Сообщение Artdevil » 21.07.2005 (Чт) 10:39

нужно автоматическое продолжение таблицы, а все данные, что полсе - спускаются

Twister
Теоретик
Теоретик
Аватара пользователя
 
Сообщения: 2251
Зарегистрирован: 28.06.2005 (Вт) 12:32
Откуда: Алматы

Сообщение Twister » 21.07.2005 (Чт) 11:01

Рисуй границы... :wink:
А я все практикую лечение травами...

shyrik_m
Новичок
Новичок
 
Сообщения: 26
Зарегистрирован: 21.06.2005 (Вт) 8:34

Сообщение shyrik_m » 22.07.2005 (Пт) 9:59

Вставь код в чистый лист, и приступай к испытаниям,
заполни ячейку С1 данными, выйди из неё и щёлкни по этой ячейке снова

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Row = 4 And ActiveCell.Column = 3 Then
If Cells(4, 3) <> "" Then Cells(4, 3).EntireRow.Insert
Range("C4:H4").Borders(xlEdgeTop).LineStyle = xlContinuous
Range("C4:H4").Borders(xlEdgeBottom).LineStyle = xlContinuous
Range("C4:H4").Borders(xlEdgeRight).LineStyle = xlContinuous
Range("C4:H4").Borders(xlEdgeLeft).LineStyle = xlContinuous
Range("C4:H4").Borders(xlInsideVertical).LineStyle = xlContinuous
'Range("C4:H4").Borders(xlInsideHorizontal).LineStyle = xlContinuous
End If
End Sub

shyrik_m
Новичок
Новичок
 
Сообщения: 26
Зарегистрирован: 21.06.2005 (Вт) 8:34

Сообщение shyrik_m » 22.07.2005 (Пт) 10:01

Пардон!!!

Не С1 а С4


Вернуться в VBA

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

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

    TopList