Что за ошибка 438 в excel

Есть файл, работающий уже лет 7. На странице кнопка, при открытии проверяется контрольное поле и в зависимости от этого кнопка активна или нет (.Enable=True or False). Файл работал в нескольких версиях оффиса. Последнее время на 2010 и 2013 (основная версия). В результате последнего апдейта оффиса стало появляться сообщение, приведенное в описании темы. Кроме того, ранее в режиме конструктора можно было просмотреть свойства объекта (кнопки, к примеру) на листе, теперь же вызываются свойства листа, содержащего объект.
Проверил на соседней машине, оффис 2010 СП2 без последних апдейтов — все ОК. Выполнил обновление — картина та же, что описана выше…

Кто-нить сталкивался с подобной проблемой? Спасибо!

ЗЫ: Кстати, подобную проблему нашел в архиве за 2012, но на ХР у меня не возникало подобных ошибок…

http://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=8&TID=42275

I have a large Excel file where the data is retrieved from a database and exported to Excel where graphing is formed. The color of the different parts of the graph is controlled by a function in which you fill in a cell in another worksheet, and code reading of it. The problem is that the code will only work as long as there is one color, now I want to use my pattern, in this way, the Format Cells -> Fill -> Pattern style. I have tried to solve it in this way but i get Run-Time error 438 on the line with parentheses. All help are appreciated!

                Else
                   .FullSeriesCollection(i).ChartType = xlLineStacked
                   .FullSeriesCollection(i).Format.line.Weight = 2.5
                   .FullSeriesCollection(i).Format.line.ForeColor.rgb = _
                    getRGB(findInSub(setupLC, findInCategory(tables, _
                    Right(tbl.Name, Len(tbl.Name) - 3)).offset(0, 6), lineC, _
                    .SeriesCollection(i).Name))
                With Sheets("mysheet").Range("mycell")
             If .Cells.Interior.Pattern = -4142 Or .Cells.Interior.Pattern = 1 Then
             .FullSeriesCollection(i).Format.Fill.Patterned = .Interior.Color
             Else
              (.FullSeriesCollection(i).Format.Fill.Patterned = .Cells.DisplayFormat.Interior.PatternColor)
             End If
            End With
                End If
            End If
        Next i
    End With
End With

/ Johan

ВПР, excel, ошибка 438 «объект не поддерживает это свойство или метод»

у меня есть следующий код:

  • Он должен войти в лист с именем «Flash» и получить i-th 2-значное числовое значение и получить значение в столбце offset 4 справа от Activecell.
  • Затем перейдите на лист с именем «Sheet1» в той же книге и используйте функцию вертикального поиска, чтобы найти полученное значение и вернуть значение 4 столбца справа от этой ячейки.

Однако когда я запускаю скрипт ниже он перестает работать на :

MsgBox (ActiveSheet.VLookup(LookFor, «A:A», 4, True))

и VBA бросает error 438 object doesn’t support this property or method

кто-нибудь знает, почему есть исключение?

1 Ответ

У вас есть несколько проблем

  1. Вы должны ссылаться на диапазон как Range(«A:A») не «A:A»
  2. Если вы используете VLOOKUP вместо LOOKUP , то, как указано выше, вы должны ссылаться на диапазон из четырех столбцов, Range(«A:D»)
  3. Вам нужно обработать тестовое значение, которое не было найдено в

Ниже приведен пример кода для адаптации

Следовать за

Да, вы могли бы использовать

но я думаю, что Find чище, т. е.

Похожие вопросы:

Это мой первый раз, когда я делаю макрос excel, и я получил эту ошибку: Microsoft Excel макрос-Ошибка времени выполнения ‘438’ объект не поддерживает это свойство или метод Ошибка подсвечивается.

Я пытаюсь использовать C# tlb в качестве ссылки, а затем использовать этот код в VBA. Код VBA выглядит следующим образом: Sub startConsumer() Dim Consumer As Consumer.netConsumer Set Consumer = New.

Я пытаюсь запустить этот макрос, чтобы переместить вложение email из папки в моем почтовом ящике (называемом toolkit downloads) в папку на моем рабочем столе и переименовать вложение. Я получаю.

Я пытаюсь вызвать публичный макрос, хранящийся в ThisOutlookSession, из макроса excel. outlook открыт в любое время. Я нашел следующее: Звоните outlook VBA из Excel Мой код excel: Set myOutlookApp =.

отвечая на мой собственный вопрос здесь. Я проделал некоторую работу с JSON в Excel VBA и много выводов для публикации, которые я сделаю в формате Q & A.

