ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Макрос, создающий таблицу
6 сообщений из 6, страница 1 из 1
Макрос, создающий таблицу
    #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, 12:25
| Ответить | Цитировать | Написать  
Макрос, создающий таблицу
    #39473838
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
ТВА,

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

Спасибо, всё получилось.
...
Рейтинг: 0 / 0
19.06.2017, 16:38
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Макрос, создающий таблицу
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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