Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Макрос, создающий таблицу / 6 сообщений из 6, страница 1 из 1
18.06.2017, 12:25
    #39473768
ТВА
ТВА
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос, создающий таблицу
Здравствуйте. Подскажите, пожалуйста, можно ли данный код записать короче? Этот получился с помощью записи макроса и выглядит очень громоздким.

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
Sub Макрос1()
' Макрос1 Макрос

Sheets("Параметры").Activate

    Range(Cells(57, 7), Cells(15, 7)).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent4
        .TintAndShade = 0.599993896298105
        .PatternTintAndShade = 0
    End With
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.06.2017, 21:05
    #39473838
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос, создающий таблицу
ТВА,

Код рабочий ? Да.
Вы понимаете его ?
Зачем тогда вам его улучшать ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.06.2017, 21:47
    #39473845
ТВА
ТВА
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос, создающий таблицу
big-duke, потому что он повторяется много раз, и работа очень объёмная выходит.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.06.2017, 00:05
    #39473870
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос, создающий таблицу
Если он повторяется, значит нужно его поместить в цикл.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.06.2017, 08:46
    #39473915
iMrTidy
iMrTidy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос, создающий таблицу
ТВА,

 
Вот Вам пример, разбирайтесь. Его можно еще упростить, если знать какие свойства менять не нужно.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
Option Explicit

Sub MyMacro()

Dim wb As Workbook
Dim sh As Worksheet
Dim rn As Range

Set wb = ThisWorkbook
Set sh = wb.Sheets("Sheet1")
Set rn = sh.Range(Cells(57, 7), Cells(15, 7))
rn.Borders(xlDiagonalUp).LineStyle = xlNone
rn.Borders(xlDiagonalDown).LineStyle = xlNone
With rn
    With .Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent4
        .TintAndShade = 0.599993896298105
        .PatternTintAndShade = 0
    End With
    With .Borders
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
End With

End Sub

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.06.2017, 16:38
    #39474268
ТВА
ТВА
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос, создающий таблицу
iMrTidy,

Спасибо, всё получилось.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Макрос, создающий таблицу / 6 сообщений из 6, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 166ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2155252]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 68ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 2ms
others: 11ms
total:  166ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]