Подсчёт строк - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подсчёт строк (Макросы/Sub)

Подсчёт строк

Elvira66

Дата: Воскресенье, 09.04.2017, 18:16 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 117

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Подскажите, что не так в коде, нужно подсчитать кол-во строк?

[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]

И сразу второй вопрос, как вставить формулу в выбранный диапаозон?

Сообщение отредактировал Pelena - Суббота, 20.05.2017, 11:46

Ответить

Pelena

Дата: Воскресенье, 09.04.2017, 18:54 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19185

Репутация: 4420 ±

Замечаний: ±

Excel 365 & Mac Excel

Elvira66, оформите код тегами в этой и в предыдущей теме.
Вам замечание.
Помогающих прошу не отвечать до исправления

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Elvira66

Дата: Воскресенье, 09.04.2017, 19:03 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 117

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Я бы оформила, если бы знала, что нужно сделать

Ответить

Pelena

Дата: Воскресенье, 09.04.2017, 19:17 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 19185

Репутация: 4420 ±

Замечаний: ±

Excel 365 & Mac Excel

В режиме правки поста выделить код и нажать кнопку # на панели инструментов, затем сохранить изменения.
Обо всём этом есть в Правилах форума

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

KuklP

Дата: Воскресенье, 09.04.2017, 21:07 | Сообщение № 5

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Цитата Elvira66, 09.04.2017 в 18:16, в сообщении № 1 ()

И сразу второй вопрос

Правила:

[offtop]Почему у меня теги в Правилах так выглядят?[/offtop]
И еще Правила:

Цитата

3. Кратко, но ёмко опишите задачу в теле поста. ВСЕГДА прикладывайте файл-пример, кроме тех случаев, когда вопрос носит общий характер и не касается конкретно Вашего файла. Темы касающиеся конкретного файла, но без приложенного примера, будут закрываться или удаляться.

Это вот не для красного словца. Вы скорей всего, считаете строки самым неэффективным способом. Устраняйте замечания, можно будет продолжить.

К сообщению приложен файл: 5987334.gif (4.9 Kb)

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Воскресенье, 09.04.2017, 21:09

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подсчёт строк (Макросы/Sub)

Страница 1 из 1
1