Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Извлечение значения ячейки для указания в синтаксисе Offset - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Извлечение значения ячейки для указания в синтаксисе Offset
Furman Дата: Понедельник, 24.06.2013, 22:52 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Есть ячейка с числовым значение (присвоенное имя - "Otstup").
Есть необходимость в том, что бы значение этой ячейки использовать для определения количество столбцов (увеличив его на 2) на которое нужно сместиться для выделении новой ячейки.

То, что пришло на ум:

[vba]
Код
Dim x
x = Otstup + 2
ActiveCell.Offset(1, х).Select
[/vba]
и далее...

- не работает. Смещение происходит только на 2 позиции, а значение Otstup игнорируется.
Как вылечить?

Заранее спасибо.
 
Ответить
СообщениеЕсть ячейка с числовым значение (присвоенное имя - "Otstup").
Есть необходимость в том, что бы значение этой ячейки использовать для определения количество столбцов (увеличив его на 2) на которое нужно сместиться для выделении новой ячейки.

То, что пришло на ум:

[vba]
Код
Dim x
x = Otstup + 2
ActiveCell.Offset(1, х).Select
[/vba]
и далее...

- не работает. Смещение происходит только на 2 позиции, а значение Otstup игнорируется.
Как вылечить?

Заранее спасибо.

Автор - Furman
Дата добавления - 24.06.2013 в 22:52
Саня Дата: Понедельник, 24.06.2013, 23:27 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация: 560 ±
Замечаний: 0% ±

XL 2016
[vba]
Код
x = range("Otstup").value + 2
[/vba]
 
Ответить
Сообщение[vba]
Код
x = range("Otstup").value + 2
[/vba]

Автор - Саня
Дата добавления - 24.06.2013 в 23:27
Furman Дата: Вторник, 25.06.2013, 00:35 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Цитата (Саня)
x = range("Otstup").value + 2


Update. Спасибо. Заработало.


Сообщение отредактировал Furman - Вторник, 25.06.2013, 00:43
 
Ответить
Сообщение
Цитата (Саня)
x = range("Otstup").value + 2


Update. Спасибо. Заработало.

Автор - Furman
Дата добавления - 25.06.2013 в 00:35
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!