передавай привет морю
макрос для печати
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.
Private Sub MyPrint()
Dim a As Byte
Dim MyArr() As String
Dim MyPr() As String
'определение количества выделенных листов
a = Windows(ThisWorkbook.Name).SelectedSheets.Count
ReDim MyArr(a - 2 ) ' переобьявление массива
a = 0
'определение выделенных листов
For Each sh In Windows(ThisWorkbook.Name).SelectedSheets
If sh.Name <> "INFO" Then
MyArr(a) = sh.Name
a = a + 1
End If
Next
'выделяем листы
Worksheets(MyArr()).Select
'печатаем
ActiveWindow.SelectedSheets.PrintOut Copies:= 1 , Collate:=True
ReDim MyPr(a) ' переобьявление массива
For x = 0 To UBound(MyArr)
MyPr(x) = MyArr(x)
Next x
MyPr(a) = "INFO"
Worksheets(MyPr()).Select
End Sub
DimenИ еще если не трудно подскажите как создать массив из пяти листов и привязать его к CheckBox-у,
Не понял вопрос уточни
если тебе нужно выделить n-е количество листов одним CheckBox-ом то:
см. CheckBox3 в нём переменная MyLi можешь в неё писать сколько хочешь листов через запятую
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.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
Private Sub CheckBox1_Click()
Dim MyTr As Boolean
Select Case CheckBox1.Value
Case True
MyTr = True
Case False
MyTr = False
End Select
MySelect1 MyTr, "Ch.Off."
End Sub
Private Sub CheckBox2_Click()
Dim MyTr As Boolean
Select Case CheckBox2.Value
Case True
MyTr = True
Case False
MyTr = False
End Select
MySelect1 MyTr, "Master"
End Sub
Private Sub CheckBox3_Click()
Dim MyTr As Boolean
Dim MyLi As String
Select Case CheckBox3.Value
Case True
MyTr = True
Case False
MyTr = False
End Select
MyLi = "Master 2,Master 3,Master 4"
MySelect1 MyTr, MyLi
End Sub
Private Sub MySelect1(MyTr As Boolean, MyLi As String)
Dim a As Byte, b As Byte, c As Byte
Dim MyArr() As String
Dim PrStr As String
If MyLi Like "*,*" Then
Proba = Split(MyLi, ",")
b = UBound(Proba)
Else:
b = 0
End If
'определение количества выделенных листов
a = Windows(ThisWorkbook.Name).SelectedSheets.Count
If MyTr = True Then
ReDim MyArr(a + b) ' переобьявление массива
c = UBound(MyArr)
a = 0
'определение выделенных листов
For Each Sh In Windows(ThisWorkbook.Name).SelectedSheets
MyArr(a) = Sh.Name
a = a + 1
Next
' добавляем в массив имя листа(ов)
If b <> 0 Then
For x = a To c
MyArr(x) = Proba(x - a)
Next x
Else
MyArr(a) = MyLi
End If
'выделяем листы
Worksheets(MyArr()).Select
ElseIf a <> 1 Then
ReDim MyArr(a - b - 2 ) ' переобьявление массива
a = 0
'определение выделенных листов
For Each Sh In Windows(ThisWorkbook.Name).SelectedSheets
PrStr = "*" & Sh.Name & "*"
If Not MyLi Like PrStr Then
MyArr(a) = Sh.Name
a = a + 1
End If
Next
'выделяем листы
Worksheets(MyArr()).Select
End If
End Sub
а это цитата из книги Джона Уокенбаха
Массивы
Массив — это группа элементов одного типа, которые имеют общее имя, на конкретный элемент массива ссылаются, используя имя массива и индекс. Например, можно определить массив из 12-ти строк так, чтобы каждая переменная соответствовала названию месяца. Если вы назовете массив MonthNames, то можете обратиться к первому элементу массива как MonthNames(0), ко второму — как MonthNames (1) и т.д., до MonthNames(11)
Объявление массивов
Массив, как и обычные переменные, объявляется с помощью операторов Dim или Public Кроме того, можно определить количество элементов в массиве: введите первый индексный номер, ключевое слово То и последний индексный номер — вся конструкция будет заключена в скобки. Например, так можно объявить массив, содержащий ровно 100 целых чисел
Dim MyArray(1 To 100) As integer
При объявлении массива обязательно следует указывать только верхний индекс тогда VBA предопределяет нижний индекс равный нулю. Следовать дующих оператора приведут к одинаковым результатам:
Dim MyArray(0 То 100) As Integer
Dim MyArray(lOO) As Integer
Объявление многомерных массивов
В обоих случаях массив состоит из 101-го элемента.
В примерах массивов в предыдущем разделе использовались одномерные массивы Массивы VBA могут иметь до 60-ти измерений, хотя на самом деле используется не более трех (трехмерные массивы). Показанный ниже оператор объявляет двухмерный 100-элсментный массив целых чисел:
Dim MyArrayd To 10, 1 То 10) As Integer
Этот массив можно рассматривать как матрицу значений 10x10. Чтобы обратится к конкретному элементу двухмерного массива; используйте два индексных номера. Например таким образом присваивается значение элементу предыдущего массива.
МуАггау(3, 4) = 125
Трехмерный массив можно рассматривать как куб, но не существует способа визуально представить данные массива, в котором больше трех измерений.
Динамический массив не имеет предопределенного количества элементов. Дннамический массив объявляется с незаполненными значениями в скобках;
Dim MyArray() As Integer
Тем не менее, прежде чем динамический массив можно будет использовать в программе, необходимо обратиться к оператору ReDim, указывающему VBA, сколько элементов находится в массиве (или ReDim Preserve, если вы решили сохранить текущую длину массива). Оператор ReDim можно использовать сколько угодно раз, изменяя, если требуется, размер массива, будут рассмотрены далее в этой главе при обсуждении циклов.
