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

Страницы: 1 2 3 След.
Как отразить скрытые модули в VBA проекте ?
 
#
08.04.2020 21:01:43
добрый день.

ко мне попал файл с макросами. открыв в файле окно  VBA кода вижу в ThisBook ссылки на вызов различных процедур. Ни модулей ни классов в файле не видно.
При запуске макросов кнопкой со страницы они отрабатывают нормально (причем в окне VBA на листе где есть кнопка тоже никакого кода нет).

предполагаю, что модули или классы каким-то образом скрыты в книге.

Как можно их отразить или увидеть скрытый код ?
 
Перейти    
VBA перестало работать выражение GetObject("LDAP://CreateObject("ADSystemInfo").UserName), получиние электронной почты пользователя
 
#
06.04.2020 11:35:39
есть такой код

Код
Dim objAD As Object, objUser As Object
    Dim mail As String
    
 
    Set objAD = CreateObject("ADSystemInfo")
    Set objUser = GetObject("LDAP://" & objAD.UserName)
    mail = objUser.EMailAddress
    UserEMail = LCase(mail)


до сегодняшнего дня все работало хорошо.
Сегодня зависает и выдает ошибку на выражении  objAD.UserName

в чем может быть проблема ?
 
Перейти    
как при помощи VBA получить электронный адрес учетной записи пользователя ?
 
#
30.01.2020 10:32:00
коллеги, подскажите, пожалуйста, как средствами VBA  получить адрес электронной почты учетной записи пользователя открывшего книгу excel ?

для наглядности прикладываю картинку. Получить нужно то что выделено желтым маркером и обведено красным

 
Перейти    
четырехменая столбчатая диаграмма, возможно ли это ?
 
#
27.06.2019 22:49:39
можно ли в Excel построить такое ? как это сделать ?
 
Перейти    
соединение многие - ко - многим в powerpivot, как создать промежуточную таблицу уникальных значений
 
#
24.05.2019 12:59:21
Добрый день.


Есть две таблицы в каждой есть поле "кодЗоны", содержащее повторяющие значения.
таблицы загружены в модель данных power pivot.
Мне нужно создать связь между этими таблицами по полю  "кодЗоны".

поскольку powerpivot не позволяет создать связь многие-ко-многим (в отличие от Power bi), то придется создавать промежуточную таблицу содержащую уникальные значения из поля  "кодЗоны".

Не могу понять как создать силами только powerpivot  эту промежуточную таблицу.
Помогите, пожалуйста, разобраться.

Вариант создать таблицу в powerQuery и потом загрузить в модель данных не рассматриваю.
 
 
Перейти    
VBA. получить Collection из Функции, Функция формирует коллекцию. Необходимо получить результат работы функции (т.е. получить Коллекцию)
 
#
09.04.2019 23:06:07
есть такой код (см ниже)
не пойму как в Подпрограмме Sub test() получить коллекцию сформированную функцией Function create_collection
объясните, пожалуйста, что не так.
Код
Sub test()Dim a As New Collection

Set a = create_collection("Sales", "E")
MsgBox a.Count

End Sub
Код
Function create_collection(ByVal page As String, ByVal column As String) As Collection  ' формирование массива уникальных элементов
 
'Объявляем переменные
'myRange - диапазон ячеек, заполненный исходным списком элементов
'myCell - отдельная ячейка диапазона
Dim myRange As Range, myCell As Range, LastRow As Long

Sheets(page).Select
LastRow = Cells(Rows.Count, 1).End(xlUp).Row

'присваиваем переменной myRange диапазон ячеек с исходным списком элементов
Set myRange = Sheets(page).Range(column & "2").Resize(LastRow - 1, 1)

'заполняем новую коллекцию уникальными элементами
On Error Resume Next
For Each myCell In myRange
create_collection.Add CStr(myCell.Value), CStr(myCell.Value)
Next myCell
On Error GoTo 0

End Function
 
Перейти    
разукрасить диаграмму водопад, диаграмма bridge, waterfall
 
#
14.12.2018 11:16:36
на одном из тестовых заданий попалась задача (работа в Excel 2016):
  • сделать диаграмму водопад
  • на ней необходимо покрасить:
  1. зеленым цветом сделать отрицательные значения
  2. красным - положительные
  3. синим -итоговые значения
выполнил это таким способом https://www.planetaexcel.ru/techniques/4/163/
это оказалось неправильно. Говорят, что в Excel 2016 есть стандартные функции для подобного разукрашивания диаграммы "водопад"

других идеи кроме как создать новую цветовую схему у меня нет.
подскажите, пожалуйста, как стандартными способами разукрасить диаграмму ?
 
Перейти    
POWER Query получение списка файлов из папки на Onedrive, как указать папку на OneDrive для бизнеса в качестве источника PowerQuery
 
#
24.05.2018 17:08:25
Помогите разобраться:
есть на OneDrive папка, в которой лежат файлы Excel
необходимо через запрос Power Query подключиться к этой папке и получить содержимое всех файлов Excel из этой папки (файлы имеют одинаковую структуру).

Как правильно указать папку на Onedrive в качестве источника для PowerQuery ?

ЗЫ: есть такая инструкция для отдельного файла, но как применить ее в целом для папки не понимаю.
 
Перейти    
PowerPivot не работают связи в таблицах, PowerPivot предлагает настроить связи в таблицах хотя они есть
 
#
29.04.2018 10:34:22
такая проблема: есть 3 таблицы в модели данных. все они связаны по ключу, но когда я пытаюсь построить сводную PowerPivot предлагает настроить связь. Настроить заново не получается, т.к. PP говорит что такая связь уже есть. В чем проблема не пойму.

Файл с примером во вложении

помогите пожалуйста.  
 
Перейти    
где взять Power map 2010 ?, Powermap 2010, визуализация
 
#
26.02.2015 15:58:30
мне нужна Power map именно для 2010, т.к. на работе стоит Excel 2010
на сайте майкрософт предлагают скачать только для 2013. Нигде не смог найти вариант для 2010.
Можете подсказать где скачать Power map 2010 ?
 
Перейти    
помогите разобраться со шрифтом ean13.ttf для печати штрих кода
 
#
17.11.2014 10:31:14
стоит задача напечатать массу штрих кодов. Нашел шрифт ean13, но не могу разобраться в алгоритме его действия.
напишите, пожалуйста, каким образом происходит соотношение букв к печатаемому коду в данном шрифте.
 
Перейти    
как прописать в макросе печать на двух сторонах листа ?, печать разных листов книги на двух сторонах одного листа
 
#
18.07.2014 14:22:23
подскажите, пожалуйста, как прописать в макросе печать на двух сторонах бумажного листа информацию содержащуюся на разных листах книги Эксель ?
 
Перейти    
объясните как настроить вычисление процентов в сводной таблице
 
#
11.02.2014 18:46:15
есть один столбец с данными, есть другой столбец с данными в сводной таблице
нужно чтобы считался процент по формуле данные строки первого столбца/данные строки второго столбца ?

пример таблицы и того что нужно получить прилагается
 
Перейти    
как сделать случайные числа в определенном диапазоне
 
#
03.12.2012 10:55:07
помогите сделать так чтобы выводились случайные числа в заданном диапазоне (например, от 0 до 200) и что сумма этих чисел не превышала верхнюю границу диапазона (т.е. 200)
 
Перейти    
создание текстового файла
 
#
19.11.2012 10:08:08
есть макрос, который осздает текстовый файл.  
но длина строки в текстовом файле одна и таже.    
 
Нужно чтобы каждая с строка имела разную длину (длины каждой строки имеют размеры: 58, 69, 15, 36 и т.д. 11 значений).  
 
Как это можно сделать ?  
 
вот макрос:  
 
Sub start2()    
 
Open Range("E1") & "\" & Range("E4") & ".txt" For Output As #1 'путь сохранения текстового файла  
Dim s As String * 410  ' длина текстовой строки 410. Нужно чтобы она менялась  
s = ""  
 
For y = 2 To Cells(Rows.Count, 2).End(xlUp).Row Step 3 ' берем данные из листа для заполенения значений в тектовом файле  
For x = 1 To Cells(y, Columns.Count).End(xlToLeft).Column'берем данные из листа для заполенения значений в тектовом файле  
 
Mid(s, Cells(y, x)) = Cells(y + 2, x) 'заполняем текстовую строку  
Next  
Print #1, s; 'печататем текстовую строку в текстовом файле    
s = ""  
Print #1,  
Next  
 
Reset  
End Sub  
 
для удобства так же прикладываю работающйи файл
 
Перейти    
ошибка type mismatch. Почему ?
 
#
10.07.2012 12:18:18
выдает ошибку "type mismatch" на строке  
   vData = Sheets(1).Range("A1:V" & RngX).Value  
не могу понять почему. помогите разобраться    
перепробовал все типы переменных уже для выражения vData    
 
 
-----------------------------------------------------------------  
Dim vData As Variant  
Dim lastrow As Long  
Dim RngX As Range  
 
   lastrow = Cells(Rows.Count, 1).End(xlUp).Row  
   Set RngX = Sheets(1).Range("A1").Resize(lastrow, 22)  
     
   vData = Sheets(1).Range("A1:V" & RngX).Value  
--------------------------------------------------------------------
 
Перейти    
проблема с функцией print #1 tab(n)
 
#
06.07.2012 16:07:59
мне необходимо создать текстовый файл, который будет содержать определенный текст, который должен начинаться с определенной строки.  
 
есть файл (прилагается к сообщению), в котором в одной строке прописаны позиции с которых должен начинаться текст (фиолетовая строка), а так же сам текст, который должен печататься в файл (находится в строке ниже (строка без заливки)).  
 
для решения этой задачи использую функцию print #1 tab(n), но некоторый текст печатается на 1 символ дальше.    
 
как исправить этот баг ??  
 
вот листинг :  
 
 
 
Sub bb()  
Dim y&, x&  
 
 
Open "C:\текст1.txt" For Output As #1  
 
For y = 2 To Cells(Rows.Count, 2).End(xlUp).Row Step 3  
For x = 1 To Cells(y, Columns.Count).End(xlToLeft).Column  
 
Print #1, Tab(Cells(y, x)); Cells(y + 2, x);  
 
Next  
Print #1,  
Next  
 
Reset  
End Sub
 
Перейти    
как сохранить в текстовый файл с текстом на определенной позиции
 
#
05.07.2012 15:17:03
есть текст в ячейках, над ячейками написано с какой позиции этот текст должен идти в текстовом файле.  
 
как сохранить лист эксель в текстовый файл чтобы указанные выражения начинались с указаннйо позиции текста ?  
 
пример файла и пример того что должно получиться прилагается.
 
Перейти    
как прописать дату в виде текста ?
 
#
20.06.2012 15:20:54
есть ячейка A1 с датой    
в ячейке B2 формула (="счет № 2 от " & A1)  
в таком виде дата подставляется в формате 1900, как сделать чтобы в ячейку B2 дата подставлялась в формате ДД.ММ.ГГГ ?
 
Перейти    
как найти номер позиции иностранного символа в текстовой строке
 
#
14.06.2012 10:36:32
есть текстовая строка вида "RRR 444 WW Печь дровяная" и таких строк мног.  
 
 
как из этой сроки выделить только иностранные символы?  
т.е. в итоге должна получиться строка "RRR 444 WW"  
 
PS  длина иностранных символов имеет разную длину (т.е. может быть "TT 55", а может быть "UU 5657 PPP"
 
Перейти    
Как дописать в конец текста ячейки фразу (VBA) ?
 
#
11.04.2012 10:10:03
Ситуация такая: необходимо с помощью средств VBA дописать в конец текста, уже находящегося в ячейке, определенную фразу.  
Как это можно сделать ?
 
Перейти    
Как макросом посчитать кол-во значения отобраные с помощью фильтра
 
#
29.03.2012 15:47:31
Отфильтровал на листе данные с поомщью обычного фильтра    
Как теперь С ПОМОЩЬЮ МАКРОСА посчитать кол-во видимых значений в столбце ?
 
Перейти    
запрос пароля при открытии файла после определенной даты
 
#
11.03.2012 14:05:03
посоветуйте пожалуйста как сделать чтобы при наступлении определенной даты, файл excel при открытии требовал ввода пароля?
 
Перейти    
функция ВПР с помощью VBA
 
#
09.02.2012 12:57:35
не понимаю в чем проблема  
 
Dim RngAll As Range  
Dim LastRow As Long  
Dim RngX As Range  
 
LastRow = Cells(Rows.Count, 7).End(xlUp).Row    
Set RngAll = Sheets("отчет").Range("G35").Resize(LastRow, 4)  
 
set RngX = Sheets("отчет1").Range("B19")  
RngX.FormulaR1C1 = "=VLOOKUP(RC[-1]," & RngAll.Name & "!" & RngAll.Address(, , xlR1C1) & ",4,False)"
 
помогите понять почему выдает ошибку при достижении строки с формулой VLOOKUP ?
 
Перейти    
изменение фильтров отчет сводных таблиц
 
#
03.02.2012 12:29:33
есть 2 сводных таблицы, построенные на основе одних и тех же данных.  
У обоих таблиц одинаковые поля "Фильтр отчета"(report filter).  
 
Можно как-то сдалать чтобы при измении значений "фильтра отчета" в одной таблице эти же значения выбирались в другой таблице ?  
пример прилагагется
 
Перейти    
задание макросом фильтра сводной таблицы
 
#
02.02.2012 18:01:31
пробую макросом задать значение фильтра сводной таблицы, но не получается...  
ActiveSheet.PivotTables("PivotTable3").PivotFields("склад").CurrentPage = Sheets("отчет").Range("G4")  
 
в чем здесь может быть ошибка ?
 
Перейти    
группировка данных в сводной таблице
 
#
31.01.2012 10:32:56
как в сводной таблице в поле "фильтр отчета" (reportFilter) сделать чтобы значения группировались по месяцам ?  
сейчас там отражаются даты в формате 20.12.2011
 
Перейти    
замена значений
 
#
27.01.2012 09:52:22
excel 2010  
макрос выделяет область и ТОЛЬКО В ней должен заменить одни значения на другие (убрать кавычки), но он делает это по всей книге. В чем ошибка ?  
 
LastRow = Cells(Rows.Count, 1).End(xlUp).Row  
Set RngX = Sheets("лист1").Range("A1").Resize(LastRow, 1)  
 
RngX.Replace What:="""", Replacement:="", LookAt:=xlPart, _  
       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _  
       ReplaceFormat:=False
 
Перейти    
русифицировать excel
 
#
14.12.2011 17:02:31
на работе установили excel 2010, но на английском языке, соответственно, все формулы и их описание тоже на английском.  
можно ли как-то русифицировать (без переустановки программы, на уровне пользователя) хотя бы формулы ?
 
Перейти    
не работает расширенный фильтр с помощью vba
 
#
14.04.2011 22:18:47
не могу понять почему не работает расширенный фильтр если прописывать его на vba.  
Точнее, но не фильтрует значения по нужному условию.  
Помогите, пожалуйста, разобраться в чем проблема. Код прилагается
 
Перейти    
Страницы: 1 2 3 След.
Наверх