ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Удаление ячеек
12 сообщений из 12, страница 1 из 1
Удаление ячеек
    #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:33:54
| Ответить | Цитировать | Написать  
Удаление ячеек
    #33330384
Фотография Sinner
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sinner
Участник
Сколько же можно повторять, это не клуб телепатов (((
Что за ошибка-то? "Красненькая какая-то"?
...
Рейтинг: 0 / 0
18.10.2005, 13:49:28
| Ответить | Цитировать | Написать  
Удаление ячеек
    #33330471
Letter_D
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Letter_D
Участник
Переменная 'stroka' не определена.
...
Рейтинг: 0 / 0
18.10.2005, 14:13:45
| Ответить | Цитировать | Написать  
Удаление ячеек
    #33330473
Фотография k-nike
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
k-nike
Участник
Может ошибка не в этой строке, а в 1-ой где у mas() не определен тип?
...
Рейтинг: 0 / 0
18.10.2005, 14:14:09
| Ответить | Цитировать | Написать  
Удаление ячеек
    #33330519
Фотография talgat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
talgat
Участник
Run -Time Error
Медот Select из класса Range завершен неверно
Переменная Stroka определена. Просто весь код не стал выкладывать.
...
Рейтинг: 0 / 0
18.10.2005, 14:27:38
| Ответить | Цитировать | Написать  
Удаление ячеек
    #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:29:17
| Ответить | Цитировать | Написать  
Удаление ячеек
    #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:31:04
| Ответить | Цитировать | Написать  
Удаление ячеек
    #33330573
Фотография talgat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
talgat
Участник
Вопрос с другой стороны: как из Лист1 удалить ячейки на Лист2 со сдвигом вверх ?
...
Рейтинг: 0 / 0
18.10.2005, 14:41:27
| Ответить | Цитировать | Написать  
Удаление ячеек
    #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:45:15
| Ответить | Цитировать | Написать  
Удаление ячеек
    #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, 14:48:20
| Ответить | Цитировать | Написать  
Удаление ячеек
    #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, 15:04:48
| Ответить | Цитировать | Написать  
Удаление ячеек
    #33331463
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
talgatВ красной строке дает ошибку. Кто видит в чем дело ?
В использовании метода Select и объекта Selection.
НЕЛЬЗЯ ИСПОЛЬЗОВАТЬ Selection!
НЕЛЬЗЯ ИСПОЛЬЗОВАТЬ Selection!
НЕЛЬЗЯ ИСПОЛЬЗОВАТЬ Selection!
НЕЛЬЗЯ ИСПОЛЬЗОВАТЬ Selection!
НЕЛЬЗЯ ИСПОЛЬЗОВАТЬ Selection!
НЕЛЬЗЯ ИСПОЛЬЗОВАТЬ Selection!
НЕЛЬЗЯ ИСПОЛЬЗОВАТЬ Selection!
НЕЛЬЗЯ ИСПОЛЬЗОВАТЬ Selection!
НЕЛЬЗЯ ИСПОЛЬЗОВАТЬ Selection!
Ну не возможно визуально выделить ячейки на невидимом листе.
...
Рейтинг: 0 / 0
18.10.2005, 18:19:19
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Удаление ячеек
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=33330384&tid=2185639]:
 0ms
get settings:
 5ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 46ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 29ms
get tp. blocked users:
 1ms
others: 186ms
total:  290ms
созд. / загр.: 290ms
x
x
Закрыть


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