Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Подсчет заданной комбинации символов в ячейке
 
#1
16.10.2012 10:25:17
Всем здрасти, надеюсь Вы поможите разобраться.  
Обрисую что нужно - есть ячейка с данными, которые к примеру помечены "*" или "**", и нужно вот чтоб excel сам просчитал сколько таких совпадений в данной ячейке будет.    
Что касается когда помечено только одним символом, то в прикрепленном файле считает, но он не понимает если задать комбинацию символов ("**"), помогите плиз.
 
 
 
#2
16.10.2012 10:48:12
счет букв "п"  
=ДЛСТР(A4)-ДЛСТР(ПОДСТАВИТЬ(A4;"п";))  
Счет сочетания "про":  
=ДЛСТР(A4)-ДЛСТР(ПОДСТАВИТЬ(A4;"про";))/3  
 
В общем случае:  
=(ДЛСТР(A4)-ДЛСТР(ПОДСТАВИТЬ(A4;ссылка;)))/ДЛСТР(ссылка),  
где "ссылка" - ссылка на ячейку с искомым.  
 
Аккуратнее со знаками "*" и "?". В Excel эти символы служат знаками подстановки и обозначают:  
"?" - один любой символ;  
"*" - все символы.  
Например:  
"??п" - саП, коП, пуП;  
"п*" -Поп, Получка, Перекатиполе.  
"*уп?" - крУПа, пУПс.
 
 
 
#3
16.10.2012 12:30:30
А в виде макроса не подскажите как это реализовать мою задачку и именно чтоб подсчитывались либо спецсимволы "*;" или "**;", как показано в примере. Мне не нужно искать какие-то буквы, именно загвоздка в том, чтоб найти и посчитать совпадения, отмеченные каким-либо спецсимволом (к примеру с помощью *)
 
 
 
#4
16.10.2012 12:39:20
Function LetterNum&(rng As Range, lett$)  
   LetterNum = UBound(Split(rng.Value, lett))  
End Function
 
 
 
#5
16.10.2012 12:41:48
Хотя * найдёт и в **... Не годятся такие пометки. Или на regexp нужно делать.  
Я пас.
 
 
 
#6
16.10.2012 12:42:42
В примере: "необходимо чтоб подсчет велся только нужной комбинации символов"  
НУЖНАЯ комбинация - это какая?
 
 
 
#7
16.10.2012 12:44:50
можно с помощью instr, она не понимает спецсимволы.
Я сам - дурнее всякого примера! ...
 
 
 
#8
16.10.2012 12:47:07
Я так понял Вам надо было строчку  
Mid(rng.Value, i, 1)  
заменить на  
Mid(rng.Value, i, Len(lett$))  
 
но решение Hugo просто класс - такого подхода я еще не встречал. +1  
________________________  
khafizovtt@gmail.com
Учимся сами и помогаем другим...
 
 
 
#9
16.10.2012 12:51:47
Да не, подход со сплитом давно известен.  
Но в этом случае  не годится, не отличает один символ от двух.
 
 
 
#10
16.10.2012 13:16:23
На регулярных  
Private Const regSymbols As String = "\^$*+-?.()|{},[]"
Private FRegExp As Object  
 
Public Function SymbolCount(ByVal Text As String, ByVal Symbol As String, ByVal Repeat As Long) As Long  
   Symbol = Trim$(Symbol): If Len(Symbol) > 1 Then Err.Raise vbObjectError + 1  
   If FRegExp Is Nothing Then  
       Set FRegExp = CreateObject("VBScript.RegExp")  
       FRegExp.Global = True  
   End If  
   If InStr(regSymbols, Symbol) > 0 Then Symbol = "\" & Symbol  
   FRegExp.Pattern = Symbol & "{" & CStr(Repeat) & "}"  
   SymbolCount = FRegExp.Execute(Text).Count  
End Function  
 
Пример для использования  
=SymbolCount(A4;"*";2)
 
 
 
#11
16.10.2012 13:24:59
Function LetterNum&(rng As Range, lett$)  
   Dim c&, i&  
   On Error Resume Next  
   s = rng.Value  
   c = 0  
   Do While InStr(Mid(s, 2), lett) > 0  
       If InStr(Mid(s, 2), lett + lett) = InStr(Mid(s, 2), lett) Then  
           s = Mid(s, InStr(Mid(s, 2), lettlett + lett) + 2 * Len(lett))  
       Else  
           s = Mid(s, InStr(Mid(s, 2), lett) + Len(lett))  
           c = c + 1  
       End If  
   Loop  
 
   LetterNum = c  
End Function  
________________________  
khafizovtt@gmail.com
Учимся сами и помогаем другим...
 
 
 
#12
16.10.2012 13:35:31
Увы, для одиночного символа вариант не учёл  
Private Const regSymbols As String = "\^$*+-?.()|{},[]"
Private FRegExp As Object  
 
Public Function SymbolCount(ByVal Text As String, ByVal Symbol As String, ByVal Repeat As Long) As Long  
   Dim sPattern As String  
   Symbol = Trim$(Symbol): If Len(Symbol) > 1 Then Err.Raise vbObjectError + 1  
   If FRegExp Is Nothing Then  
       Set FRegExp = CreateObject("VBScript.RegExp")  
       FRegExp.Global = True  
   End If  
   If InStr(regSymbols, Symbol) > 0 Then Symbol = "\" & Symbol  
   If Repeat = 1 Then  
       sPattern = "[^" & Symbol & "]" & Symbol & "[^" & Symbol & "]"
   Else  
       sPattern = Symbol & "{" & CStr(Repeat) & "}"  
   End If  
     
   FRegExp.Pattern = sPattern  
   SymbolCount = FRegExp.Execute(Text).Count  
End Function
 
 
 
#13
16.10.2012 13:48:26
Почему-то одиночную "р" считает верно, а с "*" врёт! Пишет 3 - а ведь их 4!
 
 
 
#14
16.10.2012 13:49:53
видимо последнюю звездочку не считает
Учимся сами и помогаем другим...
 
 
 
#15
16.10.2012 13:51:18
Хотя помоголо  
SymbolCount = FRegExp.Execute(Text & " ").Count  
:)
 
 
 
#16
16.10.2012 13:58:08
Упс, тогда вот так поменяем, чтоб и в начале и в конце работало  
   If Repeat = 1 Then  
       sPattern = "(^|[^" & Symbol & "])" & Symbol & "([^" & Symbol & "]|$)"
   Else  
       sPattern = Symbol & "{" & CStr(Repeat) & "}"  
   End If
 
 
 
#17
16.10.2012 15:21:37
Если речь только о звездочках:  
Function FindSymb(ByVal txt$, ByVal CountSymb&) As Long  
   With CreateObject("VBScript.regexp"): .Global = True  
   .Pattern = "(^|[^\*])\*{" & CountSymb & "}([^\*]|$)"
   FindSymb = IIf(.test(txt$), .Execute(txt$).Count, 0)  
   End With  
End Function
Я сам - дурнее всякого примера! ...
 
 
 
Страницы: 1
Читают тему
Наверх