Vba excel error 2015

	Номер ошибки:	Ошибка 2015
Название ошибки:	Excel Error 2015
Описание ошибки:	Ошибка 2015: Возникла ошибка в приложении Microsoft Excel. Приложение будет закрыто. Приносим извинения за неудобства.
Разработчик:	Microsoft Corporation
Программное обеспечение:	Microsoft Excel
Относится к:	Windows XP, Vista, 7, 8, 10, 11

Проверка «Excel Error 2015»

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

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

Почему возникает ошибка времени выполнения 2015?

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

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

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

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

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

Классические проблемы Excel Error 2015

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

• «Ошибка Excel Error 2015. «
• «Недопустимый файл Excel Error 2015. «
• «Извините, Excel Error 2015 столкнулся с проблемой. «
• «Не удается найти Excel Error 2015»
• «Excel Error 2015 не найден.»
• «Ошибка запуска программы: Excel Error 2015.»
• «Excel Error 2015 не работает. «
• «Excel Error 2015 остановлен. «
• «Неверный путь к программе: Excel Error 2015. «

Проблемы Microsoft Excel Excel Error 2015 возникают при установке, во время работы программного обеспечения, связанного с Excel Error 2015, во время завершения работы или запуска или менее вероятно во время обновления операционной системы. Запись ошибок Excel Error 2015 внутри Microsoft Excel имеет решающее значение для обнаружения неисправностей электронной Windows и ретрансляции обратно в Microsoft Corporation для параметров ремонта.

Источник ошибок Excel Error 2015

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

В частности, проблемы с Excel Error 2015, вызванные:

• Недопустимые разделы реестра Excel Error 2015/повреждены.
• Вирус или вредоносное ПО, которые повредили файл Excel Error 2015 или связанные с Microsoft Excel программные файлы.
• Другая программа злонамеренно или по ошибке удалила файлы, связанные с Excel Error 2015.
• Другое программное приложение, конфликтующее с Excel Error 2015.
• Неполный или поврежденный Microsoft Excel (Excel Error 2015) из загрузки или установки.

Продукт Solvusoft

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

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

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

Функция VBA Evaluate не работает. Ошибка 2015

Я пытаюсь подключить OsiSoft Pi Datalink к Excel VBA и поместить результат в переменную для дальнейшей обработки VBA.

При запуске команды в ячейке Excel она работает нормально, но когда я пытаюсь запустить ее в VBA, я получаю «Ошибка 2015».

Это код, который отлично работает в ячейке:

Преобразование этого в VBA:

Я проверил ссылки VBA, как показано ниже, и они также кажутся правильными:

В руководствах пользователя или доступной информации, которую я мог бы найти в Интернете, нет информации о правильном подключении VBA к Pi Datalink.

Я нашел это в stackoverflow, но не объяснил проблему:

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

Заранее спасибо за вашу помощь

это давняя проблема / ограничение оценки. Если длина возвращаемого значения> 255 символов, появляется ошибка 2015. Насколько мне известно, теперь есть обходной путь, по крайней мере, с Оценивать. Проверьте, включена ли библиотека COM, т.е. предоставляет / разрешает использование методов в VBA напрямую.

@cyboashu Ты имел ввиду есть обходной путь нет?

Я ничего не знаю, но это только я. (и еще несколько) 🙂 Вижу, я написал сейчас же вместо нет, длинный день и мало пива !!

Большое спасибо за Ваш ответ. Я разговариваю с OsiSoft, поэтому проверю, включен ли он.

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

