Розцвічування окремих осередків в таблиці

Як зробити умовне форматування в таблиці Word: при значенні “ready” – фарбувати осередок в зелений колір, при значенні “on goning” – в жовтий, і при інших значеннях – в червоний? В Excel це називається умовним форматуванням. У Word знайти такого не зміг.

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


Sub cellscolor()” в залежності від тексту в цих осередках”Допомога Steven Craig Miller
Dim rngTable As Range
Dim oTable As Table
Dim oRow As Row
Dim oCell As cell
Dim sStr As String
Set rngTable = Selection.Range
Set oTable = Selection.Tables(1)
If Not rngTable.Information(wdWithInTable) ThenMsgBox prompt: = “Курсор знаходиться поза таблицею”
Else
With oTable
For Each oRow In .Rows
For Each oCell In oRow.CellsoCell.Shading.BackgroundPatternColor = wdColorRed “заливаємо всі комірки одним кольором
sStr = oCell.Range.Text”Крім тексту комірка завжди містить два додаткових символу”В кінці. Ці символи потрібно виключити, що і робить сл.оператор
sStr = Left(sStr, Len(sStr) – 2)
Select Case sStr
Case “ready”oCell.Shading.BackgroundPatternColor = wdColorGreen “зеленим
Case “on goning”oCell.Shading.BackgroundPatternColor = wdColorYellow “жовтим
End Select
Next oCell
Next oRow
End With
End If
End Sub

Схожі статті:


Сподобалася стаття? Ви можете залишити відгук або підписатися на RSS , щоб автоматично отримувати інформацію про нові статтях.

Коментарів поки що немає.

Ваш отзыв

Поділ на параграфи відбувається автоматично, адреса електронної пошти ніколи не буде опублікований, допустимий HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

*

*