Run time error 380 excel

Just came back to you… a bit long, but here’s the general thoughts…

This all goes in the code for the ActiveX Control:

Option Explicit

Sub ListBox1_Click()
    Dim rw As Range, strtext As String
    Dim arr As Variant, ai As Long, aj As Long 
    Dim brr As Variant, bi As Long, bj As Long
    strtext = "a" 'I used this when i did my testing
    ReDim arr(11, 0)
    For Each rw In Range("rng")
        If InStr(LCase(rw.Value), strtext) Then
            aj = findaj(arr)
            If Not IsEmpty(arr(1, aj)) Then
                aj = aj + 1
                ReDim Preserve arr(11, aj)
            End If
            For ai = 1 To 11
                arr(ai, aj) = Cells(rw.Row, ai + 1).Value
            Next ai
        End If
    Next rw
    ReDim brr(aj, 11)
    For bi = 0 To aj
        For bj = 1 To 11
            brr(bi, bj) = arr(bj, bi)
        Next bj
    Next bi
    ListBox1.ColumnCount = 11
    ListBox1.List = brr
End Sub

Private Function findaj(ByVal brr As Variant)
    Dim j As Long, meow As String
    j = 0
    Do While True
        On Error GoTo toll
        j = j + 1
        meow = brr(1, j)
    Loop
toll:
    findaj = j - 1
End Function

So there’s a lot going on here… I use two separate arrays, due to how redimming arrays works in VBA. You can only update the second element of the array, so arr(ai,aj) can only have aj updated when I redim preserve while adding a new row to my array.

So we make an array (arr) that captures the data based on VBA’s limitations. Within that array, we use a function, findaj, which intentionally traps an error to determine the appropriate last column in arr (i italicized the use of column, as it’s not truly the case, but it makes sense spatially when thinking about it).

You then convert the array arr to brr in the appropriate order of columns/rows.

Afterwards, you make your .list = brr.

3

Run time error 380 vba excel

This forum has migrated to Microsoft Q&A. Visit Microsoft Q&A to post new questions.

Answered by:

Question

I have a workbook with a user form containing a lot of different text boxes, combo boxes and check boxes all linked to cells in a worksheet with the ControlSource property.

At first when the workbook is opened and the the user form is opened everything works well and all the controls are linked correctly to the cells in the worksheet. The problem arise when the workbook has been open for a while and you try to open the user form and then it won’t work anymore and the following error message is given:

So the problem is that the error doesn’t occur all the time the user form is opened and initiated it occurs after a while, and when the error has occurred the workbook has to be closed and reopened for the user form to work again. So as far as I can see the ControlSource property is not given an invalid property value.

Does anyone recognize this error and know how to fix it?

Since it doesn’t occur all the time I had a thought that it might be a bug in Excel, could it be like that?

Источник

В этой статье представлена ошибка с номером Ошибка 380, известная как Ошибка Excel 380, описанная как Ошибка 380: Возникла ошибка в приложении Microsoft Excel. Приложение будет закрыто. Приносим свои извинения за неудобства.

Информация об ошибке

Имя ошибки: Ошибка Excel 380
Номер ошибки: Ошибка 380
Описание: Ошибка 380: Возникла ошибка в приложении Microsoft Excel. Приложение будет закрыто. Приносим свои извинения за неудобства.
Программное обеспечение: Microsoft Excel
Разработчик: Microsoft

Этот инструмент исправления может устранить такие распространенные компьютерные ошибки, как BSODs, зависание системы и сбои. Он может заменить отсутствующие файлы операционной системы и библиотеки DLL, удалить вредоносное ПО и устранить вызванные им повреждения, а также оптимизировать ваш компьютер для максимальной производительности.

О программе Runtime Ошибка 380

Время выполнения Ошибка 380 происходит, когда Microsoft Excel дает сбой или падает во время запуска, отсюда и название. Это не обязательно означает, что код был каким-то образом поврежден, просто он не сработал во время выполнения. Такая ошибка появляется на экране в виде раздражающего уведомления, если ее не устранить. Вот симптомы, причины и способы устранения проблемы.

Определения (Бета)

Здесь мы приводим некоторые определения слов, содержащихся в вашей ошибке, в попытке помочь вам понять вашу проблему. Эта работа продолжается, поэтому иногда мы можем неправильно определить слово, так что не стесняйтесь пропустить этот раздел!

