Ребят подскажите пожалуйста

@Dinferm · Регистрация: 30.11.2015

Author24 — интернет-сервис помощи студентам

https://pp.vk.me/c837321/v8373... fEoCus.jpg Ребят подскажите пожалуйста. В зависимости от того что написано в желтом, должно по нажатии на кнопку печататься такое же раз количество разделов - словами "Раздел 1, Раздел 2 и т.д
При этом если я напечатаю это 5 раз, то 5 раз оно и выводится.
Как это сделать с помощью цикла?
Нужно дополнить

PureBasic

Sub Макрос2() 
' 
' Макрос2 Макрос 
' 
 
' 
Dim F As Integer 
Dim N As Variant 
N = Range("B1") 
For F = 1 To N 
 
Range("A3").Select 
ActiveCell.FormulaR1C1 = "Раздел" 
 
Range("B3").Select 
ActiveCell.FormulaR1C1 = F 
 
Next 
End Sub

@Vlad999 · 27.02.2017, 15:51

каждый раз начиная с единицы или продолжать?

@Dinferm · 27.02.2017, 15:56 **[ТС]**

Продолжать, Раздел 1 Раздел 2 и так далее в зависимости от заданного значения

@Vlad999 · 27.02.2017, 15:56

вариант

Visual Basic

lr=Cells(Rows.Count,1).End(xlUp).Row + 1
For F = lr To N+lr
  Cells(F,1)="Раздел"
  Cells(F,2)=Cells(F-1,2)+1
next

@Dinferm · 27.02.2017, 16:02 **[ТС]**

Правильно понимаю?

PureBasic

Sub Макрос2()
'
' Макрос2 Макрос
'
 
'
Dim F As Integer
Dim N As Variant
 
 
lr = Cells(Rows.Count, 1).End(xlUp).Row + 1
For F = lr To N + lr
  Cells(F, 1) = "Раздел"
  Cells(F, 2) = Cells(F - 1, 2) + 1
 
    
 Next
End Sub

@Vlad999 · 27.02.2017, 16:04

да. ТОлько раз объявляете переменные то объявляйте все.
N = Range("B1") упустили

@Dinferm · 27.02.2017, 16:06 **[ТС]**

Я знаю что дура и совсем не смыслю, но он в этой строке ему что то не нравиться

PureBasic

1	Cells(F, 2) = Cells(F - 1, 2) + 1

@Vlad999 · 27.02.2017, 16:17

прикрепите файл будет проще понять что не так.

@Vlad999 3897 / 2302 / 776 Регистрация: 02.11.2012 Сообщений: 6,119
	27.02.2017, 15:51	2
	каждый раз начиная с единицы или продолжать? 0

@Dinferm 0 / 0 / 0 Регистрация: 30.11.2015 Сообщений: 10
	27.02.2017, 15:56 [ТС]	3
	Продолжать, Раздел 1 Раздел 2 и так далее в зависимости от заданного значения 0

@Vlad999 3897 / 2302 / 776 Регистрация: 02.11.2012 Сообщений: 6,119
	27.02.2017, 16:04	6
	да. ТОлько раз объявляете переменные то объявляйте все. N = Range("B1") упустили 0

@Vlad999 3897 / 2302 / 776 Регистрация: 02.11.2012 Сообщений: 6,119
	27.02.2017, 16:17	8
	прикрепите файл будет проще понять что не так. 0