Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.04.2018, 12:53   #1
Сергей_53
 
Регистрация: 28.04.2018
Сообщений: 9
По умолчанию Не работает функция пользователя

Кто-нибудь может подсказать почему не работает функция.
Она должна определять встречаемость заданного символа в тексте ячейки.
Function Nsis3(txt As String, simv As String) As Integer
Dim n As String, pp1 As Integer, j As Integer
pp1 = 0
For jCounter = 1 To 10
n = Mid(txt, j, 1)

If n = simv Then
pp1 = pp1 + 1

End If

Next

Nsis3 = pp1

End Function
Сергей_53 вне форума Ответить с цитированием
Старый 28.04.2018, 12:59   #2
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

Код:
For j = 1 To Len(txt)
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Старый 28.04.2018, 13:12   #3
Сергей_53
 
Регистрация: 28.04.2018
Сообщений: 9
По умолчанию

Спасибо. Все работает.
Сергей_53 вне форума Ответить с цитированием
Старый 28.04.2018, 14:37   #4
Сергей_53
 
Регистрация: 28.04.2018
Сообщений: 9
По умолчанию

Мелочь, а приятно. Еще раз спасибо.
Сергей_53 вне форума Ответить с цитированием
Старый 28.04.2018, 19:01   #5
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

Код:
Function Nsis3(txt As String, simv As String) As Integer
  Nsis3 = Len(txt) - Len(Replace(txt, simv, ""))
End Function
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 29.04.2018, 03:59   #6
Сергей_53
 
Регистрация: 28.04.2018
Сообщений: 9
По умолчанию

Спасибо. Все гениальное -просто.
Сергей_53 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Функция пользователя с переменным числом параметров. С++ Mas0n_ Помощь студентам 1 15.01.2017 17:56
Sendmail работает, функция mail() работает, но есть проблема. PavelNAndreev PHP 8 27.01.2014 12:45
Функция пользователя Excel Nijel Помощь студентам 5 22.05.2013 08:15
Как сделать перенаправления пользователя в новом окне. windows.open не работает Rost93 JavaScript, Ajax 2 22.06.2012 19:04
Приложение не работает у пользователя Strax Общие вопросы Delphi 7 02.03.2012 13:59