Задать переменные функции при её вызове

@Kerajel · Регистрация: 22.07.2012

Author24 — интернет-сервис помощи студентам

Добрый вечер!

Использую следующую функцию, которая просто записана в ячейках как формула:
http://www.excel-vba.ru/chto-u... cepitesli/
=СцепитьЕсли('W:\Салат\[Сова.xlsm]2018'!$K:$BF;AU2;'W:\Салат\[Сова.xlsm]2018'!$BF:$BF;", ";1)

Но хочется реализовать следующее:

Запускать эту функцию не как формулу в ячейке, а как саб, который применяет эту функцию к выделенному диапазону.

У функции есть следующие переменные:

Function СцепитьЕсли(ByRef Диапазон As Range, ByVal Критерий As String, ByRef Диапазон_сцепления As Range, Optional Разделитель As String = " ", Optional БезПовторов As Boolean = False) As String
Dim li As Long, sStr As String, avItem, avDateArr(), avRezArr(), lUBnd As Long

Каким образом можно задать этим переменным диапазон при вызове функции, например "Диапазон" это W:\Салат\[Сова.xlsm]2018'!$K:$BF ?

@Казанский · 17.01.2018, 08:49

Kerajel, функция, вызванная из саба, не сможет обратиться к закрытой книге. Оптимальный способ - саб вставляет формулу в выделенный диапазон, потом заменяет формулу на значение:

Visual Basic

Sub Ke()
  With Selection
    .FormulaR1C1 = "формула_в_стиле_R1C1"
    .Value = .Value
  End Sub

Чтобы получить формулу_в_стиле_R1C1, выделите ячейку с формулой, в VBA в окне Immediate

Visual Basic

1	?activecell.formular1c1

@Kerajel · 17.01.2018, 11:48 **[ТС]**

Благодарю!

@Kerajel · 17.01.2018, 21:49 **[ТС]**

Ругается на кавычки внутри формулы: https://yadi.sk/i/KTLyQpHE3RYc7v

~~Остап Бонд~~ · 17.01.2018, 22:06

Kerajel, продублируйте эту и следующую кавычку.

@Kerajel · 17.01.2018, 23:27 **[ТС]**

Работает, большое спасибо! А по какому принципу нужно так дублировать кавычки?

@Vlad999 · 18.01.2018, 12:58

в формуле одна кавычка записывается в vba как две кавычки.

@Kerajel 6 / 6 / 1 Регистрация: 22.07.2012 Сообщений: 125
		1
	Задать переменные функции при её вызове 17.01.2018, 02:23. Показов 1456. Ответов 6 Метки нет (Все метки) Добрый вечер! Использую следующую функцию, которая просто записана в ячейках как формула: http://www.excel-vba.ru/chto-u... cepitesli/ =СцепитьЕсли('W:\Салат\[Сова.xlsm]2018'!$K:$BF;AU2;'W:\Салат\[Сова.xlsm]2018'!$BF:$BF;", ";1) Но хочется реализовать следующее: Запускать эту функцию не как формулу в ячейке, а как саб, который применяет эту функцию к выделенному диапазону. У функции есть следующие переменные: Function СцепитьЕсли(ByRef Диапазон As Range, ByVal Критерий As String, ByRef Диапазон_сцепления As Range, Optional Разделитель As String = " ", Optional БезПовторов As Boolean = False) As String Dim li As Long, sStr As String, avItem, avDateArr(), avRezArr(), lUBnd As Long Каким образом можно задать этим переменным диапазон при вызове функции, например "Диапазон" это W:\Салат\[Сова.xlsm]2018'!$K:$BF ? 0

@Kerajel 6 / 6 / 1 Регистрация: 22.07.2012 Сообщений: 125
	17.01.2018, 11:48 [ТС]	3
	Благодарю! 0

@Kerajel 6 / 6 / 1 Регистрация: 22.07.2012 Сообщений: 125
	17.01.2018, 21:49 [ТС]	4
	Ругается на кавычки внутри формулы: https://yadi.sk/i/KTLyQpHE3RYc7v Миниатюры 0

~~Остап Бонд~~ Заблокирован
	17.01.2018, 22:06	5
	Kerajel, продублируйте эту и следующую кавычку. 0

@Kerajel 6 / 6 / 1 Регистрация: 22.07.2012 Сообщений: 125
	17.01.2018, 23:27 [ТС]	6
	Работает, большое спасибо! А по какому принципу нужно так дублировать кавычки? 0

@Vlad999 3897 / 2302 / 776 Регистрация: 02.11.2012 Сообщений: 6,119
	18.01.2018, 12:58	7
	в формуле одна кавычка записывается в vba как две кавычки. 0

Задать переменные функции при её вызове

Решение