Получение ошибки времени выполнения ‘438’: объект не поддерживает это свойство или метод Может ли кто-нибудь помочь мне отладить и найти, почему я получаю эту ошибку с помощью метода .Find? Sub.

Пожалуйста, помогите отладить: Ошибка выполнения ‘438’ объект не поддерживает это свойство или метод Я не уверен, почему моя функция ConvertToStdDateFormat (InputRange как диапазон) не принимает.

У меня есть этот код, в котором мне немного помогли, но я столкнулся с проблемой или с тем, что я считаю проблемой. В последнем поиске мне говорят, что объект не поддерживает это свойство или метод.

У меня есть следующий код в VBA я пишу в MS Project, который вызывает Excel spread sheet. Я перенастроил librays среды выполнения v15 для Project, Excel и Officein в этом порядке. Когда я запускаю.

Я новичок в VBA и у меня есть следующий код. Я хочу суммировать в переменной SumDef значения всех текстовых полей в кадре пользовательской формы, если textbox не является пустым. Но я получаю ошибка.

Ошибка 438 excel

Question

I have an Office 2007 Excel workbook which has some TextBoxes on the spreadsheet and some VBA code that access the TextBox.Text property. This workbook has been working for years, and still works for me if I open it with Office 2007 Excel, but if I open it with Office 2010 Excel, a VBA error dialogbox pops up:

run-time error ‘438’ Object doesn’t support this property or method

if I click [Debug] button on the dialog, the debugger highlights a line that assigns an empty string to the TextBox:

I already deleted all the .EXD files on the computer by doing a search from the c: root

but the error doesn’t do away when opened with Excel 2010. With Excel 2007 the workbook works and its forms work

I suspect this is caused by some Microsoft Update that changed the Office Forms somehow, and now the new version can’t interpret the forms created with Office 2007 .

Please help. I’ll appreciate it

  • Edited by e_man_online Friday, February 13, 2015 12:52 AM

Answers

Have your tried to use the tool provide in KB3025036 to fix this issue?

>> We have another pc where the same workbook does work. The curious thing is that both pc’s have Windows 7 SP1, and Office 10 installed.

Do you have all of the latest updates installed on both machines?

We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click HERE to participate the survey.

  • Proposed as answer by L.Hl Moderator Tuesday, February 24, 2015 8:10 AM
  • Marked as answer by Fei Xue Microsoft employee, Moderator Monday, March 2, 2015 1:36 PM

All replies

I still suspect that the update is the problem. What version of windows are you using? If win 7 then try the following.

Ensure you have all office programs closed. Can close any other programs that are not required but not essential.

Click the Windows colored ball bottom left of screen.

In the Search programs and files box enter the following and then press Enter.

Select all of the files and folders and then delete.

If you get a message re unable to delete any of them because of Admin permission or in use etc (and you will probably get quite a few) then just click the Skip button.

Provided you entered %temp% correctly then you won’t do any harm deleting all the files that can be deleted because they are only temporary files and any that are required get re-created when you open the applications.

If using Win 8 or 8.1 then just click the magnifying glass icon (Search icon) on the main screen and type %temp% in the field that gets displayed and then press Enter (don’t click the magnifying glass icon) and then as above.

I did as instructed by OssieMac, but the problem persists.

We have another pc where the same workbook does work. The curious thing is that both pc’s have Windows 7 SP1, and Office 10 installed.

Any help will be appreciated. TIA

Have your tried to use the tool provide in KB3025036 to fix this issue?

>> We have another pc where the same workbook does work. The curious thing is that both pc’s have Windows 7 SP1, and Office 10 installed.

Do you have all of the latest updates installed on both machines?

We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click HERE to participate the survey.

  • Proposed as answer by L.Hl Moderator Tuesday, February 24, 2015 8:10 AM
  • Marked as answer by Fei Xue Microsoft employee, Moderator Monday, March 2, 2015 1:36 PM

Jeffrey was right. The old laptop had a ton of updates, but when infrastructure set up the new laptop they just installed Office 10 w/o any updates. Nobody foresaw that installing a brand new software out of the box would break an essential component, like the Office forms or VBA code. So after almost 1000 MB of updates, the VBA code started to run as expected w/o errors.

I can’t understand what’s going on with Microsoft: they’re not supporting older versions. like XP. gone! but we’re all using it. who cares. gone! Microsoft is not keeping backwards compatibility (just try to move an AnyCPU project that used to build and run in Win 32 bit, and try to build it in Win 64 bit it’s DLL nightmare all over again with the dreaded «bad image format exception»). On top of all that they’ve broken the Office forms and VBA code with several of the updates. What’s going on? Too many new people? Missing Gates? Too much Opening the Software and losing control? Having inexperienced / outside people writing code? Depending too much on 3rd party? I wasted 5 days on this! Get your act together Microsoft!

