попытайтесь создать свою функцию в отдельном php-файле и включите этот файл php в основной файл плагина. сохраните резервную копию этого файла. Итак, если ваш плагин обновлен, вам нужно добавить только одну строку кода в основной файл плагина для загрузки вашей пользовательской кодированной функции.
Нашли исправление.
Изменено
rngShop = "C1" & ":" & Cells(lRowEnd, 3).Address(False, True)
на
rngShop = "C1" & txtShopFree
и
.FormatConditions.Add Type:=xlExpression, Formula1:="=" & rngShop & txtShopFree
на
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=" & rngShop
У меня Office 2003 Professional, но это все равно должно применяться, так как это, вероятно, зависит от событий и местоположения.
Я предполагаю, что вы не запускаете код для события Workbook_Open объекта ThisWorkbook, а вместо этого где-то на листе.
Поэтому вы должны поместить свой код в событие Workbook_Open и попробовать это.
'This is code on the ThisWorkbook Object
'-------------------------------------------
Option Explicit
Private Sub Workbook_Open()
Sheet1.Columns("D:D").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="0"
Selection.FormatConditions(1).Interior.ColorIndex = 44
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
Formula1:="1"
Selection.FormatConditions(2).Interior.ColorIndex = 35
End Sub