Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.220.154.41] |
|
Сообщ.
#1
,
|
|
|
Проблема в следующем: Есть вордовый макрос. Из ворда в таблицу эксель передаются некие данные. Задача: отследить первую свободную ячейку на листе эксель. Код вида:Wksheet.Cells.SpecialCells(xlCellTypeLastCell).Activate работает некорректно. Может кто сталкивался?
Заранее благодарен. |
Сообщ.
#2
,
|
|
|
Вот тебе простенький пример (только из Excel):
Sub FindFreeColumn() For j = 1 To 65535 For i = 1 To 255 If Cells(j, i).Value2 = "" Then MsgBox ("Строка " & j & ", столбец " & i) j = 65535 Exit For End If Next i Next j End Sub Sub FindFreeRow() For i = 1 To 255 For j = 1 To 65535 If Cells(j, i).Value2 = "" Then MsgBox ("Строка " & j & ", столбец " & i) i = 255 Exit For End If Next j Next i End Sub Первая процедура просматривает по строкам (т.е. находит столбец в... скорее всего, первой строке), вторая - по столбцам. |