Vba excel посчитать количество строк в таблице excel

dimusiko

0 / 0 / 0

Регистрация: 14.07.2014

Сообщений: 5

Метки нет (Все метки)

доброго времени суток!
есть небольшая проблема, не знаю в чем загвостка. хочу вывести количество строк из таблицы excel в text box (количество строк все время изменяется)

1
2
3
4
5
6
7

Private Sub CommandButton4_Click()
i = 1
Do While Cells(i, 1) <> ""
i = i + 1
i = TextBox1.Text
Loop
End Sub

почему то не выводит и ругается на 2ую строку и еще

если кому не сложно опишите пожалуйста простейший цикл для вывода количества повторяющихся ячеек в 1 колонке excel
тоесть мне нужно ввести в textbox допустим дату, нажать на кнопку и в другом текстбоксе должна появиться цифра обозначающая сколько раз эта дата встречалась в данном столбце excel

А как именно ругается — это секрет?
Могу лишь предположить, что второй строкой должно быть

1

dim i as long

1

i = TextBox1.Text

Может быть, наоборот надо

1

TextBox1.Text=i

И вынести эту строку из цикла, зачем нужен лишний тормоз.
А если хочется анимировать процесс счета, тогда в цикл надо вставить doevents для обновления формы

Аксима

6076 / 1320 / 195

Регистрация: 12.12.2012

Сообщений: 1,023

Апострофф, с возвращением !

Можно и без цикла:

1
2
3
4
5
6
7
8
9
10
11
12
13

Private Sub CommandButton5_Click()
    Dim s As String, c As Range, rng As Range, rnC As Range, rnF As Range
    'Находим ячейки со значениями в первом столбце листа.
    On Error Resume Next: Set rnC = Columns(1).SpecialCells(xlCellTypeConstants, 3): Set rnF = Columns(1).SpecialCells(xlCellTypeFormulas, 3): On Error GoTo 0
    'Если в первом столбце листа нет значений, возвращаем нулевое количество совпадений.
    If rnC Is Nothing Then If rnF Is Nothing Then TextBox2 = 0: Exit Sub Else Set rng = rnF Else If rnF Is Nothing Then Set rng = rnC Else Set rng = Union(rnC, rnF)
    'Смотрим, что находится в TextBox1, и подбираем нужный шаблон для функции Find.
    If IsDate(TextBox1) And InStr(TextBox1, Format(0, ".")) = 0 Then s = Format(CDate(TextBox1), "m/d/yyyy") Else If IsNumeric(TextBox1) Then s = Replace(TextBox1, Format(0, "."), ".") Else s = TextBox1
    'Ищем в первом столбце активного листа нужное значение.
    Set c = rng.Find(What:=s, LookIn:=xlFormulas, LookAt:=xlWhole)
    'Если значение найдено, подсчитываем количество всех совпадений с помощью свойства ColumnDifferences, иначе возвращаем нулевое количество совпадений.
    If Not c Is Nothing Then TextBox2 = rng.Count - rng.ColumnDifferences(c).Count Else TextBox2 = 0
End Sub

С уважением,

Aksima

Не по теме:

Aksima, Вас тоже!:friends:
И с назначением!:drink:

Ts

8 / 8 / 3

Регистрация: 12.07.2014

Сообщений: 19

C текстбоксом не работал, но скорее всего должно быть что-то вроде того:

1
2
3
4
5
6
7
8
9
10

Private Sub CommandButton4_Click()
  x_row = 1
  Do
    If Cells(x_row, 1) = "" Then
      Exit Do
    End If
    x_row = x_row + 1
  Loop
  TextBox1.Text = x_row
End Sub

Hedge-Hog

81 / 18 / 1

Регистрация: 22.05.2013

Сообщений: 32

Эта функция вернёт номер последней занятой строки на листе:

1
2
3
4

Function getMaxRow(Optional sh As Worksheet = Nothing)
    If sh Is Nothing Then Set sh = ActiveSheet
    getMaxRow = sh.Cells.Find("*", sh.Range("A1"), xlFormulas, , xlByRows, xlPrevious).Row
End Function

А эта — номер последней занятой строки в конкретном столбце:

1

maxRow = Cells(ActiveSheet.Cells.Rows.Count, curColumnNum).End(xlUp).Row

Hugo121

6875 / 2807 / 533

Регистрация: 19.10.2012

Сообщений: 8,562

Количество занятых в первом столбце (по Вашему алгоритму, но может быть нужно как уже подсказано чуть выше):

1

MsgBox [A1].End(xlDown).Row

А с «цифра обозначающая сколько раз эта дата встречалась» чуть сложнее — но нужно видеть файл.
В моём работает так:

1
2

s = "16.07.2014" 'это что взяли из текстбокса
MsgBox Application.CountIf(Range("A:A"), CDate(s))

Hedge-Hog

81 / 18 / 1

Регистрация: 22.05.2013

Сообщений: 32

Поправочка: это номер последней строки в сплошном диапазоне.
Будете идти от верхней ячейки — остановитесь на первой пустой ячейке. Лучше идти снизу.

А, вообще, количество

занятых

лучше получить через

1

numOfNonBlankCells = WorksheetFunction.CountA(Range(...))

6875 / 2807 / 533

Регистрация: 19.10.2012

Сообщений: 8,562

Ну так ведь ТС так и идёт — вероятно ему именно так и нужно!
И я там указал — это по его алгоритму.

А количество занятых вроде вообще никого не интересовало, это возможно я так неудачно выразился…