Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Marchuk
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 39 След.
Добавление собственного шрифта в Power BI
 
#
19.05.2020 12:38:11
Цитата
Roman36 написал:
хочу добавить во все визуализации , во все подписи , сделать так что бы мой шрифт можно было выбрать везде , где есть возможность выбора шрифта
Вам удалось установить свой шрифт?
 
Перейти    
Excel. Сводные таблицы. PQ. Снять ограничение на 1000 строк при "проваливании", Excel 2016-2019
 
#
13.02.2020 08:40:06
Цитата
Андрей VG написал:
Только сколько не ковырял VBA модель, так и не нашёл, как хотя бы в коде изменить тот самый параметр.
Сам параметр находил. А как его изменить средствами VBA, ответа не нашел (он ошибку 1004 вроде дает). В инете много спрашивают, а решения не видел.
Изменено: Marchuk - 13.02.2020 08:41:32
 
Перейти    
Excel. Сводные таблицы. PQ. Снять ограничение на 1000 строк при "проваливании", Excel 2016-2019
 
#
12.02.2020 13:17:05
Все верно.

Цитата
Андрей VG написал: Но с Excel 365 такой маневр не проходит
У меня его нету. Помочь не смогу.
 
Перейти    
Excel. Сводные таблицы. PQ. Снять ограничение на 1000 строк при "проваливании", Excel 2016-2019
 
#
11.02.2020 19:30:56
Сегодня столкнулся с такой проблемой.
У человека есть сводная таблица, построенная на запросе объединении 2х таблиц в одну, около 1,6млн строк. Запросы оформлены в Power Query
При просмотре детализации цифры сводной таблицы, показывает по умолчанию только 1000 записей.
В аналогичном файле, только построенным на OLAP кубе, в настройках подключения, можно изменить параметр показа максимального количества записей по умолчанию. В данном случае, этот параметр не доступен для редактирования, он пустой и серый.

I. Было найдено решение в интернете. Подходит для Excel 2016:
1) поместите мышь вне сводной таблицы
2) пройдите по меню Данные -> Подключения
3) в диалоговом окне Подключения к книге выберите строку ThisWorkbookDataModel
4) нажмите кнопку Свойства
5) на вкладке Использование в поле Максимальное число извлекаемых записей введите количество строк, которые вы хотите получить
6) нажмите Ok

II. Но, у человека оказался Excel 2019.
Там нет меню Данные -> Подключения.
2) меню Данные -> Запросы и подключения.
3) Справа открывается окно, на вкладке Подключения выбираешь ThisWorkbookDataModel.
остальные шаги аналогичные.

НО! Excel 2019 не видит это подключение, там пусто.
III.Методом тыка, было найдено решение:
1) Открываем файл. Ни в коем случае не открываем Подключения, даже если просто посмотреть.
2) Пишем пустой макрос. (тем кому лень писать руками sub и т.д.)
3) Выбираем макрос и редактируем его.
4) Вставляем следующие 2 строки
   MsgBox (ThisWorkbook.Connections.Count)
   MsgBox (ThisWorkbook.Connections.Item(1).Name)
5) Выполняем макрос. Всплывающие окна закрываем.
6) Теперь повторяем шаги описанные параграфом выше, и во вкладке Подключения выбираешь ThisWorkbookDataModel.


Спасибо за внимание.
 
Перейти    
Открывается 2 окна (Excel 2013, 64x) при открытии файла двойным кликом
 
#
18.09.2017 16:23:19
EXCEL 2013 64-bit. Как понять какая книга открывается.
Активировать открытое пустое окно.
Файл --> Сведения.
и видите название и расположение открытого файла (пустое).
У меня этот файл "C:\Program Files\Microsoft Office\Office15\Library\Analysis\FUNCRES.XLAM".
Поставил атрибут как "скрытый", посмотрим что будет дальше. (не помогло).
Сделал скрытие в автозагрузке самой книги, посмотрим.
Изменено: Marchuk - 18.09.2017 16:36:05
 
