Серый форум — AHK: Excel com. FormatConditions

Re: AHK: Excel com. FormatConditions

2018-05-14T14:45:23Z

Всем спасибо за внимание!

double.FormatConditions(1).DupeUnique := xlDuplicate:= 1

Re: AHK: Excel com. FormatConditions

2018-05-14T14:27:35Z

inseption86, поставьте пропущенные заглавные буквы и точки в сообщениях:
http://forum.script-coding.com/viewtopi … 33#p120033;
http://forum.script-coding.com/viewtopi … 90#p124790;
http://forum.script-coding.com/viewtopi … 93#p124793;
http://forum.script-coding.com/viewtopi … 16#p125216;
http://forum.script-coding.com/viewtopi … 45#p125345;
http://forum.script-coding.com/viewtopi … 48#p125348;
http://forum.script-coding.com/viewtopi … 33#p120033.

Re: AHK: Excel com. FormatConditions

2018-05-14T09:22:59Z

xlDuplicate — это константа, нужно найти и подставить её значение. В макросах скорее всего это происходит автоматически по названию, в AHK, естественно, нет.

Re: AHK: Excel com. FormatConditions

2018-05-14T09:18:05Z

teadrinker Я так понял, что xlDuplicate это функция.

Через макрос все работает.

Sub sdsd()
Range("A:A").Select
 Selection.FormatConditions.AddUniqueValues
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    Selection.FormatConditions(1).DupeUnique = xlDuplicate
    With Selection.FormatConditions(1).Font
        .Color = -16383844
       End With

End Sub

Re: AHK: Excel com. FormatConditions

2018-05-14T09:12:04Z

В вашем коде нигде нет присвоения значения переменной xlDuplicate, чему она равна?

Re: AHK: Excel com. FormatConditions

2018-05-14T05:24:16Z

Malcev И так я тоже побывал, но error на этой строке "Несовпадение типов.

Re: AHK: Excel com. FormatConditions

2018-05-13T22:24:36Z

Присваивание выполняется через ":=".

double.FormatConditions(1).DupeUnique := xlDuplicate

AHK: Excel com. FormatConditions

2018-05-13T19:17:31Z

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

double := Xl.Range("A:A")
double.FormatConditions.Delete
double.FormatConditions.AddUniqueValues
double.FormatConditions(1).DupeUnique = xlDuplicate
double.FormatConditions(1).Interior.Color := 9846525