Бухгалтерский учет, налогообложение, отчетность, МСФО, анализ бухгалтерской информации, 1С:Бухгалтерия

Вход или Регистрация

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[Прочее]

программа Excel

Сергей
читатель
офлайн
Дата регистрации: 20.10.2003
Сообщений: 59
Пост №1
 
09.11.2003 10:23

Подскажите можно, чтобы в Excel итоговые суммы писались прописью? Спасибо.

KrivitskayaEV
читатель
офлайн
Дата регистрации: 29.10.2003
Сообщений: 150
Пост №2
 
11.11.2003 13:16

Для этого существуют определенные макросы. Они привязываются к нужному файлу. К сожалению, сразу не вспомню, как это делается. Но нужно помнить, что антивирусные программы считают, что макросы, привязанные к файлу, могут быть вирусами, о чем предупреждают.

Puki
читатель
офлайн
Дата регистрации: 12.11.2003
Сообщений: 2
Пост №3
 
12.11.2003 10:18

' *****************************************************

' Число прописью, данную функцию наваял на Visual Basic 6.0,

но это все едино. Вызывается примерно так Str = InWords(***число**)

' *****************************************************

Public Function InWords(nNumber As Long) As String

Static triad(4) As Integer, numb1(0 To 19) As String, numb2(0 To 9) As String, numb3(0 To 9) As String

If nNumber = 0 Then

       InWords = "

       Exit Function

End If

ss@ = nNumber

triad(1) = ss@ - Int(ss@ / 1000) * 1000

ss@ = Int(ss@ / 1000)

triad(2) = ss@ - Int(ss@ / 1000) * 1000

ss@ = Int(ss@ / 1000)

triad(3) = ss@ - Int(ss@ / 1000) * 1000

ss@ = Int(ss@ / 1000)

triad(4) = ss@ - Int(ss@ / 1000) * 1000

ss@ = Int(ss@ / 1000)

numb1(0) = "

numb1(1) = "один "

numb1(2) = "два "

numb1(3) = "три "

numb1(4) = "четыре "

numb1(5) = "пять "

numb1(6) = "шесть "

numb1(7) = "семь "

numb1(8) = "восемь "

numb1(9) = "девять "

numb1(10) = "десять "

numb1(11) = "одиннадцать "

numb1(12) = "двенадцать "

numb1(13) = "тринадцать "

numb1(14) = "четырнадцать "

numb1(15) = "пятнадцать "

numb1(16) = "шестнадцать "

numb1(17) = "семнадцать "

numb1(18) = "восемнадцать "

numb1(19) = "девятнадцать "

numb2(0) = "

numb2(1) = "

numb2(2) = "двадцать "

numb2(3) = "тридцать "

numb2(4) = "сорок "

numb2(5) = "пятьдесят "

numb2(6) = "шестьдесят "

numb2(7) = "семьдесят "

numb2(8) = "восемьдесят "

numb2(9) = "девяносто "

numb3(0) = "

numb3(1) = "сто "

numb3(2) = "двести "

numb3(3) = "триста "

numb3(4) = "четыреста "

numb3(5) = "пятьсот "

numb3(6) = "шестьсот "

numb3(7) = "семьсот "

numb3(8) = "восемьсот "

numb3(9) = "девятьсот "

txt$ = "

If ss@ <> 0 Then

       n% = MsgBox("Сумма выходит за границы формата", 16, "Сумма прописью")

       Сумма_прописью = "

       Exit Function

End If

For i% = 4 To 1 Step -1

       n% = 0

       If triad(i%) > 0 Then

            n% = Int(triad(i%) / 100)

            txt$ = txt$ & numb3(n%)

            n% = Int((triad(i%) - n% * 100) / 10)

            txt$ = txt$ & numb2(n%)

            If n% < 2 Then

             n% = triad(i%) - (Int(triad(i%) / 10) - n%) * 10

            Else

             n% = triad(i%) - Int(triad(i%) / 10) * 10

            End If

            Select Case n%

            Case 1

             If i% = 2 Then txt$ = txt$ & "одна " Else txt$ = txt$ & "один "

            Case 2

             If i% = 2 Then txt$ = txt$ & "две " Else txt$ = txt$ & "два"

            Case Else

             txt$ = txt$ & numb1(n%)

            End Select

            Select Case i%

            Case 2

             If n% = 0 Or n% > 4 Then

                   txt$ = txt$ + "тысяч "

             Else

                   If n% = 1 Then txt$ = txt$ + "тысяча " Else txt$ = txt$ + "тысячи "

             End If

            Case 3

             If n% = 0 Or n% > 4 Then

                   txt$ = txt$ + "миллионов "

             Else

                   If n% = 1 Then txt$ = txt$ + "миллион " Else txt$ = txt$ + "миллиона "

             End If

            Case 4

             If n% = 0 Or n% > 4 Then

                   txt$ = txt$ + "миллиардов "

             Else

                   If n% = 1 Then txt$ = txt$ + "миллиард " Else txt$ = txt$ + "миллиарда "

             End If

            End Select

       End If

Next i%

txt$ = UCase$(Left$(txt$, 1)) & Mid$(txt$, 2)

InWords = txt$

End Function

Показывать по 10 20 40 сообщений

Читают тему:

1 гостей
Быстрый переход
Учет, налогообложение, автоматизация
  • Учет, налогообложение, автоматизация
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • ЕГАИС
Предложения партнеров
Обучение пользователей продуктов 1С

1С бесплатно 1С-Отчетность 1С:ERP Управление предприятием 1С:Бесплатно 1С:Бухгалтерия 8 1С:Бухгалтерия 8 КОРП 1С:Бухгалтерия автономного учреждения 1С:Бухгалтерия государственного учреждения 1С:Бюджет муниципального образования 1С:Бюджет поселения 1С:Вещевое довольствие 1С:Деньги 1С:Документооборот 1С:Зарплата и кадры бюджетного учреждения 1С:Зарплата и кадры государственного учреждения 1С:Зарплата и управление персоналом 1С:Зарплата и управление персоналом КОРП 1С:Комплексная автоматизация 8 1С:Лекторий 1С:Предприятие 1С:Предприятие 7.7 1С:Предприятие 8 1С:Розница 1С:Управление нашей фирмой 1С:Управление производственным предприятием 1С:Управление торговлей 1СПредприятие 8

Все теги