Всем привет.
Есть ли возможность заполнить например combobox всеми адресами хранищиемся в базе lotus?

Бьюсь с одной задачкой) Почти сдался
Задача стоит следующим образом:

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

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

Перебрал уже все все формулы теории вероятности, но не понимаю как получаются именно эти цифры.
Нет идей почему получается так?

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

Пример во вложении. 1 таблица как строиться по умолчанию, рядом картинка что хочу получить

Добрый день!
Подскажите, возможно ли написать sql запрос к листу excel в текущей книге не сохраняя эту таблицу отдельным файлом.
По возможности можно пример кода.
Спасибо.

Добрый день!

Подскажите как обратиться к фигуре на листе не используя select.

К примеру если нужно повернуть фигуру на 10 градусов макрорекордер выдает следующее:

Но если делать без выделения почему то не работает:


Как выполнить вышеприведенную операцию не используя Select?

Столкнулся со следующей проблемой, необходимо собрать информацию примерно с 1500 файлов.

Работает частично, так как есть около 100 файлов которые не открываются.
Ошибка на строку :

Пути и названия файлов корректные.
Файлы по которым ошибка при открытии их вручную выдают сообщение:
"В книге обнаружено содержимое, которое не удалось прочитать.Попробовать восстановить содержимое книги, Если вы доверяете источнику этой книги, нажмите кнопку Да".
В ручную открываются, через VBA - нет.

Можно как то решить проблему открытия таких файлов?
Заранее спасибо.

Добрый день, хочу чтобы форма плавно меняла  размер при нажатии определенный кнопки.
Есть какие то свойства самой формы или другие приемы, которые избавляют от следующего эффекта изображенного ниже:


Меняю размер циклом
for i = 1 to 10 Step 0.1
me.width = me.width + i
next

Добрый день!
Есть ли в VBA возможность программно(кодом vba) импортировать готовую  пользовательскую форму сохраненную на компьютере (.frx) в текущую книгу.
Не нашел нигде данной информации(
Заранее спасибо.

Не могу понять в чем проблема,
код:
Dim myarr()
Set wb = Thisworkbook
Set wb2 = Workbooks.Open("C:\a.xlsx")
myarr = wb2.Range("A1:C2")
wb.Range("A1:C2") = myarr

Раньше часто копировал таким образом, а сейчас выдает ошибку.
В чем может быть проблема?

Подскажите какой-нибудь способ преобразования данных в ячейках.

Сейчас использую например:

Dim x as Double (string, variant,integer и.т.п)
for i = 1 to 10
x = cells(i,1)
cells(i,1) = x
next




Но мне кажется это какой то бред))
Заранее спасибо

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

Столкнулся со следующей проблемой
Создал в Outlook правило(Если тема письма "SLQ" то срабатывает скрипт)

Скрипт должен выгружать данные из БД. Текст sql запроса это текст письма (Body)
Zapros = Outlook.MailItem.Body

Проблема  в следующем, когда данный запрос выполняется к тексту письма добавляются ковычки
RS = ADODB.Connection.Execute(Zapros)

Получается что текст запроса это не например - Select * from table, а "Select * from table"
И соответственно из за данного синтаксиса он не может выполниться.
Пробовал обрабатывать переменную функциями типа Mid, но кавычки все равно остаются.
Можно тут что то придумать?
Заранее спасибо.
Понимаю это не про Excel, но код такой же и  Msoffice неделимое целое:))

Добрый день.
Подскажите как можно реализивать следующее:

Экселевский файл запускается через планировщик заданий каждый час, сейчас макрос повешен на workbook_open.
Как сделать, чтобы при запуске через планировщик  макрос запускался автоматически , а при открытии руками нет.
Когда то нечто подобное писал, но абсолютно забыл как

Заранее спасибо

Всем добрый день!
Столкнулся с такой задачкой.
Возможно ли как то сделать чтобы exel'ский файл в котором есть определенный скрипт запускался в случае если файл, "1.txt" обновился.
Те сделать некий парсинг папки в которой лежит этот текстовый файл например по дате обновления или просто по его существованию, который происходил бы хотя бы 1 раз в минуту.
Заранее спасибо.

Добрый день!
Подключаюсь к БД Oracle через Exel.
Вопрос в следующем, при подключении я сразу прописываю пользователя, пароль и название БД и при запуске кода появляется диалоговое окно где все это прописано нажимаешь "ок" и поехали...
Собственно можно как то сделать что бы данное окно подтверждения вообще не появлялось? те после нажатия определенной кнопки сразу все запускалось минуя окно подключения

