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

Вход

Регистрация

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

 

= Мир MS Excel/Убирание индексов согласно перечню с помощью макроса - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Убирание индексов согласно перечню с помощью макроса (Макросы/Sub)
Убирание индексов согласно перечню с помощью макроса
Vselennaya Дата: Понедельник, 09.07.2018, 15:29 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Помогите сделать макрос для создания соседнего столбца без индексов.
К сообщению приложен файл: 8314700.xls(25.0 Kb)
 
Ответить
СообщениеПомогите сделать макрос для создания соседнего столбца без индексов.

Автор - Vselennaya
Дата добавления - 09.07.2018 в 15:29
_Boroda_ Дата: Понедельник, 09.07.2018, 15:34 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 13509
Репутация: 5528 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Может Вам простенькой формулой подойдет?
Код
=ПРОСМОТР(;-ПОИСК(D$2:D$7;A2);D$2:D$7)
К сообщению приложен файл: 8314700_1.xls(25.5 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеМожет Вам простенькой формулой подойдет?
Код
=ПРОСМОТР(;-ПОИСК(D$2:D$7;A2);D$2:D$7)

Автор - _Boroda_
Дата добавления - 09.07.2018 в 15:34
Kuzmich Дата: Понедельник, 09.07.2018, 19:52 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 380
Репутация: 75 ±
Замечаний: 0% ±

Excel 2003
Цитата
сделать макрос для создания соседнего столбца без индексов

[vba]
Код
Sub WithOutIndex()
Dim i As Long
Dim iLastRow As Long
Dim FoundCell As Range
Dim FAdr As String
   iLastRow = Cells(Rows.Count, 4).End(xlUp).Row
   For i = 2 To iLastRow
    Set FoundCell = Columns(1).Find(Cells(i, 4), , xlValues, xlPart)
     If Not FoundCell Is Nothing Then
        FAdr = FoundCell.Address
      Do
        FoundCell.Offset(, 1) = Cells(i, 4)
       Set FoundCell = Columns(1).FindNext(FoundCell)
      Loop While FoundCell.Address <> FAdr
     End If
   Next
End Sub
[/vba]
 
Ответить
Сообщение
Цитата
сделать макрос для создания соседнего столбца без индексов

[vba]
Код
Sub WithOutIndex()
Dim i As Long
Dim iLastRow As Long
Dim FoundCell As Range
Dim FAdr As String
   iLastRow = Cells(Rows.Count, 4).End(xlUp).Row
   For i = 2 To iLastRow
    Set FoundCell = Columns(1).Find(Cells(i, 4), , xlValues, xlPart)
     If Not FoundCell Is Nothing Then
        FAdr = FoundCell.Address
      Do
        FoundCell.Offset(, 1) = Cells(i, 4)
       Set FoundCell = Columns(1).FindNext(FoundCell)
      Loop While FoundCell.Address <> FAdr
     End If
   Next
End Sub
[/vba]

Автор - Kuzmich
Дата добавления - 09.07.2018 в 19:52
Vselennaya Дата: Вторник, 10.07.2018, 08:10 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Спасибо, _Boroda_, формулой делала. Интересно было как макросом.
 
Ответить
СообщениеСпасибо, _Boroda_, формулой делала. Интересно было как макросом.

Автор - Vselennaya
Дата добавления - 10.07.2018 в 08:10
Vselennaya Дата: Вторник, 10.07.2018, 08:10 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 18
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Kuzmich, спасибо!
 
Ответить
СообщениеKuzmich, спасибо!

Автор - Vselennaya
Дата добавления - 10.07.2018 в 08:10
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Убирание индексов согласно перечню с помощью макроса (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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