условное форматирование не удается после повторного открытия файла

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

0
задан Pᴇʜ 21 January 2019 в 07:47
поделиться

2 ответа

Нашли исправление.

Изменено

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
0
ответ дан ReturnVoid 21 January 2019 в 07:47
поделиться

У меня 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


0
ответ дан IAmNerd2000 21 January 2019 в 07:47
поделиться
Другие вопросы по тегам:

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