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

Страницы: 1
Что-то типа "Монополии", только в excel
 
Пока бездельничал на работе, сварганил вот такое чудо:
Нажимаем старт и играем. До 4-х человек. Простенький ИИ тоже есть.
Переопределение имени константы VBA
 
Коллеги здравствуйте. Столкнулся первый раз с такой проблемой:
В проекте объявил константу:
Код
Public Const ADD As Integer = 1

и естественно все сломалось, а именно метод коллекции. Теперь константу переименовал, но коллекция все равно не хочет работать и рисует мне вот это:

Код
col.ADD element1

Подскажите как вернуть выполнения метода Add?

web запрос на сайт с помощью VBA
 
Коллеги помогите правильно сформировать запрос на сайт https://www.avtodispetcher.ru/distance/
С помощью IE я реализовал, а вот с помощью MSXML2.XMLHTTP не получается.
Код возвращает начальную страницу, а не страницу результата
Скрытый текст
При выполнение макроса Workbook_Open() не запускается вызов формы
 
Уважаемые форумчане подскажите почему выдает ошибку:
Код
Private Sub Workbook_open()
Application.EnableEvents = True
If MsgBox("Создать заявку", vbYesNo) = vbYes Then UserForm3.show
End Sub
Код ошибки: Run-time error 1004
Дело в том, что когда файл находится на компьютере и система ему доверяет(не спрашивает о разрешении редактирования), все работает нормально, а на локальном хранилище вылетает ошибка.
выполнение процедур Excel из VBA Outlook
 
Уважаемые знатоки Excel, подскажите пожалуйста, могу ли я из VBA Outlook выполнить процедуру Excel?
В частности после открытия книги, выполнить .Find по Range("A:A")
Код
Sub qwe()
Dim objXls As Object
Set objXls = CreateObject("Excel.Application")
Set sourceWB = objXls.Workbooks.Open("C:\Temp\123.xlsx")
objXls.Application.Visible = True
Set sourceWS = sourceWB.Worksheets(1)
Set fcell = sourceWS.Range("A:A").Find(Date - 1) ' ТУТ ОШИБКА
       .........................         
sourceWB.Close
Set objXls = Nothing
End Sub
Изменено: magistor8 - 26.12.2018 17:58:50
Цикл Do Until прерывается
 
Уважаемые знатоки, подскажите почему цикл постоянно прерывается?
Поиск строки нажатой кнопки
 
Уважаемые Гуру подскажите пожалуйста:

Почему ActiveSheet.Shapes(Application.Caller) не всегда возвращает именно нажатый объект? И соответственно макрос возвращает не ту строку.
Какие могут быть причины?
Код
Private Sub Click_BTN()
Dim b As Object, cs As Integer
Set b = ActiveSheet.Shapes(Application.Caller)
Sheets("Список").Unprotect Password:="12345678"
With b.TopLeftCell
cs = .Row
End With
If Sheets("Список").Cells(cs, 25).Interior.Color = vbGreen Then
    MsgBox ("Уже отправлено")
    Exit Sub
Else
pub = cs
'Sheets("Список").Cells(cs, 25).Interior.Color = vbGreen
'Call MailZayavka
MsgBox cs
End If
Set b = Nothing
Sheets("Список").Protect "12345678", True, True, False, False, False, False, False, False, False, False, False, False, True, True, False
End Sub
Печать файлов с помощью VBA
 
Уважаемые Гуру подскажите пожалуйста:

Нашел код на широких просторах сети
Код
Declare PtrSafe Function apiShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
    ByVal hwnd As LongPtr, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) _
    As Long
 
Public Sub PrintFile(ByVal strPathAndFilename As String)
 
    Call apiShellExecute(Application.hwnd, "print", strPathAndFilename, vbNullString, vbNullString, 0)
 
End Sub

Он печатает файл из strPathAndFilename.

Когда печатаю pdf, вопросов нет, но jpg выдает окно предварительного просмотра:



Как программно подтвердить печать?
Поиск в указанной директории папки с именем из ячейки "x"
 
Подскажите как реализовать задачу:
Необходимо в директории (предположим - C:\direct) найти папку с названием из ячейки "A1" (с учетом подпапок)
и создать гиперссылку на нее в ячейке "B1"
Изменено: magistor8 - 03.10.2018 09:31:22
[ Закрыто] Помогите разобраться, Помогите разобраться (перенести ячейки)
 
Люди добрый помогите разобраться:
1. На листе "Список" во второй строке мы заполняем нужные данные
Затем нажимаем кнопку из W2 и всю информацию из второй строки
необходимо перенести в таблицу ниже (начиная с 5 строки), только учитывая уже заполненные строки,
путем ссылки на ячейку из листа "1" (A1). Причем с каждой добавленной записью к ссылку необходимо двигать на одну ячейку вниз (+1)
2. Так же необходимо всю информацию из второй строки переносить в печатную форму заявки (Лист "Авто" или "Жд"), в зависимости от типа (B2),
а так же перекинуть обзор текущего пользователя в соответствующий лист.
Спасибо за помощь.
Поиск заполненной позиции
 
Здравствуйте уважаемые форумчане. Помогите разобраться:
Мне необходимо искать первое значение "10" в строке по фамилии и выводить номер столбца.

Изменено: magistor8 - 08.05.2017 05:12:28
Страницы: 1
Наверх