Подстановка склоняемого слова

[Alex___]

Добрый день!
Помогите пожалуйста довести до логического завершения прикрепленный файл!!!Вопрос в склонении слова "ВАГОН".т.е. если 1 вагон, 2 вагона и т.д.Формулы которые сейчас стоят не позволяют склонять:

11 ж/д вагонов (а получается "вагона")
12 ж/д вагонов (а получается "вагона")
13 ж/д вагонов (а получается "вагона")
14 ж/д вагонов (а получается "вагона")
21 ж/д вагон (а получается "вагона")
31 ж/д вагон (а получается "вагона")
41 ж/д вагон (а получается "вагона")

Кроме этих значений все остальные с 1 по 50 показывает правильно.

[motorway]

Я бы посоветовал изменить этот код на нечто более удобочитаемое, потому что в нем довольно трудно разбираться и большое число уровней вложенности. Может, лучше с помощью макросов?

[DV68]

Там пропущено правсимвол в одном месте и 1 надо в кавычках было.

=ЕСЛИ(СЧЁТЕСЛИ(Y!$E$10:$E$59;A1)>0;СЧЁТЕСЛИ(Y!$B$10:$B$59;ИНДЕКС(Y!$B$10:$B$59;
ПОИСКПОЗ(A1;Y!$E$10:$E$59;0);1))&" ж/д вагон"&ЕСЛИ(ПРАВСИМВ(СЧЁТЕСЛИ(Y!$B$10:$B$59;
ИНДЕКС(Y!$B$10:$B$59;ПОИСКПОЗ(A1;Y!$E$10:$E$59;0);1)))="1";"";ЕСЛИ(ИЛИ(ПРАВСИМВ
(СЧЁТЕСЛИ(Y!$B$10:$B$59;ИНДЕКС(Y!$B$10:$B$59;ПОИСКПОЗ(A1;Y!$E$10:$E$59;0);1)))*1=0;
ПРАВСИМВ(СЧЁТЕСЛИ(Y!$B$10:$B$59;ИНДЕКС(Y!$B$10:$B$59;ПОИСКПОЗ(A1;Y!$E$10:$E$59;0);1)))
*1>=5);"ов";"а"))&" - "&ИНДЕКС(Y!$B$10:$B$59;ПОИСКПОЗ(A1;Y!$E$10:$E$59;0);1);"")

для В1

[DV68]

но это только для 21,31,41. а так действительно может где то имя формулам повторяющимся присвоить для удобства.

[IgorGO]

у меня другой совет: количество вагонов посчитайте в одной ячейке, а в соседней допишите все необходимые слова. формула, которая склоняет слово "вагоны" написана правее вашей таблицы.

[DV68]

Сообщение от IgorGO

у меня другой совет: количество вагонов посчитайте в одной ячейке, а в соседней допишите все необходимые слова. формула, которая склоняет слово "вагоны" написана правее вашей таблицы.

логично, и формула приобретает удобоваримый вид

[Aent]

Public Function Вагоны(i As Integer) As String
    Dim s As String
    Dim l As Integer
    Вагоны = "вагонов"
    s = CStr(i)
    l = Len(s)
    If l > 1 Then
        If Mid$(s, l - 1, 1) = "1" Then
            Exit Function
        End If
    End If
    Select Case Right$(s, 1)
        Case "1"
            Вагоны = "вагон"
        Case "2", "3", "4"
            Вагоны = "вагона"
    End Select
End Function

[Alex___]

Добрый день спасибо за ответ, но явставил Ваш код но EXCEL не принемает его!

=ЕСЛИ(СЧЁТЕСЛИ(Y!$E$10:$E$59;A1)>0; СЧЁТЕСЛИ(Y!$B$10:$B$59;ИНДЕКС(Y!$B$ 10:$B$59;
ПОИСКПОЗ(A1;Y!$E$10:$E$59;0);1))&" ж/д вагон"&ЕСЛИ(ПРАВСИМВ(СЧЁТЕСЛИ(Y!$B$ 10:$B$59;
ИНДЕКС(Y!$B$10:$B$59;ПОИСКПОЗ(A1;Y! $E$10:$E$59;0);1)))="1";"";ЕСЛИ(ИЛИ (ПРАВСИМВ
(СЧЁТЕСЛИ(Y!$B$10:$B$59;ИНДЕКС(Y!$B $10:$B$59;ПОИСКПОЗ(A1;Y!$E$10:$E$59 ;0);1)))*1=0;
ПРАВСИМВ(СЧЁТЕСЛИ(Y!$B$10:$B$59;ИНД ЕКС(Y!$B$10:$B$59;ПОИСКПОЗ(A1;Y!$E$ 10:$E$59;0);1)))
*1>=5);"ов";"а"))&" - "&ИНДЕКС(Y!$B$10:$B$59;ПОИСКПОЗ(A1; Y!$E$10:$E$59;0);1);"")

[SAS888]

=ЕСЛИ(СЧЁТЕСЛИ(Y!$E$10:$E$59;A1)>0; СЧЁТЕСЛИ(Y!$B$10:$B$59;ИНДЕКС(Y!$B$ 10:$B$59;
ПОИСКПОЗ(A1;Y!$E$10:$E$59;0);1))&" ж/д вагон"&ЕСЛИ(ПРАВСИМВ(СЧЁТЕСЛИ(Y!$B$ 10:$B$59;
ИНДЕКС(Y!$B$10:$B$59;ПОИСКПОЗ(A1;Y! $E$10:$E$59;0);1)))="1";"";ЕСЛИ(ИЛИ (ПРАВСИМВ
(СЧЁТЕСЛИ(Y!$B$10:$B$59;ИНДЕКС(Y!$B $10:$B$59;ПОИСКПОЗ(A1;Y!$E$10:$E$59 ;0);1)))*1=0;
ПРАВСИМВ(СЧЁТЕСЛИ(Y!$B$10:$B$59;ИНД ЕКС(Y!$B$10:$B$59;ПОИСКПОЗ(A1;Y!$E$ 10:$E$59;0);1)))
*1>=5);"ов";"а"))&" - "&ИНДЕКС(Y!$B$10:$B$59;ПОИСКПОЗ (A1; Y!$E$10:$E$59;0);1);"")

Вот это да!!! Я даже дочитать до конца формулу не сумел. Моск закипел.
Может быть, все-таки, лучше макросом? Чем Вас не устраивает код от Aent?

[Alex___]

Я смотрю на этот макрос как баран на ворота и ничего не понимаю.Если в формуле что то знакомо то куда вставлять этот код макроса и что он в данном случае подсчитывает???