Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.78/18: Рейтинг темы: голосов - 18, средняя оценка - 4.78
1 / 1 / 0
Регистрация: 02.04.2012
Сообщений: 24

Error 1004 при обращении к ячейкам другого листа

02.04.2012, 10:50. Показов 3315. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите найти косяк:
Код написан на Листе 1, при изменениях на листе 1 должен записывать изменения в определенных ячейках в ячейки листа 2. Но при измнениях выскакивает ошибка "Error 1004 Application-defined or object-defined error" в 12-й строке

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Count As Integer
Sub Counter()
Count = 1
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim A As Double, B As Double
Dim c As Range
    For Each c In Target
        If c.Offset(1, 0).Value = 0 And c.Value <> 0 And c.Offset(0, 1).Value <> A Then
            A = c.Offset(0, 1).Value
            Workbooks("BOOK.xls").Worksheets("Sheet2").Range("E" & Count) = A - B
            Workbooks("BOOK.xls").Worksheets("Sheet2").Range("F" & Count) = c.Value
            Workbooks("BOOK.xls").Worksheets("Sheet2").Range("H" & Count) = c.Offset(1, 2).Value
            Count = Count + 1
           
        End If
        
    Next c
        
End Sub
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
02.04.2012, 10:50
Ответы с готовыми решениями:

Run-time error 1004 при обращении к ячейке
у меня вылезает такая же ошибка (run-time error '1004') при выполнении следующей маленькой процедурки. Sub Vstavka() Dim i As...

Как вывести результат в ячейку из одного листа по нескольким ячейкам из другого листа?
Здравствуйте прошу вас помочь, мне досталаь таблица в excel. Она необходима для работы как воздух, но формулы там работают не правильно. ...

Происходит выход за диапазон при обращении к ячейкам DGV
для работы программы необходимо заполнить строку справа от 0 ( та, которая с индексами (0,j) и первый столбец, что под 0 (тот, что с...

2
735 / 203 / 11
Регистрация: 23.06.2011
Сообщений: 440
02.04.2012, 10:57
Вы уверены, что Count у вас в этот момент 1, а не 0?

Еще бы узнать, есть ли у вас книга "BOOK", лист "Sheet2" и т.д.
0
1 / 1 / 0
Регистрация: 02.04.2012
Сообщений: 24
02.04.2012, 11:03  [ТС]
Цитата Сообщение от Gibboustooth Посмотреть сообщение
Вы уверены, что Count у вас в этот момент 1, а не 0?

Еще бы узнать, есть ли у вас книга "BOOK", лист "Sheet2" и т.д.
О, спасибо большое, дело было в Count. Туплю. =)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
02.04.2012, 11:03
Помогаю со студенческими работами здесь

Ошибка Run-time error '1004' при записи массива на лист
Добрый день Подскажите почему вылетает такая ошибка Run-time error '1004' Application-defined or object-defined error в строке ...

Error 1004. Cannot shift nonblank cells. При добавлении пустой строки
Подскажите, в чем ошибка: хочу всего лишь добавить пустую строку, а что-то не то.. Worksheets(str_page).Activate ...

Исключение при обращении из другого потока
Обращаюсь к picturebox из другого потока... записываю в него картинку и освобождаю..с этим никаких проблем. делаю так: ...

Range.Find метод не работает при адресации ячеек r1c1 - error 1004
Всем привет, собственно сабж. ВОт проблемный код (ошибка вылетает на строке 16 из-за того, что лист4 не активирован. Private Sub...

Ошибка при обращении к объекту другого класса
Когда пытаюсь с класса Drone вызвать через его объект функцию из класса Widget то появляется такая ошибка: ошибка: 'Widget' does not name...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Рецензия / Мнение/ Перевод Сайт называется reddit: The Thinkpad X220 Tablet is the best budget school laptop period. Это. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru