Юрий_Нд, нужно скачать и установить по ссылке (сверу справа Free Download) надстройку Formuladesk. После ее установки идем на ленте на вкладку FormulaDesk, включаем Math wiever и выделяем нужную ячейку с формулой. Для того, чтобы в формуле отображались имена аргументов вместо адресов ячеек я слева от каждой ячейки вписал их имена. Для того, чтобы далее в формуле вместо имен появились значения, продублировал на листе формулами значения аргументов и написал макрос, который обновляет вычисленные значения в ячейках слева от них. После того, как получили нужную формулу, выбираем Копировать как уравнение(Copy as equation) из выпадающего списка на кнопке копирования (выбрав один раз, в дальнейшем можно не выбирать, просто тыкать по иконке копирования). Теперь можно скопированную формулу вставлять в Word. Сразу после вставки, ничего не выделяя, меняем размер шрифта. По желанию, если нужно динамическое обновление формул, делаем связи с соответствующими ячейками в Excel. Например, в Excel копируем ячейку B1 в уравнении в ворде, в двух местах выделяем тройку(там, где 32 и где 3+5) и вставляем специальной вставкой (Связать, неформатированный текст).
Юрий_Нд, нужно скачать и установить по ссылке (сверу справа Free Download) надстройку Formuladesk. После ее установки идем на ленте на вкладку FormulaDesk, включаем Math wiever и выделяем нужную ячейку с формулой. Для того, чтобы в формуле отображались имена аргументов вместо адресов ячеек я слева от каждой ячейки вписал их имена. Для того, чтобы далее в формуле вместо имен появились значения, продублировал на листе формулами значения аргументов и написал макрос, который обновляет вычисленные значения в ячейках слева от них. После того, как получили нужную формулу, выбираем Копировать как уравнение(Copy as equation) из выпадающего списка на кнопке копирования (выбрав один раз, в дальнейшем можно не выбирать, просто тыкать по иконке копирования). Теперь можно скопированную формулу вставлять в Word. Сразу после вставки, ничего не выделяя, меняем размер шрифта. По желанию, если нужно динамическое обновление формул, делаем связи с соответствующими ячейками в Excel. Например, в Excel копируем ячейку B1 в уравнении в ворде, в двух местах выделяем тройку(там, где 32 и где 3+5) и вставляем специальной вставкой (Связать, неформатированный текст).krosav4ig
ruslantigr, и вам здрасьте перешел по ссылке из файла, нет на этой странице ничего похожего на те данные, которые в файле. Давайте ссылку на конкретную страницу, откуда нужно грузить данные. Или вы считаете что мы тут должны искать по всему сайту?
ruslantigr, и вам здрасьте перешел по ссылке из файла, нет на этой странице ничего похожего на те данные, которые в файле. Давайте ссылку на конкретную страницу, откуда нужно грузить данные. Или вы считаете что мы тут должны искать по всему сайту?krosav4ig
только компоновать формулами уравнения в линейном формате в соответствии со спецификацией и уже потом связью или слиянием внедрять их в ворд
Или уравнения создать в ворде (например, с помощью панели математического ввода Win+r>mip>ok, подключив любой андроид девайс как устройство графического ввода) и в них помещать вычисленные значения
только компоновать формулами уравнения в линейном формате в соответствии со спецификацией и уже потом связью или слиянием внедрять их в ворд
Или уравнения создать в ворде (например, с помощью панели математического ввода Win+r>mip>ok, подключив любой андроид девайс как устройство графического ввода) и в них помещать вычисленные значенияkrosav4ig
Sub выбрать_1() Const sPath$ = "d:\Desktop\Реестр договоров.accdb" Dim sConn, oRS As Object 10 sConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sPath 20 On Error GoTo err 30 Set oRS = CreateObject("adodb.recordset") 40 For i = 1 To 5 50 rr = oRS.Open("select * from " & i, sConn) 60 With Sheets(i & "") 70 .UsedRange.Delete 80 With .ListObjects.Add(xlSrcQuery, oRS, , , .[A1]) 90 .Refresh: .Unlink 100 End With 110 End With 120 oRS.Close 130 Next 140 Set oRS = Nothing 150 On Error GoTo 0 160 Exit Sub err: 170 MsgBox "An error #" & err.Number & " (" & err.Description & ") has occurred in procedure выбрать_1 on line " & Erl End Sub
[/vba]
[vba]
Код
Sub выбрать_1() Const sPath$ = "d:\Desktop\Реестр договоров.accdb" Dim sConn, oRS As Object 10 sConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sPath 20 On Error GoTo err 30 Set oRS = CreateObject("adodb.recordset") 40 For i = 1 To 5 50 rr = oRS.Open("select * from " & i, sConn) 60 With Sheets(i & "") 70 .UsedRange.Delete 80 With .ListObjects.Add(xlSrcQuery, oRS, , , .[A1]) 90 .Refresh: .Unlink 100 End With 110 End With 120 oRS.Close 130 Next 140 Set oRS = Nothing 150 On Error GoTo 0 160 Exit Sub err: 170 MsgBox "An error #" & err.Number & " (" & err.Description & ") has occurred in procedure выбрать_1 on line " & Erl End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
и выделяем нужную ячейку с формулой.
из выпадающего списка на кнопке копирования (выбрав один раз, в дальнейшем можно не выбирать, просто тыкать по иконке копирования). Теперь можно скопированную формулу вставлять в Word. Сразу после вставки, ничего не выделяя, меняем размер шрифта. По желанию, если нужно динамическое обновление формул, делаем связи с соответствующими ячейками в Excel. Например, в Excel копируем ячейку B1 в уравнении в ворде, в двух местах выделяем тройку(там, где 32 и где 3+5) и вставляем специальной вставкой (Связать, неформатированный текст).