• Excel — только для вопросов по программированию с объектами или файлами Excel или по разработке сложных формул.

Симптомы Ошибка 380 — Ошибка Excel 380

Ошибки времени выполнения происходят без предупреждения. Сообщение об ошибке может появиться на экране при любом запуске %программы%. Фактически, сообщение об ошибке или другое диалоговое окно может появляться снова и снова, если не принять меры на ранней стадии.

Возможны случаи удаления файлов или появления новых файлов. Хотя этот симптом в основном связан с заражением вирусом, его можно отнести к симптомам ошибки времени выполнения, поскольку заражение вирусом является одной из причин ошибки времени выполнения. Пользователь также может столкнуться с внезапным падением скорости интернет-соединения, но, опять же, это не всегда так.

(Ошибка Excel 380) Repair Tool»/>
(Только для примера)

Причины Ошибка Excel 380 — Ошибка 380

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

Ошибки во время выполнения обычно вызваны несовместимостью программ, запущенных в одно и то же время. Они также могут возникать из-за проблем с памятью, плохого графического драйвера или заражения вирусом. Каким бы ни был случай, проблему необходимо решить немедленно, чтобы избежать дальнейших проблем. Ниже приведены способы устранения ошибки.

Методы исправления

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

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

Источник

«run-time error ‘380’- invalid property value

LinkBack

Thread Tools

Rate This Thread

Display

«run-time error ‘380’- invalid property value

New member here, 1st post so please be gentle and helpful!

I’m trying to run a macro that used to work on my old work pc using excel 2003 however I’ve now been upgraded to a new pc and have windows 2013 and one of my buttons doesn’t work, Every other button in the spreadsheet work when clicked except the main one.

when I go into VBA and debug it shows the following message

«RUN-TIME ERROR ‘380’:
COULD NOT SET THE VALUE PROPERTY. INVALID PROPERTY VALUE

But I have no idea where to look as I didn’t no build this at the start.
please help me!

Re: «run-time error ‘380’- invalid property value

Is there a particular line of code that is highlighted when the error shows?

1N73LL1G3NC3 15 7H3 4B1L17Y 70 4D4P7 70 CH4NG3 — 573PH3N H4WK1NG
You don’t have to add Rep if I have helped you out (but it would be nice), but please mark the thread as SOLVED if your issue is resolved.

Re: «run-time error ‘380’- invalid property value

Assuming both the sheet and the VBA projected are unprotected (if not, unprotect them), right click on the button that’s giving the error and click ‘Assign Macro’.

In the window that appears you’ll see a list of all macros within the project with the one that’s selected listed in the very top section. Click the ‘Edit’ button. Now you’ll see the page of code that the macro exists on. Copy the entire macro from SUB [macroname] to END SUB. Paste it in here and we’ll have a look.

if you really want to speed up problem solving, run the macro and on the error window click ‘Debug’. It’ll take you back to the code window with the line of code that doesn’t work highlighted in yellow. Copy that here.

Re: «run-time error ‘380’- invalid property value

yes — ‘ frmBook.Show ‘ is highlighted (full code below)

Sub Book()
‘ On Error GoTo Err_Book
If Sheets(«Staff»).[N1]

Re: «run-time error ‘380’- invalid property value

yes — ‘ frmBook.Show ‘ is highlighted (full code below)

Sub Book()
‘ On Error GoTo Err_Book
If Sheets(«Staff»).[N1]

Re: «run-time error ‘380’- invalid property value

Assuming both the sheet and the VBA projected are unprotected (if not, unprotect them), right click on the button that’s giving the error and click ‘Assign Macro’.

In the window that appears you’ll see a list of all macros within the project with the one that’s selected listed in the very top section. Click the ‘Edit’ button. Now you’ll see the page of code that the macro exists on. Copy the entire macro from SUB [macroname] to END SUB. Paste it in here and we’ll have a look.

if you really want to speed up problem solving, run the macro and on the error window click ‘Debug’. It’ll take you back to the code window with the line of code that doesn’t work highlighted in yellow. Copy that here.

yes — ‘ frmBook.Show ‘ is highlighted (full code below)

Last edited by 5haks; 08-11-2017 at 04:05 AM .

Источник

Runtime error 380 when trying to set RowSource property of ComboBox in VBA in Excel 2010 Pro x64

Der Hexer

