Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Записи участника (krosav4ig) - Мир MS Excel

Старая форма входа
Мир MS Excel » Записи участника » krosav4ig [2343]
Результаты поиска
krosav4ig Дата: Среда, 13.01.2016, 23:17 | Сообщение № 941 | Тема: Фикс счетчика сообщений в профиле
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
И круглое число (2000 сообщений) обломалось :(

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеИ круглое число (2000 сообщений) обломалось :(
Автор - krosav4ig
Дата добавления - 13.01.2016 в 23:17
krosav4ig Дата: Суббота, 16.01.2016, 22:56 | Сообщение № 942 | Тема: Объединение нескольких формул ЕСЛИ
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
marcopolo, тут смотрели?

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеmarcopolo, тут смотрели?
Автор - krosav4ig
Дата добавления - 16.01.2016 в 22:56
krosav4ig Дата: Понедельник, 18.01.2016, 12:32 | Сообщение № 943 | Тема: Как прописать в формуле цвет
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
получить.ячейку(38)
системная палитра 56 цветов

в книге лист Макрос1 можно скрыть
К сообщению приложен файл: fillcolor.xls (26.5 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Понедельник, 18.01.2016, 12:32
 
Ответить
Сообщениеполучить.ячейку(38)
системная палитра 56 цветов

в книге лист Макрос1 можно скрыть
Автор - krosav4ig
Дата добавления - 18.01.2016 в 12:32
krosav4ig Дата: Понедельник, 18.01.2016, 19:19 | Сообщение № 944 | Тема: Печать рассылки в ворде не открывая документ
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата drugaja, 15.01.2016 в 19:05, в сообщении № 1
Есть таблица в ексель
а у нас ее нету
Цитата drugaja, 15.01.2016 в 19:05, в сообщении № 1
на основании её делается рассылка в ворде
и файла с полями слияния тоже нету
Цитата Manyasha, 16.01.2016 в 12:29, в сообщении № 2
Хотелось бы создать кнопочку в екселе
ну дык что мешает-то вставить кнопку в файл excel с таблицей и приложить его (файл) и документ с полями слияния к сообщению?

[p.s.]ТЫК

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Цитата drugaja, 15.01.2016 в 19:05, в сообщении № 1
Есть таблица в ексель
а у нас ее нету
Цитата drugaja, 15.01.2016 в 19:05, в сообщении № 1
на основании её делается рассылка в ворде
и файла с полями слияния тоже нету
Цитата Manyasha, 16.01.2016 в 12:29, в сообщении № 2
Хотелось бы создать кнопочку в екселе
ну дык что мешает-то вставить кнопку в файл excel с таблицей и приложить его (файл) и документ с полями слияния к сообщению?

[p.s.]ТЫК
Автор - krosav4ig
Дата добавления - 18.01.2016 в 19:19
krosav4ig Дата: Среда, 20.01.2016, 20:10 | Сообщение № 945 | Тема: Таблица по складу
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
если постараться, то можно и сводной

upd.
Заменил файл
К сообщению приложен файл: 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 Дата: Суббота, 23.01.2016, 03:38 | Сообщение № 946 | Тема: сохранение файла в формате pdf
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
должно быть [vba]
Код
ActiveSheet.ExportAsFixedFormat
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениедолжно быть [vba]
Код
ActiveSheet.ExportAsFixedFormat
[/vba]
Автор - krosav4ig
Дата добавления - 23.01.2016 в 03:38
krosav4ig Дата: Суббота, 23.01.2016, 20:12 | Сообщение № 947 | Тема: Выдает ошибку при использовании 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]
К сообщению приложен файл: 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 Дата: Воскресенье, 24.01.2016, 02:33 | Сообщение № 948 | Тема: Программно нижний колонтитул в Excel
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
А можно без VBA? ;)
К сообщению приложен файл: 7044400_2.xls (70.5 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Воскресенье, 24.01.2016, 06:27
 
Ответить
СообщениеА можно без VBA? ;)
Автор - krosav4ig
Дата добавления - 24.01.2016 в 02:33
krosav4ig Дата: Воскресенье, 24.01.2016, 15:13 | Сообщение № 949 | Тема: Общие итоги в сводной таблице по определенной группировке
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
еще вариант УФ формула в диспетчере имен
Код
=И(ПОЛУЧИТЬ.ЯЧЕЙКУ(56;'отч по работам'!$A16)="Признак разделения";'отч по работам'!$A16<>"работники")
К сообщению приложен файл: 9774283.xlsm (16.6 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениееще вариант УФ формула в диспетчере имен
Код
=И(ПОЛУЧИТЬ.ЯЧЕЙКУ(56;'отч по работам'!$A16)="Признак разделения";'отч по работам'!$A16<>"работники")
Автор - krosav4ig
Дата добавления - 24.01.2016 в 15:13
krosav4ig Дата: Воскресенье, 24.01.2016, 17:23 | Сообщение № 950 | Тема: Сумма по звум значениям
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Код
=СУММЕСЛИМН($I$5:$I$12;$D$5:$D$12;$D16;$F$5:$F$12;E$15)
или сводная
[offtop]мало того что опоздал, но и названия столбцов добавил почти такие же ... :(
К сообщению приложен файл: 3775392.xlsx (12.6 Kb)

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 Дата: Понедельник, 25.01.2016, 18:29 | Сообщение № 951 | Тема: Создание динамического списка по нескольким условиям
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
вариант с доп. столбцом и сводной
К сообщению приложен файл: 8187620.xlsx (17.9 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениевариант с доп. столбцом и сводной
Автор - krosav4ig
Дата добавления - 25.01.2016 в 18:29
krosav4ig Дата: Вторник, 26.01.2016, 00:13 | Сообщение № 952 | Тема: Прочитать содержимое ячейки таблицы 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]
Цитата Отпрос, 25.01.2016 в 20:51, в сообщении № 3
фафла

тут читать у вместо а или й всесто ф? ^_^ [/offtop]

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]
Цитата Отпрос, 25.01.2016 в 20:51, в сообщении № 3
фафла

тут читать у вместо а или й всесто ф? ^_^ [/offtop]
Автор - krosav4ig
Дата добавления - 26.01.2016 в 00:13
krosav4ig Дата: Вторник, 26.01.2016, 00:31 | Сообщение № 953 | Тема: Автоматическое заполнение данных из файла в файл
Группа: Друзья
Ранг: Старожил
Сообщений: 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:31
krosav4ig Дата: Вторник, 26.01.2016, 15:24 | Сообщение № 954 | Тема: Как массово очистить форматы ячеек
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата Sopilkar, 26.01.2016 в 14:58, в сообщении № 3
как очистить сам НАБОР (или как его там назвать) форматов

макросом (Что такое макросы 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]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Цитата Sopilkar, 26.01.2016 в 14:58, в сообщении № 3
как очистить сам НАБОР (или как его там назвать) форматов

макросом (Что такое макросы 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 Дата: Среда, 27.01.2016, 22:57 | Сообщение № 955 | Тема: Как массово очистить форматы ячеек
Группа: Друзья
Ранг: Старожил
Сообщений: 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>

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 Дата: Четверг, 28.01.2016, 00:56 | Сообщение № 956 | Тема: Создать отдельные файлы из большого файла
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
mechanix85, вам нужно изменить тип разрывов раздела
1 вариант: Выделяем весь документ, жмем Разметка страницы>Параметры страницы(маненькая кавдратненькая кнопочка)>Источник бумаги>Начать раздел: С нечетной страницы
2 вариант: 3 заменить один разрыв на разрыв с нечетной страницы, скопировать его (символ раздела), выполнить замену - найти: ^b, заменить на: ^c Заменить все
Теперь можно печатать весь документ сплошняком двухсторонней печатью
Если разделов немного, то можно вручную печать каждый раздел, указывая его при печати в поле диапазон страниц (s1 - первый раздел, s2- второй)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеmechanix85, вам нужно изменить тип разрывов раздела
1 вариант: Выделяем весь документ, жмем Разметка страницы>Параметры страницы(маненькая кавдратненькая кнопочка)>Источник бумаги>Начать раздел: С нечетной страницы
2 вариант: 3 заменить один разрыв на разрыв с нечетной страницы, скопировать его (символ раздела), выполнить замену - найти: ^b, заменить на: ^c Заменить все
Теперь можно печатать весь документ сплошняком двухсторонней печатью
Если разделов немного, то можно вручную печать каждый раздел, указывая его при печати в поле диапазон страниц (s1 - первый раздел, s2- второй)
Автор - krosav4ig
Дата добавления - 28.01.2016 в 00:56
krosav4ig Дата: Четверг, 28.01.2016, 02:38 | Сообщение № 957 | Тема: Создание макроса для автоматической смены данных в таблице
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Цитата Anna_Med, 28.01.2016 в 01:40, в сообщении № 1
Пример прикреплен.
чего-то я его не вижу...

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Цитата Anna_Med, 28.01.2016 в 01:40, в сообщении № 1
Пример прикреплен.
чего-то я его не вижу...
Автор - krosav4ig
Дата добавления - 28.01.2016 в 02:38
krosav4ig Дата: Четверг, 28.01.2016, 18:16 | Сообщение № 958 | Тема: Создать отдельные файлы из большого файла
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Вопрос на засыпку. Зачем все эти танцы с бубном? (я имею ввиду поиск позиций начала и конца раздела) Можно же [vba]
Код
ch.Sections(i).range.ExportAsFixedFormat ...
[/vba] Или я чего-то не знаю?

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, 18:34 | Сообщение № 959 | Тема: Число страниц на листе
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
как вариант [vba]
Код
Sheets(1).Cells(1, 24).Offset(Cnt, 0) = ExecuteExcel4Macro("get.document(50,""" & Sheets(Elem).Name & """)")
[/vba]

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 Дата: Суббота, 30.01.2016, 01:19 | Сообщение № 960 | Тема: Изображение в форме в зависимости от активного листа
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
названия файлов должны совпадать со значениями ячейки H3, т.е. Avicularia Versicolor.jpg, Brachipelma Boehmei.jpg и т.д.
К сообщению приложен файл: 9587419.zip (42.6 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеназвания файлов должны совпадать со значениями ячейки H3, т.е. Avicularia Versicolor.jpg, Brachipelma Boehmei.jpg и т.д.
Автор - krosav4ig
Дата добавления - 30.01.2016 в 01:19
Мир MS Excel » Записи участника » krosav4ig [2343]
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!