Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Заменить места в тексте на значения из ячеек
 
Доброго дня знатокам VBA EXCEL !!!   )))
Заменить места в тексте на значения из ячеек
 
Ну или так (для начала ИНДЕКС меняю на INDEX (иначе не работает по коду):
Код
   X1=109
   Range("L109").Formula = "=INDEX(A:H," & X1 & ",5)"  - работает
    Range("L109").Formula ="=20#" & INDEX(A:H;X1;5) & "#" & INDEX(A:H;X1;6) & "#" & INDEX(A:H;X1;7) & "#" - не работает
Изменено: vikttur - 10.10.2021 15:37:37
Заменить места в тексте на значения из ячеек
 
Попробовал...

Метод ИНДЕКС(A:H;X1;5) работает для формул на листе. Для кода VBA выдаёт ошибку на " : " (между A:H)
Заменить места в тексте на значения из ячеек
 
Доброго дня знатокам VBA EXCEL !!!

Подскажите пож-та (уже голову сломал):
Есть текстовое значение T="20#E& X &#F& X &#H& X &#"
Назначаем X=150
Как сделать так, чтобы вместо E& X & появилось значение из ячейки E150, вместо F& X & значение из ячейки F150, вместо H& X & значение из ячейки H150

Заранее благодарен...
Изменено: vikttur - 10.10.2021 11:26:08
Поиск слова без окончания
 
ПРИМЕР_1.xlsx (10.92 КБ)

Вот пример в EXCEL  (вспомнил ещё про фишку FIND - если искомое значение в первой строке диапазона, то FIND его не замечает. Надо ещё расширять диапазон на одну строку вверх (если он именован или задан)....
Поиск слова без окончания
 
....вот поподробнее, с примером:
в столбце А есть данные такого типа:
1 диск 99.10.1
2 диск 9.10.10
3 диск 9.10.1
нужно найти (например): 9.10.1 (здесь под №3)

Использую Find (наверное придётся использовать обработку поиска, раз нет специальных символов отсечь лишнее):

RF="9.10.1"
With Worksheets(1).Range("a1:a500")
    Set c = .Find(RF, lookin:=xlValues, LookAt:=xlPart)
    If Not c Is Nothing Then
       firstAddress = c.Address
       Do
           '------ОБРАБОТКА НАЙДЕННОГО если успех GoTo DoneFinding---------------

           '-----------------------------------------
           Set c = .FindNext©
       If c is Nothing Then
           GoTo DoneFinding
       End If
           '------ОБРАБОТКА НАЙДЕННОГО если успех GoTo DoneFinding---------------

           '-----------------------------------------        
       Loop While c.Address <> firstAddress
     End If
     DoneFinding:
End With
Поиск слова без окончания
 
P/S
....слово (текст) может быть последним в строке (т.е. подстановка пробела (RF= "СЛОВА" & " " ) не сработает.. Как вариант ещё одного примера для поиска: найти 9.10.1 ищет 9.10.10
Поиск слова без окончания
 
Доброго времени суток форумчане!  Может быть вопрос уже где-то обсуждался, заранее извиняюсь (искал, гуглил, не нашёл).
Суть при помощи
Set c = R.Find(RF, LookIn:=xlValues, LookAt:=xlPart)
ищу, например
RF="СЛОВА".
Находит, в том числе
"СЛОВАРИ".
Можно ли добавить какие-то символы в конце, чтобы поиск показывал только нужное?
По одному из примеров на форуме пытался добавить:
RF= "СЛОВА" & "/"  - так при помощи Find не ищет...
Надстройки VBA EXCEL через КЛИЕНТ - СЕРВЕР
 
На сайте http://msdn.microsoft.com/ru-ru/library/office/jj164076#xlsEIV  нашёл следующую информацию:

Службы Excel в SharePoint 2013 вводит новый вид UDF —ECMAScript (JavaScript, JScript) пользовательских функций. JavaScript UDF выполняются в контексте браузера: либо в книге Microsoft Excel , который размещается в Excel Web Access веб-часть на SharePointили в книге, размещенные на веб-страницу узла.
Надстройки VBA EXCEL через КЛИЕНТ - СЕРВЕР
 
Доброго времени суток. форумчане!
Наверняка многие разработчики надстроек задавались вопросом - можно ли разместить надстройку VBA EXCEL на серверной стороне и предоставлять доступ к этой надстройке определённым клиентам (без возможности копировать или изменять код VBA).
Похожие технологии уже существуют, например для ACCESS 2013 через SharePoint Server 2013.
Возможно ли применение похожей технологии к надстройкам VBA EXCEL ?
Страницы: 1
Наверх