AHK Excel COM - изменение цвета на листе - PullRequest
Новая
       28

AHK Excel COM - изменение цвета на листе

0 голосов
/ 01 октября 2018

Привет, члены stackoverflow,

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

Поскольку у меня нет знаний по VBA, я пытаюсь реализовать это с помощью AutoHotkey и его COM.служба поддержки.Я добился определенного прогресса!Однако, хотя это работает, оно не меняет границы нескольких ячеек.То же самое касается цветов шрифта - некоторые меняются, другие не меняются.

Это мой код: 

    F1::
xl := ComObjActive("Excel.Application") ; Connect to Excel
ws := xl.ActiveSheet ; Connect to worksheet
column = 65 ; ASCCI code
Loop, 800
{
  r++ ; row 1
  if (r = 41) ; If row 41 was reached:
  {
    r = 1 ; Go back to row 1
    column := column + 1 ; Next column
  }
  c := Chr(column) ; ASCCI to String
  cell = %c%%r% ; Cell = e.g. A1, etc.
  ;if xl.range(cell).Borders(xlEdgeLeft).Color = 0x0000FF ; If border color is red - TYPE CONFLICT!
  if xl.range(cell).Borders.Color = 0x0000FF ; If border color is red: - WORKS PARTLY
  {
    ;xl.range(cell).Borders(xlEdgeLeft).Color := 0xFFD700 ; Set blue color - I DOUBT IT WILL WORK!
    xl.range(cell).Borders.Color := 0xFFD700 ; Set to blue - WORKS PARTLY
  }
  if xl.range(cell).Font.Color = 0x0000FF ; If font color is red:  - WORKS PARTLY
  {
    xl.range(cell).Font.Color := 0xFFD700 ; Set to blue - WORKS PARTLY
  }
}
return

Как вы можете видеть, я уже попробовал его, если xl.range(ячейка) .Borders (xlEdgeLeft) .Color = 0x0000FF, который, похоже, не работает.Там написано "TYPE CONFLICT".

На этом скриншоте вы видите все удачные настройки цвета (синий).Остальное, которое красное, не изменилось. Результат

Любая помощь будет высоко ценится!

1 Ответ

0 голосов
/ 02 октября 2018

Проблема решена. 

for xlCell in xl.ActiveSheet.UsedRange.Cells ; Used cells
{
  for xlBorder in xlCell.Borders ; Where borders are used
  {
    if (xlBorder.Color = 0x0000FF) ; Red
    {
      xlBorder.Color := 0x5FD200 ; Green
    }
    if (xlCell.Font.Color = 0x0000FF) ; Red
    {
      xlCell.Font.Color := 0x5FD200 ; Green
    }
  } 
}
for xlShape in xl.ActiveSheet.Shapes ; Used shapes
{
  if (xlShape.Line.ForeColor.RGB = 0x0000FF) ; Red
  {
    xlShape.Line.ForeColor.RGB := 0x5FD200 ; Green
  }
}

В любом случае, спасибо.

PS Для цвета шрифта в тексте нет решения.

...