Thanks to Jeffrey and OsieMac for your help

Как исправить ошибку Microsoft Excel 438

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

Признаки ошибки 438

  • Появляется сообщение «Ошибка 438» и окно активной программы вылетает.
  • Ваш компьютер часто прекращает работу после отображения ошибки 438 при запуске определенной программы.
  • Отображается “Excel Error 438”.
  • Windows медленно работает и медленно реагирует на ввод с мыши или клавиатуры.
  • Компьютер периодически «зависает» на несколько секунд.

Такие сообщения об ошибках 438 могут появляться в процессе установки программы, когда запущена программа, связанная с Microsoft Corporation (например, Microsoft Excel), при запуске или завершении работы Windows, или даже при установке операционной системы Windows. Отслеживание момента появления ошибки 438 является важной информацией при устранении проблемы.

Причины ошибки 438

  • Поврежденная загрузка или неполная установка программного обеспечения Microsoft Excel.
  • Повреждение реестра Microsoft Excel из-за недавнего изменения программного обеспечения (установка или удаление), связанного с Microsoft Excel.
  • Вирус или вредоносное ПО, которые повредили файл Windows или связанные с Microsoft Excel программные файлы.
  • Другая программа злонамеренно или по ошибке удалила файлы, связанные с Microsoft Excel.

Ошибки типа Ошибки во время выполнения, такие как «Ошибка 438», могут быть вызваны целым рядом факторов, поэтому важно устранить каждую из возможных причин, чтобы предотвратить повторение ошибки в будущем.

Ошибки во время выполнения в базе знаний

star rating here

Как исправить ошибку Microsoft Excel 438

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

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

Шаг 1: Восстановить записи реестра, связанные с ошибкой 438

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

В связи с подобным риском мы настоятельно рекомендуем использовать надежные инструменты очистки реестра, такие как WinThruster [Загрузить] (разработанный Microsoft Gold Certified Partner), чтобы просканировать и исправить любые проблемы, связанные с Ошибка 438. Используя очистку реестра [Загрузить], вы сможете автоматизировать процесс поиска поврежденных записей реестра, ссылок на отсутствующие файлы (например, вызывающих ошибку %%error_name%%) и нерабочих ссылок внутри реестра. Перед каждым сканированием автоматически создается резервная копия, позволяющая отменить любые изменения одним кликом и защищающая вас от возможного повреждения компьютера. Самое приятное, что устранение ошибок реестра [Загрузить] может резко повысить скорость и производительность системы.

Предупреждение: Если вы не являетесь опытным пользователем ПК, мы НЕ рекомендуем редактирование реестра Windows вручную. Некорректное использование Редактора реестра может привести к серьезным проблемам и потребовать переустановки Windows. Мы не гарантируем, что неполадки, являющиеся результатом неправильного использования Редактора реестра, могут быть устранены. Вы пользуетесь Редактором реестра на свой страх и риск.

Перед тем, как вручную восстанавливать реестр Windows, необходимо создать резервную копию, экспортировав часть реестра, связанную с Ошибка 438 (например, Microsoft Excel):

  1. Нажмите на кнопку Начать.
  2. Введите «command» в строке поиска. ПОКА НЕ НАЖИМАЙТЕENTER!
  3. Удерживая клавиши CTRL-Shift на клавиатуре, нажмите ENTER.
  4. Будет выведено диалоговое окно для доступа.
  5. Нажмите Да.
  6. Черный ящик открывается мигающим курсором.
  7. Введите «regedit» и нажмите ENTER.
  8. В Редакторе реестра выберите ключ, связанный с Ошибка 438 (например, Microsoft Excel), для которого требуется создать резервную копию.
  9. В меню Файл выберите Экспорт.
  10. В списке Сохранить в выберите папку, в которую вы хотите сохранить резервную копию ключа Microsoft Excel.
  11. В поле Имя файла введите название файла резервной копии, например «Microsoft Excel резервная копия».
  12. Убедитесь, что в поле Диапазон экспорта выбрано значение Выбранная ветвь.
  13. Нажмите Сохранить.
  14. Файл будет сохранен с расширением .reg.
  15. Теперь у вас есть резервная копия записи реестра, связанной с Microsoft Excel.

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

Мы не несем никакой ответственности за результаты действий, совершенных по инструкции, приведенной ниже — вы выполняете эти задачи на свой ​​страх и риск.

Ошибка 438 excel

Question

I have an Office 2007 Excel workbook which has some TextBoxes on the spreadsheet and some VBA code that access the TextBox.Text property. This workbook has been working for years, and still works for me if I open it with Office 2007 Excel, but if I open it with Office 2010 Excel, a VBA error dialogbox pops up:

