Excel в бухгалтерии

[Anatoliy*]

У меня небольшая просьба.
Кому не жалко, поделитесь своими разработками в Excel.
Как по максимуму автоматизировать ведение бухучета и налогового учета?
Сижу ломаю голову, в частности, какую надо поставить формулу , если я хочу, чтобы все данные по сч.51 из Журнала хоз операций перешли автоматически в регистр по расч счету.

[Dracosha Andrew]

Раньше на сервере Microsoft били выложены прграммы победителей конкурса пазработок для Office. Теперь они куда-то подевались.ВОт всё, что я нашел. http://office.microsoft.com/template...EC790020111049

[MMM]

Сижу ломаю голову, в частности, какую надо поставить формулу , если я хочу, чтобы все данные по сч.51 из Журнала хоз операций перешли автоматически в регистр по расч счету.

ВПР, СУММЕСЛИ...

[MMM]

Делюсь. Сам сочинил.
'Возвращает числовой аргумент от 0,00 до 922 337 203 685 477,58
'(неотрицательное Currency - рубли с копейками)
'в виде суммы прописью (от 01 коп. до 922...триллионов рублей).
'Если аргумент вне указанного диапазона, возвращается пустая строка.

Public Function Прописью(ByVal Summ As Currency) As String
Dim sKop As String 'строка копеек
Dim sTemp As String 'временная часть строки рублей
Dim i As Integer 'переменная цикла и вспом. для копеек
Dim iTrio As Integer 'очередная триада цифр
Dim bOneTen As Boolean 'вторая справа цифра триады - единица?
Dim M(1 To 5, 0 To 2) As String * 11 'нижеследующий массив
M(1, 0) = " рублей"
M(1, 1) = " рубль"
M(1, 2) = " рубля"
M(2, 0) = " тысяч "
M(2, 1) = " тысяча "
M(2, 2) = " тысячи "
M(3, 0) = " миллионов "
M(3, 1) = " миллион "
M(3, 2) = " миллиона "
M(4, 0) = "миллиардов "
M(4, 1) = " миллиард "
M(4, 2) = " миллиарда "
M(5, 0) = "триллионов "
M(5, 1) = " триллион "
M(5, 2) = " триллиона "

'------------------- проверка аргумента----------------------------------------------------
Прописью = ""
If Summ < 0 Or Summ > "922337203685477,58" Then Exit Function
i = Int(100 * (Summ - Int(Summ))) 'подстраховка от долей копейки
sKop = " " & Format$(i, "00") & " копе"
If Mid$(sKop, 2, 1) = "1" _
Or Mid$(sKop, 3, 1) = "0" Or Mid$(sKop, 3, 1) > "4" Then
sKop = sKop & "ек"
ElseIf Mid$(sKop, 3, 1) = "1" Then
sKop = sKop & "йка"
Else
sKop = sKop & "йки"
End If
Summ = Int(Summ)
If Summ = 0 Then
Прописью = "Ноль рублей" & sKop
Exit Function
End If
'------------------------------------------------------------------------------------------

For i = 1 To Int(Log(Summ) / Log(1000)) + 1 '1, если < 1000, 2, если < 1000 000 и т.д.
iTrio = Summ - Int(Summ / 1000) * 1000 'возвращает триады справа налево
Summ = Int(Summ / 1000) 'функции Mod и \ с миллиардами не работают!(только Long)
Select Case iTrio \ 100 'Cотни
Case 0: sTemp = ""
Case 1: sTemp = "сто "
Case 2: sTemp = "двести "
Case 3: sTemp = "триста "
Case 4: sTemp = "четыреста "
Case 5: sTemp = "пятьсот "
Case 6: sTemp = "шестьсот "
Case 7: sTemp = "семьсот "
Case 8: sTemp = "восемьсот "
Case 9: sTemp = "девятьсот "
End Select
bOneTen = False
Select Case (iTrio Mod 100) \ 10 'Десятки
Case 0:
Case 1: bOneTen = True 'особый случай: "...надцать"
Select Case iTrio Mod 10
Case 0: sTemp = sTemp & "десять "
Case 1: sTemp = sTemp & "одиннадцать "
Case 2: sTemp = sTemp & "двенадцать "
Case 3: sTemp = sTemp & "тринадцать "
Case 4: sTemp = sTemp & "четырнадцать "
Case 5: sTemp = sTemp & "пятнадцать "
Case 6: sTemp = sTemp & "шестнадцать "
Case 7: sTemp = sTemp & "семнадцать "
Case 8: sTemp = sTemp & "восемнадцать "
Case 9: sTemp = sTemp & "девятнадцать "
End Select
Case 2: sTemp = sTemp & "двадцать " 'Десятки - продолжение
Case 3: sTemp = sTemp & "тридцать "
Case 4: sTemp = sTemp & "сорок "
Case 5: sTemp = sTemp & "пятьдесят "
Case 6: sTemp = sTemp & "шестьдесят "
Case 7: sTemp = sTemp & "семьдесят "
Case 8: sTemp = sTemp & "восемьдесят "
Case 9: sTemp = sTemp & "девяносто "
End Select
If bOneTen Then
Прописью = sTemp & LTrim$(M(i, 0)) & Прописью
Else
Select Case iTrio Mod 10 'Единицы
Case 0: If sTemp <> "" Or i = 1 Then _
Прописью = sTemp & LTrim$(M(i, 0)) & Прописью
Case 1: If i = 2 Then Прописью = sTemp & "одна " & LTrim$(M(i, 1)) & Прописью _
Else Прописью = sTemp & "один " & LTrim$(M(i, 1)) & Прописью
Case 2: If i = 2 Then Прописью = sTemp & "две " & LTrim$(M(i, 2)) & Прописью _
Else Прописью = sTemp & "два " & LTrim$(M(i, 2)) & Прописью
Case 3: Прописью = sTemp & "три " & LTrim$(M(i, 2)) & Прописью
Case 4: Прописью = sTemp & "четыре " & LTrim$(M(i, 2)) & Прописью
Case 5: Прописью = sTemp & "пять " & LTrim$(M(i, 0)) & Прописью
Case 6: Прописью = sTemp & "шесть " & LTrim$(M(i, 0)) & Прописью
Case 7: Прописью = sTemp & "семь " & LTrim$(M(i, 0)) & Прописью
Case 8: Прописью = sTemp & "восемь " & LTrim$(M(i, 0)) & Прописью
Case 9: Прописью = sTemp & "девять " & LTrim$(M(i, 0)) & Прописью
End Select
End If
Next
Прописью = UCase$(Left$(Прописью, 1)) & Right$(Прописью, Len(Прописью) - 1) & sKop 'Первая прописная
End Function

