Подсчёт количества звездочек VBA макросом

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Подсчёт количества звездочек VBA макросом (Макросы/Sub)

asami2010

Дата: Пятница, 30.05.2014, 20:04 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 40% ±

Excel 2007

Здравствуйте, подскажите пожалуйста как из

1. функции которая преобразует количество звездочек являющихся остатком товара (* - одна штука осталась, ** - две осталось и т.д.) в числовое значение

Код

=ЕСЛИ(ЕЧИСЛО(--C2);--C2;ДЛСТР(C2)-ДЛСТР(ПОДСТАВИТЬ(C2;"*";"")))

(спасибо всем из предыдущей темы кто помог с этой функцией http://www.excelworld.ru/forum/2-10954-1#95131)

2. и функции сравнения

Код

=D2=B2

сделать один VBA макрос, если это возможно.

К сообщению приложен файл: Test-6.xlsx (11.2 Kb)

Сообщение отредактировал Serge_007 - Суббота, 31.05.2014, 05:51

Ответить

krosav4ig

Дата: Суббота, 31.05.2014, 02:49 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

а моя формула короче

Код

=-ЕСЛИОШИБКА(-C2;СУММ(-(ПСТР(C2;СТОЛБЕЦ(1:1);1)="*")))

[vba]

Код

Function cnt%(str$)
       Dim arr As Variant
       If IsNumeric(str) Then
           cnt = str * 1
       Else
           arr = Split(str, "*")
           cnt = UBound(arr)
       End If
End Function

[/vba]