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

Страницы: 1
Обработка диалоговых окон Internet explorer средствами VBA
 
Здравствуйте уважаемые, Прошу совета куда копать. Дело в следующем:
Через VBA идет обработка страницу  корпоративного сайта типа https. макросом нажимаются кнопки и т.д.
Столкнулся с проблемой обработки модального диалогового окна internet explorer. Макрос соответственно отрабатывает всё до появления окна с сообщением типа "вы точно хотите удалить?" и кнопками "ОК" и "Отмена". Т.к. окно модальное, то соответственно блокируется вся дальнейшая работа макроса до момента когда диалоговое окно будет закрыто, т.е. не возможно дальше сделать обработку через API.
Есть ли какой то обходной путь?
пример, и ссылку на сайт выкладывать нет смысла. (портал корпоративный)
max для значений одного столбца массива без цикла в цикле
 
Добрый день всем!  
Прошу Вашей помощи в решении задачи.  
ИМЕЕМ массив из двух столбцов: "№ задачи" и "№ индекса". номер задачи может повторяться сколько угодно раз, номер индекса всегда уникален.  
ХОТИМ массив опять же из двух столбцов где № задачи в единственном экземпляре а № индекса наибольший из тех которые соответствуют номеру задачи  
Помогите пожалуйста, процедурой иль советом, сами мы не местные.... :)  
З.Ы. цикл в цикле на больших объемах отрабатывает довольно долго. :(
определить размер массива полученного из access, транспортировать и получить данные в excel
 
Доброго времени суток,  
господа товарищи, помогите с решением пожалуйста,  
есть вот такой кусок кода получения данных из access:  
 
Set rs = New ADODB.Recordset  
Set cn = New ADODB.Connection  
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0; " & _  
"Data Source=C:\123\база_5.accdb; Jet OLEDB:Database Password=123456"  
Set cmdVBA = New Command  
With cmdVBA  
.ActiveConnection = cn  
.CommandText = "SELECT база.* FROM база WHERE (([база]![дата]>#5/30/2012# And [база]![дата]<#7/1/2012#));"
.CommandType = adCmdText  
.Execute (rs)  
End With  
   rs.Open "SELECT база.* FROM база WHERE (([база]![дата]>#5/30/2012# And [база]![дата]<#7/1/2012#));", cn, adOpenForwardOnly, adLockOptimistic, adCmdText
 
Application.ScreenUpdating = False  
dd = rs.GetRows  
 
из эксесовской базы получили данные по выборке (по дате в данном случае), положили в массив dd, а далее как получить в эксель?  
массив получается как в прикрепленном файле 1.jpg  
файл к сожалению выложить не могу.
возврат выбранных значений из Listbox
 
Здравствуйте всем.  
Подскажите пожалуйста как изменить код чтобы вывести значения (несколько) из листбокса не в одну ячейку через запятую а в столбец?  
 
Private Sub ListBox1_Change()  
Dim i As Long, v, s As String  
If bIgnore Then Exit Sub  
v = ListBox1.List  
For i = LBound(v, 1) To UBound(v, 1)  
   If ListBox1.Selected(i) Then s = s & v(i, 0) & "; "  
Next  
s = Left(s, Len(s) - 2)  
 
Sheets(3).[a1] = s
End Sub
Функция ВПР и таблица на 400 тысяч строк. как увеличить скорость пересчета?
 
Вопрос наверное глуп и тривиален но,  
есть таблица, соответственно в экселе, есть вторая, функцией впр ищем в первой и возвращаем во вторую (ну всё как обычно). есть печаль, скорость обработки  (пересчета формул) после вставки функции оставляет желать лучшего. таблица не много не мало 400000 строк (столбцов штук пять всего). Считает часа 2-3. Как всё это убыстрить? лучше с помощью процедуры.  
посоветуйте плиз.
обработка массива в макросе
 
Всем хорошего настроения!  
Подскажите плиз как сделать  
Например имеем:  
  For i=1 To дохрена  
      Cells(i, 1)= "_" & Cells(i, 2)  
  Next  
Как понятно все это обрабатывается построчно от первой строки до строки с шестизначным числом.  
Очень хочется:  
Чтобы всё это обрабатывалось массивом, т.е. что то типа все ячейки в столбце 1 одной строкой кода сразу стали равны сцепке "_" и ячеек столбца 2. т.е. без цикла.  
Научите как?
надстройка с пользовательскими кнопками. как?
 
Всем доброго времени суток!  
преамбула:  
все знают о существовании в экселе такой штуки как иконка суммы (вкладка формулы - значок суммы) при нажатии на который в активной ячейке прописывается формула "=СУММ()", остается ввести аргументы функции и все сложилось.  
амбула:  
возможно ли - сделать надстройку с иконками при нажатии на которые на экран выводилось бы окно аргументов других функций (привязанных каждая функция к одной кнопке), в том числе и пользовательских функций? (даже наверное пользовательских функций в первую очередь)
запрет на повторный автозапуск макроса. как?
 
Всем Трям!  
Имеем:  
автозапуск макроса при открытии книги в экселе (добавляем этим макросом меню с кнопочками на "ленту" во вкладку "надстройки")  
Sub Auto_open()  
AddCustomMenu202  
End Sub  
проблема:    
при закрытии книги (без закрытия всего экселя) и повторном открытии этой же книги меня во вкладке надстройки появится вторично. и т.д. сколько раз книгу закроешь-откроешь  
хочется:    
если один раз уже появилось моё меню, то при повторном открытии вторично не добавлялось.  
помогайте плиз :)
использование имени ячейки в макросе
 
