| WWW.ИСХОДНИКИ.РУ | cpp.sources.ru | |
| java.sources.ru | web.sources.ru | soft.sources.ru |
| jdbc.sources.ru | asp.sources.ru | api.sources.ru |
Форум на исходниках
Visual Basic
Отследить последнюю ячейку в экселе
|
Форум на исходниках
Visual Basic
Отследить последнюю ячейку в экселе
| |||||||||
| Автор | Тема: Отследить последнюю ячейку в экселе |
| Dimka66 |
опубликован 05-02-2002 11:37 MSK  
Проблема в следующем: Есть вордовый макрос. Из ворда в таблицу эксель передаются некие данные. Задача: отследить первую свободную ячейку на листе эксель. Код вида:Wksheet.Cells.SpecialCells(xlCellTypeLastCell).Activate работает некорректно. Может кто сталкивался? Заранее благодарен. |
| 7in |
опубликован 05-02-2002 22:54 MSK
см. раздел "Основной" |
| sharig |
опубликован 06-02-2002 05:07 MSK
я пользуюсь следующей процедурой Sub ff() 'r - номер столбца Dim r As Integer: r = 1 Do: s = Trim(ActiveSheet.Cells(r, 1).Value) If s = "" Then Exit Do Else r = r + 1 Loop While s <> "" ActiveSheet.Cells(r, 1).Value = "вставка в конце" End Sub |
| Dimka66 |
опубликован 06-02-2002 10:09 MSK
На самом деле я так пытался уже. Медленно получается. На листе из 4000 записей поиск примерно 7 сек занимает (на Р-3 866 :)) |
| anatolik |
опубликован 06-02-2002 13:35 MSK
Я пользовался таким кодом, к примеру для поиска в столбце А: Sub Button1_Click() i = 1 While Sheets("sheet1").Range("a" + LTrim(Str(i))) <> Empty i = i + 1 Wend MsgBox "Первая свободная - A" & i End Sub |
Powered by: Ultimate Bulletin Board, Freeware Version 5.10a
Purchase our Licensed Version- which adds many more features!
© Infopop Corporation (formerly Madrona Park, Inc.), 1998 - 2000.