Результаты поиска
krosav4ig
Дата: Вторник, 02.02.2016, 16:16 |
Сообщение № 1381 | Тема: Автоматический перенос строк с одного листа на другой
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
еще вариант, без формул, с использованием подключений, сделал из файла Александра (_Boroda_)
еще вариант, без формул, с использованием подключений, сделал из файла Александра (_Boroda_) krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение еще вариант, без формул, с использованием подключений, сделал из файла Александра (_Boroda_) Автор - krosav4ig Дата добавления - 02.02.2016 в 16:16
krosav4ig
Дата: Вторник, 02.02.2016, 13:19 |
Сообщение № 1382 | Тема: использовать данные из ячейки как параметр для процедуры SQL
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Lania , процедура у вас должна выполняться в макросе или в подключении книги?
Lania , процедура у вас должна выполняться в макросе или в подключении книги?krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Lania , процедура у вас должна выполняться в макросе или в подключении книги?Автор - krosav4ig Дата добавления - 02.02.2016 в 13:19
krosav4ig
Дата: Воскресенье, 31.01.2016, 14:18 |
Сообщение № 1383 | Тема: Обратный порядок слов в ячейке
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
disub , Марина (Manyasha) просто забыла еще в 1 строке поменять разделитель[vba]Код
Function строка_наоборот(cell As Range) Dim arr, res$, i& arr = Split(cell, "-")'Вот тут тоже менять разделитель For i = UBound(arr) To 0 Step -1 res = res & arr(i) & "-"'Вот здесь менять разделитель Next i строка_наоборот = Mid(res, 1, Len(res) - 1) End Function
[/vba] еще 1 вариант UDF [vba]Код
Function ReverseWords$(s$, Optional delim$ = "-") Dim arr$(), i& arr = Split(StrReverse(s), delim) For i = 0 To UBound(arr) arr(i) = StrReverse(arr(i)) Next ReverseWords = Join(arr, delim) End Function
[/vba]
disub , Марина (Manyasha) просто забыла еще в 1 строке поменять разделитель[vba]Код
Function строка_наоборот(cell As Range) Dim arr, res$, i& arr = Split(cell, "-")'Вот тут тоже менять разделитель For i = UBound(arr) To 0 Step -1 res = res & arr(i) & "-"'Вот здесь менять разделитель Next i строка_наоборот = Mid(res, 1, Len(res) - 1) End Function
[/vba] еще 1 вариант UDF [vba]Код
Function ReverseWords$(s$, Optional delim$ = "-") Dim arr$(), i& arr = Split(StrReverse(s), delim) For i = 0 To UBound(arr) arr(i) = StrReverse(arr(i)) Next ReverseWords = Join(arr, delim) End Function
[/vba]krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение disub , Марина (Manyasha) просто забыла еще в 1 строке поменять разделитель[vba]Код
Function строка_наоборот(cell As Range) Dim arr, res$, i& arr = Split(cell, "-")'Вот тут тоже менять разделитель For i = UBound(arr) To 0 Step -1 res = res & arr(i) & "-"'Вот здесь менять разделитель Next i строка_наоборот = Mid(res, 1, Len(res) - 1) End Function
[/vba] еще 1 вариант UDF [vba]Код
Function ReverseWords$(s$, Optional delim$ = "-") Dim arr$(), i& arr = Split(StrReverse(s), delim) For i = 0 To UBound(arr) arr(i) = StrReverse(arr(i)) Next ReverseWords = Join(arr, delim) End Function
[/vba]Автор - krosav4ig Дата добавления - 31.01.2016 в 14:18
krosav4ig
Дата: Суббота, 30.01.2016, 01:19 |
Сообщение № 1384 | Тема: Изображение в форме в зависимости от активного листа
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
названия файлов должны совпадать со значениями ячейки H3, т.е. Avicularia Versicolor.jpg, Brachipelma Boehmei.jpg и т.д.
названия файлов должны совпадать со значениями ячейки H3, т.е. Avicularia Versicolor.jpg, Brachipelma Boehmei.jpg и т.д. krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение названия файлов должны совпадать со значениями ячейки H3, т.е. Avicularia Versicolor.jpg, Brachipelma Boehmei.jpg и т.д. Автор - krosav4ig Дата добавления - 30.01.2016 в 01:19
krosav4ig
Дата: Четверг, 28.01.2016, 18:34 |
Сообщение № 1385 | Тема: Число страниц на листе
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
как вариант [vba]Код
Sheets(1).Cells(1, 24).Offset(Cnt, 0) = ExecuteExcel4Macro("get.document(50,""" & Sheets(Elem).Name & """)")
[/vba]
как вариант [vba]Код
Sheets(1).Cells(1, 24).Offset(Cnt, 0) = ExecuteExcel4Macro("get.document(50,""" & Sheets(Elem).Name & """)")
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение как вариант [vba]Код
Sheets(1).Cells(1, 24).Offset(Cnt, 0) = ExecuteExcel4Macro("get.document(50,""" & Sheets(Elem).Name & """)")
[/vba] Автор - krosav4ig Дата добавления - 28.01.2016 в 18:34
krosav4ig
Дата: Четверг, 28.01.2016, 18:16 |
Сообщение № 1386 | Тема: Создать отдельные файлы из большого файла
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Вопрос на засыпку. Зачем все эти танцы с бубном? (я имею ввиду поиск позиций начала и конца раздела) Можно же [vba]Код
ch.Sections(i).range.ExportAsFixedFormat ...
[/vba] Или я чего-то не знаю?
Вопрос на засыпку. Зачем все эти танцы с бубном? (я имею ввиду поиск позиций начала и конца раздела) Можно же [vba]Код
ch.Sections(i).range.ExportAsFixedFormat ...
[/vba] Или я чего-то не знаю? krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Вопрос на засыпку. Зачем все эти танцы с бубном? (я имею ввиду поиск позиций начала и конца раздела) Можно же [vba]Код
ch.Sections(i).range.ExportAsFixedFormat ...
[/vba] Или я чего-то не знаю? Автор - krosav4ig Дата добавления - 28.01.2016 в 18:16
krosav4ig
Дата: Четверг, 28.01.2016, 02:38 |
Сообщение № 1387 | Тема: Создание макроса для автоматической смены данных в таблице
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение чего-то я его не вижу... Автор - krosav4ig Дата добавления - 28.01.2016 в 02:38
krosav4ig
Дата: Четверг, 28.01.2016, 00:56 |
Сообщение № 1388 | Тема: Создать отдельные файлы из большого файла
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
mechanix85 , вам нужно изменить тип разрывов раздела 1 вариант: Выделяем весь документ, жмем Разметка страницы>Параметры страницы(маненькая кавдратненькая кнопочка)>Источник бумаги>Начать раздел: С нечетной страницы 2 вариант: 3 заменить один разрыв на разрыв с нечетной страницы, скопировать его (символ раздела), выполнить замену - найти: ^b, заменить на: ^c Заменить все Теперь можно печатать весь документ сплошняком двухсторонней печатью Если разделов немного, то можно вручную печать каждый раздел, указывая его при печати в поле диапазон страниц (s1 - первый раздел, s2- второй)
mechanix85 , вам нужно изменить тип разрывов раздела 1 вариант: Выделяем весь документ, жмем Разметка страницы>Параметры страницы(маненькая кавдратненькая кнопочка)>Источник бумаги>Начать раздел: С нечетной страницы 2 вариант: 3 заменить один разрыв на разрыв с нечетной страницы, скопировать его (символ раздела), выполнить замену - найти: ^b, заменить на: ^c Заменить все Теперь можно печатать весь документ сплошняком двухсторонней печатью Если разделов немного, то можно вручную печать каждый раздел, указывая его при печати в поле диапазон страниц (s1 - первый раздел, s2- второй)krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение mechanix85 , вам нужно изменить тип разрывов раздела 1 вариант: Выделяем весь документ, жмем Разметка страницы>Параметры страницы(маненькая кавдратненькая кнопочка)>Источник бумаги>Начать раздел: С нечетной страницы 2 вариант: 3 заменить один разрыв на разрыв с нечетной страницы, скопировать его (символ раздела), выполнить замену - найти: ^b, заменить на: ^c Заменить все Теперь можно печатать весь документ сплошняком двухсторонней печатью Если разделов немного, то можно вручную печать каждый раздел, указывая его при печати в поле диапазон страниц (s1 - первый раздел, s2- второй)Автор - krosav4ig Дата добавления - 28.01.2016 в 00:56
krosav4ig
Дата: Среда, 27.01.2016, 22:57 |
Сообщение № 1389 | Тема: Как массово очистить форматы ячеек
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
как вариант, открываем файл архиватором, в файле \xl\styles.xml заменяем Цитата
<cellStyleXfs count="..."><xf numFmtId="0" fontId="0" fillId="0" borderId="0"/>...</cellStyleXfs>
на Цитата
<cellStyleXfs count="1"><xf numFmtId="0" fontId="0" fillId="0" borderId="0"/></cellStyleXfs>
и Цитата
<cellStyles count="...">...<cellStyle name="Обычный" xfId="0" builtinId="0"/></cellStyles>
на Цитата
<cellStyles count="1"><cellStyle name="Обычный" xfId="0" builtinId="0"/></cellStyles>
как вариант, открываем файл архиватором, в файле \xl\styles.xml заменяем Цитата
<cellStyleXfs count="..."><xf numFmtId="0" fontId="0" fillId="0" borderId="0"/>...</cellStyleXfs>
на Цитата
<cellStyleXfs count="1"><xf numFmtId="0" fontId="0" fillId="0" borderId="0"/></cellStyleXfs>
и Цитата
<cellStyles count="...">...<cellStyle name="Обычный" xfId="0" builtinId="0"/></cellStyles>
на Цитата
<cellStyles count="1"><cellStyle name="Обычный" xfId="0" builtinId="0"/></cellStyles>
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Среда, 27.01.2016, 22:58
Ответить
Сообщение как вариант, открываем файл архиватором, в файле \xl\styles.xml заменяем Цитата
<cellStyleXfs count="..."><xf numFmtId="0" fontId="0" fillId="0" borderId="0"/>...</cellStyleXfs>
на Цитата
<cellStyleXfs count="1"><xf numFmtId="0" fontId="0" fillId="0" borderId="0"/></cellStyleXfs>
и Цитата
<cellStyles count="...">...<cellStyle name="Обычный" xfId="0" builtinId="0"/></cellStyles>
на Цитата
<cellStyles count="1"><cellStyle name="Обычный" xfId="0" builtinId="0"/></cellStyles>
Автор - krosav4ig Дата добавления - 27.01.2016 в 22:57
krosav4ig
Дата: Вторник, 26.01.2016, 15:24 |
Сообщение № 1390 | Тема: Как массово очистить форматы ячеек
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
как очистить сам НАБОР (или как его там назвать) форматов
макросом (Что такое макросы VBA в Excel? ) [vba]Код
Option Explicit Sub dd() Dim st As Style For Each st In ActiveWorkbook.Styles If Not st.BuiltIn Then st.Delete Next End Sub
[/vba]
как очистить сам НАБОР (или как его там назвать) форматов
макросом (Что такое макросы VBA в Excel? ) [vba]Код
Option Explicit Sub dd() Dim st As Style For Each st In ActiveWorkbook.Styles If Not st.BuiltIn Then st.Delete Next End Sub
[/vba]krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение как очистить сам НАБОР (или как его там назвать) форматов
макросом (Что такое макросы VBA в Excel? ) [vba]Код
Option Explicit Sub dd() Dim st As Style For Each st In ActiveWorkbook.Styles If Not st.BuiltIn Then st.Delete Next End Sub
[/vba]Автор - krosav4ig Дата добавления - 26.01.2016 в 15:24
krosav4ig
Дата: Вторник, 26.01.2016, 00:31 |
Сообщение № 1391 | Тема: Автоматическое заполнение данных из файла в файл
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Вторник, 26.01.2016, 00:34
Ответить
krosav4ig
Дата: Вторник, 26.01.2016, 00:13 |
Сообщение № 1392 | Тема: Прочитать содержимое ячейки таблицы Excel,вставленной в Word
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
если документ рядом с exe файлом внедренный лист сохраняется в текущую папку в файл embedded.xls [vba]Код
... Uses ...,oleauto ... procedure ExportEmbeddedXlSheet(); Var varWDApp,varWDDoc,varOleFormat:OleVariant; strPath:string; begin strPath:=ExtractFilePath(ParamStr(0)); varWDApp:=createoleobject('word.application'); varWDdoc:=varWDApp.documents.open(strPath+'8302418.docx'); varOleFormat:= varWDDoc.inlineshapes.item(1).oleformat; varOleFormat.activate; varOleFormat.object.activesheet.saveas(strPath+'embedded.xls',56); varWDdoc.close(false); varWDApp.Quit end; ...
[/vba] varOleFormat.object.activesheet - это объект класса excel.worksheet, к из него можнополучать все свойства и применять все методы, описанные тут [offtop] тут читать у вместо а или й всесто ф? [/offtop]
если документ рядом с exe файлом внедренный лист сохраняется в текущую папку в файл embedded.xls [vba]Код
... Uses ...,oleauto ... procedure ExportEmbeddedXlSheet(); Var varWDApp,varWDDoc,varOleFormat:OleVariant; strPath:string; begin strPath:=ExtractFilePath(ParamStr(0)); varWDApp:=createoleobject('word.application'); varWDdoc:=varWDApp.documents.open(strPath+'8302418.docx'); varOleFormat:= varWDDoc.inlineshapes.item(1).oleformat; varOleFormat.activate; varOleFormat.object.activesheet.saveas(strPath+'embedded.xls',56); varWDdoc.close(false); varWDApp.Quit end; ...
[/vba] varOleFormat.object.activesheet - это объект класса excel.worksheet, к из него можнополучать все свойства и применять все методы, описанные тут [offtop] тут читать у вместо а или й всесто ф? [/offtop] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Вторник, 26.01.2016, 04:53
Ответить
Сообщение если документ рядом с exe файлом внедренный лист сохраняется в текущую папку в файл embedded.xls [vba]Код
... Uses ...,oleauto ... procedure ExportEmbeddedXlSheet(); Var varWDApp,varWDDoc,varOleFormat:OleVariant; strPath:string; begin strPath:=ExtractFilePath(ParamStr(0)); varWDApp:=createoleobject('word.application'); varWDdoc:=varWDApp.documents.open(strPath+'8302418.docx'); varOleFormat:= varWDDoc.inlineshapes.item(1).oleformat; varOleFormat.activate; varOleFormat.object.activesheet.saveas(strPath+'embedded.xls',56); varWDdoc.close(false); varWDApp.Quit end; ...
[/vba] varOleFormat.object.activesheet - это объект класса excel.worksheet, к из него можнополучать все свойства и применять все методы, описанные тут [offtop] тут читать у вместо а или й всесто ф? [/offtop] Автор - krosav4ig Дата добавления - 26.01.2016 в 00:13
krosav4ig
Дата: Понедельник, 25.01.2016, 18:29 |
Сообщение № 1393 | Тема: Создание динамического списка по нескольким условиям
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
вариант с доп. столбцом и сводной
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение вариант с доп. столбцом и сводной Автор - krosav4ig Дата добавления - 25.01.2016 в 18:29
krosav4ig
Дата: Воскресенье, 24.01.2016, 17:23 |
Сообщение № 1394 | Тема: Сумма по звум значениям
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
Код
=СУММЕСЛИМН($I$5:$I$12;$D$5:$D$12;$D16;$F$5:$F$12;E$15)
или сводная [offtop]мало того что опоздал, но и названия столбцов добавил почти такие же ...
Код
=СУММЕСЛИМН($I$5:$I$12;$D$5:$D$12;$D16;$F$5:$F$12;E$15)
или сводная [offtop]мало того что опоздал, но и названия столбцов добавил почти такие же ... krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Воскресенье, 24.01.2016, 17:30
Ответить
Сообщение Код
=СУММЕСЛИМН($I$5:$I$12;$D$5:$D$12;$D16;$F$5:$F$12;E$15)
или сводная [offtop]мало того что опоздал, но и названия столбцов добавил почти такие же ... Автор - krosav4ig Дата добавления - 24.01.2016 в 17:23
krosav4ig
Дата: Воскресенье, 24.01.2016, 15:13 |
Сообщение № 1395 | Тема: Общие итоги в сводной таблице по определенной группировке
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
еще вариант УФ формула в диспетчере имен Код
=И(ПОЛУЧИТЬ.ЯЧЕЙКУ(56;'отч по работам'!$A16)="Признак разделения";'отч по работам'!$A16<>"работники")
еще вариант УФ формула в диспетчере имен Код
=И(ПОЛУЧИТЬ.ЯЧЕЙКУ(56;'отч по работам'!$A16)="Признак разделения";'отч по работам'!$A16<>"работники")
krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение еще вариант УФ формула в диспетчере имен Код
=И(ПОЛУЧИТЬ.ЯЧЕЙКУ(56;'отч по работам'!$A16)="Признак разделения";'отч по работам'!$A16<>"работники")
Автор - krosav4ig Дата добавления - 24.01.2016 в 15:13
krosav4ig
Дата: Воскресенье, 24.01.2016, 02:33 |
Сообщение № 1396 | Тема: Программно нижний колонтитул в Excel
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
А можно без VBA?
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Воскресенье, 24.01.2016, 06:27
Ответить
Сообщение А можно без VBA? Автор - krosav4ig Дата добавления - 24.01.2016 в 02:33
krosav4ig
Дата: Суббота, 23.01.2016, 20:12 |
Сообщение № 1397 | Тема: Выдает ошибку при использовании SQL запроса из Excel vba
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
немного опоздал добавлю, что диапазон нужно не просто очищать, а удалять, ибо остаются подключения добавил еще 1 вариант на Лист2 [vba]Код
Sub SQLQuery_1() Dim varConn As String Dim varSQL As String Range("A1").CurrentRegion.Delete xlUp varConn = "ODBC;DSN=MS Access Database;DriverId=25;DBQ=База данных7.accdb_;DefaultDir=" & ThisWorkbook.Path varSQL = "SELECT Имя, Фамилия, Должность FROM Таблица1" With ActiveSheet.QueryTables.Add(Connection:=varConn, Destination:=Range("A1")) .CommandText = varSQL .Name = "Query-39008" .Refresh BackgroundQuery:=False End With End Sub
[/vba]
немного опоздал добавлю, что диапазон нужно не просто очищать, а удалять, ибо остаются подключения добавил еще 1 вариант на Лист2 [vba]Код
Sub SQLQuery_1() Dim varConn As String Dim varSQL As String Range("A1").CurrentRegion.Delete xlUp varConn = "ODBC;DSN=MS Access Database;DriverId=25;DBQ=База данных7.accdb_;DefaultDir=" & ThisWorkbook.Path varSQL = "SELECT Имя, Фамилия, Должность FROM Таблица1" With ActiveSheet.QueryTables.Add(Connection:=varConn, Destination:=Range("A1")) .CommandText = varSQL .Name = "Query-39008" .Refresh BackgroundQuery:=False End With End Sub
[/vba] krosav4ig
К сообщению приложен файл:
SQL_.xlsm
(28.2 Kb)
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Суббота, 23.01.2016, 20:12
Ответить
Сообщение немного опоздал добавлю, что диапазон нужно не просто очищать, а удалять, ибо остаются подключения добавил еще 1 вариант на Лист2 [vba]Код
Sub SQLQuery_1() Dim varConn As String Dim varSQL As String Range("A1").CurrentRegion.Delete xlUp varConn = "ODBC;DSN=MS Access Database;DriverId=25;DBQ=База данных7.accdb_;DefaultDir=" & ThisWorkbook.Path varSQL = "SELECT Имя, Фамилия, Должность FROM Таблица1" With ActiveSheet.QueryTables.Add(Connection:=varConn, Destination:=Range("A1")) .CommandText = varSQL .Name = "Query-39008" .Refresh BackgroundQuery:=False End With End Sub
[/vba] Автор - krosav4ig Дата добавления - 23.01.2016 в 20:12
krosav4ig
Дата: Суббота, 23.01.2016, 03:38 |
Сообщение № 1398 | Тема: сохранение файла в формате pdf
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
должно быть [vba]Код
ActiveSheet.ExportAsFixedFormat
[/vba]
должно быть [vba]Код
ActiveSheet.ExportAsFixedFormat
[/vba] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение должно быть [vba]Код
ActiveSheet.ExportAsFixedFormat
[/vba] Автор - krosav4ig Дата добавления - 23.01.2016 в 03:38
krosav4ig
Дата: Среда, 20.01.2016, 20:10 |
Сообщение № 1399 | Тема: Таблица по складу
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
если постараться, то можно и сводной upd. Заменил файл
если постараться, то можно и сводной upd. Заменил файл krosav4ig
К сообщению приложен файл:
2-1-.xls
(59.0 Kb)
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Сообщение отредактировал krosav4ig - Среда, 20.01.2016, 22:52
Ответить
Сообщение если постараться, то можно и сводной upd. Заменил файл Автор - krosav4ig Дата добавления - 20.01.2016 в 20:10
krosav4ig
Дата: Понедельник, 18.01.2016, 19:19 |
Сообщение № 1400 | Тема: Печать рассылки в ворде не открывая документ
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
а у нас ее нетуна основании её делается рассылка в ворде
и файла с полями слияния тоже нетуХотелось бы создать кнопочку в екселе
ну дык что мешает-то вставить кнопку в файл excel с таблицей и приложить его (файл) и документ с полями слияния к сообщению? [p.s.]ТЫК
а у нас ее нетуна основании её делается рассылка в ворде
и файла с полями слияния тоже нетуХотелось бы создать кнопочку в екселе
ну дык что мешает-то вставить кнопку в файл excel с таблицей и приложить его (файл) и документ с полями слияния к сообщению? [p.s.]ТЫК krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение а у нас ее нетуна основании её делается рассылка в ворде
и файла с полями слияния тоже нетуХотелось бы создать кнопочку в екселе
ну дык что мешает-то вставить кнопку в файл excel с таблицей и приложить его (файл) и документ с полями слияния к сообщению? [p.s.]ТЫК Автор - krosav4ig Дата добавления - 18.01.2016 в 19:19