Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Удаление ячеек / 12 сообщений из 12, страница 1 из 1
18.10.2005, 13:33:54
    #33330339
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление ячеек
Код на рабочем листе:
Dim mas(1 To 8)
mas(1) = "A"
mas(2) = "B"
mas(3) = "C"
mas(4) = "D"
mas(5) = "E"
mas(6) = "F"
mas(7) = "G"
mas(8) = "H"
For i = 2 To 8
Worksheets("Рабочий лист").Range(mas(i) & stroka).Select
Selection.Delete Shift:=xlUp
Worksheets("Скрытая копия").Range(mas(i) & stroka).Select
Selection.Delete Shift:=xlUp
Next i
В красной строке дает ошибку. Кто видит в чем дело ?
(Удаляется по 1 ячейке, потому что выделение программно запрещено)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.10.2005, 13:49:28
    #33330384
Sinner
Sinner
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление ячеек
Сколько же можно повторять, это не клуб телепатов (((
Что за ошибка-то? "Красненькая какая-то"?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.10.2005, 14:13:45
    #33330471
Letter_D
Letter_D
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление ячеек
Переменная 'stroka' не определена.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.10.2005, 14:14:09
    #33330473
k-nike
k-nike
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление ячеек
Может ошибка не в этой строке, а в 1-ой где у mas() не определен тип?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.10.2005, 14:27:38
    #33330519
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление ячеек
Run -Time Error
Медот Select из класса Range завершен неверно
Переменная Stroka определена. Просто весь код не стал выкладывать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.10.2005, 14:29:17
    #33330525
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление ячеек
Я прсто не могу понять почему
Worksheets("Рабочий лист").Range(mas(i) & stroka).Select
Selection.Delete Shift:=xlUp
проходит,
а
Worksheets("Скрытая копия").Range(mas(i) & stroka).Select
Selection.Delete Shift:=xlUp
не проходит ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.10.2005, 14:31:04
    #33330530
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление ячеек
Dim mas(1 To 8)
mas(1) = "A"
mas(2) = "B"
mas(3) = "C"
mas(4) = "D"
mas(5) = "E"
mas(6) = "F"
mas(7) = "G"
mas(8) = "H"
For i = 2 To 8
Worksheets("Рабочий лист").Range(mas(i) & stroka).Select
Selection.Delete Shift:=xlUp
Next i
В таком виде работает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.10.2005, 14:41:27
    #33330573
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление ячеек
Вопрос с другой стороны: как из Лист1 удалить ячейки на Лист2 со сдвигом вверх ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.10.2005, 14:45:15
    #33330594
k-nike
k-nike
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление ячеек
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
...
Worksheets("Рабочий лист").Activate
Worksheets("Рабочий лист").Range(mas(i) & stroka).Select
Selection.Delete Shift:=xlUp
Worksheets("Скрытая копия").Activate
Worksheets("Скрытая копия").Range(mas(i) & stroka).Select
Selection.Delete Shift:=xlUp
...
Просто походу метод селект работает только с активным листом.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.10.2005, 14:48:20
    #33330616
k-nike
k-nike
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление ячеек
Код: plaintext
1.
Worksheets("Рабочий лист").Range(mas(i) & stroka).Delete Shift:=xlUp
Worksheets("Скрытая копия").Range(mas(i) & stroka).Delete Shift:=xlUp
А вот так еще короче и моргать не будет лишний раз
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.10.2005, 15:04:48
    #33330689
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление ячеек
k-nike
Код: plaintext
1.
Worksheets("Рабочий лист").Range(mas(i) & stroka).Delete Shift:=xlUp
Worksheets("Скрытая копия").Range(mas(i) & stroka).Delete Shift:=xlUp
А вот так еще короче и моргать не будет лишний раз

Все заработало. Видимо Select в очередной раз помешал ? Спасибочки !
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.10.2005, 18:19:19
    #33331463
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удаление ячеек
talgatВ красной строке дает ошибку. Кто видит в чем дело ?
В использовании метода Select и объекта Selection.
НЕЛЬЗЯ ИСПОЛЬЗОВАТЬ Selection!
НЕЛЬЗЯ ИСПОЛЬЗОВАТЬ Selection!
НЕЛЬЗЯ ИСПОЛЬЗОВАТЬ Selection!
НЕЛЬЗЯ ИСПОЛЬЗОВАТЬ Selection!
НЕЛЬЗЯ ИСПОЛЬЗОВАТЬ Selection!
НЕЛЬЗЯ ИСПОЛЬЗОВАТЬ Selection!
НЕЛЬЗЯ ИСПОЛЬЗОВАТЬ Selection!
НЕЛЬЗЯ ИСПОЛЬЗОВАТЬ Selection!
НЕЛЬЗЯ ИСПОЛЬЗОВАТЬ Selection!
Ну не возможно визуально выделить ячейки на невидимом листе.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Удаление ячеек / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 364ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2185639]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 56ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 55ms
get tp. blocked users:
 1ms
others: 214ms
total:  364ms
x
x
Закрыть


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