Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 52 След.
Возможно оказание услуг Юр. лицу ? (макросы) здесь есть опытные с ИП?
 
.......
Изменено: doober - 12 Окт 2019 20:12:21
Информация из ячейки на панель ribbon
 
Можно, если ячеек с формулами несколько,  иначе получите вечный двигатель.
Используйте событие Worksheet_Calculate()
Как в SQL-запросе игнорить дубли?
 
Use select distinct
Изменено: doober - 10 Окт 2019 22:47:44
Обновление данных в userform в режиме реального времени
 
Самый простой способ такой.
Код
Private Sub CheckBox1_Click(): Check: End Sub
Private Sub CheckBox2_Click(): Check: End Sub
Private Sub CheckBox3_Click(): Check: End Sub
Private Sub CheckBox4_Click(): Check: End Sub
Private Sub CheckBox5_Click(): Check: End Sub
Private Sub CheckBox6_Click(): Check: End Sub
Private Sub CheckBox7_Click(): Check: End Sub
Private Sub Check()
    J = CheckBox1.Value + CheckBox2.Value + CheckBox3.Value _
      + CheckBox4.Value + CheckBox5.Value + CheckBox6.Value + CheckBox7.Value
    Label1.Caption = Format(Abs(J) / 7 * 100, "0.0") & "%"

End Sub
Построить модель учета в танцевальной студии в Google таблицах, Необходимо по техническому заданию построить модель учета договоров, посещаемости, а также расчета доходов-расходов в танцевальной студии.
 
Если в Excel не подходит, то могу в гугл таблицах реализовать, но сначала ТЗ надо посмотреть
Проблема с получением геоданных с карты yandex: вместо нормального адреса записываются "иероглифы
 