run-time error ‘438’ Object doesn’t support this property or method

if I click [Debug] button on the dialog, the debugger highlights a line that assigns an empty string to the TextBox:

I already deleted all the .EXD files on the computer by doing a search from the c: root

but the error doesn’t do away when opened with Excel 2010. With Excel 2007 the workbook works and its forms work

I suspect this is caused by some Microsoft Update that changed the Office Forms somehow, and now the new version can’t interpret the forms created with Office 2007 .

Please help. I’ll appreciate it

  • Edited by e_man_online Friday, February 13, 2015 12:52 AM

Answers

Have your tried to use the tool provide in KB3025036 to fix this issue?

>> We have another pc where the same workbook does work. The curious thing is that both pc’s have Windows 7 SP1, and Office 10 installed.

Do you have all of the latest updates installed on both machines?

We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click HERE to participate the survey.

  • Proposed as answer by L.Hl Moderator Tuesday, February 24, 2015 8:10 AM
  • Marked as answer by Fei Xue Microsoft employee, Moderator Monday, March 2, 2015 1:36 PM

All replies

I still suspect that the update is the problem. What version of windows are you using? If win 7 then try the following.

Ensure you have all office programs closed. Can close any other programs that are not required but not essential.

Click the Windows colored ball bottom left of screen.

In the Search programs and files box enter the following and then press Enter.

Select all of the files and folders and then delete.

If you get a message re unable to delete any of them because of Admin permission or in use etc (and you will probably get quite a few) then just click the Skip button.

Provided you entered %temp% correctly then you won’t do any harm deleting all the files that can be deleted because they are only temporary files and any that are required get re-created when you open the applications.

If using Win 8 or 8.1 then just click the magnifying glass icon (Search icon) on the main screen and type %temp% in the field that gets displayed and then press Enter (don’t click the magnifying glass icon) and then as above.

I did as instructed by OssieMac, but the problem persists.

We have another pc where the same workbook does work. The curious thing is that both pc’s have Windows 7 SP1, and Office 10 installed.

Any help will be appreciated. TIA

Have your tried to use the tool provide in KB3025036 to fix this issue?

>> We have another pc where the same workbook does work. The curious thing is that both pc’s have Windows 7 SP1, and Office 10 installed.

Do you have all of the latest updates installed on both machines?

We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click HERE to participate the survey.

  • Proposed as answer by L.Hl Moderator Tuesday, February 24, 2015 8:10 AM
  • Marked as answer by Fei Xue Microsoft employee, Moderator Monday, March 2, 2015 1:36 PM

Jeffrey was right. The old laptop had a ton of updates, but when infrastructure set up the new laptop they just installed Office 10 w/o any updates. Nobody foresaw that installing a brand new software out of the box would break an essential component, like the Office forms or VBA code. So after almost 1000 MB of updates, the VBA code started to run as expected w/o errors.

I can’t understand what’s going on with Microsoft: they’re not supporting older versions. like XP. gone! but we’re all using it. who cares. gone! Microsoft is not keeping backwards compatibility (just try to move an AnyCPU project that used to build and run in Win 32 bit, and try to build it in Win 64 bit it’s DLL nightmare all over again with the dreaded «bad image format exception»). On top of all that they’ve broken the Office forms and VBA code with several of the updates. What’s going on? Too many new people? Missing Gates? Too much Opening the Software and losing control? Having inexperienced / outside people writing code? Depending too much on 3rd party? I wasted 5 days on this! Get your act together Microsoft!

Thanks to Jeffrey and OsieMac for your help

При запуске надстройки, появляется сообщение об ошибке

Рассмотрим несколько наиболее часто встречающихся ошибок.

при открытии файла программы, выскакивает сообщение
Compile error in hidden module: mod_*

Основная причина такой ошибки, — вы пытаетесь запустить надстройку в Excel для MAC

Надстройки работают только в Excel и только под Windows, — потому, если вы являетесь счастливым обладателем Мака,
и хотите использовать мои надстройки, — установите Parallels, и запускайте надстройки из-под Windows
(проверено: на Маке, под Parallels, всё работает)

Возможна другая причина ошибки, — вы используете старую версию Office (например, Excel 2002/XP)

Все надстройки гарантированно работают (если это не оговорено отдельно) в версиях Excel, начиная с 2003.
Установите офисный пакет посвежее, — и всё заработает.

Если эта ошибка появляется в надстройке Parser — ознакомьтесь с этой инструкцией

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

