Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 След.
Работа с адресной книгой Lotus Notes из vba
 
Накопал такое:

Код
Dim session As Object
Dim NABdb As Object
Dim vPeople As Object
Dim doc As Object
Dim books As Variant
Dim i As Integer
Set session = CreateObject("Lotus.NotesSession")
Call session.Initialize
books = session.AddressBooks
For i = 1 To UBound(books)
Set NABdb = books(i)
If NABdb.IsOpen = False Then
Call NABdb.Open
End If
Set vPeople = NABdb.GetView("($VIMPeople)")
Set doc = vPeople.GetFirstDocument
Do While Not doc Is Nothing
Print doc.GetItemValue("InternetAddress")(0)
Set doc = vPeople.GetNextDocument(doc)
Loop
Next

Получаю мэйлы - doc.GetItemValue("InternetAddress")(0)

Может кто-то подсказать какие вообще есть поля в $VIMPeople? В особенности интересует как называется поле в котором хранится должность и место работы
Работа с адресной книгой Lotus Notes из vba
 
Есть только почтовый клиент
Работа с адресной книгой Lotus Notes из vba
 
Всем привет.
Есть ли возможность заполнить например combobox всеми адресами хранищиемся в базе lotus?
Добавить знак "+" ко всем словам кроме предлогов, Нужна формула
 
На примере "ткань гипюр для платья", формула должна выдавать результат "+ткань +гипюр для +платья" или "+ткань +гипюр +платья"?
Сводная таблица и внешний источник данных, внешний источник данных и текущий источник данных в файле
 
пересоздайте таблицу с новым источником
Теория вероятности
 
Бьюсь с одной задачкой) Почти сдался
Задача стоит следующим образом:

Человек находится в аэропорте и улетает из него в город Х, какая вероятность, что он улетит в каждый из городов.
Если время вылета совпадает то вероятность одинаковая
Рейсы:
Москва 12:00
Стабмул 12:00
Стабмул 13:00
Стабмул 14:00
Стабмул 15:00

Правильный ответ:
Москва:   4.167%
Стамбул: 95.833%

Перебрал уже все все формулы теории вероятности, но не понимаю как получаются именно эти цифры.
Нет идей почему получается так?
Изменено: U_M0KRH - 27.07.2018 13:01:37
Отбросить знаки после запятой с помощью VBA
 
CInt
Как с помощью формулы оценить результаты теста?, Сложная формула
 
Пример по "Потребность в безопасности"


=ЕСЛИ(И(C3>=5;C3<=12);"Очень низкий";ЕСЛИ(И(C3>=13;C3<=15);"Низкий";ЕСЛИ(И(C3>=16;C3<=20);"Средний";ЕСЛИ(И(C3>=21;C3<=23);"Высокий";ЕСЛИ(И(C3>=24;C3<=25);"Очень высокий";"?")))))
Изменено: U_M0KRH - 18.07.2018 09:49:54
Как вставить копию столбца, содержащего активную ячейку, левее активной ячейки?
 
как понял суть)

Код
Columns(ActiveCell.Column).Copy
Columns(ActiveCell.Column).Insert Shift:=xlToRight
Фильтрация ячеек по 3 условиям
 
,
Фильтрация ячеек по 3 условиям
 
Через доп столбец. К примеру кол-во символов "Х" в строке
Код
=ДЛСТР(A1) - ДЛСТР(ПОДСТАВИТЬ(A1;"x";""))
Выпадающий список на основе введённых данных
 
https://www.planetaexcel.ru/techniques/1/38/
Через ВПР не подтягиваются данные.
 
у вас не листе цены после каждого наименования стоит пробел

=ВПР(B11&" ";Цены!C:F;4;0)
Изменено: U_M0KRH - 12.07.2018 17:01:53
VBA: максимум по условию
 
Код
Range("D5").FormulaArray = "=MAX(IF((A1:A11)=F1,B1:B11))"
Как изменить порядок расположения рядов данных в гистограмме с накоплением
 