Что получаете в ответ.
<error>
<statusCode>429</statusCode>
<error>Too Many Requests</error>
<message>You are making too many requests to Yandex Maps API Service. Check Terms of Service (see https://yandex.com/legal/maps_api)
</error>
Шара закончилась, нужен ключ  для апи карт яндекса
Вставка таблицы из RTF документа в Excel таблицу, таблица копируется с ошибкой
 
Здравствуйте.
Файл rtf приложите.Проверить макрос надо
Сбор листов с разных книг в одну VBA, подкорректировать уже готовый макрос
 
АП! И тигры у ног моих сели!
Код
 If wsSh.index =1 Then => If wsSh.Name Like sSheetName Then    
Создание макроса для формирования таблицы-формы под заполнение пользователем, создание макроса
 
Выполнил, получил
Создание макроса для формирования таблицы-формы под заполнение пользователем, создание макроса
 
Написал в личку
Проблема с получением геоданных с карты yandex: вместо нормального адреса записываются "иероглифы
 
Найдите отличие в кодах файлов.
Проблема с получением геоданных с карты yandex: вместо нормального адреса записываются "иероглифы
 
Здравствуйте.
Никто не отменял кодирование кириллицы в запросах.
Импорт курсов валют с сайта nbrb.by, месяц меняется со днем
 
Цитата
Hugo написал:
Ну по той ссылке ведь есть всё - задача это взять!
Согласен Игорь на все 100.
Надо коды поменять и с датой разобраться.
Построение плоской таблицы, содержащей все возможные сочетания значений из двух исходных столбцов
 
Маккрос, так макрос.
Получение данных о наличии статуса самозанятого через сайт ФНС
 
Задачу решил, оплату получил
Получение данных о наличии статуса самозанятого через сайт ФНС
 
Написал в личку
Перенос данных из одной программы в другую через файлы *.csv, Road Trip iOS -> Fuelio Android
 
Написал в личку
HB
 
Спасибо Мотя.
экпорт xls в xml
 
Работу сдал, оплату получил.
экпорт xls в xml
 
Здравствуйте.
Это
Цитата
два файла xls, 2 шаблона
определяет сроки и стоимость.
Написал в личку.
Подскажите про позднее связывание MSMASK32
 
Здравствуйте.
Зарегистрировать не проблема.
Ниже код для vbs.
для MSMASK32 ещё нужно установить лицензию на работу с ней - если лицензии DesignTime нет,
то она не заработает, даже если вы её правильно зарегистрируете.
Скрытый текст
Сводная таблица с источником файла, который лежит на облаке, Подключение сводной таблицы к файлу, лежащему на облаке
 
Приветствую Андрей.
Цитата
Андрей VG написал:
А вот для папки - нужно искать по какому принципу яндекс формирует такие ссылки на закачку
Зачем искать, если она есть, но только для мыл на yandex.ru
Код
UU = "https://yadi.sk/i/03bE933n3PqpG2"
URL = GetyanURU(UU)
Debug.Print URL
Function GetyanURU(UU) As String
    GetyanURU = ""
    UU = Replace(UU, "/", "%2F")
    UU = Replace(UU, ":", "%3A")
    URL = "https://cloud-api.yandex.net/v1/disk/public/resources/download?public_key=" & UU
    On Error Resume Next
    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    With oXMLHTTP
        .Open "GET", URL, False
        .send
        sHTML = .responseText
        Set RegExp = CreateObject("VBScript.RegExp")
        RegExp.Pattern = Chr(34) & "(https(.+?))" & Chr(34)

        Set oMatches = RegExp.Execute(sHTML)
        If oMatches.Count > 0 Then
            GetyanURU = oMatches(0).subMatches(0)
        End If

    End With

    Set oXMLHTTP = Nothing
End Function
Разработка приложения на vba для работы с БД на MS SQL
 
Здесь все есть.
Преобразование данных в формате csv, excel, yml, отличающихся по структуре.
 
Написал в личку
Перебрать все открытые книги если они запущены в отдельных процессах
 
Цитата
Жирный Тони написал:
можно ли получить объект по hWnd?
Здравствуйте.
Можно на дружественном сайте.
Под спойлером.
VBA выпадает ошибка при методе find
 
Цитата
firework42 написал:
          If bu2 = False Then Exit Sub           If bu2 = True Then
Не вижу смысла в этом условии
Код
   If bu2 = True Then
При false выше выход из процедуры.
Лечится так.
Код
        Set r = Cells.Find(What:=ii, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
         :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
          False, SearchFormat:=False)
        If r Is Nothing Then Exit Sub
        r.Activate
        bu2 = True
Парсинг открытых данных
 
Цитата
sviatoslav написал:
Альбом ТФФ ПУЗ РК РБГ
Вы посмотрите, с какой частотой меняется версия xml файлов.
Новая версия-новое изменение в коде обработки.
Заходим по фтп, куча архивов+ две папки с архивами.
Алгоритм отбора архивов и  файлов?
В одном архиве может быть до 1000 файлов xml .
И т.д.
Не претендую.
ТЗ никакое, согласен с Игорем.
Подключение к MySQL из VBA
 
Цитата
Ametist69 написал:
user_test доступ предоставлен.
Сомневаюсь я однако если пароль верный.
С какого носта доступ разрешен?
localhost , %
Outlook - условие автоматического сохранения вложений по условиям
 
Цитата
полный пробел
Бывают и не полные?
Так
Код
    Set RegExp = CreateObject("VBScript.RegExp")
    RegExp.IgnoreCase = True
    RegExp.Pattern = "\.(xls.?|pdf|doc|cvs|zip)"

     If  Then 'тут полный пробел нужно типа If .... вложение содержит формат .xls* или .pdf или .doc или .cvs или .zip
       
    If RegExp.test(objAtt.Filename) Then ' вложение содержит формат .xls* или .pdf или .doc или .cvs или .zip
Решить тестовое задание по Excel.
 
Выполнил, оплату получил
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 52 След.
Наверх