New Member

Hello everyone,
I have a problem and I hope someone can help me with this. In the first place the problem sounds like one of the typical standard mistakes but I think in this case it is different.
I will try to explain, using an example what the problem is:

• I have two worksheets «Tests» and «Definitions». In the «Definitions»-Worksheet I created three columns, each containing different physical units.
• The names of these ranges are stored in the workbook space.
• Then I have a small table containing these three names: «Pressure, Temperature, Force»
• On the worksheet «Tests» I have a small table with two cells that use data validation.
• The first cells data validation is connected to the table containing the range names
• The second ones data validation is linked to the first cell by the INDIRECT macro.

Everything works fine in that worksheet. The user can pick the type of physical quantity (e.g. Pressure) in the first cell and the list of the second cell is than populated with pressure units.
Now I tried to use this table as base for my user form. So I placed two ComboBoxes, namely «ComboBox1» and «ComboBox2» on that form. I than initialized the ComboBoxes as follows:

Unfortunately ComboBox2 isn’t filled with the list of units according to the selection of ComboBox1, but an Error is raised instead:
Run-time error ‘380’: Could not set the RowSource property

The WS.Cells(5, 3).Validation.Formula1 is defined as =INDIRECT($C$4) .

So can someone tell me what the reason for that error is, because I think that the validation formula is correct so far.

Thank You in advance.

System specifications:
MS Windows 7 Ultimate x64
MS Excel Professional Plus 2010 (Version 14.0.7106.5003, x64)

Источник

Thread: [RESOLVED] Run-time error ‘380’: Could not set the value property. Invalid property value

Thread Tools

Display

[RESOLVED] Run-time error ‘380’: Could not set the value property. Invalid property value

I need some help below.

I have created an array with multiple columns and assigned into the combobox.list with the combo setting of:

The .BoundColumn and .Text Column are pointing to different column.

I am assigning the value into the combobox from the background in vba

After entering the number, it give me the error.

«Run-time error ‘380’: Could not set the value property. Invalid property value»

How can i resolve this issue?

Last edited by Hayanegg; Aug 29th, 2021 at 06:53 PM .

Re: Run-time error ‘380’: Could not set the value property. Invalid property value

This looks like it might come from VBA. Is that right?

Re: Run-time error ‘380’: Could not set the value property. Invalid property value

Re: Run-time error ‘380’: Could not set the value property. Invalid property value

Well I do not know about Excel VBA but in VB if you have the combo box style set to drop down list and try to set the text it must match one of the entries in the list for it to be valid.
Could it be that code is executing before the list is populated? or the value entered in the input box is not valid in the list?

Re: Run-time error ‘380’: Could not set the value property. Invalid property value

Thanks everyone for the help. I think i have found my error. When i set the array, my first column is an integer. Somehow when i set the combobox.value, it didnt recognize it is the same type, it must be text data type. After i change my first column array to text, it is working as expected.

• 
• VBForums
• Visual Basic
• Office Development
• [RESOLVED] Run-time error ‘380’: Could not set the value property. Invalid property value

Posting Permissions

• You may not post new threads
• You may not post replies
• You may not post attachments
• You may not edit your posts

• BB code is On
• Smilies are On
• [IMG] code is On
• [VIDEO] code is On
• HTML code is Off

Click Here to Expand Forum to Full Width

Advertiser Disclosure: Some of the products that appear on this site are from companies from which TechnologyAdvice receives compensation. This compensation may impact how and where products appear on this site including, for example, the order in which they appear. TechnologyAdvice does not include all companies or all types of products available in the marketplace.

Источник

Just came back to you… a bit long, but here’s the general thoughts…

This all goes in the code for the ActiveX Control:

Option Explicit

Sub ListBox1_Click()
    Dim rw As Range, strtext As String
    Dim arr As Variant, ai As Long, aj As Long 
    Dim brr As Variant, bi As Long, bj As Long
    strtext = "a" 'I used this when i did my testing
    ReDim arr(11, 0)
    For Each rw In Range("rng")
        If InStr(LCase(rw.Value), strtext) Then
            aj = findaj(arr)
            If Not IsEmpty(arr(1, aj)) Then
                aj = aj + 1
                ReDim Preserve arr(11, aj)
            End If
            For ai = 1 To 11
                arr(ai, aj) = Cells(rw.Row, ai + 1).Value
            Next ai
        End If
    Next rw
    ReDim brr(aj, 11)
    For bi = 0 To aj
        For bj = 1 To 11
            brr(bi, bj) = arr(bj, bi)
        Next bj
    Next bi
    ListBox1.ColumnCount = 11
    ListBox1.List = brr
