Страницы: 1
RSS
Дата прописью в бухгалтерии
 
Добрый день.  
Нашла вот такую функцию для даты прописью в бухгалтерии...  
А что нужно сделать, чтобы она работала?
 
так ?
 
Ольга, разговор идёт о пользовательской функции? Мне кажется, что приведён не весь код.
 
Лучше, как советует Марчук, но если хочется именно это.  
Юрий, мне даже пришлось две строки закомментить :)
Bite my shiny metal ass!      
 
Да я их тоже закрывал, но почему-то в списке Пользовательских не появлялась :-)
 
А я ее там и не искал. Просто вставил =ДТ(В1)  
:)
Bite my shiny metal ass!      
 
{quote}{login=Лузер™}{date=05.08.2009 03:01}{thema=}{post}Лучше, как советует Марчук, но если хочется именно это.  
Юрий, мне даже пришлось две строки закомментить :){/post}{/quote}  
 
Спасибо.  
Лузер, можно Вас спросить? Эта функция была написана для Excel 97. В нём функции определённые пользователем прикреплялись по-другому? Т.е. почему эти 2 строчки надо было закомментировать для того чтобы она заработала?  
Благодарю Вас за терпение.  
 
Спасибо Марчуку и Юрию за отзывчивость.
 
Я в теории не силен, тут есть посертифицированней товарищи. :)  
Я провел простой эксперимент и выяснил, что эти строки возникают при экспорте кода.  
Думаю, если сохранить код не как .doc, а как .bas, то можно было бы его импортировать в книгу и строчки бы пропали при импорте.  
 
...  
 
Что и подтвердил еще один простой эксперимент :)
Bite my shiny metal ass!      
 
{quote}{login=Лузер™}{date=05.08.2009 03:57}{thema=}{post}Я в теории не силен, тут есть посертифицированней товарищи. :)  
Я провел простой эксперимент и выяснил, что эти строки возникают при экспорте кода.  
Думаю, если сохранить код не как .doc, а как .bas, то можно было бы его импортировать в книгу и строчки бы пропали при импорте.  
 
...  
 
Что и подтвердил еще один простой эксперимент :){/post}{/quote}  
 
Спасибо, а, ведь, правда, когда сохраняешь в басе, там такие строчечки есть! Я сколько раз это делала, бестолочь несчастная, ух!
 
По-моему, её можно немного сократить  
 
Function ДТ(dDate As Range) As String  
   If IsDate(dDate) Then ДТ = """" + Trim(Str(Day(dDate))) + """" + _  
       Choose(Month(dDate), " січня ", " лютого ", " березня ", " квітня ", _  
       " травня ", " червня ", " липня ", " серпня ", " вересня ", " жовтня ", _  
       " листопада ", " грудня ") + Str(Year(dDate)) + "р."  
End Function
 
Любой код можно сократить на одну строку © :)  
И этот тоже.  
Не писать его, а воспользоваться советом Марчука.
Bite my shiny metal ass!      
 
)) посмотрел совет Марчука... посмеялся над собой )))
 
{quote}{login=Pavel55}{date=05.08.2009 10:37}{thema=}{post})) посмотрел совет Марчука... посмеялся над собой ))){/post}{/quote}  
 
:) у меня тоже бывает, как навернешь код или формулу, а топом оказывается все могло быть сделано проще :)
Страницы: 1
Читают тему
Наверх