Перейти    
EXCEL 2013, создание "Подключения" с помощью VBA.
 
#
10.02.2017 09:39:12
Вновь решил сделать подключение, и не пошло. Искал решение, наткнулся на свой пост )))
Есть новая фишка, если написать lCmdType:=2, то параметр может быть CreateModelConnection:=False (модель создавать не обязательно).
Искал описание параметра lCmdType, не нашел. Поэтому не знаю что означает 6 , а что 2 )))
Главное работает.
 
Перейти    
В чем причина возникновения ошибки ЗНАЧ при использовании функции ТЕКСТ?, возникаюет при символах B, E, G в ячейке
 
#
01.09.2016 09:38:54
А если так =ТЕКСТ(B1;" ")
 
Перейти    
Автоматическое обновление даты, Автоматическое обновление даты через определенный промежуток времени
 
#
11.07.2016 14:30:23
=ЕСЛИ(ТДАТА()>ДАТАЗНАЧ("07.07."&ГОД(СЕГОДНЯ())+1);"07.07."&ГОД(СЕГОДНЯ())+1;"07.07."&ГОД(СЕГОДНЯ()))
 
Перейти    
Куплю книги
 
#
29.03.2016 15:44:52
1. нашел в электронном виде ссыль . Заказать в ОЗОН
Изменено: Marchuk - 29.03.2016 15:48:39
 
Перейти    
Поиск значений в строке по маске
 
#
29.03.2016 14:10:46
Цитата
vikttur написал: =ЛЕВБ
не знал про неё  
 
Перейти    
Куплю книги
 
#
29.03.2016 11:21:21
Вы хотите в бумажном виде?
 
Перейти    
Как добавить значения в колонке
 
#
29.03.2016 10:03:46
можно например через формулу =ПОДСТАВИТЬ(A1;"80DEFG,";"80D, 80E, 80F, 80G,"), но это надо прописывать для всех вариантов.
 
Перейти    
Подсчет количества ячеек по определенному значение в Сводной таблице
 
#
29.03.2016 09:52:28
используя доп столбец
 
Перейти    
Макрос скрытия ячеек, Проблема с макросом
 
#
29.03.2016 08:27:31
что если ActiveWorkbook.... сменить на ThisWorkbook.... ?
 
Перейти    
Подстановка столбцов на другой лист, VBA
 
#
28.03.2016 16:11:53
Определение последней заполненной строки через свойство End
1    lLastRow = Cells(Rows.Count,1).End(xlUp).Row

определяя таким способом нам надо знать что:
1 - это номер столбца, последнюю заполненную ячейку в котором мы определяем. В данном случае это столбце №1 или А.
Это самый распространенный метод определения последней строки. Используя его мы можем определить последнюю ячейку только в одном конкретном столбце. Но в большинстве случаев этого достаточно.
Правда, следует знать одну вещь: если у вас заполнены все строки в просматриваемом столбце(или будет заполнена самая последняя ячейка столбца) - то результат будет неверный(ну или не совсем такой, какой ожидали увидеть вы)
Определение последнего столбца через свойство End
1    lLastCol = Cells(1, Columns.Count).End(xlToLeft).Column
1 - это номер строки, последнюю заполненную ячейку в которой мы определяем.
 
Перейти    
EXCEL 2013, создание "Подключения" с помощью VBA.
 
