ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Определение первой пустой строки
25 сообщений из 25, страница 1 из 1
Определение первой пустой строки
    #36307097
kaol
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kaol
Гость
Здравствуйте.

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

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

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

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

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

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

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

ОК? Спасибо
...
Рейтинг: 0 / 0
12.11.2009, 16:55
| Ответить | Цитировать | Написать  
Определение первой пустой строки
    #36307318
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Set blank_cell = Cells(Range("a1").SpecialCells(xlCellTypeLastCell).Row + 1, 1)
...
Рейтинг: 0 / 0
12.11.2009, 17:07
| Ответить | Цитировать | Написать  
Определение первой пустой строки
    #36307322
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
blank_cell.Value = 1
...
Рейтинг: 0 / 0
12.11.2009, 17:09
| Ответить | Цитировать | Написать  
Определение первой пустой строки
    #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:11
| Ответить | Цитировать | Написать  
Определение первой пустой строки
    #36307431
kaol
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kaol
Гость
ZVI,

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

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

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

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

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

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

Спасибо.
...
Рейтинг: 0 / 0
12.11.2009, 17:57
| Ответить | Цитировать | Написать  
Определение первой пустой строки
    #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:01
| Ответить | Цитировать | Написать  
Определение первой пустой строки
    #36307513
kaol
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kaol
Гость
kaol,

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

Ура!!
...
Рейтинг: 0 / 0
12.11.2009, 18:19
| Ответить | Цитировать | Написать  
Определение первой пустой строки
    #36307563
ZVI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ZVI
Участник
Ну, на всякий случай приложил, вроде бы не ругается :)
...
Рейтинг: 0 / 0
12.11.2009, 18:37
| Ответить | Цитировать | Написать  
Определение первой пустой строки
    #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
12.11.2009, 18:55
| Ответить | Цитировать | Написать  
Определение первой пустой строки
    #36309596
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Тут надо уточнить - мой код ищет первую пустую строку после всех данных,
код ZVI ищет первую пустую ячейку после непрерывных данных ниже А1, да и то глючно.
Например, в столбце А данные:
Код: plaintext
1.
2.
3.
4.
 1 

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

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

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

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

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
13.11.2009, 18:32
| Ответить | Цитировать | Написать  
Определение первой пустой строки
    #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
13.11.2009, 21:44
| Ответить | Цитировать | Написать  
Определение первой пустой строки
    #36310392
kaol
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kaol
Гость
ZVI,

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

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

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

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

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

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


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