Wrong number of arguments or invalid property assignment (Error 450)

@Yoooo · Регистрация: 29.09.2010

Студворк — интернет-сервис помощи студентам

При выполнении этой программки вылетает вот такое сообщение: Wrong number of arguments or invalid property assignment. В чём проблема? Строго не судите, изучаю VBA аж второй день)

DimN · 28.01.2014, 07:16

vbCritical + vbOkOnly - вот твоя проблема, должно быть что-то одно!

@аналитика · 28.01.2014, 10:13

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

vbCritical + vbOkOnly - вот твоя проблема, должно быть что-то одно!

это не так, почему не могут быть вместе красный крест и кнопка "ОК" (см. рис.)

я думаю нужно искать в Tools/References... Missing'и

shanemac51 · 28.01.2014, 10:38

ДЕЛО в private sub
=====
в програмке параметра нет, а вызывается она откуда-то с параметром

@Yoooo · 28.01.2014, 13:42 **[ТС]**

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

в програмке параметра нет, а вызывается она откуда-то с параметром

Что это за параметр? И откуда он взялся, если я программку не изменял?

@KoGG · 28.01.2014, 14:42

У меня работает.
Вероятно на форме нет контрола OptionButton4 .

@KoGG · 28.01.2014, 14:59

Обратите внимание на разницу в срабатывании клика по OptionButton3 и OptionButton4 в файле примера.
Правда и тот и другой без ошибок.
Секрет в редактировании модуля в Word со вставкой неразрывных пробелов в выражение vbCritical* + *vbOkOnly и последующем импортировании модуля в файл Excel.

@Yoooo · 28.01.2014, 15:48 **[ТС]**

KoGG, так мне что, постоянно в Ворде писать, а потом переносить в Эксель?

И вот, мой файл со всеми прибамбасами, которые за вчера сочинил. Может, так понятнее будет.

@~~Апострофф~~ · 28.01.2014, 15:50

Yoooo, если бы вы приложили файл с проблемой вместо картинки, задача давно была бы решена.

@Yoooo · 28.01.2014, 15:52 **[ТС]**

Апострофф, уже сделал)

@KoGG · 28.01.2014, 16:11

Я привел пример в качестве прикола, как делать не надо, но Вас так могут надуть.
Тем не менее не оскудеет идиотами земля русская.
В Module1 приложенного файла я обнаружил процедуру:

Visual Basic

Sub MsgBox()
Da = MsgBox("Вам понравился пример?", vbYesNo, "Примерчик))")
If Da = vbYes Then
    MsgBox "Це добре", vbInformation, "Primer"
Else
    MsgBox "Це погано", vbInformation, "Primer"
End If
End Sub

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

@Yoooo · 28.01.2014, 16:22 **[ТС]**

KoGG, блиииин... Это ж надо было так ошибиться

. Зато, теперь навсегда это запомню.
Спасибо за решение.

@mrf · 28.09.2016, 11:02

Здравствуйте,
почему работает это:

Visual Basic

Sub grey(control As IRibbonControl)
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 10921638
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

А это выводит ошибку Wrong number of arguments or invalid property assignment :

Visual Basic

1
2
3

Sub lastrowme(control As IRibbonControl)
Range("c" & Range("c1").End(xlDown).Row + 1).Select
End Sub

все же верно.... должно быть....... вроде....?

~~Shersh~~ · 28.09.2016, 11:19

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

Это ж надо было так ошибиться

mrf, поищите в своем проекте, где и зачем вы переопределили Range?
(можно попробовать ПКМ на этом слове -> Definition)

@KoGG · 28.09.2016, 11:32

mrf первый фрагмент работает, потому что там нет действия .Select и сравнивать его со 2-м - бессмысленно.

Если в столбце С ничего нет, то строка

Visual Basic

1	Range("c" & Range("c1").End(xlDown).Row + 1).Select

вызовет ошибку , так как мы пытаемся выделить строку, ниже максимального количества строк.

Если нет ни одной открытой книги - ошибка, негде взять Range, нет активного листа.

В обоих случаях это "Application-degined or object-defined error" (Офис 2010)

@mrf · 28.09.2016, 11:43

да вроде нигде...
попробывал иначе:
модуль риббона:

Visual Basic

1
2
3

Sub lastrowme(control As IRibbonControl)
lastrow
End Sub

другой модуль:

Visual Basic

1
2
3

Sub lastrow
Range("c" & Range("c1").End(xlDown).Row + 1).Select
End Sub

так вот lastrow отдельно работает, и все ок даже на сочетание клавиш, а в связке с риббоном- нет..

На сколько понимаю, если проблема с RANGE, то не работало бы и в др. мете.. или не так?

Добавлено через 1 минуту
Когг, да есть все

И лист и книга и строчки..

С риббона не работает, а отдельно работает... И так с половиной рибонна сейчас у меня..