#
17.02.2015 17:13:59
кому интересно, то проблема в параметре CreateModelConnection:=False, он должен быть TRUE, иначе не работает.
Код
Set wbcon = ActiveWorkbook.Connections.Add2(Name:="Connection Name", Description:="", ConnectionString:=Array("OLEDB;Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=LB;Data Source=SERVER;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Use Encryption for Data=False;Tag with columncollation when possible=False", CommandText:=Array("""LB"".""dbo"".""Quality""", lCmdType:=6, CreateModelConnection:=True, ImportRelationships:=False)
 
Перейти    
Убрать значки расш.фильтра в сводной таблице
 
#
16.02.2015 17:13:35
как вариант
"Параметры сводной таблицы"
закладка "Вывод"
убрать галочку "Показывать названия полей и списки фильтров".
это Excel 2010. В 2013 наверное похоже, под рукой счас нет.
 
Перейти    
run time error 1004 при расположении файла в локальной сети
 
#
16.02.2015 14:13:22
1. попробуйте явно вначале объявить переменную tStart.
2. нет процедуры ProtectionSheets .
3. проблема из-за указании сетевого пути.
 
Перейти    
EXCEL 2013, создание "Подключения" с помощью VBA.
 
#
16.02.2015 12:49:36
JeyCi,
Записанное макрорекордером не работает. Выдает ошибку.  :)
 
Перейти    
EXCEL 2013, создание "Подключения" с помощью VBA.
 
#
16.02.2015 11:10:44
Есть Excel файл.
Я создал данные из других источников (С сервера SQL Server). Создалась таблица с привязкой этого подключения.
Далее я удаляю это подключение "Данные" - "Подключения" - "Удалить".
Затем я хочу создать удаленное подключение снова и обновить таблицу.
Создание подключения вроде должно создаваться через (...Connections.Add2)
Не получается, выдает 91 ошибку.
Цитата
Run-time error '91': Object variable or With block variable not set.
сам код:
Код
Sub test()
Dim wbcon As WorkbookConnection
Dim wbcons As Connections
Set wbcon = wbcons.Connections.Add2(Name:="Connection Name", Description:="", ConnectionString:=Array("OLEDB;Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=LB;Data Source=SERVER;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Use Encryption for Data=False;Tag with columncollation when possible=False", CommandText:=Array("""LB"".""dbo"".""Quality""", lCmdType:=6, CreateModelConnection:=False, ImportRelationships:=False)
End Sub
Сейчас у меня подключения не разрываются, а в текущих подключениях книги я меняю строки подключения, все обновляю, потом удаляю или разрываю подключения.
Но хочется чтобы файл изначально был без подключений, после запуска макроса он создает подключения, обновляет таблицы, удаляет подключения.

Вот как сделать новое подключение с 0, не могу разобраться. Прошу вашей помощи.
Вот  некоторые ссылки которые я находил с материалом, не помогло.
1 , 2 , 3
Изменено: Marchuk - 16.02.2015 11:42:24
 
Перейти    
[ Закрыто] Импорт данных из .csv файла посредством SQL и VBA, Подробности внутри
 
#
11.07.2014 09:25:22
Извините влезу, в Accesse нельзя этот файлик прилинковать? Он все записи отобразит. Там же есть VBA. Access такое количество строк схавает.
 
Перейти    
Импорт в Excel нескольких столбцов из таблицы Access
 
#
08.07.2014 10:13:09
Не за что )
 
Перейти    
Импорт в Excel нескольких столбцов из таблицы Access
 
#
07.07.2014 17:14:24
Насколько я понимаю при повторном запросе, он не может повторно создать второй такой же объект, с таким же именем, ("Таблица_запрос_из_MS_Access_Database" т.к. такой объект уже существует.
Пробуйте перед созданием, проверять на наличие соединения, и либо пропускать создание соединения, либо удалять старое и делать новое соединение с таким же именем.
 
Перейти    
vba Вставка диапазона ячеек из Excel в тело письма
 
#
03.07.2014 15:01:40
Код
                  .HTMLBody
Код
For i = 20 To 300
                If Range("N" & i).Value > vbNullString Then 'MsgBox " Адрес отсутствует"
                        FIO = Range("A" & i)
                        Dolzhn = Range("B" & i)
                        Podraz = Range("C" & i)
                        Mob = Range("D" & i)
                        Summa = Range("G" & i)
                        Limit = Range("I" & i)
                        Wsego = Range("L" & i)
                   
                   Dim Header As String
               Header = "<table border=""2"">" & _
               "<tr style=""text-align: center;""><td>ФИО</td><td>Должность</td><td>Подразделение</td>" & _
               "<td> № Мобильного</td><td>Сумма  по счету</td><td>Лимит</td><td>Всего к возмещению</td></tr>"
                    '' Составление сообщения
                     Msg = "<h4>Уважаемый(ая) " & FIO & "</h4>" & vbCrLf & vbCrLf
                     Msg = Msg & Header & "<tr style=""text-align: center;"" ><td>" & FIO & "</td>"
                     Msg = Msg & "<td>" & Dolzhn & "</td>"
                     Msg = Msg & "<td>" & Podraz & "</td>"
                     Msg = Msg & "<td>" & Mob & "</td>"
                     Msg = Msg & "<td>" & Summa & "</td>"
                     Msg = Msg & "<td>" & Limit & "</td>"
                     Msg = Msg & "<td>" & Wsego & "</td></tr></table>"
                    Set MItem = OutlookApp.CreateItem(olMailItem)
                    With MItem
                        .Display
                        .BodyFormat = 2
                        .To = EmailAdress
                        .Subject = Subj
                        .HTMLBody = "<html><body><div>" & Msg & "</div></body></html>"
                        .Send
                    End With
        
                End If
                Next i
====================
нашел в инете, и причем быстро.
 
Перейти    
Удалить оригинальную строку и дублирующие ее строки
 
#
03.07.2014 09:46:01
Фильтр - дополнительно Расширенный фильтр , Уникальные записи.
 
Перейти    
Рассылка писем из Excel через Lotus Notes, макрос для рассылки писем
 
#
03.07.2014 09:05:04
вот
 
Перейти    
Рассылка писем из Excel через Lotus Notes, макрос для рассылки писем
 
#
03.07.2014 09:04:44
Я нашел старый файл рассылки 2012 года.
Смотрите макрос в Module4.
 
Перейти    
Рассылка писем из Excel через Lotus Notes, макрос для рассылки писем
 
#
02.07.2014 17:31:01
Цитата
pub10 пишет:
Что-то c синтаксисом макроса не совсем универсально...
Его коллеги адаптировали под Лотус, чтобы красивые письма были )))

