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

Вход

Регистрация

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

 

= Мир MS Excel/На основание формулы, сделать Макрос (Функцию) - Мир MS Excel

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

Excel 2016
Здравствуйте, Уважаемые форумчане !!! Помогите на основание формулы , сделать макрос, или если я не ошибаюсь, функцию, в которой я буду только указывать нужные ячейки.
Пример прикрепляю, если что то не понятно, пишите.
К сообщению приложен файл: 9822510.xlsx(13.9 Kb)
 
Ответить
СообщениеЗдравствуйте, Уважаемые форумчане !!! Помогите на основание формулы , сделать макрос, или если я не ошибаюсь, функцию, в которой я буду только указывать нужные ячейки.
Пример прикрепляю, если что то не понятно, пишите.

Автор - Chelovekov
Дата добавления - 13.06.2018 в 14:35
Chelovekov Дата: Четверг, 14.06.2018, 09:51 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 110
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Извините пожалуйста, но хотелось бы узнать, это задание слишком сложное ??? :( Или наоборот слишком простое ???
 
Ответить
СообщениеИзвините пожалуйста, но хотелось бы узнать, это задание слишком сложное ??? :( Или наоборот слишком простое ???

Автор - Chelovekov
Дата добавления - 14.06.2018 в 09:51
Roman777 Дата: Четверг, 14.06.2018, 10:43 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 880
Репутация: 115 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
Chelovekov, Нет, скорее всего не сложное. Просто чем проще Вы зададите вопрос, тем больше вероятности получить быстрый ответ. У Вас весь вопрос спрятан в файл, что требует от "помощника" его скачивать и самому в нём разбираться.
Лучше всего попытаться начать делать что-то самому, а сюда задавать конкретные вопросы.


Много чего не знаю!!!!
 
Ответить
СообщениеChelovekov, Нет, скорее всего не сложное. Просто чем проще Вы зададите вопрос, тем больше вероятности получить быстрый ответ. У Вас весь вопрос спрятан в файл, что требует от "помощника" его скачивать и самому в нём разбираться.
Лучше всего попытаться начать делать что-то самому, а сюда задавать конкретные вопросы.

Автор - Roman777
Дата добавления - 14.06.2018 в 10:43
Chelovekov Дата: Четверг, 14.06.2018, 10:51 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 110
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Спасибо за ответ, может у кого нибудь будет все же время по разбираться с данным заданием.
 
Ответить
СообщениеСпасибо за ответ, может у кого нибудь будет все же время по разбираться с данным заданием.

Автор - Chelovekov
Дата добавления - 14.06.2018 в 10:51
Manyasha Дата: Четверг, 14.06.2018, 11:09 | Сообщение № 5
Группа: Модераторы
Ранг: Старожил
Сообщений: 2193
Репутация: 892 ±
Замечаний: 0% ±

Excel 2010, 2016
Chelovekov, здравствуйте, пример UDF для первой задачи:
[vba]
Код
Function Sovpad(a, b, c, d, e, f, g)
    If a = "" Then Sovpad = "": Exit Function
        
    If b = c Then
        If d <> 0 And e <> 0 Then
            Sovpad = "Да"
        Else
            Sovpad = "Нет"
        End If
    Else
        If f <> 0 And g <> 0 Then
            Sovpad = "Да"
        Else
            Sovpad = "Нет"
        End If
    End If
End Function
[/vba]
формула в ячейке:
Код
=Sovpad(A5;$B$2;B5;D5;F5;G5;I5)


Дальше делайте по аналогии, там ничего сложного нет.
К сообщению приложен файл: 9822510-1.xlsm(19.8 Kb)


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеChelovekov, здравствуйте, пример UDF для первой задачи:
[vba]
Код
Function Sovpad(a, b, c, d, e, f, g)
    If a = "" Then Sovpad = "": Exit Function
        
    If b = c Then
        If d <> 0 And e <> 0 Then
            Sovpad = "Да"
        Else
            Sovpad = "Нет"
        End If
    Else
        If f <> 0 And g <> 0 Then
            Sovpad = "Да"
        Else
            Sovpad = "Нет"
        End If
    End If
End Function
[/vba]
формула в ячейке:
Код
=Sovpad(A5;$B$2;B5;D5;F5;G5;I5)


Дальше делайте по аналогии, там ничего сложного нет.

Автор - Manyasha
Дата добавления - 14.06.2018 в 11:09
_Boroda_ Дата: Четверг, 14.06.2018, 12:47 | Сообщение № 6
Группа: Модераторы
Ранг: Местный житель
Сообщений: 13245
Репутация: 5454 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Универсальная для любого количества ячеек. Для чисел и букв
Можно писать так
Код
=Sovpad(A61;B$21;B61;D61;E61;F61;G61;H61;I61)
или так
Код
=Sovpad(A61;B$21;B61;D61;E61;F61;G61:H61;I61)
или так
Код
=Sovpad(A61;B$21;B61;D61:F61;G61:I61)
или так
Код
=Sovpad(A61;B$21;B61;D61:I61)

Короче - 3 первых аргумента обязательны, а дальше пишем как хотим - хоть все вместе одной ссылкой, хоть каждую ячейку по отдельности, хоть выборочными диапазонами
К сообщению приложен файл: 9822510_1.xlsm(22.3 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеУниверсальная для любого количества ячеек. Для чисел и букв
Можно писать так
Код
=Sovpad(A61;B$21;B61;D61;E61;F61;G61;H61;I61)
или так
Код
=Sovpad(A61;B$21;B61;D61;E61;F61;G61:H61;I61)
или так
Код
=Sovpad(A61;B$21;B61;D61:F61;G61:I61)
или так
Код
=Sovpad(A61;B$21;B61;D61:I61)

Короче - 3 первых аргумента обязательны, а дальше пишем как хотим - хоть все вместе одной ссылкой, хоть каждую ячейку по отдельности, хоть выборочными диапазонами

Автор - _Boroda_
Дата добавления - 14.06.2018 в 12:47
Chelovekov Дата: Четверг, 14.06.2018, 14:01 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 110
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Огромное спасибо, дай вам бог здоровье, добрые люди. hands
 
Ответить
СообщениеОгромное спасибо, дай вам бог здоровье, добрые люди. hands

Автор - Chelovekov
Дата добавления - 14.06.2018 в 14:01
Chelovekov Дата: Четверг, 14.06.2018, 14:19 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 110
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
А вот такой, вопрос, в стандартных функциях Екселя, всегда есть примечание, ну что это за переменная, текст это или диапазон. А можно ли в функцию которая в сообщение 6 тоже так сделать ? Это для удобства что бы не забывать что куда вводить ?
 
Ответить
СообщениеА вот такой, вопрос, в стандартных функциях Екселя, всегда есть примечание, ну что это за переменная, текст это или диапазон. А можно ли в функцию которая в сообщение 6 тоже так сделать ? Это для удобства что бы не забывать что куда вводить ?

Автор - Chelovekov
Дата добавления - 14.06.2018 в 14:19
_Boroda_ Дата: Четверг, 14.06.2018, 14:49 | Сообщение № 9
Группа: Модераторы
Ранг: Местный житель
Сообщений: 13245
Репутация: 5454 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Это другой вопрос, он не относится к "На основание формулы, сделать Макрос (Функцию)"


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЭто другой вопрос, он не относится к "На основание формулы, сделать Макрос (Функцию)"

Автор - _Boroda_
Дата добавления - 14.06.2018 в 14:49
Мир MS Excel » Вопросы и решения » Вопросы по VBA » На основание формулы, сделать Макрос (Функцию) (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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