Добрый день!
Написал код который  выгружает данные из БД по значениям которые указаны в таблице exel.
Суть в следующем, в БД имеется поле (условно назовем  "карты"). Этих карт может быть больше чем одна. И когда конечный результат запроса выгружается в exel он записывается в несколько строк. Хочу сделать так , чтобы значение этого поля "карты" записывалось не подряд в строки , а разносилось по разным столбцам.
p.s - Пока решил данную проблему обработкой уже выгруженных данных после полной выгрузки из БД, но может есть способ непосредственно разносить результат по разным полям во время выгрузки каждого запроса.

Надеюсь, что более менее понятно, приложил файл в котором текущий результат выгрузки и результат который я хочу получить.

Добрый день!

Хочу сравнить два списка, решил сделать это с помощью "впр".
Заранее известно что есть значения которые не будут найдены в искомой таблице.
Но Iferror не работает. Возвращает ошибку что невозможно получить свойство Vlookup
Может я неправильно пишу...



Isk = Application.WorksheetFunction.IfError(Application.WorksheetFunction.VLookup(r, dip, 2, 0), "none")


В общем нужно чтобы когда значение не найдено не выдавалась ошибка , а переменная принимала какое нибудь любое значение (0,"нет" и.т.д.)


p.s - все работает, проблема только когда невозможно найти значение.

Добрый день!

Есть ли в vba возможность разместить на форме лист exel. С сохранием всего функционала листа, не только просмотр. Измения в форме сразу отображаются в книге exel.
Если есть могли расписать это более менее подробно.

Добрый день!

Есть ли у объекта WebBrowser возможность убрать его боковые границы и полосу прокрутки?
Если это сделать невозможно, то каким образом можно отобразить изображение в формате .gif с сохранением анимации?
Кровь из носа нужно сделать так, чтобы на листе отображалась анимация, но при этом не имела четких границ, так как это получается если на листе разместить объект WebBrowser и загрузить картинку как ссылку в нем....

Заранее спасибо.

Добрый день! Подскажите пожалуйста.
Есть макрос который тянет SQL запрос из БД Oracle:
Код следующий:
  Открывается окно с уже заполнеными данными логин, пароль, бд. Но нужно еще нажать кнопку "Ок". Собственно вопрос в том, что нужно написать чтобы дальше действия выполнялись автоматически, без дополнительного нажатия на кнопку в окне подключения.

Добрый день столкнулся с такой проблемой:

В отделе 14 компьютеров, и по непонятной причине перестали работать макросы. Сначала на большинстве компьютеров стали не активны кнопки Activx на листах. Данную проблему исправили в helpdesk. Спустя некоторое время перестал работать сам код. Если создать новый файл xlsm и написать какой либо макрос он корректно работает, но спустя n-ое кол-во времени(1 день - неделя), он начинает выдавать ошибки, хотя код не менялся и все условия корректные. Проблема не наблюдается только на одном компьютере. Переустанавливали office - не помогло. Подскажите может быть кто то сталкивался с такой проблемой?

Вот к примеру элементарный макрос который  не может не работать, но он выдает ошибку:

Ошибка:
Run-time error '32809'
Application-defined or odject-defined error

Имеется выгрузка из БД вида:
Записано в один столбец

              01/01/2014
                   xxx
                  xxx
                  feewf
                  fwefwe
                  few
                  wefw
                  wefw
                  32ed2
                  sefs
                  scs
             02/01/2014
                 fgr
                 ehgerh
                 ergfe
                 few
                 fwf
                 wfw
                 fwef
                 fwfw
             03/01/2014
                 thgd
                 few
                 wfw
                 wfe
                 wfwf


Итд...              
           
             

Необходимо привести ее к следующему виду:
В 2 столбца


01/01/2014       xxx
01/01/2014       xxx
01/01/2014       feewf
01/01/2014       fwefwe
01/01/2014        few
01/01/2014        wefw
01/01/2014        wefw
01/01/2014        32ed2
01/01/2014        sefs
01/01/2014         scs
02/01/2014        fgr
02/01/2014        ehgerh  
02/01/2014        ergfe
02/01/2014        few
02/01/2014        fwf
02/01/2014        wfw
02/01/2014        fwef
02/01/2014        fwfw
03/01/2014        thgd
03/01/2014        few
03/01/2014        wfw
03/01/2014        wfe
03/01/2014        wfwf





Подскажите решение, ничего в голову не приходит. Руками нереально сделать  так как в файле около 150 тыс строк

Добрый день, столкнулся с проблемой. Написал макрос который запускается при открытии книги. Sub Auto_Start
Файл exel запускается через планировщик заданий каждый день в определенное время.
Он отрабатывает до конца, но результата нет, просто пустой лист.
Но если самому открыть файл он работает корректно.
Может быть кто то с этим сталкивался? С чем это может быть связано?
Заранее спасибо.