ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Определение последней не пустой строки
5 сообщений из 5, страница 1 из 1
Определение последней не пустой строки
    #37175138
dd44
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dd44
Гость
Что-то мне сегодня не колдуется с утра.
Нужно, чтобы макрос определял последнюю не пустую строку на листе и туда записывал данные. Пишу:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
    For i =  0  To Me.ListBox1.ListCount -  1 
        With Worksheets("Obligations")
            .Cells(Rows.Count +  1 ,  1 ).Value = Worksheets("Database").Cells( 4 ,  55 ).Value
            .Cells(Rows.Count +  1 ,  2 ).Value = .Rows.Count               'ID of row
            .Cells(Rows.Count +  1 ,  3 ).Value = Trim(Me.ListBox1.List(i,  0 ))    'Name
            .Cells(Rows.Count +  1 ,  4 ).Value = Format(CCur(Me.ListBox1.List(i,  1 )), "#,##0")    'Quantity
            .Cells(Rows.Count +  1 ,  5 ).Value = Format(CCur(Me.ListBox1.List(i,  2 )), "#.##0.00") 'Price
            .Cells(Rows.Count +  1 ,  6 ).Value = Format(CCur(Me.ListBox1.List(i,  3 )), "#.##0.00") 'NDS
            .Cells(Rows.Count +  1 ,  7 ).Value = Format(CCur(Me.ListBox1.List(i,  4 )), "#.##0.00") 'Summ
            .Cells(Rows.Count +  1 ,  8 ).Value = Me.ListBox1.List(i,  5 )    'Mountaine
            .Cells(Rows.Count +  1 ,  9 ).Value = Me.ListBox1.List(i,  6 )    'Study
            .Cells(Rows.Count +  1 ,  3 ).Value = Me.ListBox1.List(i,  7 )    'PNR
        End With
    Next
End Sub
Так эта зараза определяет последнюю строку, как вообще последнюю строку на листе. Что не так?
...
Рейтинг: 0 / 0
21.03.2011, 12:32
| Ответить | Цитировать | Написать  
Определение последней не пустой строки
    #37175359
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
dd44Что не так?
то, что у вас в коде вообще нет поиска последней непустой строки!

поиском бы сначала воспользоваться, сразу находится тема:
http://www.sql.ru/forum/actualthread.aspx?tid=752618&hl=%ef%ee%f1%eb%e5%e4%ed%ff%ff%20%f1%f2%f0%ee%ea%e0
...
Рейтинг: 0 / 0
21.03.2011, 13:55
| Ответить | Цитировать | Написать  
Определение последней не пустой строки
    #37175745
dd44
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dd44
Гость
Поиском пользовался, но почему-то этого не нашел. Оказывается все просто:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
        With Worksheets("Obligations")
            .Cells(.Range("a65536").End(xlUp).Row +  1 ,  1 ).Value = Worksheets("Database").Cells( 4 ,  55 ).Value
            .Cells(.Range("a65536").End(xlUp).Row +  1 ,  2 ).Value = .Range("a65536").End(xlUp).Row               'ID of row
            .Cells(.Range("a65536").End(xlUp).Row +  1 ,  3 ).Value = Trim(Me.ListBox1.List(i,  0 ))    'Name
            .Cells(.Range("a65536").End(xlUp).Row +  1 ,  4 ).Value = Format(CCur(Me.ListBox1.List(i,  1 )), "#,##0")    'Quantity
            .Cells(.Range("a65536").End(xlUp).Row +  1 ,  5 ).Value = Format(CCur(Me.ListBox1.List(i,  2 )), "#.##0.00") 'Price
            .Cells(.Range("a65536").End(xlUp).Row +  1 ,  6 ).Value = Format(CCur(Me.ListBox1.List(i,  3 )), "#.##0.00") 'NDS
            .Cells(.Range("a65536").End(xlUp).Row +  1 ,  7 ).Value = Format(CCur(Me.ListBox1.List(i,  4 )), "#.##0.00") 'Summ
            .Cells(.Range("a65536").End(xlUp).Row +  1 ,  8 ).Value = Me.ListBox1.List(i,  5 )    'Mountaine
            .Cells(.Range("a65536").End(xlUp).Row +  1 ,  9 ).Value = Me.ListBox1.List(i,  6 )    'Study
            .Cells(.Range("a65536").End(xlUp).Row +  1 ,  3 ).Value = Me.ListBox1.List(i,  7 )    'PNR
        End With
...
Рейтинг: 0 / 0
21.03.2011, 16:22
| Ответить | Цитировать | Написать  
Определение последней не пустой строки
    #37175746
dd44
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dd44
Гость
Да, сапсибо, большое.
:)
...
Рейтинг: 0 / 0
21.03.2011, 16:22
| Ответить | Цитировать | Написать  
Определение последней не пустой строки
    #37175752
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
.Range("a65536").End(xlUp).Row

лучше вызвать 1 раз и запомнить, а потом уже юзать переменную с полученным значением, иначе эксель на каждой вашей строке кода выполняет поиск
...
Рейтинг: 0 / 0
21.03.2011, 16:25
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Определение последней не пустой строки
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=106&tid=2158878]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 33ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 268ms
total:  389ms
созд. / загр.: 389ms
x
x
Закрыть


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