End Sub

Private Function findaj(ByVal brr As Variant)
    Dim j As Long, meow As String
    j = 0
    Do While True
        On Error GoTo toll
        j = j + 1
        meow = brr(1, j)
    Loop
toll:
    findaj = j - 1
End Function

So there’s a lot going on here… I use two separate arrays, due to how redimming arrays works in VBA. You can only update the second element of the array, so arr(ai,aj) can only have aj updated when I redim preserve while adding a new row to my array.

So we make an array (arr) that captures the data based on VBA’s limitations. Within that array, we use a function, findaj, which intentionally traps an error to determine the appropriate last column in arr (i italicized the use of column, as it’s not truly the case, but it makes sense spatially when thinking about it).

You then convert the array arr to brr in the appropriate order of columns/rows.

Afterwards, you make your .list = brr.

Оценка «Excel Error 380»

Люди часто предпочитают ссылаться на «Excel Error 380» как на «ошибку времени выполнения», также известную как программная ошибка. Разработчики Microsoft Corporation обычно оценивают Microsoft Excel с помощью серии модулей для удаления ошибок в соответствии с отраслевыми стандартами. К сожалению, такие проблемы, как ошибка 380, могут быть пропущены, и программное обеспечение будет содержать эти проблемы при выпуске.

После установки программного обеспечения может появиться сообщение об ошибке «Excel Error 380». Если возникает ошибка 380, разработчикам будет сообщено об этой проблеме через уведомления об ошибках, которые встроены в Microsoft Excel. Затем они исправляют дефектные области кода и сделают обновление доступным для загрузки. Таким образом при выполнении обновления программного обеспечения Microsoft Excel, он будет содержать исправление для устранения проблем, таких как ошибка 380.

Когда происходит ошибка 380?

Проблема с исходным кодом Microsoft Excel приведет к этому «Excel Error 380», чаще всего на этапе запуска. Следующие три наиболее значимые причины ошибок выполнения ошибки 380 включают в себя:

Ошибка 380 Crash — Ошибка 380 может привести к полному замораживанию программы, что не позволяет вам что-либо делать. Обычно это происходит, когда Microsoft Excel не может обработать данные в удовлетворительной форме и поэтому не может получить ожидаемый результат.

Утечка памяти «Excel Error 380» — Когда Microsoft Excel обнаруживает утечку памяти, операционная система постепенно работает медленно, поскольку она истощает системные ресурсы. Это может быть вызвано неправильной конфигурацией программного обеспечения Microsoft Corporation или когда одна команда запускает цикл, который не может быть завершен.

Ошибка 380 Logic Error — логическая ошибка возникает, когда компьютер производит неправильный вывод, даже если вход правильный. Когда точность исходного кода Microsoft Corporation низкая, он обычно становится источником ошибок.

Большинство ошибок Excel Error 380 являются результатом отсутствия или повреждения версии файла, установленного Microsoft Excel. Как правило, решить проблему можно заменой файла Microsoft Corporation. В некоторых случаях реестр Windows пытается загрузить файл Excel Error 380, который больше не существует; в таких ситуациях рекомендуется запустить сканирование реестра, чтобы исправить любые недопустимые ссылки на пути к файлам.

Ошибки Excel Error 380

Частичный список ошибок Excel Error 380 Microsoft Excel:

• «Ошибка программного обеспечения Excel Error 380. «
• «Ошибка программного обеспечения Win32: Excel Error 380»
• «Извините за неудобства — Excel Error 380 имеет проблему. «
• «Файл Excel Error 380 не найден.»
• «Excel Error 380 не найден.»
• «Ошибка запуска программы: Excel Error 380.»
• «Файл Excel Error 380 не запущен.»
• «Excel Error 380 выйти. «
• «Excel Error 380: путь приложения является ошибкой. «

Обычно ошибки Excel Error 380 с Microsoft Excel возникают во время запуска или завершения работы, в то время как программы, связанные с Excel Error 380, выполняются, или редко во время последовательности обновления ОС. Выделение при возникновении ошибок Excel Error 380 имеет первостепенное значение для поиска причины проблем Microsoft Excel и сообщения о них вMicrosoft Corporation за помощью.

