VBNet - Форум - нужна подсказка по началу цикла

Вопрос: нужна подсказка по началу цикла Добавлено: 29.06.12 16:34

Автор вопроса: oleg

Нужен макрос для нумерации страниц пачки листов.
Задача вроде бы простая, сделал форму с text.box начальной цифрой страницы и последней, кнопку печати:

Private Sub CommandButton1_Click()
Dim i As Integer
    Dim iCount As Integer
Application.ScreenUpdating = False
   Лист1.Cells(53, 8).Value = TextBox1.Text
       ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    i = 1
          For i = TextBox1.Value To TextBox2.Value
        Лист1.Cells(53, 8).Value = Лист1.Cells(53, 8).Value + 1
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
          Next i
UserForm1.TextBox1.Text = ""
UserForm1.TextBox2.Text = ""
Лист1.Cells(53, 8).Value = ""
End Sub

Но засада: начинается печать и заканчивается с поправкой на 1-цу в плюс, то есть при начале цикла сразу добавляется единица.
Подскажите как проще это сделать. Спасибо.
Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: oleg Вопросов: 12 Ответов: 23	Профиль \| \| #1	Добавлено: 29.06.12 16:37
	Извиняюсь, код такой: Private Sub CommandButton1_Click() Dim i As Integer im iCount As Integer Application.ScreenUpdating = False Лист1.Cells(53, 8).Value = TextBox1.Text i = 1 For i = TextBox1.Value To TextBox2.Value Лист1.Cells(53, 8).Value = Лист1.Cells(53, 8).Value + 1 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next i UserForm1.TextBox1.Text = "" UserForm1.TextBox2.Text = "" Лист1.Cells(53, 8).Value = "" End Sub Ответить

Номер ответа: 2 Автор ответа: AxeL ICQ: 264730390 Вопросов: 2 Ответов: 106	Профиль \| \| #2	Добавлено: 02.07.12 04:40
	заносишь начальное значение страницы - лишняя строчка... Лист1.Cells(53, 8).Value = TextBox1.Text лишнее... Лист1.Cells(53, 8).Value + 1 нужно просто подставлять i, которая проходит в цикле по всему диапазону заданных страниц Лист1.Cells(53, 8).Value = i Ответить

Номер ответа: 3 Автор ответа: AxeL ICQ: 264730390 Вопросов: 2 Ответов: 106	Профиль \| \| #3	Добавлено: 02.07.12 04:48
	Примерно так должен выглядеть твой код: Private Sub CommandButton1_Click() Dim i As Integer 'Dim iCount As Integer ' зачем объявлять, если ее не используешь? Application.ScreenUpdating = False For i = TextBox1.Value To TextBox2.Value Лист1.Cells(53, 8).Value = i ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next i UserForm1.TextBox1.Text = "" UserForm1.TextBox2.Text = "" Лист1.Cells(53, 8).Value = "" Application.ScreenUpdating = True End Sub Ответить

Номер ответа: 4 Автор ответа: oleg Вопросов: 12 Ответов: 23	Профиль \| \| #4	Добавлено: 02.07.12 15:52
	Спасибо, учусь методом "тыка", поэтому такие ляпы. Все работает как надо. Ответить

Страница: 1 |