Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Определение последней не пустой строки / 5 сообщений из 5, страница 1 из 1
21.03.2011, 12:32
    #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, 13:55
    #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, 16:22
    #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:25
    #37175752
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определение последней не пустой строки
.Range("a65536").End(xlUp).Row

лучше вызвать 1 раз и запомнить, а потом уже юзать переменную с полученным значением, иначе эксель на каждой вашей строке кода выполняет поиск
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Определение последней не пустой строки / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 146ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2158878]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 39ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 14ms
total:  146ms
x
x
Закрыть


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