Переделать Формулу в код

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Переделать Формулу в код (Макросы/Sub)

Boris_krd

Дата: Вторник, 22.03.2016, 14:18 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Добрый День!

Не силен в vba, но задача по моему мнению может решиться только программно.
Ситуация следующая, есть формула

Код

=ИНДЕКС(Товары!A:A;ПОИСКПОЗ(B4;Товары!A:A;0)+1;1)

При нажатии на кнопку, код должен сработать и записать только получившееся значение в определенную ячейку. Это нужно для того, что бы можно было просто изменить значение ручками или перейти к следующемe в списке.
Как-то так. Как перегнать в vba не знаю. Может у кого-нибудь есть решение данной проблемы или ссылки на похожие. Облазил все, подходящего ничего не нашел.
Заранее спасибо!
Прикладываю файл!
[moder]Для оформления формулы нужно сначала ее выделить а потом нажать на fx.
На первый раз поправил за Вас[/moder]

К сообщению приложен файл: 3125698.xlsx (33.5 Kb)

Сообщение отредактировал SLAVICK - Вторник, 22.03.2016, 14:33

Ответить

SLAVICK

Дата: Вторник, 22.03.2016, 14:38 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Из Вашего примера - не понял какую ячейку нужно менять, поэтому вот:
[vba]

Код

Sub d()
Cells(1, "a").Value = Cells(1, "a").Value
End Sub

[/vba]
Где вместо Cells(1, "a") впишите нужную ячейку.

Иногда все проще чем кажется с первого взгляда.

Сообщение отредактировал SLAVICK - Вторник, 22.03.2016, 14:39

Ответить

Boris_krd

Дата: Вторник, 22.03.2016, 14:45 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Ячейка "E1" на Лист2, попытался вставить не работает

Спасибо, что исправили

Сообщение отредактировал Boris_krd - Вторник, 22.03.2016, 14:46

Ответить

SLAVICK

Дата: Вторник, 22.03.2016, 14:51 | Сообщение № 4

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Цитата Boris_krd, 22.03.2016 в 14:45, в сообщении № 3

Ячейка "E1" на Лист2

Так у Вас там и так значение:
Вставил формулу - циклическая ссылка.
вот для Е1:
[vba]

Код

Sub d()
Cells(1, "e").Value = Cells(1, "e").Value
End Sub

[/vba]

К сообщению приложен файл: 3125698-2-.xlsm (40.9 Kb)

Иногда все проще чем кажется с первого взгляда.

Ответить

Boris_krd

Дата: Вторник, 22.03.2016, 14:55 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Да, понял так не получится.
А может подскажите как можно сделать переход к след. значению в диапазоне Товары!А:А
Что бы это значение вписывалось в E1 на листе 2

Я поэтому и спрашиваю, можно ли эту формулу перенести в код, что бы не было циклических ячеек

Сообщение отредактировал Boris_krd - Вторник, 22.03.2016, 15:00

Ответить

SLAVICK

Дата: Вторник, 22.03.2016, 15:12 | Сообщение № 6

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Цитата Boris_krd, 22.03.2016 в 14:55, в сообщении № 5

А может подскажите как можно сделать переход к след. значению в диапазоне Товары!А:А

Так сразу и нужно было спросить:
[vba]

Код

Sub d()
    With Sheets(1)
    Cells(1, "e").Value = .Columns("A:A").Find(What:=Cells(1, "e").Value, After:=.Cells(1, 1)).Offset(1, 0).Value
    End With
End Sub

[/vba]