Как изменить границы ячеек в существующей таблице?

Пользователь

Сообщений: 13 Регистрация: 18.12.2018

26.02.2019 10:33:47

Как изменить границы ячеек в существующей таблице на тонкие с сохранением структуры границ?
Проблема (для меня) в том, что есть ячейки с границами, есть без границ, есть с тонкими границами, есть с толстыми.

Прикрепленные файлы

_пример.xlsx (12.3 КБ)

zlipse Пользователь Сообщений: 66 Регистрация: 15.11.2018	#2 26.02.2019 10:56:28 держиТЕ ))))))) Прикрепленные файлы _пример.xlsx (11.95 КБ) Изменено: zlipse - 26.02.2019 11:43:29

l-db Пользователь Сообщений: 13 Регистрация: 18.12.2018	#3 26.02.2019 11:08:00 Спасибо, конечно. Но у меня примерно таких же таблиц много еще :-) Я спрашивал о способе каком-нибудь, кроме как врукопашную.

Казанский

Пользователь

Сообщений: 8839 Регистрация: 11.01.2013

26.02.2019 11:35:38

l-db, в простейшем случае так

Код

Sub Ldb()
Dim c As Range, b
  Application.ScreenUpdating = False
  For Each c In ActiveSheet.UsedRange
    For Each b In Array(xlEdgeBottom, xlEdgeTop, xlEdgeLeft, xlEdgeRight)
      If c.Borders(b).Weight = xlMedium Then c.Borders(b).Weight = xlThin
    Next
  Next
  Application.ScreenUpdating = True
End Sub

l-db Пользователь Сообщений: 13 Регистрация: 18.12.2018	#5 26.02.2019 11:59:03 Казанский, спасибо, работает. Теперь бы еще понять :-)