Invalid use of property vba ошибка

Option Explicit

Private name_ As String
Private surname_ As String
Private marks_ As New Collection


Public Property Get getMean() As Single

    Dim sum As Double
    Dim mark As Double
    Dim count As Integer

    For Each mark In marks_
        sum = sum + mark
        count = count + 1
    Next mark

    getMean = sum / count

End Property

Public Property Let setName(name As String)
    name_ = name
End Property

Public Property Get getName() As String
    getName = name_
End Property

Public Property Let setSurname(surname As String)
    surname_ = surname
End Property

Public Property Get getSurname() As String
    getSurname = surname_
End Property

Dim stud1 As New Student

stud1.setName "Andy"

2

Я знаю, что есть тонны нитей и вопросов об этом, и это довольно очевидно, как правило, где ошибка. Большинство людей не используют ключевое слово SET при перемещении объектов. Я.

Вот что происходит:

Это находится на листе excel, поэтому я сделал небольшой набор функций для отслеживания столбцов и создания индекса, чтобы каждый раз, когда приложение запускает его, он будет переиндексировать столбцы, чтобы я мог делать такие вещи, как .Cells(row_num, pCust_index("custID")) в случае изменения столбца.

У меня есть форма custContagions. Это просто небольшое модальное окно, которое позволяет пользователям добавлять/удалять/редактировать зараженный клиентом статус. Он содержит свойство:

Private pCust_index as dictionary

Он также содержит этот набор свойств:

Public Property Set set_cust_index(ByRef custIndex As Dictionary)
Set pCust_index = New Dictionary
Set pcust_index = custIndex
End Property

Довольно прямо вперед? Принимает объект словаря, сбрасывает мой индекс и указывает на существующий переданный объект.

Теперь, в вызывающей форме у меня есть другая сторона:

Private Sub newCustContagious_LBL_Click()
Dim contForm as New custContagions
Call contForm.set_cust_index(pCust_index)  'note pCust_index is a private here too
Call contForm.Show
...

Я получаю ошибку Invalid Use of Property compiler при вызове set_cust_index.

Что я упустил?

Большинство людей не используют ключевое слово SET при перемещении объектов вокруг

Затем они не движутся вокруг объектов. Ключевое слово Set – способ перемещения объекта вокруг.
Существует также CopyMemory чтобы напрямую копировать ObjPtr, но я не считаю, что большинство людей это делают.

Довольно прямо вперед?

Не совсем. Вы создаете словарь, немедленно отбрасываете его и заменяете другим словарем, переданным в качестве параметра. Вы должны удалить первую из двух строк и создать параметр ByVal:

Public Property Set set_cust_index(ByVal custIndex As Dictionary)
    Set pcust_index = custIndex
End Property

Я получаю ошибку компилятора Invalid Use of Property

Вы объявили свойство, а затем использовали его как суб. С собственностью вы должны были сделать:

Set contForm.set_cust_index = pCust_index

В этот момент имя set_cust_index не выглядит великолепно. Это сделало бы разумное имя для sub (Public Sub set_cust_index(ByVal custIndex As Dictionary)), но для свойства вам было бы лучше с Public Property Set cust_index(ByVal custIndex As Dictionary).

• Remove From My Forums

• Вопрос

• I am not a skilled code writer. Please respond as you would to a 10 year old with your explanations. 

  I created a user form in VBA through Office 365 Word 2016. The form is an audit questionnaire with only text boxes and combo option boxes. The goal is to have the form auto generate an audit report. 

  I followed instructions and copied the code format from a website. When I go to debug>compile normal- I get an error message that says «Compile error: Invalid use of property». This is on one line of code for a textbox. txtocip Value =
  «a»  The codes for the other text boxes are set the same way but do not show this error. 

  How do I correct this? I do not fully grasp the concept of properties and how it relates to coding. 

Популярные разделы FAQ:     Общие вопросы     Особенности VBA-кода     Оптимизация VBA-кода     Полезные ссылки

1. Старайтесь при создании темы указывать в заголовке или теле сообщения название офисного приложения и (желательно при работе с Office 95/97/2000) его версию. Это значительно сократит количество промежуточных вопросов.
2. Формулируйте вопросы как можно конкретнее, вспоминая (хотя бы иногда) о правилах ВЕЛИКОГО И МОГУЧЕГО РУССКОГО ЯЗЫКА, и не забывая, что краткость — сестра таланта.
3. Не забывайте использовать теги [сode=vba] …текст программы… [/code] для выделения текста программы подсветкой!
4. Темы с просьбой выполнить какую-либо работу полностью за автора здесь не обсуждаются и переносятся в раздел ПОМОЩЬ СТУДЕНТАМ.

В чем ошибка?

Old Bat	Сообщ. #11 , 30.03.07, 10:57
Moderator Рейтинг (т): 128	Set InsertNextOutputTable = tblTable , но лучше сразу Set InsertNextOutputTable = docDocument.Tables.Add(Range:=rngTable, NumRows:=1, NumColumns:=5) Цитата awax @ 30.03.07, 07:03 Учебник по VBA ответа на этот вопрос не дает что за источник ?? см. создание ссылки на объект

Old Bat	Сообщ. #13 , 30.03.07, 13:36
Moderator Рейтинг (т): 128	гм, попользуй ссылочку, много чего полезного есть http://word.mvps.org/FAQs/MacrosVBA/

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

Я пишу свой первый макрос MS Word, который перебирает все строки таблицы и удаляет выбранную. Вот код

Sub TableCleaner()
'
' TableCleaner Macro
'
'
    Dim objTable As Table
    Dim sourceDocument As Document
    Set sourceDocument = ActiveDocument
    Dim UserChoice As String
    Dim QuestionToMessageBox As String
    QuestionToMessageBox = "Delete row with Text?"

    Dim targetRows() As Row
    ReDim targetRows(1 To 1) As Row
    For Each oRow In sourceDocument.Tables(1).Rows
        UserChoice = MsgBox(oRow.Cells(1).Range.Text, vbYesNo, "Delete Row?")
        If UserChoice = vbYes Then
            targetRows(UBound(targetRows)) = oRow
            ReDim Preserve targetRows(1 To UBound(targetRows) + 1) As Row
            oRow.Shading.BackgroundPatternColor = Word.WdColor.wdColorLightGreen
        End If
    Next oRow

    Confirmation = MsgBox("Are you sure?", vbYesNo, "Confirm?")
    If Confirmation = vbYes Then
        For Each targetRow In targetRows
            targetRow.Delete
        Next targetRow
    End If

End Sub

Я слежу за ошибкой в строке targetRows(UBound(targetRows)) = oRow

Compile error:
Invalid use of property

Вам нужно Set целевой строки:

Set targetRows(UBound(targetRows)) = oRow

Это потому, что Row является объектом, а не строкой, числом или чем-то «простым».

При назначении объекта вам нужно использовать ключевое слово Set. (Случается со мной все время в подобных ситуациях!) Итак:

Set targetRows(UBound(targetRows)) = oRow

Примечание: вы должны использовать Option Explicit вверху ваших модулей кода. Это заставляет вас объявлять (использовать Dim) каждую переменную, которую вы используете, и помогает избежать орфографических ошибок с именами переменных и т. Д.

В вашем коде, в строке ниже, он ожидает значение индекса как 1, 2, 3 для targetRows

TargetRows ( UBound (targetRows) ) = oRow