Подскажите, что не так в коде, нужно подсчитать кол-во строк?
[vba]
Код
Dim odin2 As Worksheet Set odin2 = czdfm.Sheets("1") Dim i, n, m As Integer Dim c, z As String Dim vsegoClientov As Integer i = vsegoStrok
For i = 2 To 100000 c = CStr(odin2.Cells(i, 4).Value) If c <> "" Then vsegoClientov = vsegoClientov + 1 Else Exit For End If Next i For i = 2 To vsegoClientov
[/vba]
И сразу второй вопрос, как вставить формулу в выбранный диапаозон?
Подскажите, что не так в коде, нужно подсчитать кол-во строк?
[vba]
Код
Dim odin2 As Worksheet Set odin2 = czdfm.Sheets("1") Dim i, n, m As Integer Dim c, z As String Dim vsegoClientov As Integer i = vsegoStrok
For i = 2 To 100000 c = CStr(odin2.Cells(i, 4).Value) If c <> "" Then vsegoClientov = vsegoClientov + 1 Else Exit For End If Next i For i = 2 To vsegoClientov
[/vba]
И сразу второй вопрос, как вставить формулу в выбранный диапаозон?Elvira66
Сообщение отредактировал Pelena - Суббота, 20.05.2017, 11:46
Правила: [offtop]Почему у меня теги в Правилах так выглядят?[/offtop] И еще Правила:
Цитата
3. Кратко, но ёмко опишите задачу в теле поста. ВСЕГДА прикладывайте файл-пример, кроме тех случаев, когда вопрос носит общий характер и не касается конкретно Вашего файла. Темы касающиеся конкретного файла, но без приложенного примера, будут закрываться или удаляться.
Это вот не для красного словца. Вы скорей всего, считаете строки самым неэффективным способом. Устраняйте замечания, можно будет продолжить.
Правила: [offtop]Почему у меня теги в Правилах так выглядят?[/offtop] И еще Правила:
Цитата
3. Кратко, но ёмко опишите задачу в теле поста. ВСЕГДА прикладывайте файл-пример, кроме тех случаев, когда вопрос носит общий характер и не касается конкретно Вашего файла. Темы касающиеся конкретного файла, но без приложенного примера, будут закрываться или удаляться.
Это вот не для красного словца. Вы скорей всего, считаете строки самым неэффективным способом. Устраняйте замечания, можно будет продолжить.KuklP