Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Определение первой пустой строки / 25 сообщений из 25, страница 1 из 1
12.11.2009, 15:34
    #36307097
kaol
kaol
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение первой пустой строки
Здравствуйте.

Есть вопрос: Как при помощи VBA определить первую пустую строку в списке?

Спасибо, Ольга
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2009, 15:52
    #36307142
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение первой пустой строки
> Автор: kaol
> Есть вопрос: Как при помощи VBA определить первую пустую строку в списке?

В каком списке и что значит пустая строка в этом списке?

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2009, 15:54
    #36307143
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение первой пустой строки
в цикле пробежаться и проверить
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2009, 16:27
    #36307229
kaol
kaol
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение первой пустой строки
Konst_One,

можете накидать цикл, please
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2009, 16:37
    #36307249
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение первой пустой строки
можете накидать список, please

Jah loves you.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2009, 16:55
    #36307294
kaol
kaol
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение первой пустой строки
Antonariy,

в строке A1:F5 стоят единицы, при запуске макроса,он находит, что строка шестая пустая и вставляет туда единички.

ОК? Спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2009, 17:07
    #36307318
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение первой пустой строки
Set blank_cell = Cells(Range("a1").SpecialCells(xlCellTypeLastCell).Row + 1, 1)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2009, 17:09
    #36307322
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение первой пустой строки
blank_cell.Value = 1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2009, 17:11
    #36307328
ZVI
ZVI
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение первой пустой строки
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub Test()
  Dim EmptyCell As Range
  Const StartCell = "A1"
  If Len(Range(StartCell)) =  0  Then
    Set EmptyCell = Range(StartCell)
  Else
    Set EmptyCell = Range(StartCell).End(xlDown).Offset( 1 )
  End If
  EmptyCell.Select
  MsgBox EmptyCell.Address( 0 ,  0 ), , "The first empty cell"
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2009, 17:48
    #36307431
kaol
kaol
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение первой пустой строки
ZVI,

ругается на эту строчку

Set EmptyCell = Range(StartCell).End(xlDown).Offset(1)

почему?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2009, 17:51
    #36307438
kaol
kaol
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение первой пустой строки
ZVI,

а если не единицы, а просто какие-то значения?

Что изменится в коде?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2009, 17:54
    #36307451
qwrqwr_
qwrqwr_
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение первой пустой строки
kaol
а если не единицы, а просто какие-то значения?
Что изменится в коде?
Предположим, ваше подразделение ведет бой с танками противника в количестве икс... , нет икс мало, пусть будет игрек...
Простите, не удержался
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2009, 17:57
    #36307461
kaol
kaol
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение первой пустой строки
ZVI,

а если мне потом надо скопировать из 12 строки значения и вставить в пустую, только что найденную строку. Как изменится код?

Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2009, 18:01
    #36307469
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение первой пустой строки
Код: plaintext
1.
2.
3.
Sub tt()
Set blank_cell = Cells(Range("a1").SpecialCells(xlCellTypeLastCell).Row +  1 ,  1 )
Range("a12:d12").Copy blank_cell
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2009, 18:19
    #36307513
kaol
kaol
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение первой пустой строки
kaol,

Всем спасибо за содействие, все получилось!!!!

Ура!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2009, 18:37
    #36307563
ZVI
ZVI
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение первой пустой строки
Ну, на всякий случай приложил, вроде бы не ругается :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2009, 18:55
    #36307613
ZVI
ZVI
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение первой пустой строки
Для случая, когда все до последней ячейки не являются пустыми добавим еще одну проверку, а для копирования - см. комментарии:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Sub Test()
  
  Dim EmptyCell As Range
  Const StartCell = "A1"
  
  If Len(Range(StartCell)) =  0  Then
    Set EmptyCell = Range(StartCell)
  Else
    On Error Resume Next
    Set EmptyCell = Range(StartCell).End(xlDown).Offset( 1 )
    If Err <>  0  Then MsgBox "Пустых уже нет, что делать?", vbQuestion, ":-)": Exit Sub
  End If
  
  ' Для копирования раскомментировать строку ниже и вписать вместо "Откуда" адрес
  'Range("Откуда").Copy EmptyCell
  
  ' А это после отладки можно убрать
  EmptyCell.Select
  MsgBox EmptyCell.Address( 0 ,  0 ), , "Нашел пустую!"

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2009, 15:43
    #36309596
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение первой пустой строки
Тут надо уточнить - мой код ищет первую пустую строку после всех данных,
код ZVI ищет первую пустую ячейку после непрерывных данных ниже А1, да и то глючно.
Например, в столбце А данные:
Код: plaintext
1.
2.
3.
4.
 1 

 2 
 3 
 4
Код забьёт 4 и дальше не пойдёт. Если пустоту 1-2 заполнить, тогда ОК.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2009, 18:10
    #36310032
kaol
kaol
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение первой пустой строки
ZVI,

ВЫ-супер!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2009, 18:12
    #36310040
kaol
kaol
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение первой пустой строки
kaol,

а как потом в скопированной строке вставить только значения, а то у меня там связи написаны
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2009, 18:32
    #36310070
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение первой пустой строки
> Автор: kaol
> а как потом в скопированной строке вставить только значения, а то у меня там связи написаны

Выделить нужный диапазон, скопировать,
правой кнопкой мышки->Специальная вставка->Значение->Ок
или
Меню "Правка"->"Специальная вставка"->Значение->Ок
или
На панели инструментов кнопка "Вставить", рядом стрелочка, нажать на стрелочку и выбрать "Значения"
или
....

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2009, 21:44
    #36310219
ZVI
ZVI
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение первой пустой строки
kaolkaol,

а как потом в скопированной строке вставить только значения, а то у меня там связи написаны
Kaol,

1. Чтобы вставить только значение можно вместо:
Range("Откуда").Copy EmptyCell

использовать:
EmptyCell.Value = Range("Откуда").Value

Или без Value: EmptyCell = Range("Откуда")

2. Еще вариант со специальной вставкой:
Range("Откуда").Copy
EmptyCell.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

3. Чтобы после копирования формулу заменить на значение:
EmptyCell.Value = EmptyCell.Value
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.11.2009, 09:11
    #36310392
kaol
kaol
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение первой пустой строки
ZVI,

спасибо большое, 2--й вариант то, что нужно :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.11.2009, 09:13
    #36310395
kaol
kaol
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение первой пустой строки
Игорь Горбонос,

на этом форуме вопросы задаюся про VBA, а не про эксель.

Ольга
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.11.2009, 10:40
    #36311875
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение первой пустой строки
kaolИгорь Горбоносна этом форуме вопросы задаюся про VBA, а не про эксель.Ольга

т.е. зная как это делать мышкой в пользовательском интерфейсе, лень записать макрос и выбрать нужный вариант?

З.Ы. на этом форуме о чем только не задают вопросы, помимо VBA

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Определение первой пустой строки / 25 сообщений из 25, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]