Месяц: Январь 2016

‘ ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ‘ (C) Александр, http://mtdmacro.ru, mtdmacro@mail.ru ‘ ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Option Explicit Private N(1 To 14) As Byte Private A, строка As String Private A1_муж, A1_жен, A2, a3, a0 Function Пропись(Сумма, Optional Показывать_ноль_копеек As Boolean) Dim Миллиарды, Миллионы, Тысячи, Рубли, Копейки Продолжить чтение Сумма прописью от http://mtdmacro.ru (платежка)→

http://vbex.ru/index.php/VBA/Excel/Access/Word/Access/OLEDBXLSQLite XLSQLite SQLite ODBC Driver http://www.gatekeeperforexcel.com/other-freebies.html startbootstrap-creative-1.0.2

‘Типа автоформат Sub SetRowHeight() Application.ScreenUpdating = False For Each ac In Selection sss = Round(Len(ac.Value) / ac.ColumnWidth, 0) If ac.ColumnWidth * 2 < Len(ac.Value) Then ac.RowHeight = sss Else: ac.RowHeight = ac.RowHeight End If Next Application.ScreenUpdating = True End Sub