[Dracosha Andrew]

Неплохо!!! Компактно. В российской действительности самый повторяемый алгоритмм.

[emag]

90 Money Calculator, v3.0.303
Калькулятор для дома и офиса. Возможности: 1)поддержка СКИНОВ! Создай свой калькулятор 2)содержит список всех производимых пользователем вычислений; 3)создаёт текстовый файл отчёта с Вашими вычислениями; 4)автоматически преобразует числовое значение в текст; 5)уникальный алгоритм работы с буфером обмена, например понимает как число "Итого: 1'532руб. 04 коп", т.е. 1532,04; 6)считает наличные; 7)удобный интерфейс, рус/анг. язык, настройка всех параметров и шаблонов; 8)рекомендую применять для работы совместно с MS Office, серии бухгалтерских программ 1С

[emag]

сорри, это не мои слова, а автора калькулятора

[MMM]

В российской действительности самый повторяемый алгоритм.

Мне кажется, алгоритм как раз оригинален (например, применение логарифма и массива строк заданной длины).
В тех решениях, которые приходилось мне видеть, я такого не встречал. Правда, их было (виденных мной других решений) штуки три-четыре (в том числе и у "учителей", т.е. авторов учебников по Excel, например есть такой Гончаров). Если сравнивать с ними - у меня получилось одновременно: короче (по тексту программы), быстрее (специально тестировал), функциональней (в смысле диапазона данных и [не]допустимых значений).

[stas®]

<b>MMM</b>, не хватает падежа. И рода управляемого существительного.

[MMM]

Вот падеж копеек:
If Mid$(sKop, 2, 1) = "1" _
Or Mid$(sKop, 3, 1) = "0" Or Mid$(sKop, 3, 1) > "4" Then
sKop = sKop & "ек"
ElseIf Mid$(sKop, 3, 1) = "1" Then
sKop = sKop & "йка"
Else
sKop = sKop & "йки"
End If
Вот падеж рублей:
M(1, 0) = " рублей"
M(1, 1) = " рубль"
M(1, 2) = " рубля"
Всё там есть. Взял бы, скопировал, потестировал с разными значениями, убедился бы и всё!

[stas®]

<b>MMM</b>, если у меня текст "в сумме ...", то там нужно "ТРЁХ рублей".

[Аноним]

Всё одно красиво. Добавить падежи это мелочи, тем более, что некоторые и без них обходятся

[MMM]

stas®, в бухгалтерских реквизитах я не встречал такой необходимости (трёх рублей), да и сам никогда не ощущал такой потребности. Пишется обычно "сумма прописью:".
Можно: "в сумме 2532 (Две тысячи пятьсот тридцать два рубля)". Пишет кто-нибудь (именно в бух. учёте): В сумме двух тысяч пятисот тридцати двух рублей? Вот уж вряд ли...

[stas®]

<b>MMM</b>, это опять к вопросу о чистоте русского языка, который обсуждается в другой ветке . Я свой народ неправильные падежи заставлял переделывать.

[Dracosha Andrew]

stas®, прав на все 100% Правила русского языка ещё никто не отменял.

[HLena]

stas®

, а если после слов "в сумме" я поставлю двоеточие, можно ли оставить именительный падеж?

С уважением, Елена.

[stas®]

HLena, "выдать по чеку" - хоть с двоеточием, хоть без - "одну тысячу рублей".

[MMM]

Ребята! Я двумя руками за русский язык.
Просто было написано:
"У меня небольшая просьба.
Кому не жалко, поделитесь своими разработками в Excel".
Я и поделился. Это лучше, чем обсуждать. Надо добавить падежи/склонения? Добавьте.

[stas®]

<b>MMM</b>, так я ж и не ругаю . Я просто делаю предложения по усовершенствованию .

[Natasel]

Подниму темку