При использовании Evaluate вы должны передать строку именно так, как вы хотите, чтобы она оценивалась. Ваш код передает имя переменных вместо их значений. Если бы я мог упростить пример. Следующий код вернет ошибку (в данном случае 2029, это ошибка #NAME):

В этом примере вам нужно будет создать строку, чтобы вычислить стоимость txt , например:

Я подозреваю, что это причина, потому что, если в требуемой строке отсутствуют кавычки, Evaluate вернет ошибку 2015. Это могло бы сделать это, например:

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

Спасибо! Я попробую это сделать, когда снова получу доступ к базе данных.

Источник

Dutch Gemini’s Weblog Pages

August 7, 2009

Error 2015 using Application.Evaluate in Excel VBA

Since a while I am using Application.Evaluate because of the fact that you can craft formulas as strings and have Excel VBA compute them for you.

Only recently I discovered that some of the cells in a workbook contained #VALUE? instead of a sound value. After some investigation I found out that, without raising any error at application level (in VBA), the Application.Evaluate function failed consistently with this error whenever a particular condition occurred.

This condition is related to limits in the underlying software layer of Excel, the one that runs Application.Evaluate.

Apparently this particular error occurs when the parsed function returns a string value having a length above 255 characters. As long as the length of the string is less than or equal to 255 characters, the return value is the desired string. Above 255 characters, the function “crashes”.

In my case, I was not immediately attended on this error because I used a Variant to store the returned value from Application.Evaluate (sample code):

If I would have used a String to store the value, I would probably have gotten a “Runtime Error 13 – Type Mismatch” with Excel booming out of my routine without any debugging possibility (sample code):

To catch problems, I now completed code with an If statement (sample code):

There seem to be more Excel functions that suffer from this 255 character limit, but could not establish which. For the moment, I will apply some workarounds until it gets solved by Microsoft.

Источник

Error 2015 with Application.Evaluate

LinkBack

Thread Tools

Rate This Thread

Display

Error 2015 with Application.Evaluate

If someone could help me correct my VBA procedure. I’m lost and I don’t know
how to fix it. I get #value error.

Here’s an example of my spreadsheet:

A B C D E F G
20 6 F E Escada 1,940 495,866
Here’s my VBA procedure:
Dim mtchValue As Variant
Dim getvalue As Variant
Dim sh As String
Dim fname As Variant

fname = Application.GetOpenFilename
If fname = False Then
Exit Sub ‘cancel
End If

mtchValue = («MATCH(1,(» & sh & «A1:A10000=20)*» & _
«(» & sh & «B1:B10000=6)*» & «(» & sh & _
«C1:C10000=»»F»»)*» & «(» & sh & _
«E1:E10000=»»Escada»»),0)»)

If Not IsError(mtchValue) Then
getvalue = Application.Evaluate(«Index(» & sh & «F1:F10000» &
mtchValue & «)»)
End If
Range(«S1»).Select
ActiveCell.Value = getvalue

Function MakeReferenceNicer(fname) As String

‘taking
‘»C:My Documentsexcelbook5.xls»
‘shooting for:
‘»‘C:My Documentsexcel[book5.xls]May’!»

Dim iCtr As Long
Dim myStr As String

For iCtr = Len(fname) To 1 Step -1
If Mid(fname, iCtr, 1) = «» Then
‘found that last backslash
myStr = «‘» & Left(fname, iCtr) & _
«[» & Mid(fname, iCtr + 1) & «]May’!»
Exit For
End If
Next iCtr

Re: Error 2015 with Application.Evaluate

getvalue _
= Application.Evaluate(«Index(» & sh & «F1:F10000» & mtchValue & «)»)
needs an extra comma:
getvalue _
= Application.Evaluate(«Index(» & sh & «F1:F10000» & «,» & mtchValue & «)»)

Jeff wrote:
>
> Hello,
>
> If someone could help me correct my VBA procedure. I’m lost and I don’t know
> how to fix it. I get #value error.
>
> Here’s an example of my spreadsheet:
>
> A B C D E F G
> 20 6 F E Escada 1,940 495,866
> Here’s my VBA procedure:
> Dim mtchValue As Variant
> Dim getvalue As Variant
> Dim sh As String
> Dim fname As Variant
>
> fname = Application.GetOpenFilename
> If fname = False Then
> Exit Sub ‘cancel
> End If
>
> sh = MakeReferenceNicer(fname)
>
> Workbooks.Open Filename:=fname
>
> mtchValue = («MATCH(1,(» & sh & «A1:A10000=20)*» & _
> «(» & sh & «B1:B10000=6)*» & «(» & sh & _
> «C1:C10000=»»F»»)*» & «(» & sh & _
> «E1:E10000=»»Escada»»),0)»)
>
> If Not IsError(mtchValue) Then
> getvalue = Application.Evaluate(«Index(» & sh & «F1:F10000» &
> mtchValue & «)»)
> End If
> Range(«S1»).Select
> ActiveCell.Value = getvalue
>
>
> End Sub
>
>
> Function MakeReferenceNicer(fname) As String
>
> ‘taking
> ‘»C:My Documentsexcelbook5.xls»
> ‘shooting for:
> ‘»‘C:My Documentsexcel[book5.xls]May’!»
>
> Dim iCtr As Long
> Dim myStr As String
>
> For iCtr = Len(fname) To 1 Step -1
> If Mid(fname, iCtr, 1) = «» Then
> ‘found that last backslash
> myStr = «‘» & Left(fname, iCtr) & _
> «[» & Mid(fname, iCtr + 1) & «]May’!»
> Exit For
> End If
> Next iCtr
>
> MakeReferenceNicer = myStr
>
> End Function
>
> —
> Regards,
> Jeff

Re: Error 2015 with Application.Evaluate

I made the correction, but I still have the same error msg (#value)

«Dave Peterson» wrote:

> Without testing.
>
> getvalue _
> = Application.Evaluate(«Index(» & sh & «F1:F10000» & mtchValue & «)»)
> needs an extra comma:
> getvalue _
> = Application.Evaluate(«Index(» & sh & «F1:F10000» & «,» & mtchValue & «)»)
>
>
>
> Jeff wrote:
> >
> > Hello,
> >
> > If someone could help me correct my VBA procedure. I’m lost and I don’t know
> > how to fix it. I get #value error.
> >
> > Here’s an example of my spreadsheet:
> >
> > A B C D E F G
> > 20 6 F E Escada 1,940 495,866
> > Here’s my VBA procedure:
> > Dim mtchValue As Variant
> > Dim getvalue As Variant
> > Dim sh As String
> > Dim fname As Variant
> >
> > fname = Application.GetOpenFilename
> > If fname = False Then
> > Exit Sub ‘cancel
> > End If
> >
> > sh = MakeReferenceNicer(fname)
> >
> > Workbooks.Open Filename:=fname
> >
> > mtchValue = («MATCH(1,(» & sh & «A1:A10000=20)*» & _
> > «(» & sh & «B1:B10000=6)*» & «(» & sh & _
> > «C1:C10000=»»F»»)*» & «(» & sh & _
> > «E1:E10000=»»Escada»»),0)»)
> >
> > If Not IsError(mtchValue) Then
> > getvalue = Application.Evaluate(«Index(» & sh & «F1:F10000» &
> > mtchValue & «)»)
> > End If
> > Range(«S1»).Select
> > ActiveCell.Value = getvalue
> >
> >
> > End Sub
> >
> >
> > Function MakeReferenceNicer(fname) As String
> >
> > ‘taking
> > ‘»C:My Documentsexcelbook5.xls»
> > ‘shooting for:
> > ‘»‘C:My Documentsexcel[book5.xls]May’!»
> >
> > Dim iCtr As Long
> > Dim myStr As String
> >
> > For iCtr = Len(fname) To 1 Step -1
> > If Mid(fname, iCtr, 1) = «» Then
> > ‘found that last backslash
> > myStr = «‘» & Left(fname, iCtr) & _
> > «[» & Mid(fname, iCtr + 1) & «]May’!»
> > Exit For
> > End If
> > Next iCtr
> >
> > MakeReferenceNicer = myStr
> >
> > End Function
> >
> > —
> > Regards,
> > Jeff
>
> —
>
> Dave Peterson
>

Re: Error 2015 with Application.Evaluate

There was an error in the original thread.

> > > mtchValue = («MATCH(1,(» & sh & «A1:A10000=20)*» & _
> > > «(» & sh & «B1:B10000=6)*» & «(» & sh & _
> > > «C1:C10000=»»F»»)*» & «(» & sh & _
> > > «E1:E10000=»»Escada»»),0)»)

Should have been:

> > > mtchValue = application.evaluate _
> > > («MATCH(1,(» & sh & «A1:A10000=20)*» & _
> > > «(» & sh & «B1:B10000=6)*» & «(» & sh & _
> > > «C1:C10000=»»F»»)*» & «(» & sh & _
> > > «E1:E10000=»»Escada»»),0)»)

Else mtchValue is just that long string.

Источник

Error 2015 vba evaluate

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 1.4.2007

Репутация: нет
Всего: нет

Доброго дня, коллеги.

Т.к. я не являюсь программистом в его сакраментальной трактовке прошу Вас помочь мне разобраться с одной проблемой.
Компилятор VBA Ну никак не хочет кушать вот такую конструкцию:

masterofmind	Дата 22.4.2009, 17:43 (ссылка) | (нет голосов) Загрузка .

Ошибка 2015 — Type mismatch

3 часа угробил — не могу понять, что не так.

Данный код, лишь фрагмент функции- не мой, взят с сайта http://www.cpearson.com.

Моя задача — получить цвет ячейки окрашенной условным форматированием. Соответсвенно цвет и кол-во ячеек будет постоянно меняться. Мне нужна была функция, которая бы это все считала. У уважаемого коллеги, чей сайт я выложил выше — все работает, но к сожалению на простых формулах, типа «=100» и т.д. С моей же формулой — не хочет ;-(. Сама формула — рабочая, условное форматирование по ней отрабатывает четко.

Выкладывю текст самих функций:

Dim R As Range
Dim RR As Range
Dim CI As Long

If ColorIndex = 0 Then
If OfText = False Then
CI = xlColorIndexNone
Else
CI = xlColorIndexAutomatic
End If
End If

If ColorIndex <> 0 Then
If IsValidColorIndex(ColorIndex) = False Then
Exit Function
End If
End If

For Each R In TestRange.Cells
If OfText = False Then
If R.Interior.ColorIndex = CI Then
If RR Is Nothing Then
Set RR = R
Else
Set RR = Application.Union(RR, R)
End If
End If
Else
If RR Is Nothing Then
Set RR = R
Else
Set RR = Application.Union(RR, R)
End If
End If
Next R
Set RangeOfColor = RR

Function ColorNameOfRGB(RGBLong As Long) As String
»»»»»»»»»»»»»»»»»»»»»»»»»»»»’
‘ ColorNameOfRGB
‘ Returns the name of the color specified by RGBLong
‘ if RGBLong is in the application default pallet.
‘ Otherwise, returns vbNullString.
»»»»»»»»»»»»»»»»»»»»»»»»»»»»’
Dim n As Long
Dim V As Variant
If IsValidRGBLong(RGBLong) = False Then
Exit Function
End If
V = Application.Match(RGBLong, ThisWorkbook.Colors, 0)
If IsError(V) = True Then
Exit Function
End If

V = DefaultColorNames(V)
If V <> vbNullString Then
ColorNameOfRGB = V
End If

Function ActiveCondition(Rng As Range) As Integer
Dim Ndx As Long
Dim FC As FormatCondition
Dim Temp As Variant
Dim Temp2 As Variant

If Rng.FormatConditions.Count = 0 Then
ActiveCondition = 0
Else
For Ndx = 1 To Rng.FormatConditions.Count
Set FC = Rng.FormatConditions(Ndx)
Select Case FC.Type
Case xlCellValue
Select Case FC.Operator
Case xlBetween
Temp = GetStrippedValue(FC.Formula1)
Temp2 = GetStrippedValue(FC.Formula2)
If IsNumeric(Temp) Then
If CDbl(Rng.Value) >= CDbl(FC.Formula1) And _
CDbl(Rng.Value) = Temp And _
Rng.Value CDbl(FC.Formula1) Then
ActiveCondition = Ndx
Exit Function
End If
Else
If Rng.Value > Temp Then
ActiveCondition = Ndx
Exit Function
End If
End If

Case xlEqual
Temp = GetStrippedValue(FC.Formula1)
If IsNumeric(Temp) Then
If CDbl(Rng.Value) = CDbl(FC.Formula1) Then
ActiveCondition = Ndx
Exit Function
End If
Else
If Temp = Rng.Value Then
ActiveCondition = Ndx
Exit Function
End If
End If

Case xlGreaterEqual
Temp = GetStrippedValue(FC.Formula1)
If IsNumeric(Temp) Then
If CDbl(Rng.Value) >= CDbl(FC.Formula1) Then
ActiveCondition = Ndx
Exit Function
End If
Else
If Rng.Value >= Temp Then
ActiveCondition = Ndx
Exit Function
End If
End If

Case xlLess
Temp = GetStrippedValue(FC.Formula1)
If IsNumeric(Temp) Then
If CDbl(Rng.Value) CDbl(FC.Formula1) Then
ActiveCondition = Ndx
Exit Function
End If
Else
If Temp <> Rng.Value Then
ActiveCondition = Ndx
Exit Function
End If
End If

Case xlNotBetween
Temp = GetStrippedValue(FC.Formula1)
Temp2 = GetStrippedValue(FC.Formula2)
If IsNumeric(Temp) Then
If Not (CDbl(Rng.Value) = CDbl(FC.Formula2)) Then
ActiveCondition = Ndx
Exit Function
End If
Else
If Not Rng.Value = Temp2 Then
ActiveCondition = Ndx
Exit Function
End If
End If

Case Else
Debug.Print «UNKNOWN OPERATOR»
End Select

Case xlExpression
If Application.Evaluate(FC.Formula1) Then ‘ Çàáàíèë, èìõî íå ðàáîòàåòü áëÿ ñ òàêèìè ôîðìóëàìè.
‘If FC.Formula1 <> » » Then
ActiveCondition = Ndx
Exit Function
End If

Case Else
Debug.Print «UNKNOWN TYPE»
End Select

Function ColorIndexOfCF(Rng As Range, _
Optional OfText As Boolean = False) As Integer

Dim AC As Integer
AC = ActiveCondition(Rng)
If AC = 0 Then
If OfText = True Then
ColorIndexOfCF = Rng.Font.ColorIndex
Else
ColorIndexOfCF = Rng.Interior.ColorIndex
End If
Else
If OfText = True Then
ColorIndexOfCF = Rng.FormatConditions(AC).Font.ColorIndex
Else
ColorIndexOfCF = Rng.FormatConditions(AC).Interior.ColorIndex
End If
End If

Function ColorOfCF(Rng As Range, Optional OfText As Boolean = False) As Long

Dim AC As Integer
AC = ActiveCondition(Rng)
If AC = 0 Then
If OfText = True Then
ColorOfCF = Rng.Font.Color
Else
ColorOfCF = Rng.Interior.Color
End If
Else
If OfText = True Then
ColorOfCF = Rng.FormatConditions(AC).Font.Color
Else
ColorOfCF = Rng.FormatConditions(AC).Interior.Color
End If
End If

Function GetStrippedValue(CF As String) As String
Dim Temp As String
If InStr(1, CF, «=», vbTextCompare) Then
Temp = Mid(CF, 3, Len(CF) — 3)
If Left(Temp, 1) = «=» Then
Temp = Mid(Temp, 2)
End If
Else
Temp = CF
End If
GetStrippedValue = Temp
End Function

Function CountOfCF(InRange As Range, _
Optional Condition As Integer = -1) As Long
Dim Count As Long
Dim Rng As Range
Dim FCNum As Integer

For Each Rng In InRange.Cells
FCNum = ActiveCondition(Rng)
If FCNum > 0 Then
If Condition = -1 Or Condition = FCNum Then
Count = Count + 1
End If
End If
Next Rng
CountOfCF = Count
End Function

Function SumByCFColorIndex(Rng As Range, CI As Integer) As Double
Dim R As Range
Dim Total As Double
For Each R In Rng.Cells
If ColorIndexOfCF(R, False) = CI Then
Total = Total + R.Value
End If
Next R
SumByCFColorIndex = Total
End Function

Если кому-то пригодится-буду только рад. Если у кого есть свои наработки — прошу поделится. На поиски кода нашего зарубежноо коллеги у меня ушло 5 часов. 😉
Прошу помощи.

Это сообщение отредактировал(а) masterofmind — 22.4.2009, 17:52

Советчик

Профиль
Группа: Модератор
Сообщений: 20542
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 25
Всего: 453

Akina	Дата 22.4.2009, 18:01 (ссылка) | (нет голосов) Загрузка .

Converts a Microsoft Excel name to an object or a value.

expression Optional for Application, required for Chart, DialogSheet, and Worksheet. An expression that returns an object in the Applies To list.

Name Required String. The name of the object, using the naming convention of Microsoft Excel.

О(б)суждение моих действий — в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция — Администрация форума.

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 1.4.2007

Репутация: нет
Всего: нет

masterofmind	Дата 22.4.2009, 18:07 (ссылка) | (нет голосов) Загрузка .

Проверял неоднократно в отладчике. Брал 2 ячейки с разным условным форматированием. На 1 не работает, на 2 — работает.

Это сообщение отредактировал(а) masterofmind — 22.4.2009, 18:09

Советчик

Профиль
Группа: Модератор
Сообщений: 20542
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 25
Всего: 453

Akina	Дата 22.4.2009, 21:20 (ссылка) | (нет голосов) Загрузка .

Цитата(masterofmind @ 22.4.2009, 19:07 )

а при другом условии на значении

О(б)суждение моих действий — в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция — Администрация форума.

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 1.4.2007

Репутация: нет
Всего: нет

masterofmind	Дата 23.4.2009, 08:44 (ссылка) | (нет голосов) Загрузка .

Советчик

Профиль
Группа: Модератор
Сообщений: 20542
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 25
Всего: 453

Akina	Дата 23.4.2009, 08:47 (ссылка) | (нет голосов) Загрузка .

Цитата(masterofmind @ 22.4.2009, 19:07 )

Брал 2 ячейки с разным условным форматированием. На 1 не работает, на 2 — работает.

О(б)суждение моих действий — в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция — Администрация форума.

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 1.4.2007

Репутация: нет
Всего: нет

masterofmind	Дата 23.4.2009, 08:58 (ссылка) | (нет голосов) Загрузка .

Просто прелестное указание.

Извиняюсь, может спешил, и неверно выразился, вот они :

У меня не срабатывает, а при другом условии на значении — все ок?
Например вот таком:
Выделить всёкод Visual Basic
1:

Т.е. эти формулы и являлись условиями для форматирования ячеек. На этих значениях я запускал функцию.

Причину ошибки отловил — при добавление в условное форматирование ячейки вычисляемой формулы (на русском, т.к. excel 2007 русский) — функция начинает отваливаться при вызове Application.Evaluate(FC.formula1) с той же самой ошибкой. При этом на листе — все прекрасно работает. Функция работает также при простых условиях типа — ,= <> и т.д. применяемых к ячейкам, т.е. вызов Application.Evaluate(FC.formula1) проходит корректно.

Как победить ошибку — не знаю.

Помогите пожалуйста, данный функционал очень нужен.

Это сообщение отредактировал(а) masterofmind — 23.4.2009, 09:02

Советчик

Профиль
Группа: Модератор
Сообщений: 20542
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 25
Всего: 453

Akina	Дата 23.4.2009, 09:05 (ссылка) | (нет голосов) Загрузка .

О(б)суждение моих действий — в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция — Администрация форума.

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 1.4.2007

Репутация: нет
Всего: нет

Огромный респект Akina!

Единственная просьба, можно маленький ликбез — почему так получается? Дабы не флудить более и знать корни.

masterofmind	Дата 23.4.2009, 09:23 (ссылка) | (нет голосов) Загрузка .

Да и еще вопрос — на больших объемах данных, не скажется ли такой метод на быстродействии?

Прошу прощения сразу — я не программист, я логист аналитик. А вот кодить, как говорится жизнь заставила. 😉 Хорошо в юности увлекался. 😉

Это сообщение отредактировал(а) masterofmind — 23.4.2009, 09:25

Советчик

Профиль
Группа: Модератор
Сообщений: 20542
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 25
Всего: 453

Akina	Дата 23.4.2009, 09:31 (ссылка) | (нет голосов) Загрузка .

Цитата(masterofmind @ 23.4.2009, 10:23 )

почему так получается?

Внимательно читаем справку по тому, чем отличаются formula от formulalocal — этого должно хватить.

Цитата(masterofmind @ 23.4.2009, 10:23 )

на больших объемах данных, не скажется ли такой метод на быстродействии?

О(б)суждение моих действий — в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция — Администрация форума.

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 1.4.2007

Репутация: нет
Всего: нет

Ну и еще один вопрос в тему-как преобразовать формулу, на основании ячейки. Т.е. подставить в неё относительные ссылки, на основании текущей ячейки?

masterofmind	Дата 23.4.2009, 10:33 (ссылка) | (нет голосов) Загрузка .

strTemp = Range(«XX1»).FormulaLocal
Range(«XX1»).FormulaLocal = formula
formula = Range(«XX1»).formula
Range(«XX1»).FormulaLocal = strTemp

new_formula = Application.ConvertFormula(formula, xlA1, xlA1, False, Лист1.Cells(20, 7))

Вот такой код — не работает. Я не правильно вызываю функцию конверта?

Должна вернуть вот так — И(СУММ($C20:$E20)>0;СУММ(F20:G20)=0)

Советчик

Профиль
Группа: Модератор
Сообщений: 20542
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 25
Всего: 453

Akina	Дата 23.4.2009, 10:43 (ссылка) | (нет голосов) Загрузка .

Цитата(masterofmind @ 23.4.2009, 11:33 )

Я не правильно вызываю функцию конверта?

О(б)суждение моих действий — в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция — Администрация форума.

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 1.4.2007

Репутация: нет
Всего: нет

Akina, ну сжальтесь. Я же писал, я не программист, но поставленную задачу нужно выполнить.

Хоть убейте, не пойму как мне вычислить формулу относительно текущей ячейки. Метод application.convertformula уже и так и эдак, все не получается.

В свойсве FormatCondition.formula — содержится формула которая задается при условном форматировании. Она едина и неизменна для всего диапазона. Эксель же при применении усл. формата сам подменяет и расчитывает его для каждой ячейки. Мне нужно сделать тоже самое, как?

нужно расчитать её к примеру для ячейки «G50».

Вот так — не получается:
FC.Formula1= «=И(СУММ($C6:$E6)>0;СУММ(F6:G6)=0)»

strFormula = FC.Formula1
strTemp = Range(«NN1»).FormulaLocal
Range(«NN1»).FormulaLocal = strFormula
strFormula = Range(«NN1»).formula
Range(«NN1»).FormulaLocal = strTemp
strFormula = Application.ConvertFormula(strFormula, xlA1, xlA1, False, rng)

If Application.Evaluate(strFormula) Then
ActiveCondition = Ndx
Exit Function
End If

masterofmind	Дата 23.4.2009, 15:47 (ссылка) | (нет голосов) Загрузка .

rng — as Range, ячейка передаваемая при вызове функции. Т.е. он содержит ссылку на текущую ячейку.
FC=rng.FormatConditions(Ndx) — тут я думаю понятно, ndx — счетчик условных форматов для ячейки.
Что я делаю не так? Прошу, помогите.

Это сообщение отредактировал(а) masterofmind — 23.4.2009, 15:59

Советчик

Профиль
Группа: Модератор
Сообщений: 20542
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 25
Всего: 453

Akina	Дата 23.4.2009, 16:21 (ссылка) | (нет голосов) Загрузка .

Цитата(masterofmind @ 23.4.2009, 16:47 )

Повторяю — читайте справку. Конкретно — на месте False должно стоять совершенно иное значение.

Цитата(masterofmind @ 23.4.2009, 16:47 )

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

О(б)суждение моих действий — в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция — Администрация форума.

Error 2015 using Application.Evaluate in Excel VBA

Dim vValue As Variant
vValue =  Application.Evaluate("GetData()") ' Error 2015 saved in vValue if GetData returns 255+ characters
ActiveCell.Value = vValue

Dim sValue As String
sValue =  Application.Evaluate("GetData()") ' Run-time error if GetData() returns 255+ characters
ActiveCell.Value = sValue

Dim vValue As Variant
vValue =  Application.Evaluate("GetData()")
If (VBA.VarType(vValue) = vbError) Then 
    ActiveCell.Value = "String Overflow on GetData()"
Else
    ActiveCell.Value = vValue 
End If

fname returns the whole path/filename.

So if fName = C:My Documentsexcelbook5.xls, then this portion:

sh = «‘[» & fname & «]May’!»

will be essentially:

sh = «‘[C:My Documentsexcelbook5.xls]may’!»

And that’s not the way excel builds that formula.

If you drop that .open statement (probably there for testing???), you’d want
your formula to look more like:

=MATCH(1,(‘C:My Documentsexcel[book5.xls]May’!$A$1:$A$10=20)*….

And your formula had too many closing parentheses, too:

Option Explicit

Sub Macro5()
Dim mtchValue As Variant
Dim getvalue As Variant
Dim sh As String
Dim fname As Variant

fname = Application.GetOpenFilename
If fname = False Then
Exit Sub ‘cancel
End If

sh = MakeReferenceNicer(fname)

‘Workbooks.Open Filename:=fname

mtchValue = («MATCH(1,(» & sh & «A1:A10000=20)*» & _
«(» & sh & «B1:B10000=6)*» & «(» & sh & _
«C1:C10000=»»F»»)*» & «(» & sh & _
«E1:E10000=»»Escada»»),0)»)
If Not IsError(mtchValue) Then
getvalue = Application.Evaluate(«Index(» & sh & «F1:F10000,» _
& mtchValue & «)»)
End If

End Sub
Function MakeReferenceNicer(fname) As String

‘taking
‘»C:My Documentsexcelbook5.xls»
‘shooting for:
‘»‘C:My Documentsexcel[book5.xls]May’!»

Dim iCtr As Long
Dim myStr As String

For iCtr = Len(fname) To 1 Step -1
If Mid(fname, iCtr, 1) = «» Then
‘found that last backslash
myStr = «‘» & Left(fname, iCtr) & _
«[» & Mid(fname, iCtr + 1) & «]May’!»
Exit For
End If
Next iCtr

MakeReferenceNicer = myStr

End Function

Jeff wrote:

>
> Hello,
> I need help,
> This is my VBA macro
> Sub Macro5()
> Dim mtchValue As Variant
> Dim getvalue As Variant
> Dim sh As String
> Dim fname
> fname = Application.GetOpenFilename
> Workbooks.Open filename:=fname
> sh = «‘[» & fname & «]May’!»
> mtchValue = Application.Evaluate(«MATCH(1,(» & sh & «A1:A10000=20)*» &
> «(» & sh & «B1:B10000=6)*» & «(» & sh & «C1:C10000=»»F»»)*» & «(» & sh &
> «E1:E10000=»»Escada»»),0))»)
> If Not IsError(mtchValue) Then
> getvalue = Application.Evaluate(«Index(» & sh & «F1:F10000,» &
> mtchValue & «)»)
> End If
> Can anyone tell me why I have «Error 2015» on mtchvalue?
>
> End Sub
> —
> Regards,
> Jeff

—

Dave Peterson

Материал из Info

Перейти к: навигация, поиск

Ошибка 2015 означает, что не достает модуля в Microsoft Excel и невозможна связь с внешними продуктами, в частности Microinvest Склад Pro. Ошибка отлично документирована Microsoft и имеет специальный модуль, который решает проблему этой ошибки.

Excel документы

Microinvest Склад Pro обеспечивает мощный механизм для работы внешних продуктов в среде Microsoft Excel. С помощью самых современных технологий встроена двухсторонняя связь между продуктами Microinvest и Microsoft Office. Для того чтобы работать с Excel документами, вам необходим Microsoft Office 2003 или более новый.

Причины

Ошибка появляется при нехватке компонента в Microsoft Office Excel 2003/2007/2010/2013/2016. Также возможно, что указанная ошибка появляется, если последовательность при инсталляции продуктов была нарушена. Рекомендуется Microsoft Office устанавливать перед продуктами Microinvest.

Устранение ошибки

Есть несколько шагов, с помощью которых устраняется ошибка 2015, специально для этого у Microsoft есть дополнительный модуль, который решает проблему.
Последовательность требует инсталляцию (или деинсталляцию) Microsoft Office с сохранением следующих шагов:

• При инсталляции выбирается Custom Setup;
• Ставится отметка в “Choose advanced customization of application”;
• Из выпадающего меню Microsoft Office Excel выбирается „Run all from my computer”.

В случае, если у вас установлен x64 пакет Office и вы не планируете открывать XLS файлы более 2Гб, то выполните переустановку пакета на x86. После этого переустановите Microinvest Склад Pro с правами администратора.

Настройка макросов

Последний шаг решения проблемы – разрешение макросов. После того, как успешно инсталлирован Microsoft Office, необходимо открыть Excel.

1. Для пользователей Microsoft Office 2003, из меню Tools => Macro => Security выбирается уровень защиты Low.
2. Для пользователей Microsoft Office 2007 из Office Button выбираете Excel Options. Выбираете Trust Center => Trust Center Settings…, зайдите в Macro Settings и поставьте отметку в «Enable all macros».
3. Для пользователей Microsoft Office 2010+ из меню File => Options. Выбираете Trust Center => Trust Center Settings…, зайдите в Macro Settings и поставьте отметку в «Enable all macros».

Некоторые полезные ресурсы

• Документация по всем продуктам;
• Форум технической поддержки Microinvest, где Вы сможете быстро получить ответ на интересующий вопрос;
• Примеры автоматизации ресторанов и торговли на базе Microinvest в России и странах СНГ;
• График предстоящих обучений в России и странах СНГ;
• Программы для автоматизации ресторанов и кафе бесплатные полнофункциональные демо-версии продуктов Microinvest для ресторанного бизнеса;
• Программы для автоматизации торговли и склада бесплатные полнофункциональные демо-версии продуктов Microinvest для магазинов;
• Автоматизация торговли под Linux;
• www.microinvest.tv Видеоуроки, обучения;
• Корпоративный блог — интересные события в мире Microinvest;
• Все статьи Базы Знаний;
• Скачать офф-лайн версию Базы Знаний на свой компьютер.

Рассмотрите другие статьи в категории Решение проблем