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

Re: AHK: Excel com. FormatConditions

null@example.com (inseption86) — Mon, 14 May 2018 14:45:23 +0000

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

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

Re: AHK: Excel com. FormatConditions

null@example.com (ypppu) — Mon, 14 May 2018 14:27:35 +0000

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

null@example.com (teadrinker) — Mon, 14 May 2018 09:22:59 +0000

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

Re: AHK: Excel com. FormatConditions

null@example.com (inseption86) — Mon, 14 May 2018 09:18:05 +0000

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

null@example.com (teadrinker) — Mon, 14 May 2018 09:12:04 +0000

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

Re: AHK: Excel com. FormatConditions

null@example.com (inseption86) — Mon, 14 May 2018 05:24:16 +0000

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

Re: AHK: Excel com. FormatConditions

null@example.com (Malcev) — Sun, 13 May 2018 22:24:36 +0000

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

double.FormatConditions(1).DupeUnique := xlDuplicate

AHK: Excel com. FormatConditions

null@example.com (inseption86) — Sun, 13 May 2018 19:17:31 +0000

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

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