Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
avv-avv
0 / 0 / 0
Регистрация: 29.11.2010
Сообщений: 42
1

Как сделать, чтобы kod= "=Find("","", R2C1, 1)"

24.12.2010, 14:03. Просмотров 1690. Ответов 4
Метки нет (Все метки)

Как следующий код

Visual Basic
1
2
3
Cells(1, 9).Select
ActiveCell.FormulaR1C1 = '=Find('','', R2C1, 1)'
kod = Cells(1, 9)
заменить на:
Visual Basic
1
kod= '=Find('','', R2C1, 1)'
т.е. переменная kod сразу получает результат работы с ячейками с использованием некой формулы.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.12.2010, 14:03
Ответы с готовыми решениями:

Как сделать, чтобы, когда нажимается кнопка "ОК" данные из combobox1 и combobox2 Печатались на "Лист1"
Как сделать, чтобы, когда нажимается кнопка "ОК" данные из combobox1 и...

Как сделать так, чтобы макрос удалял данные из строки, начиная со столбца "p" и заканчивая столбцом "y"?
Здравствуйте, как сделать так, чтобы макрос удалял данные из строки, начиная со...

MS Acces VBA. Как вывести поле "фамилия" и "группа" из таблицы "студенты" в Access ?
Использовать Fields? Посмотрите в рисунке задания.

Проверить, содержит ли строка символы отличные от "+", "-", "*" и "/"
"+", "-", "*" и "/" вот начал, дальше не знаю что делать Sub rr() ...

Outlook: как задать "начало для письма" и чтобы был "прикреплен" соответствующий флаг
Доброго времени суток. В почте Outlook 2010, есть поле "Состояние отметки" -...

4
SlavaRus
1091 / 205 / 29
Регистрация: 15.03.2010
Сообщений: 641
26.12.2010, 09:31 2
Посмотри в Help WorksheetFunction
код=Application.WorksheetFunction.Find('2', [a1])
0
avv-avv
0 / 0 / 0
Регистрация: 29.11.2010
Сообщений: 42
26.12.2010, 11:43  [ТС] 3
Set myCell = Worksheets('Лист1').Cells(2, 1)
Pos_Point = Application.WorksheetFunction.Search(',', myCell, 1)
Выдает:
'Невозможно получить свойство Seаrch класса WorkSheetFunction'
0
SlavaRus
1091 / 205 / 29
Регистрация: 15.03.2010
Сообщений: 641
27.12.2010, 09:28 4
Если функция рабочего листа не находит значение, то генерится ошибка. Нужно просто ее обработать. Возможный вариант:

On Error Resume Next
Set myCell = Worksheets('Лист1').Cells(2, 1)
Pos_Point = Application.WorksheetFunction.Search(',', myCell, 1)
If Err.Number <> 0 Then
Err.Clear
Else
'...
'Твой код при успешном выполнении поиска
'...
End If
0
SlavaRus
1091 / 205 / 29
Регистрация: 15.03.2010
Сообщений: 641
27.12.2010, 11:08 5
Еще можно посмотреть Application.Evaluate
Пример:
MsgBox Evaluate('=find(''5'',A2,1)')

Таким образом можно вычислять лыбые формулы.
Удачи! )
0
27.12.2010, 11:08
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.12.2010, 11:08

Выборка уникальных дат из строк листа "l1" и помещение их в лист "l3", Не получается. На листе "l3" вставляет
Запускаю с листа &quot;l1&quot; построчно работает, но мне нужно, чтобы заполнялись...

Присвоить значение "10" элементам большим "120" и меньшим"150" масива Р(10,20)
Простите за дублирование, но мой прошлый вопрос не увенчался большим успехом......

В последнем абзаце удалить все вхождения символов "+","-", "*"
Дан любой текст В последнем абзаце удалить все вхождения символов &quot;+&quot;,&quot;-&quot;, &quot;*&quot;.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru