Ошибка при выполнении процедуры. - Microsoft Office Excel - Страница 2

segail · 17.02.2010, 16:12

Цитата:

Сообщение от Dophin

аааааааа. Вам видимо надо это

Private Sub Cmd_Select_Списание_Click()
‘…
call Module2.Rasxod
‘…
End Sub

Надо так.
Но выдает ошибку...
Правда call у меня не выставлен

Dophin · 17.02.2010, 16:18

.Cells(i, 21).Value = Range("F10").Value
.Cells(i, 22).Value = Range("G10").Value
.Cells(i, 28).Value = Round(([d13] + [d16] + [d19] + [d22]), 0) + .Cells(i, 28).Value

в данном куске
.Cells(i, 28).Value - значение ячейки с листа "Îò÷åò"
Range("F10").Value - значение с активного листа
[d13] - значение с активного листа

так и надо?

вообщем гадать надоело - нужна помощь - выкладывайте файл, обрежьте все лишнее - лишь бы ошибка осталась.

segail · 17.02.2010, 16:35

Где .Cells это не активный лист, остальное все активный лист.
Насчет файла надо потрудиться “Ломать не строить”, но в данном случае наоборот…

segail · 17.02.2010, 16:58

Разобрался
Для нахождения .Cells изначально нужно условие. В коде клик по кнопке, данное условие проставлено из за этого код там выполняется.
А в процедуре чистый код без условия, по этому .Cells не определяется.

Dophin · 17.02.2010, 17:25

и в каком месте Ваших вопросов можно было это понять? зачем время у людей отнимать, если Вы ставите вопросы ответы на которые дать в принципе невозможно?

segail · 17.02.2010, 17:32

Изначально не понял, почему процедура не работает...

Цитата:

зачем время у людей отнимать

Я же выше говорил.

Цитата:

Если ошибка в коде, а не в правильности оформления процедуры тогда вопрос снят.

Извиняюсь если доставил не удобства.

Dophin · 17.02.2010, 17:53

просто Вы дали кусок кода, а ошибка была совсем в другом месте.

Поэтому я и говорю - по портрету лечить геморрой - дело неблагодарное )

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Ошибка при выполнении приложения	ADJAVA	Общие вопросы по Java, Java SE, Kotlin	0	24.07.2008 11:07
Ошибка при Выполнении Insert	nimf	БД в Delphi	2	27.11.2007 18:16
Ошибка при выполнении запроса	Шани	БД в Delphi	4	27.07.2007 13:04
Странная ошибка при выполнении	okolobaxa	Общие вопросы Delphi	2	03.07.2007 00:47
Ошибка при выполнении запроса	Elena	БД в Delphi	2	25.05.2007 16:19

17.02.2010, 16:18	#12
Dophin Форумчанин Регистрация: 13.01.2010 Сообщений: 410	.Cells(i, 21).Value = Range("F10").Value .Cells(i, 22).Value = Range("G10").Value .Cells(i, 28).Value = Round(([d13] + [d16] + [d19] + [d22]), 0) + .Cells(i, 28).Value в данном куске .Cells(i, 28).Value - значение ячейки с листа "Îò÷åò" Range("F10").Value - значение с активного листа [d13] - значение с активного листа так и надо? вообщем гадать надоело - нужна помощь - выкладывайте файл, обрежьте все лишнее - лишь бы ошибка осталась.

17.02.2010, 16:35	#13
segail Форумчанин Регистрация: 13.06.2009 Сообщений: 691	Где .Cells это не активный лист, остальное все активный лист. Насчет файла надо потрудиться “Ломать не строить”, но в данном случае наоборот…

17.02.2010, 16:58	#14
segail Форумчанин Регистрация: 13.06.2009 Сообщений: 691	Разобрался Для нахождения .Cells изначально нужно условие. В коде клик по кнопке, данное условие проставлено из за этого код там выполняется. А в процедуре чистый код без условия, по этому .Cells не определяется.

17.02.2010, 17:25	#15
Dophin Форумчанин Регистрация: 13.01.2010 Сообщений: 410	и в каком месте Ваших вопросов можно было это понять? зачем время у людей отнимать, если Вы ставите вопросы ответы на которые дать в принципе невозможно?

17.02.2010, 17:53	#17
Dophin Форумчанин Регистрация: 13.01.2010 Сообщений: 410	просто Вы дали кусок кода, а ошибка была совсем в другом месте. Поэтому я и говорю - по портрету лечить геморрой - дело неблагодарное )