Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Координаты первых заполненных ячеек. проблемка. vba
 
#1
17.05.2012 10:04:47
Добрый день уважаемые форумчане!  
 
ILR = Cells(Rows.Count, 1).End(xlUp).Row  -здесь последняя заполненная ячейка внизу    
первого столбца  
iLC = Cells(1, Columns.Count).End(xlToLeft).Column  -здесь последняя заполненная ячейка    
справа по первой строке  
 
А как будет синткаксис если наоборот, как на верху соответственно?:  
1) первая (самая верхняя) заполненная ячейка 1-го столбца  
2) первая (самая левая) заполненная ячейка 1-ой строки  
 
Где то встречал давно видимо, но не мог найти  
 
Заранее спасибо
With my best regards,      Inter_E
 
 
 
#2
17.05.2012 10:10:28
для 1)  
dim lc&  
if isempty([a1]) then lc=[a1].end(xltoright).column else lc=1
 
для 2) - аналогично.
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#3
17.05.2012 10:11:59
i'm diko sorry  
код приведен для 2)
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#4
17.05.2012 10:16:08
{quote}{login=ikki}{date=17.05.2012 10:10}{thema=}{post}для 1)  
dim lc&  
if isempty([a1]) then lc=[a1].end(xltoright).column else lc=1{/post}{/quote}
Спасибо, но этого я не совсем понял. Был синтаксис похожее как не верху...
With my best regards,      Inter_E
 
 
 
#5
17.05.2012 10:19:48
ILR = IIf(IsEmpty([A1]), [A1].End(xlDown).Row, 1)
ILC = IIf(IsEmpty([A1]), [A1].End(xlToRight).Column, 1)
Редко но метко ...
 
 
 
#6
17.05.2012 10:47:01
Спасибо, а как это внедрить для, допустим 4 строки и 2 столбец. Потому что у вас там [А1] и 1 указаны. Беспокоюсь. Можете показать на примере? Заранее спасибо!
With my best regards,      Inter_E
 
 
 
#7
17.05.2012 10:58:13
Как то так:  
Sub test()  
Dim inR As Range, ILR As Long, ILC As Long  
Set inR = Cells(4, 2) ' тут указываем начальную ячейку.  
ILR = IIf(IsEmpty(inR), inR.End(xlDown).Row, inR.Row)  
ILC = IIf(IsEmpty(inR), inR.End(xlToRight).Column, inR.Column)  
MsgBox ILR & " - " & ILC  
End Sub
Редко но метко ...
 
 
 
#8
17.05.2012 12:27:40
Короче мне надо было определить первую цифру на 7 строке, я так  сделал. А что за аргумент "1" в синтаксисе у вас в конце формулы? За что оно отвечает?  
 
Sub xx2()  
   
 Set sy = Cells(7, 1)  
   
 y = IIf(IsEmpty(sy), sy.End(xlToRight).Column, 1)  
     
    MsgBox "y=" & y  
 
End Sub
 
 
 
Страницы: 1
Читают тему
Наверх