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

Вход

Регистрация

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

 

= Мир MS Excel/Узнать адрес ячейки относительно дипазона - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Узнать адрес ячейки относительно дипазона
Funtik Дата: Пятница, 15.07.2011, 14:30 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Добрый день, форумчане. Подскажите пожалуйста. Можно ли узнать с помощью VBA номер строки/адрес ячейки относительно диапазона.?
Дело в том что есть диапазон состоящий из n столбцов и m строк, мне необходимо объединить ячейки например первых 2-х столбцов нечетных строк с нижестоящими ячейками. Чтобы не писать цикл в цикле (по строкам и по столбцам). Хочу использовать for each, для объединения мне нужно знать строку выбранной ячейки относительно диапазона. Или же в цикле for each создать свои счетчики и действовать смещением относительно позиций ячейки на странице? Подскажите как действовать наиболее оптимальней.
К сообщению приложен файл: test_1.xlsx (8.7 Kb)
 
Ответить
СообщениеДобрый день, форумчане. Подскажите пожалуйста. Можно ли узнать с помощью VBA номер строки/адрес ячейки относительно диапазона.?
Дело в том что есть диапазон состоящий из n столбцов и m строк, мне необходимо объединить ячейки например первых 2-х столбцов нечетных строк с нижестоящими ячейками. Чтобы не писать цикл в цикле (по строкам и по столбцам). Хочу использовать for each, для объединения мне нужно знать строку выбранной ячейки относительно диапазона. Или же в цикле for each создать свои счетчики и действовать смещением относительно позиций ячейки на странице? Подскажите как действовать наиболее оптимальней.

Автор - Funtik
Дата добавления - 15.07.2011 в 14:30
nilem Дата: Пятница, 15.07.2011, 14:55 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Так пойдет?
[vba]
Код
Dim i&
For i = 5 To 9 Step 2
      Cells(i, 4).Resize(2).Merge
      Cells(i, 5).Resize(2).Merge
Next
[/vba]


Яндекс.Деньги 4100159601573
 
Ответить
СообщениеТак пойдет?
[vba]
Код
Dim i&
For i = 5 To 9 Step 2
      Cells(i, 4).Resize(2).Merge
      Cells(i, 5).Resize(2).Merge
Next
[/vba]

Автор - nilem
Дата добавления - 15.07.2011 в 14:55
Funtik Дата: Пятница, 15.07.2011, 15:23 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

yes , отлично! спасибо Nilem
 
Ответить
Сообщениеyes , отлично! спасибо Nilem

Автор - Funtik
Дата добавления - 15.07.2011 в 15:23
  • Страница 1 из 1
  • 1
Поиск:

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