Эпицентры Excel Error 380 Головные боли

Проблемы Excel Error 380 вызваны поврежденным или отсутствующим Excel Error 380, недопустимыми ключами реестра, связанными с Microsoft Excel, или вредоносным ПО.

Особенно ошибки Excel Error 380 проистекают из:

• Недопустимый Excel Error 380 или поврежденный раздел реестра.
• Зазаражение вредоносными программами повредил файл Excel Error 380.
• Excel Error 380 ошибочно удален или злонамеренно программным обеспечением, не связанным с приложением Microsoft Excel.
• Другое приложение, конфликтующее с Excel Error 380 или другими общими ссылками.
• Microsoft Excel/Excel Error 380 поврежден от неполной загрузки или установки.

Продукт Solvusoft

Загрузка
WinThruster 2022 — Проверьте свой компьютер на наличие ошибок.

Совместима с Windows 2000, XP, Vista, 7, 8, 10 и 11

Установить необязательные продукты — WinThruster (Solvusoft) | Лицензия | Политика защиты личных сведений | Условия | Удаление

Hello everyone,
I have a problem and I hope someone can help me with this. In the first place the problem sounds like one of the typical standard mistakes but I think in this case it is different.
I will try to explain, using an example what the problem is:

• I have two worksheets «Tests» and «Definitions». In the «Definitions»-Worksheet I created three columns, each containing different physical units.
• The names of these ranges are stored in the workbook space.
• Then I have a small table containing these three names: «Pressure, Temperature, Force»
• On the worksheet «Tests» I have a small table with two cells that use data validation.
• The first cells data validation is connected to the table containing the range names
• The second ones data validation is linked to the first cell by the INDIRECT macro.

Everything works fine in that worksheet. The user can pick the type of physical quantity (e.g. Pressure) in the first cell and the list of the second cell is than populated with pressure units.
Now I tried to use this table as base for my user form. So I placed two ComboBoxes, namely «ComboBox1» and «ComboBox2» on that form. I than initialized the ComboBoxes as follows:

Code:

Private Sub UserForm_Initialize()
  [SIZE=2]'if the Worksheet wasn't set yet, than do it now[/SIZE]
  If WS Is Nothing Then
    Set WS = Worksheets("Tests")
  End If

  'set the RowSource as well as the ControlSource properties here
  Me.ComboBox1.RowSource = WS.Cells(4, 3).Validation.Formula1
  Me.ComboBox1.ControlSource = "'" + WS.Name + "'!" + WS.Cells(4, 3).Address
  Me.ComboBox2.ControlSource = "'" + WS.Name + "'!" + WS.Cells(5, 3).Address
End Sub

The Variable WS is declared globally on top of the module via

ComboBox1 is filled with «Pressure, Temperature, Force».
When the user selects one of these entries than ComboBox2 should be populated with the appropriate list of units:

Code:

Private Sub ComboBox1_Change()
  If WS Is Nothing Then Exit Sub

  On Error Resume Next

  'Write the selected value of the ComboBox1 directly into the target cell
  'to ensure, that ComboBox2 displays the appropriate list for that value NOW
  WS.Cells(4, 3).Value = ComboBox1.Text

  'reset the Err.Number
  Err.Number = 0

  'Try to set the RowSource property. In that case the Formula of the validation
  'uses an Excel-macro called "INDIRECT"
  Me.ComboBox2.RowSource = WS.Cells(5, 3).Validation.Formula1 'Often (but not always) Runtime Error 380 - but why?

  'If an error was raised than display the message here:
  If Not (Err.Number = 0) Then
    Call MsgBox(Err.Description, vbOKOnly + vbCritical, "Run-time-Error " + CStr(Err.Number))
  End If
End Sub

Unfortunately ComboBox2 isn’t filled with the list of units according to the selection of ComboBox1, but an Error is raised instead:
Run-time error ‘380’: Could not set the RowSource property

The WS.Cells(5, 3).Validation.Formula1 is defined as =INDIRECT($C$4).

So can someone tell me what the reason for that error is, because I think that the validation formula is correct so far.

Thank You in advance.

System specifications:
MS Windows 7 Ultimate x64
MS Excel Professional Plus 2010 (Version 14.0.7106.5003, x64)