Разобрался, тема закрыта)
Как изменить порядок расположения рядов данных в гистограмме с накоплением
 
Всем привет. Подскажите можно ли поменять вручную порядок отображения рядов в гистограмме с накоплением не изменяя таблицу?

Пример во вложении. 1 таблица как строиться по умолчанию, рядом картинка что хочу получить
Узнать код стандартной функции и посмотреть его в VBA
 
https://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=8&TID=19213
как вставить значение ячейки в надпись, требуется обновление текста в надписи после изменения данных в ячейке.
 
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
ActiveSheet.Shapes("TextBox 1").OLEFormat.Object.Text = Target.Value
ActiveSheet.Shapes("TextBox 2").OLEFormat.Object.Text = Target.Value
'...
ActiveSheet.Shapes("TextBox n").OLEFormat.Object.Text = Target.Value ' или цикл
End If
End Sub
Подсчёт уникальных значений при совпадении условий, Есть два массива: клиенты и товар. На их пересечении - сделка. Необходимо вычислить уникальное значение сделок.
 
А если в данные добавить еще  одну запись по тому же Картошкину например 07.01.2019. Как понимать это 2ая сделка клиента или эта запись относиться к 1 сделке, нет же никакого идентификатора. Или по клиенту в принципе может быть толька 1 сделка?
Замена данных в файлах из папки
 
Занесите данные из "A1:D22" в масссив и далее вставляйте их из массива
Помогите организовать счетчик на гиперссылки
 
Код
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Sheets("Оглавление").Cells(Target.Range.Cells.Row, 3) = Sheets("Оглавление").Cells(Target.Range.Cells.Row, 3) + 1
End Sub
Закрепить фигуру, Закрепление фигуры так, чтобы она не скролилась вместе с листом
 
Могу ошибаться, но вроде бы кроме как разместить фугуру в закрепленной области решения нет
Автоматическое изминеие цвета градиенты строки по мере заполнения данных в ячейках
 
Используйте формулы для условного форматирования.
Пример:
Перенос формулы массива в VBA, (или какой-то другой способ для решения задачи)
 
Код
 Function position_search(Диапазон As Range)
 fr = Диапазон .Row
 lr = Диапазон .Row + Диапазон .Rows.Count - 1
 val_ = Cells(fr, Диапазон .Column).Value
 For r = fr + 1 To lr
 If Cells(r, Диапазон .Column).Value <> val_ Then
 Exit For
 End If
 Next r
 position_search = r - fr + 1
 End Function
Изменено: U_M0KRH - 20.02.2018 16:58:31
Работа с несколькими значениями в одной ячейке.
 
=(ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;",";"")))+1
Как скопировать яейки, к примеру красного цвета, из столбца А в В
 
не очень конкретно, как понял
Код
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1).Interior.Color = 255 Then
adr = adr & Cells(i, 1).Address & ","
End If
Next
adr = Left(adr, Len(adr) - 1)
Range(adr).Copy
Range("B1").Activate
ActiveSheet.Paste
Microsoft Query к листу в открытой книге
 
Добрый день!
Подскажите, возможно ли написать sql запрос к листу excel в текущей книге не сохраняя эту таблицу отдельным файлом.
По возможности можно пример кода.
Спасибо.
Убрать условное форматирование в выбранной ячейке
 
Цитата
Владимир Л написал: ...условное форматирование... убрать с выбранной ячейки.
Код
Range("A1").FormatConditions.Delete
Selection.FormatConditions.Delete
Изменено: U_M0KRH - 09.11.2017 13:00:54
Календарь с свободным вводом даты
 
ЛовиТЕ
Вычисляемое поле в сводной таблице с условием
 
В обычной сводной таблице никак.
Все зависит от того какую конечную цель вы преследуете, если чисто визуально чтобы "не было видно" записей можете использовать условное форматирование этой колонки. То, что на скриншоте сделано именно так. Условие если в первый колонке дата, то текст ячеек белый.
Изменено: U_M0KRH - 29.09.2017 16:47:24
Страницы: 1 2 3 4 5 6 След.
Наверх