Половина запускается, а половина - нет..

~~Shersh~~ · 28.09.2016, 11:51

Попробуйте заменить

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

Range

на Excel.Range?

@mrf · 28.09.2016, 12:49

не работает...

Добавлено через 50 минут
вроде нашел ошибку. Если есть 2 идентичных макроса по содержанию (хоть и с разными названиями и на разных листах), один из которых с control As IRibbonControl, а второй -нет , то не работает макрос с риббона.
вот, например, был макрос lastrowme (As IRibbonControl) с текстом как lastrow - не работал. Удалил макрос lastrow, и сразу
lastrowme заработал. Также проверил сейчас по двум другим макросам с риббона с аналогичной проблемой - проблема ушла.
Теперь придется что-то думать о переделке, т.к. один макрос с риббона работал, а второй с кнопки на листе делал тоже самое.. Теперь понятно, что так нельзя.

~~Shersh~~ Заблокирован
	28.09.2016, 11:51	17
	Попробуйте заменить Сообщение от mrf Range на Excel.Range? 0

@mrf 12 / 12 / 4 Регистрация: 16.03.2012 Сообщений: 252
	28.09.2016, 12:49	18
	не работает... Добавлено через 50 минут вроде нашел ошибку. Если есть 2 идентичных макроса по содержанию (хоть и с разными названиями и на разных листах), один из которых с control As IRibbonControl, а второй -нет , то не работает макрос с риббона. вот, например, был макрос lastrowme (As IRibbonControl) с текстом как lastrow - не работал. Удалил макрос lastrow, и сразу lastrowme заработал. Также проверил сейчас по двум другим макросам с риббона с аналогичной проблемой - проблема ушла. Теперь придется что-то думать о переделке, т.к. один макрос с риббона работал, а второй с кнопки на листе делал тоже самое.. Теперь понятно, что так нельзя. 0

@Yoooo 2 / 2 / 0 Регистрация: 29.09.2010 Сообщений: 207
		1
	Wrong number of arguments or invalid property assignment (Error 450) 28.01.2014, 01:04. Показов 19392. Ответов 17 Метки нет (Все метки) При выполнении этой программки вылетает вот такое сообщение: Wrong number of arguments or invalid property assignment. В чём проблема? Строго не судите, изучаю VBA аж второй день) Миниатюры 0

DimN 98 / 49 / 0 Регистрация: 14.08.2013 Сообщений: 230 Записей в блоге: 4
	28.01.2014, 07:16	2
	vbCritical + vbOkOnly - вот твоя проблема, должно быть что-то одно! 0

@аналитика здесь больше нет... 3372 / 1670 / 184 Регистрация: 03.02.2010 Сообщений: 1,219
	28.01.2014, 10:13	3
	Сообщение от DimN vbCritical + vbOkOnly - вот твоя проблема, должно быть что-то одно! это не так, почему не могут быть вместе красный крест и кнопка "ОК" (см. рис.) я думаю нужно искать в Tools/References... Missing'и Изображения 0

shanemac51 Модератор 11493 / 4736 / 764 Регистрация: 07.08.2010 Сообщений: 13,759 Записей в блоге: 4
	28.01.2014, 10:38	4
	ДЕЛО в private sub ===== в програмке параметра нет, а вызывается она откуда-то с параметром 0

@Yoooo 2 / 2 / 0 Регистрация: 29.09.2010 Сообщений: 207
	28.01.2014, 13:42 [ТС]	5
	Сообщение от shanemac51 в програмке параметра нет, а вызывается она откуда-то с параметром Что это за параметр? И откуда он взялся, если я программку не изменял? 0

@KoGG 5599 / 1587 / 408 Регистрация: 23.12.2010 Сообщений: 2,370 Записей в блоге: 1
	28.01.2014, 14:42	6
	У меня работает. Вероятно на форме нет контрола OptionButton4 . 0

@~~Апострофф~~ Заблокирован
	28.01.2014, 15:50	9
	Yoooo, если бы вы приложили файл с проблемой вместо картинки, задача давно была бы решена. 0

@Yoooo 2 / 2 / 0 Регистрация: 29.09.2010 Сообщений: 207
	28.01.2014, 15:52 [ТС]	10
	Апострофф, уже сделал) 0

@Yoooo 2 / 2 / 0 Регистрация: 29.09.2010 Сообщений: 207
	28.01.2014, 16:22 [ТС]	12
	KoGG, блиииин... Это ж надо было так ошибиться. Зато, теперь навсегда это запомню. Спасибо за решение. 0

~~Shersh~~ Заблокирован
	28.09.2016, 11:19	14
	Сообщение от Yoooo Это ж надо было так ошибиться mrf, поищите в своем проекте, где и зачем вы переопределили Range? (можно попробовать ПКМ на этом слове -> Definition) 0

Wrong number of arguments or invalid property assignment (Error 450)

Решение