Обычно я устраняю подобные проблемы в течение нескольких минут (заливая на сайт исправленную версию файла), — но, бывает, пользователи успевают скачать некорректный файл.
Если у вас используется Windows и Excel версии от 2003 и выше, а ошибка «Compile error in hidden module», тем не менее, появляется, — сразу сообщите мне об этом любым способом (по Скайпу или почте)

при открытии файла программы, появляется сообщение
Для этой книги недоступны проект VBA, элементы управления ActiveX и остальные программные средства

Если вы увидели такое сообщение, — попробуйте запустить любой другой файл с макросами
(например, любую другую программу с моего сайта)

Если и другие файлы с макросами вызывают такую ошибку, — значит, у вас не установлен (или некорректно установлен) компонент Office «Microsoft Visual Basic»

Такое бывает, когда при установке Office пользователь сам выбирает нужные ему компоненты, часто отключая пункт «средства Office»,
среди подпунктов которого и находится «Microsoft Visual Basic» — модуль поддержки макросов в офисных приложениях.

Решается проблема просто, — надо доустановить указанный компонент.
Для этого, заходим в Панель управления — Установка и удаление программ, находим и выделяем в списке программ Microsoft Office, нажимаем кнопку Изменить, — и в разделе «средства Office» для компонента «Microsoft Visual Basic» выбираем вариант «Запускать с моего компьютера».
Несколько минут, — и ваш Excel научится понимать макросы. После этого, ошибка перестанет появляться.

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

В этом случае, удалите файл надстройки, и заново скачайте последнюю версию со страницы программы.

Andrushka252

0 / 0 / 0

Регистрация: 26.10.2019

Сообщений: 8

1

Excel

26.10.2019, 16:52. Показов 10671. Ответов 13

Метки нет (Все метки)


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

