Как указать адрес ячейки через переменную

@nnndaniil · Регистрация: 18.01.2011

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

Нужно в ("C5:C116") вместо С116 вставить переменну i, которая обозначает ячейку. Подскажите пожалуйста как это реализовать?

@Alex77755 · 15.06.2012, 01:37

Visual Basic
1
"C5:" & i

Подразумевается, что в i есть и буква

@nnndaniil · 15.06.2012, 02:05 **[ТС]**

я сам запутался =(
нужно что бы макрос работал только для тех ячеек, где есть значение. Я хотел следующим кодом определить последнюю ячейку, вывести адрес ячейки в переменную i. В коде указать i как границу для макроса.

Visual Basic
1
2
3
4
Dim lLastRow As Long
  Dim lLastCol As Long
     lLastRow = Cells(Rows.Count, 3).End(xlUp).Row
      lLastCol = Cells(3, Columns.Count).End(xlToLeft).Column

Подскажите пожалуйста, как это реализовать?

Добавлено через 10 минут

Visual Basic
1
Selection.AutoFill Destination:=Range("C5:" & lLastRow, lLastCol), Type:=xlFillDefault

вот тут выдает ошибку Method 'Range' of object' _Global' Failed

@ikki · 15.06.2012, 04:51

Visual Basic
1
Range("C5", Cells(lLastRow, lLastCol))

@skol13 · 15.06.2012, 08:35

Сообщение от nnndaniil

нужно что бы макрос работал только для тех ячеек, где есть значение. Я хотел следующим кодом определить последнюю ячейку, вывести адрес ячейки в переменную i. В коде указать i как границу для макроса.

Если строки с данными идут без разрывов внутри, то я обычно пользую:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Function Разрыв(Лист, КонтрСтолбец, Optional СоСтроки As Integer)
'функция просматривает ячейки КонтрСтолбца и возвращает номер
'строки в которой найдена пустая ячейка (своеобразный EOF).
'Можно "искать" разрыв, начиная СоСтроки, иначе с первой
  Dim Строка  As Integer
  With Worksheets(Лист)
    If СоСтроки = 0 Then
        Строка = 1
    Else
        Строка = СоСтроки
    End If
 
    Do While .Cells(Строка, КонтрСтолбец).Value <> ""
        Разрыв = Строка
        Строка = Строка + 1
    Loop
  End With
End Function

Понятно что таким же образом, модифицировав макрос, можно найти крайний столбец.
Их пересечение даст крайнюю ячейку

@Gibboustooth · 15.06.2012, 10:07

Range(Cells(i0, j0), Cells(i1,j1))
Где
i0 - номер строки левой верхней ячейки диапазона,
j0 - Номер столбца левой верхней ячейки диапазона,
i1 - номер строки правой нижней ячейки диапазона,
j1 - номер столбца правой нижней ячейки диапазона.

@Dmitrii · 15.06.2012, 10:26

Сообщение от skol13

...функция просматривает ячейки КонтрСтолбца и возвращает номер строки в которой найдена пустая ячейка (своеобразный EOF)...

А разве не проще для этой цели использовать метод SpecialCells?
Пример:

Visual Basic
1
Worksheets(1).Columns(1).Cells.SpecialCells(xlCellTypeBlanks).Item(1).Row

@skol13 · 15.06.2012, 10:47

Сообщение от Dmitrii

А разве не проще для этой цели использовать метод SpecialCells?

А если у вас данные идут не с первой строки?
Например несколько строк пропущенных, потом что-то типа шапки таблицы, в которой тоже не все ячейки заполнены?
Какую строку вернет ваш метод?
Правильно - первую строку в которой есть пустая ячейка в столбце поиска.
Но она будет далеко не последняя из строк с данными.

Добавлено через 12 минут
вообще конечно способов может быть туча и разных.
Который и как применить - все зависит от конкретных условий.
ТС дана куча ответов на его вопрос - что нибудь да пригодится

@sulfur · 15.06.2012, 10:55

Сообщение от nnndaniil

я сам запутался =(
нужно что бы макрос работал только для тех ячеек, где есть значение.

я всегда делал так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
With ОбластьТипаRange
Dim obLast as Range, obCurr as Range
set obLast = .Find("*", searchdirection:=xlPrevious)
if Not obLast is nothing then
set obCurr = obLast
do
set obCurr = .Find("*", after:=obCurr)
Call ОбработкаНайденнойЯчейки(obCurr)
loop obCurr.Address = obLast.Address
endif
end with

Там возникают проблемы, только если по ходу обработки удаляешь или вставляешь ячейки. Не помню этих тонкостей, но если кому надо будет...

Не по теме:

как тут в коде VB вставлять отступы? тэг[INDENT] не работает =/

@Dmitrii · 15.06.2012, 10:58

skol13, моя реплика относится не к задаче автора темы, а к Вашей функции.

Сообщение от skol13

А если у вас данные идут не с первой строки?..

Да ведь ничего же не мешает задать вместо целого столбца нужный диапазон. В функции-то Вы его задаёте, используя переменную СоСтроки.

Visual Basic
1
Worksheets(1).Range(Cells(СоСтроки, 1), Cells(65536, 1)).Cells.SpecialCells(xlCellTypeBlanks).Item(1).Row

@skol13 · 15.06.2012, 11:02

Сообщение от sulfur

Не по теме:
как тут в коде VB вставлять отступы? тэг[INDENT] не работает =/

Не по теме:

Я просто из макроса копирую код - все с отступами получается.
Правда я табулятором отступы в макросе привык делать - с пробелами может и не выходит - не знаю

Добавлено через 2 минуты

Сообщение от Dmitrii

Да ведь ничего же не мешает задать вместо целого столбца нужный диапазон.

Ну так функция то была написана или может быть даже откуда то выдернута в непонятно каком забытом году

Багаж знаний то растет.
А сейчас просто по привычке тащу ее из проекта в проект

@sulfur · 15.06.2012, 11:04

хотя со SpecialCells проще, оказывается =)

@nnndaniil · 15.06.2012, 12:59 **[ТС]**

Сообщение от Gibboustooth

Range(Cells(i0, j0), Cells(i1,j1))

Решил сделать по Вашему примеру, но теперь мне выдает ошибку в строке Selection.AutoFill Destination.
Вот собственно весь код, мне нужно до последней ячейки, в которой есть данные, столбца С- вставить формулу.

Visual Basic
1
2
3
4
5
6
7
8
Range("C5").Select
    ActiveCell.FormulaR1C1 = "=++RC[2]/RC[1]"
    Range("C5").Select
    
    Selection.AutoFill Destination:=Range(Cells(i5, j3), Cells(i200, j3)), Type:=xlFillDefault
    
    Range("C5:C200").Select
    ActiveWindow.SmallScroll Down:=200

@Gibboustooth · 15.06.2012, 13:16

Сообщение от nnndaniil

Решил сделать по Вашему примеру, но теперь мне выдает ошибку в строке Selection.AutoFill Destination.

i и j перед числами не надо ставить. "0" и "1" в моих примерах - просто индексы. Надо было отформатировать:

Range(Cells(i₀, j₀), Cells(i₁,j₁))

Извинияюсь

@nnndaniil · 15.06.2012, 13:50 **[ТС]**

Сообщение от Gibboustooth

i и j перед числами не надо ставить. "0" и "1" в моих примерах - просто индексы. Надо было отформатировать:

Range(Cells(i₀, j₀), Cells(i₁,j₁))

Извинияюсь

Поставил, все заработало, спасибо!
Но я рассчитывал на другой результат, что в этом диапазоне, он будет искать последнюю заполненную ячейку и вставлять формулу только до последней заполненной ячейки, а не для всего диапазона.
Подскажите пожалуйста, как это можно реализовать?

@Gibboustooth · 15.06.2012, 14:25

Сообщение от nnndaniil

Но я рассчитывал на другой результат, что в этом диапазоне, он будет искать последнюю заполненную ячейку и вставлять формулу только до последней заполненной ячейки, а не для всего диапазона.
Подскажите пожалуйста, как это можно реализовать?

выбор последней заполненной ячейки на листе:

Visual Basic
1
Cells.Find("*", , , , xlByRows, xlPrevious)

Если нужно найти последнюю ячейку в определенном столбце:

Visual Basic
1
Columns(i).Find("*", , , , xlByRows, xlPrevious)

где i - номер столбца.

В вашем случае код будет выглядеть так:

Visual Basic
1
Selection.AutoFill Destination:=Range(Cells(5, 3), Columns(3).Find("*", , , , xlByRows, xlPrevious)), Type:=xlFillDefault

@nnndaniil · 15.06.2012, 14:42 **[ТС]**

Сообщение от Gibboustooth

В вашем случае код будет выглядеть так:

Visual Basic
1
Selection.AutoFill Destination:=Range(Cells(5, 3), Columns(3).Find("*", , , , xlByRows, xlPrevious)), Type:=xlFillDefault

Теперь на этой строчке

Visual Basic
1
Selection.AutoFill Destination:=

выдает ошибку, что метод AutoFill из класса Range завершен не верно.

Код сейчас такой:

Visual Basic
1
2
3
4
5
 Range("C5").Select
    ActiveCell.FormulaR1C1 = "=++RC[2]/RC[1]"
    Range("C5").Select
    Selection.AutoFill Destination:=Range(Cells(5, 3), Columns(3).Find("*", , , , xlByRows, xlPrevious)), Type:=xlFillDefault
Range("C5:C150").Select

В чем может быть ошибка?

@ikki · 15.06.2012, 15:18

такую ошибку может выдавать только в одном случае - если Selection совпадает с Destination
конкретно для Вашего случая - все ячейки в столбце C ниже C5 - пустые.

@nnndaniil · 15.06.2012, 15:52 **[ТС]**

Сообщение от ikki

такую ошибку может выдавать только в одном случае - если Selection совпадает с Destination
конкретно для Вашего случая - все ячейки в столбце C ниже C5 - пустые.

Точно!! Извините меня, за мою недальновидность.
У меня сначала макрос вставляет пустой столбце С, затем в него протягивается формула.
Можно сделать что бы формулу копировало до последней строки, в которой есть данные?
Например столбец B, строка 120 является последней, то что бы формулу в столбце С протянуло до 120 строки.

@ikki · 15.06.2012, 16:02

попробуйте так:

Visual Basic
1
[c5].resize([b:b].Find("*", , , , xlByRows, xlPrevious).row-4,1).formular1c1= "=RC[2]/RC[1]"

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

@nnndaniil 1 / 1 / 0 Регистрация: 18.01.2011 Сообщений: 15

	Как указать адрес ячейки через переменную 15.06.2012, 01:18. Показов 66776. Ответов 31 Метки нет (Все метки) Нужно в ("C5:C116") вместо С116 вставить переменну i, которая обозначает ячейку. Подскажите пожалуйста как это реализовать? 0

@Gibboustooth 735 / 203 / 11 Регистрация: 23.06.2011 Сообщений: 440
	15.06.2012, 10:07
	Range(Cells(i0, j0), Cells(i1,j1)) Где i0 - номер строки левой верхней ячейки диапазона, j0 - Номер столбца левой верхней ячейки диапазона, i1 - номер строки правой нижней ячейки диапазона, j1 - номер столбца правой нижней ячейки диапазона. 1

@sulfur 200 / 98 / 2 Регистрация: 24.09.2011 Сообщений: 261
	15.06.2012, 11:04
	хотя со SpecialCells проще, оказывается =) 1

@ikki призрак 3266 / 894 / 119 Регистрация: 11.05.2012 Сообщений: 1,702 Записей в блоге: 2
	15.06.2012, 15:18
	такую ошибку может выдавать только в одном случае - если Selection совпадает с Destination конкретно для Вашего случая - все ячейки в столбце C ниже C5 - пустые. 2