Sub t()
Dim c As Range
chislo = 37 'число, ячейку которого нужно найти
stolbec = 1 'номер столбца, который нужно просмотреть
Columns(stolbec).Select
For Each c In Selection
If c.Value = chislo Then MsgBox ("адрес ячейки - " & c.Address)
Next c
End Sub
Программа на VB в Excell
Люди добрые...
Для работы делаю прогу в VB d Excell и возникла такая проблема:
необходимо определить какие ячейки столбца заполнены, сложить в все числа, кторые в этих ячейках записаны, и сумму записать в определённую ячейку...
Памагайте блин...
Для работы делаю прогу в VB d Excell и возникла такая проблема:
необходимо определить какие ячейки столбца заполнены, сложить в все числа, кторые в этих ячейках записаны, и сумму записать в определённую ячейку...
Памагайте блин...
Цитата:
Originally posted by Степан
Люди добрые...
Для работы делаю прогу в VB d Excell и возникла такая проблема:
необходимо определить какие ячейки столбца заполнены, сложить в все числа, кторые в этих ячейках записаны, и сумму записать в определённую ячейку...
Памагайте блин...
Люди добрые...
Для работы делаю прогу в VB d Excell и возникла такая проблема:
необходимо определить какие ячейки столбца заполнены, сложить в все числа, кторые в этих ячейках записаны, и сумму записать в определённую ячейку...
Памагайте блин...
А простое автосуммирование не подходит в этом случае?
Проблема в том что количество ячеек с данными может быть сколько угодно...Конечно если бы их количество было бы одинаково всегда, это было бы просто....А так...
Сразу ещё вопрос: есть допутим число..Как найти адрес ячейки в которую записано данное число
Цитата:
Originally posted by Степан
Проблема в том что количество ячеек с данными может быть сколько угодно...Конечно если бы их количество было бы одинаково всегда, это было бы просто....А так...
Проблема в том что количество ячеек с данными может быть сколько угодно...Конечно если бы их количество было бы одинаково всегда, это было бы просто....А так...
А нельзя сделать =СУММ(А:А)?
Цитата:
Originally posted by Степан
Сразу ещё вопрос: есть допутим число..Как найти адрес ячейки в которую записано данное число
Сразу ещё вопрос: есть допутим число..Как найти адрес ячейки в которую записано данное число
А это число у тебя уникально что-ли? Если оно повторяется в столбце?
Знаешь я вообще VB неделю только знаю...Так что с чем пока сам разобрался то и могу сделать...))))
Так что мне если только популярно объяснить...)))..
Так что мне если только популярно объяснить...)))..
ну вот ещё блин непонятка...((((
для использорвания в формуле пытаюсь выдернуть значение из ячейки, которая стоит на 1 ячейку выше той, в которая выделена таким образом
с = Val(ActiveCell.Offset(-1, 0))
однако число записывается в переменную с почему-то целым, а не десятичой дробью как оно записано в ячейке...В чём прикол?
для использорвания в формуле пытаюсь выдернуть значение из ячейки, которая стоит на 1 ячейку выше той, в которая выделена таким образом
с = Val(ActiveCell.Offset(-1, 0))
однако число записывается в переменную с почему-то целым, а не десятичой дробью как оно записано в ячейке...В чём прикол?
Цитата:
Originally posted by Степан
Знаешь я вообще VB неделю только знаю...Так что с чем пока сам разобрался то и могу сделать...))))
Так что мне если только популярно объяснить...)))..
Знаешь я вообще VB неделю только знаю...Так что с чем пока сам разобрался то и могу сделать...))))
Так что мне если только популярно объяснить...)))..
Код:
И ещё раз спасибо...)))