Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Нумерация строк / 8 сообщений из 8, страница 1 из 1
15.06.2007, 09:48:28
    #34596560
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нумерация строк
Как пронумеровать строки без формулы
Я свормулировал так:
Есть А1 и А2
в А1 стоит цифра 1
в А2 =Если(В2="","",А1+1)
и так далее до А65536
Но при этом файл заграмождается и скорость заполнения данных замедленные
Как это сделать в VBA но чтоб в яйчейках функция не была видна были только цифры
Спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.06.2007, 10:14:38
    #34596631
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нумерация строк
Ser ArturКак пронумеровать строки без формулы
Я свормулировал так:
Есть А1 и А2
в А1 стоит цифра 1
в А2 =Если(В2="","",А1+1)
и так далее до А65536
Но при этом файл заграмождается и скорость заполнения данных замедленные
Как это сделать в VBA но чтоб в яйчейках функция не была видна были только цифры
Спасибо

Вообще формулой это делается так

=строка()

В макросе медленне будет на мой взгляд
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.06.2007, 10:31:37
    #34596694
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нумерация строк
Нет почему если задать ему "перекрёстное значение"
Range("A1")=Range("A1")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.06.2007, 10:37:29
    #34596730
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нумерация строк
авторPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To 10
If Range("B" & i) = "" Then
Range("A" & i) = ""
Else: Range("A" & i).Formula = "=ROW(RC)"
End If
Range("A" & i) = Range("A" & i)
Next i
End Sub
Всё спасибо на мысль сработало
С уважением А`ртур
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.06.2007, 10:48:54
    #34596780
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нумерация строк
Ser Artur авторPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To 10
If Range("B" & i) = "" Then
Range("A" & i) = ""
Else: Range("A" & i).Formula = "=ROW(RC)"
End If
Range("A" & i) = Range("A" & i)
Next i
End Sub
Всё спасибо на мысль сработало
С уважением А`ртур

Код: plaintext
1.
2.
For i =  1  To  10 
 If Range("B" & i) <> "" Then Range("A" & i).Value = Evaluate("ROW(A" & i & ")")
Next i
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.06.2007, 11:10:55
    #34596868
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нумерация строк
А что означает в авторEvaluate("ROW(A" & i & ")")
вот это автор")"
у меня начинается с А5 т.е. нужно так
Evaluate("ROW(A" & i - 4)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.06.2007, 11:16:07
    #34596888
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нумерация строк
Прости
авторEvaluate("ROW(A" & i -4 & ")")
так
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.06.2007, 13:03:38
    #34597413
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нумерация строк
Ser ArturА что означает в авторEvaluate("ROW(A" & i & ")")
вот это автор")"
у меня начинается с А5 т.е. нужно так
Evaluate("ROW(A" & i - 4)

Начни цикл с i = 5 ячейки

Код: plaintext
1.
2.
For i =  5  To  10 
 If Range("B" & i) <> "" Then Range("A" & i).Value = Evaluate("ROW(A" & i & ")")
Next i

Evaluate - вычисляет строковое выражение, например Строка(A5)
По ангельски ROW(A5)
Evaluate("ROW(A5)") - вернёт значение полученное в результате вычисления ROW(A5).
Ну и вместо 5 подставляем нашу переменную i и получаем. Evaluate("ROW(A" & i & ")")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Нумерация строк / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 301ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2182775]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 31ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 191ms
total:  301ms
x
x
Закрыть


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