Всем трям! Уважаемые, подскажите возможно ли прописать в коде имя которое присовенно ячейке? т.е. как заменить ("А1") или "R1C1" на "моя_ячейка" например.  
Sub Макрос1()  
   Range("A1").Select  
   ActiveCell.FormulaR1C1 = "1"  
   Range("A2").Select  
End Sub  
вопрос наверное глупый, но как то я недогадываюсь.
"Сдвинуть" данные в таблице.
 
Всем Трям! Други помогайте пожайлуста.  
Имеем кривую табличку, в первом столбце стоит название (счет 1, счет 2, и т.д.),  
данные по этим счетам ниже и в столбцах правее, итоги тамже где и данные.  
Необходимо привести в соответствие - в первом столбце счет во втором по этой же строке итог.  
в примере выделенно цвеом что и куда подвинуть надо.
имеем две таблицы одна под другой - требуется две таблицы рядом
 
Всем Трям!  
Знатоки выручайте пожалуйста, имеется две таблички на одном листе, одна под другой, количетсво строк может менятся (сегодня 250 завтра 761 и т.д.) но при этом в обоих таблицах будет одинаковым (в примере строк 7). Так как  в VBA я пока что разбираюсь как свинья в апельсинах (только начал читать) то прошу Вашей помощи. Необходимо с помощью макроса расположить эти таблички рядом на другом листе с сохранением соответствия строк. в общем в примере думаю будет ясно что хотелось бы.  
Пробовал прописать через формулы, получилось с помощью найденной зддесь же VLOOKUP2, но если масссив большой то excel жутко тормозит. В общем люди добрые, подаааайте :)  
з.ы. текст над таблицами и пустые строки между ними всегда будут занимать именно такое количество строк.
выбор данных из таблицы по вхождению текста
 
Доброго времени суток уважаемые Гуру.  
Помогите решить проблемку или хотя бы подскажите куда копать.  
имеем: в ячейках одного столбца текст, в тексте повторяются какие либо слова в разных вариантах (падежи, склонения и т.д.), необходимо: отметить ячейки содержащие указанный текст, наверное плохо выражаю свои мысли, ну в общем сделать с помощью формул или макроса то что довольно просто делается через "автофильтр-условие_содержит"  
в примере думаю более понятно: если содержит то 1, если нет то 0.  
ногами не пинайте, сам не сумел, поиском не нашел.  
заранее спасибо, с уважением...
Страницы: 1
Наверх