Добрый день,написал макрос для копирования информации с одного листа на другой,но он не работает (
Помогите пожалуйста,я в этом деле чайник

Вот сам макрос:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub копи()
 
AllRecs = Application.WorksheetFunction.CountA(Sheets("табл2").Range("B:B"))
cAllRecs = Application.WorksheetFunction.CountA(Sheets("лист3").Range("B:B"))
    For CurRec = Лист3 To AllRecs
    AllCrit = Sheets("табл2").Cells(CurRec, 2)
        For cRecs = Лист3 To cAllRecs
           CheckKrit = Sheets("табл3").Cells(cRecs, 9)
    If AllCrit = CheckKrit Then
      Sheets("лист3").Cells(cRecs, 6) = Sheets("табл2").Cells(CurRec, 1)
      Sheets("лист3").Cells(cRecs, 7) = Sheets("табл2").Cells(CurRec, 3)
    End If
   Next cRecs
 Next CurRec
End Sub

Миниатюры

Не работает макрос(ошибка 438)
 



0



6875 / 2807 / 533

Регистрация: 19.10.2012

Сообщений: 8,562

26.10.2019, 17:09

2

Копать отсюда и до обеда?
С какого в коде присутствует Лист3?



0



0 / 0 / 0

Регистрация: 26.10.2019

Сообщений: 8

26.10.2019, 17:19

 [ТС]

3

Это название страницы

Добавлено через 1 минуту
Hugo121,могу поменять,это важно?



0



Hugo121

6875 / 2807 / 533

Регистрация: 19.10.2012

Сообщений: 8,562

26.10.2019, 17:22

4

Поясните — что хотели сказать тут:

Visual Basic
1
For cRecs = Лист3 To cAllRecs

P.S. Вообще это не название страницы. Это теоретически могла бы быть переменная, содержащая название страницы — но это не тот случай…



0



6875 / 2807 / 533

Регистрация: 19.10.2012

Сообщений: 8,562

26.10.2019, 17:27

6

Данных вообще сколько строк? Потому что если их много — это всё желательно делать иначе (это я не про ошибку про ошибку, которая правда пока и не особо понятно на какой строке ).

Добавлено через 1 минуту

Цитата
Сообщение от Andrushka252
Посмотреть сообщение

могу поменять,это важно?

— да не, пишите код как хотите



0



0 / 0 / 0

Регистрация: 26.10.2019

Сообщений: 8

26.10.2019, 17:28

 [ТС]

7

3 столбца и там и там,а строк может быть сколько угодно,но да их много



0



6875 / 2807 / 533

Регистрация: 19.10.2012

Сообщений: 8,562

26.10.2019, 17:32

8

Цитата
Сообщение от Andrushka252
Посмотреть сообщение

я брал за образец макрос из этого форума

— и откуда тогда взялось в коде Лист3 в том месте?

Не по теме:

Я пока пас, ушёл…



0



0 / 0 / 0

Регистрация: 26.10.2019

Сообщений: 8

26.10.2019, 17:35

 [ТС]

9

Ну если в том случае переносится информация с листа 1 на 2,то в моём с Табл2 на лист3.
Как по мне,всё логично,но я повторюсь,что я чайник.



0



208 / 183 / 43

Регистрация: 02.08.2019

Сообщений: 586

Записей в блоге: 23

26.10.2019, 17:50

10

Andrushka252, Привет! выложи файл, и опиши что хочешь сделать?



0



0 / 0 / 0

Регистрация: 26.10.2019

Сообщений: 8

26.10.2019, 18:57

 [ТС]

11

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



0



0 / 0 / 0

Регистрация: 26.10.2019

Сообщений: 8

26.10.2019, 19:01

 [ТС]

12

art1289, Вот листы



0



6875 / 2807 / 533

Регистрация: 19.10.2012

Сообщений: 8,562

26.10.2019, 21:39

13

Цитата
Сообщение от Andrushka252
Посмотреть сообщение

Вот листы

— я вернулся. А файла так всё ещё и нет… Есть мутные картинки, с которых кто-то должен перерисовать инфу в файл.
Вообще вроде как должно хватить записи в макрос применения ВПР() (не вникал, ибо описание ТЗ нет), но если и впрямь тысячи — то лучше конечно макрос на словаре.



0



viktor424

0 / 0 / 0

Регистрация: 31.10.2019

Сообщений: 1

31.10.2019, 20:03

14

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
' Кто автор не помню но макрос работает 
 
Option Explicit
Option Base 1
 
Sub СамиМыНеМестные() ' в смысле - сбор данных с нескольких листов '
    Const ColName As String = "A"
    Const FirstRow As Long = 1
    Const M As Long = 2 ' Columns.Count '
    '
    Dim Sh As Worksheet, Rng As Range
    Dim Arr1, TranspArr(), TotalArr()
    Dim LastRow As Long
    Dim N As Long, N1 As Long
    Dim I As Long, J As Long, K As Long
    Dim A As String
    '
    Application.ScreenUpdating = False
    For Each Sh In ThisWorkbook.Worksheets
        GoSub RoutineGetRng
        A = Rng.Address(0, 0)
        If Sh.Name = "Сборка" Then
            Rng.ClearContents
        Else
            Arr1 = Rng.Value
            N = N + N1
            ReDim Preserve TranspArr(M, N)
            For I = 1 To N1
                K = N - N1 + I
                For J = 1 To M
                    TranspArr(J, K) = Arr1(I, J)
                Next
            Next
        End If
    Next
    ReDim TotalArr(N, M)
    For J = 1 To M
        For I = 1 To N
            TotalArr(I, J) = TranspArr(J, I)
        Next
    Next
    Set Sh = Sheets("Сборка")
    Sh.Range(ColName & FirstRow).Resize(N, M).Value = TotalArr
    Application.ScreenUpdating = True
    Exit Sub
RoutineGetRng:
    With Sh
        LastRow = .Cells(.Rows.Count, ColName).End(xlUp).Row
        Set Rng = Range(.Cells(FirstRow, ColName), .Cells(LastRow, ColName)).Resize(, M)
    End With
    N1 = Rng.Rows.Count
    Return
End Sub

Вложения

Тип файла: xls Сбор данных с нескольких листов.xls (34.5 Кб, 22 просмотров)



0



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

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

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

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

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

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

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

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

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

Fix Ошибка Excel 438 (Error Ошибка 438)
(Только для примера)

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

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

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

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

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

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

Обратите внимание: ни ErrorVault.com, ни его авторы не несут ответственности за результаты действий, предпринятых при использовании любого из методов ремонта, перечисленных на этой странице — вы выполняете эти шаги на свой страх и риск.

Метод 1 — Закройте конфликтующие программы

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

  • Откройте диспетчер задач, одновременно нажав Ctrl-Alt-Del. Это позволит вам увидеть список запущенных в данный момент программ.
  • Перейдите на вкладку «Процессы» и остановите программы одну за другой, выделив каждую программу и нажав кнопку «Завершить процесс».
  • Вам нужно будет следить за тем, будет ли сообщение об ошибке появляться каждый раз при остановке процесса.
  • Как только вы определите, какая программа вызывает ошибку, вы можете перейти к следующему этапу устранения неполадок, переустановив приложение.

Метод 2 — Обновите / переустановите конфликтующие программы

Использование панели управления

  • В Windows 7 нажмите кнопку «Пуск», затем нажмите «Панель управления», затем «Удалить программу».
  • В Windows 8 нажмите кнопку «Пуск», затем прокрутите вниз и нажмите «Дополнительные настройки», затем нажмите «Панель управления»> «Удалить программу».
  • Для Windows 10 просто введите «Панель управления» в поле поиска и щелкните результат, затем нажмите «Удалить программу».
  • В разделе «Программы и компоненты» щелкните проблемную программу и нажмите «Обновить» или «Удалить».
  • Если вы выбрали обновление, вам просто нужно будет следовать подсказке, чтобы завершить процесс, однако, если вы выбрали «Удалить», вы будете следовать подсказке, чтобы удалить, а затем повторно загрузить или использовать установочный диск приложения для переустановки. программа.

Использование других методов

  • В Windows 7 список всех установленных программ можно найти, нажав кнопку «Пуск» и наведя указатель мыши на список, отображаемый на вкладке. Вы можете увидеть в этом списке утилиту для удаления программы. Вы можете продолжить и удалить с помощью утилит, доступных на этой вкладке.
  • В Windows 10 вы можете нажать «Пуск», затем «Настройка», а затем — «Приложения».
  • Прокрутите вниз, чтобы увидеть список приложений и функций, установленных на вашем компьютере.
  • Щелкните программу, которая вызывает ошибку времени выполнения, затем вы можете удалить ее или щелкнуть Дополнительные параметры, чтобы сбросить приложение.

Метод 3 — Обновите программу защиты от вирусов или загрузите и установите последнюю версию Центра обновления Windows.

Заражение вирусом, вызывающее ошибку выполнения на вашем компьютере, необходимо немедленно предотвратить, поместить в карантин или удалить. Убедитесь, что вы обновили свою антивирусную программу и выполнили тщательное сканирование компьютера или запустите Центр обновления Windows, чтобы получить последние определения вирусов и исправить их.

Метод 4 — Переустановите библиотеки времени выполнения

Вы можете получить сообщение об ошибке из-за обновления, такого как пакет MS Visual C ++, который может быть установлен неправильно или полностью. Что вы можете сделать, так это удалить текущий пакет и установить новую копию.

  • Удалите пакет, выбрав «Программы и компоненты», найдите и выделите распространяемый пакет Microsoft Visual C ++.
  • Нажмите «Удалить» в верхней части списка и, когда это будет сделано, перезагрузите компьютер.
  • Загрузите последний распространяемый пакет от Microsoft и установите его.

Метод 5 — Запустить очистку диска

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

  • Вам следует подумать о резервном копировании файлов и освобождении места на жестком диске.
  • Вы также можете очистить кеш и перезагрузить компьютер.
  • Вы также можете запустить очистку диска, открыть окно проводника и щелкнуть правой кнопкой мыши по основному каталогу (обычно это C :)
  • Щелкните «Свойства», а затем — «Очистка диска».

Метод 6 — Переустановите графический драйвер

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

  • Откройте диспетчер устройств и найдите драйвер видеокарты.
  • Щелкните правой кнопкой мыши драйвер видеокарты, затем нажмите «Удалить», затем перезагрузите компьютер.

Метод 7 — Ошибка выполнения, связанная с IE

Если полученная ошибка связана с Internet Explorer, вы можете сделать следующее:

  1. Сбросьте настройки браузера.
    • В Windows 7 вы можете нажать «Пуск», перейти в «Панель управления» и нажать «Свойства обозревателя» слева. Затем вы можете перейти на вкладку «Дополнительно» и нажать кнопку «Сброс».
    • Для Windows 8 и 10 вы можете нажать «Поиск» и ввести «Свойства обозревателя», затем перейти на вкладку «Дополнительно» и нажать «Сброс».
  2. Отключить отладку скриптов и уведомления об ошибках.
    • В том же окне «Свойства обозревателя» можно перейти на вкладку «Дополнительно» и найти пункт «Отключить отладку сценария».
    • Установите флажок в переключателе.
    • Одновременно снимите флажок «Отображать уведомление о каждой ошибке сценария», затем нажмите «Применить» и «ОК», затем перезагрузите компьютер.

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

Другие языки:

How to fix Error 438 (Excel Error 438) — Error 438: Microsoft Excel has encountered a problem and needs to close. We are sorry for the inconvenience.
Wie beheben Fehler 438 (Excel-Fehler 438) — Fehler 438: Microsoft Excel hat ein Problem festgestellt und muss geschlossen werden. Wir entschuldigen uns für die Unannehmlichkeiten.
Come fissare Errore 438 (Errore di Excel 438) — Errore 438: Microsoft Excel ha riscontrato un problema e deve essere chiuso. Ci scusiamo per l’inconveniente.
Hoe maak je Fout 438 (Excel-fout 438) — Fout 438: Microsoft Excel heeft een probleem ondervonden en moet worden afgesloten. Excuses voor het ongemak.
Comment réparer Erreur 438 (Erreur Excel 438) — Erreur 438 : Microsoft Excel a rencontré un problème et doit se fermer. Nous sommes désolés du dérangement.
어떻게 고치는 지 오류 438 (엑셀 오류 438) — 오류 438: Microsoft Excel에 문제가 발생해 닫아야 합니다. 불편을 드려 죄송합니다.
Como corrigir o Erro 438 (Erro Excel 438) — Erro 438: O Microsoft Excel encontrou um problema e precisa fechar. Lamentamos o inconveniente.
Hur man åtgärdar Fel 438 (Excel-fel 438) — Fel 438: Microsoft Excel har stött på ett problem och måste avslutas. Vi är ledsna för besväret.
Jak naprawić Błąd 438 (Błąd programu Excel 438) — Błąd 438: Microsoft Excel napotkał problem i musi zostać zamknięty. Przepraszamy za niedogodności.
Cómo arreglar Error 438 (Error de Excel 438) — Error 438: Microsoft Excel ha detectado un problema y debe cerrarse. Lamentamos las molestias.

The Author Об авторе: Фил Харт является участником сообщества Microsoft с 2010 года. С текущим количеством баллов более 100 000 он внес более 3000 ответов на форумах Microsoft Support и создал почти 200 новых справочных статей в Technet Wiki.

Следуйте за нами: Facebook Youtube Twitter

Последнее обновление:

02/12/21 10:28 : Пользователь Windows 10 проголосовал за то, что метод восстановления 1 работает для него.

Рекомендуемый инструмент для ремонта:

Этот инструмент восстановления может устранить такие распространенные проблемы компьютера, как синие экраны, сбои и замораживание, отсутствующие DLL-файлы, а также устранить повреждения от вредоносных программ/вирусов и многое другое путем замены поврежденных и отсутствующих системных файлов.

ШАГ 1:

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

ШАГ 2:

Нажмите на Start Scan и позвольте ему проанализировать ваше устройство.

ШАГ 3:

Нажмите на Repair All, чтобы устранить все обнаруженные проблемы.

СКАЧАТЬ СЕЙЧАС

Совместимость

Требования

1 Ghz CPU, 512 MB RAM, 40 GB HDD
Эта загрузка предлагает неограниченное бесплатное сканирование ПК с Windows. Полное восстановление системы начинается от $19,95.

ID статьи: ACX04264RU

Применяется к: Windows 10, Windows 8.1, Windows 7, Windows Vista, Windows XP, Windows 2000

Совет по увеличению скорости #96

Отключение помощника по совместимости программ:

Помощник по совместимости программ — это инструмент, который постоянно проверяет наличие проблем совместимости при каждом запуске программы. Если вы опытный пользователь и знаете, что делаете, вы можете отключить эту функцию. Вы можете сэкономить вычислительную мощность, что может ускорить работу вашего ПК.

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

  • Remove From My Forums
  • Question

  • Hello,

    I have an Office 2007 Excel workbook which has some TextBoxes on the spreadsheet and some VBA code that access the TextBox.Text property. This workbook has been working for years, and still works for me if I open it with Office 2007 Excel, but
    if I open it with Office 2010 Excel, a VBA error dialogbox pops up:

    run-time error ‘438’ Object doesn’t support this property or method

    if I click [Debug] button on the dialog, the debugger highlights a line that assigns an empty string to the TextBox:

    TextBox1.Text = «»

    I already deleted all the .EXD files on the computer by doing a search from the c: root

    but the error doesn’t do away when opened with Excel 2010. With Excel 2007 the workbook works and its forms work

    I suspect this is caused by some Microsoft Update that changed the Office Forms somehow, and now the new version can’t interpret the forms created with Office 2007 ???

    Please help!… I’ll appreciate it

    Sincerely,

    Richard

    • Edited by

      Friday, February 13, 2015 12:52 AM

Answers

  • Hi Richard,

    Have your tried to use the tool provide in
    KB3025036 to fix this issue?

    >> We have another pc where the same workbook does work. The curious thing is that both pc’s have Windows 7  SP1, and Office 10 installed.

    Do you have all of the latest updates installed on both machines?

    Regards,

    Jeffrey


    We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.

    Click
    HERE to participate the survey.

    • Proposed as answer by
      L.Hl
      Tuesday, February 24, 2015 8:10 AM
    • Marked as answer by
      Fei XueMicrosoft employee
      Monday, March 2, 2015 1:36 PM

Like this post? Please share to your friends:
  • Что за таблица символов в word
  • Что за масло formula excel
  • Что за стойка kyb excel g
  • Что за лицо в excel
  • Что за стиль основной в word