вот нашел кусок старого кода, попробуй заменить аналогичную часть в том файле , на это
Код
Set objNotesField = ObjNotesDocument.AppendItemValue("CopyTo", Desti)
Set objNotesField = ObjNotesDocument.AppendItemValue("BlindCopyTo", EmailBCCTo)
Set objNotesField = ObjNotesDocument.CREATERICHTEXTITEM("Body")

 
With objNotesField
  .APPENDTEXT "Это письмо сгенерировано автоматически."
  .ADDNEWLINE 1
    .APPENDTEXT ""
    .ADDNEWLINE 2
  .APPENDTEXT ""
  .ADDNEWLINE 2
    .APPENDTEXT "Какие поля не заполнены:"
  .ADDNEWLINE 1
  .APPENDTEXT "" & Stroka
  .ADDNEWLINE 1
End With
 
 'Файл прикреплять или нет
    If Workbooks("Рассылка  ОбосновDB.xls").Sheets("Check").Range("G" & Loop_Counter).Value = "YES" Then
        Set objiect = objNotesField.EmbedObject(1454, "", EmailAtt)
    End If
 
 
 ObjNotesDocument.SAVEMESSAGEONSEND = SaveOnSend
 
Перейти    
Некорректный результат при работе с базой данных
 
#
02.07.2014 17:24:36
Цитата
Werty пишет: Сегодня Вы точно сделали доброе дело - спасибо!!!
Да не за что )) Главное, что вам помогло в работе.
 
Перейти    
Некорректный результат при работе с базой данных
 
#
02.07.2014 16:39:52
Цитата
Werty пишет:
но долго опять
Ну что за невезенье
1) опять таки, так и не понял конечную вашу цель ))
2) Access как раз рассчитан на обработку больших объемов информации.
3) После нехватки скорости обработки Access мы перешли на SQL Server ))))
Изменено: Marchuk - 02.07.2014 16:40:43
 
Перейти    
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 39 След.
Наверх