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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 33 След.
[ Закрыто] Доработка Excel, ячейка минус ячейка и минус от результата один час
 
Цитата
написал:
Ram7es , судя по названию темы, Вы  собрались доработать ПРИЛОЖЕНИЕ Excel. Это так?
Разве это было не понятно в вопросе?
ну крутого мена не устраивает ексел и очень его его "доработать" почему вы против?
ИМХО флаг в руки! а вдруг получится?!
Зависает Excel при массиве 50000 строк. Что делать?
 
Что в вашем понятии массив?
Вы считываете в массив с листа?
Каким образом?
Что потом делаете с массивом?
Когда зависает?
Ваш вопрос не корректен!
Уточните
А лучше приложите файл и конкретизируйте вопрос
Сравнение похожих массивов в двух книгах
 
Цитата
Нужно сравнить две почти одинаковые книги
и что должно быть результатом сравнения?
проще всего это сделать макросом с использованием массивов и словаря
Как подтянуть выподающий счет
 
Вот такая простенькая процедура
Код
Sub test()
    Dim s, url, z, t, sd, a, t_li, i, srUrl
    Dim r, l, lr, m, u
    url = "https://tipsterarea.com/teams/england/aston-villa"
    z = GetHTTPResponse(url)
    Set sd = CreateObject("Scripting.Dictionary")
    With CreateObject("HtmlFile")
        .Body.innerHTML = z
        For Each t_li In .GetElementsByTagName("tr")
            If InStr(1, t_li.innerHTML, "First Half", vbTextCompare) > 0 Then
                Debug.Print
                t = t + 1
                Debug.Print t, t_li.innerHTML
            End If
        Next
    End With
End Sub
с использованием вышеуказанной функции выделит и напечатает в дебаггер блоки с данными, такого вида,
Код
 1            <TD class=date>09.12.2023</TD>
<TD title="Premier League, season 2023 - 2024" class=tourn><SPAN class=dc><SPAN class=dce>Premier League</SPAN></SPAN></TD>
<TD class="hteam bold"><SPAN class=dc><SPAN class=dce>Aston Villa</SPAN></SPAN></TD>
<TD title="First Half 1 - 0,  Second Half 0 - 0" class="result win">1 - 0</TD>
<TD class=ateam><SPAN class=dc><SPAN class=dce>Arsenal</SPAN></SPAN></TD>
<TD class="odd bold">3.50</TD>
<TD class=odd>3.75</TD>
<TD class=odd>2.08</TD>

 2            <TD class=date>06.12.2023</TD>
<TD title="Premier League, season 2023 - 2024" class=tourn><SPAN class=dc><SPAN class=dce>Premier League</SPAN></SPAN></TD>
<TD class="hteam bold"><SPAN class=dc><SPAN class=dce>Aston Villa</SPAN></SPAN></TD>
<TD title="First Half 0 - 0,  Second Half 1 - 0" class="result win">1 - 0</TD>
<TD class=ateam><SPAN class=dc><SPAN class=dce>Manchester City</SPAN></SPAN></TD>
<TD class="odd bold">4.60</TD>
<TD class=odd>4.26</TD>
<TD class=odd>1.71</TD>
которые можно распарсить дальше
Как подтянуть выподающий счет
 
как вариант получить код струницы простым запросом и распарсить его

Код
Private Function GetHTTPResponse(ByVal sURL As String) As String
     Dim oXMLHTTP
     On Error Resume Next
     Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
     With oXMLHTTP
        .Open "GET", sURL, False
        .SetRequestHeader "Cache-Control", "max-age=0"
        .SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/48.0.2564.41 Safari/537.36 OPR/35.0.2066.10 (Edition beta)"
        .SetRequestHeader "Accept-Encoding", "deflate"
        .SetRequestHeader "Accept-Language", "ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4"
        .send
         GetHTTPResponse = .responseText
     End With
     Set oXMLHTTP = Nothing
End Function
[ Закрыто] Проблема макроса VBA, Макрос для разделения данных на новые листы
 
в начале процедуры пока еще не созданы книги запомните путь к активной книге
Код
 pat = ActiveWorkbook.path

а потом сохраняете рядом с исходной книгой
Код
        ' Сохраняем новую книгу с уникальным именем
             newWorkbook.SaveAs pat & "\" & name = " " & ".xlsx"
                newWorkbook.Close SaveChanges:=False
вновь созданная книга не имеет пути
Правда не понятна строка
& name = " "
должно быть так
       ' Сохраняем новую книгу с уникальным именем
Код
             newWorkbook.SaveAs pat & "\" & name & ".xlsx"
                newWorkbook.Close SaveChanges:=False
SaveChanges:=False
этим вы не сохраняете изменения в новой книге
Изменено: Александр Моторин - 04.12.2023 09:07:56
[ Закрыто] Проблема макроса VBA, Макрос для разделения данных на новые листы
 
newWorkbook.path
нет такого пути у вновьсозданной книги
Размещение картинки по правую сторону от ячейки (в левую соседнюю ячейку)
 
7z не прикрепился
Размещение картинки по правую сторону от ячейки (в левую соседнюю ячейку)
 
макрос
Заполнение листа combobox из диапазона между заголовков
 
ComboBox1.RowSource =
Символы отображающиеся в экселе и в блокноте
 
Галка это латинская буква а в шрифте Marlett
Формат таблицы испорчен, Excel перестал открывать таблицу. Пишет не верный формат или расширение.
 
упс картинка не вставляется
Изменено: Александр Моторин - 11.11.2023 15:20:12
Формат таблицы испорчен, Excel перестал открывать таблицу. Пишет не верный формат или расширение.
 
Думаю если бы был файл а не ссылка, то шанс был бы
А по ссылке это  как диагноз по фотографии..
хотя могу ошибаться...
Динамическая фильтрация без формулы ФИЛЬТР
 
UDF массивная
Поиск значений из справочника, Поиск значений исходя из попадания в разные диапазоны
 
можно
вас интересуют формулы, макросы , UDF?
Как очистить содержание ячеек в таблице не используя макросы
 
Цитата
написал:
эксель, не импортирует файлы с расширением XLSM
А XLSB ?
Или просто старый формат XLS
формат ячейки дата, замена данные из имеющегося значения
 
макросом
Распределения списка на карточки, Список из 5000 английских слов с переводом надо превратить в карточки по 20 слов на каждой
 
макросом
Итерация функции перенос кода с C# в VBA
 
Цитата
FunMat это функции
Я так понял, что переводом функции с C# на VBA у вас проблем не возникло?!
:D  
Стал вылетать Excel при включении макроса или при удалении вкладок
 
нашел в одном макросе одну процедуру Sub Макрос_СПБ_Проба_6()
запустил - отработала
два раза спросила разрешения удалять листы
За такие макросы руки надо поодбивать макрописцу:
Select, .Activate Зачем их столько?
Автозаполнение с пропуском строки
 
чтобы не грузить лист сложными формулами в таком случае я бы предпочел простенький макрос
Код
Sub imho()
    m = Лист1.UsedRange.Value
    ReDim rz(1 To UBound(m) * 2, 1 To 1)
    For r = 1 To UBound(m)
        rz(r * 2 - 1, 1) = m(r, 1)
    Next r
    Cells(1, 4).Resize(UBound(rz)) = rz
End Sub
Объединение таблиц по опорному столбцу
 
тупо в лоб макросом
Код
Option Explicit

Sub qwert()
    Dim r, i, lr, f, o, m1, m2, u, rz, slf: Set slf = CreateObject("Scripting.Dictionary")
    Dim slo: Set slo = CreateObject("Scripting.Dictionary")
    With Worksheets("1")
        lr = .UsedRange.Rows.Count
        m1 = .Cells(1, 1).Resize(lr, 2).Value
    End With
    With Worksheets("2")
        lr = .UsedRange.Rows.Count
        m2 = .Cells(1, 1).Resize(lr, 2).Value
    End With
    For r = 2 To UBound(m2)
        f = m2(r, 2)
        If Len(f) > 0 Then
            slf(f) = m2(r, 1)
        Else
            slo(m2(r, 1)) = r
        End If
    Next r
    ReDim rz(1 To UBound(m1) + UBound(m2), 1 To 3)
    rz(1, 1) = "имя"
    rz(1, 2) = "отчество"
    rz(1, 3) = "фамилия"
    For r = 2 To UBound(m1)
        rz(r, 1) = m1(r, 1)
        f = m1(r, 2)
        If slf.exists(f) Then
            rz(r, 2) = slf(f)
            slf.Remove f
        End If
        rz(r, 3) = m1(r, 2)
    Next r
    If slf.Count > 0 Then
        u = slf.keys
        For i = 0 To UBound(u)
            rz(r, 3) = u(i)
            rz(r, 2) = slf(u(i))
            r = r + 1
        Next i
    End If
    If slo.Count > 0 Then
        u = slo.keys
        For i = 0 To UBound(u)
            rz(r, 2) = u(i)
            r = r + 1
        Next i
    End If
    Worksheets.Add
    Cells(1, 1).Resize(UBound(rz), UBound(rz, 2)) = rz
    Cells(1, 1).Resize(UBound(rz), UBound(rz, 2)).Columns.AutoFit
End Sub
Изменено: Александр Моторин - 27.11.2022 01:15:43 (перезалил файл)
Разбить данные в ячейке по строкам и сформировать новый столбец
 
можно было бы попробовать макросом, но он не работает с картинками
Разный цвет текста в TextBox (UserForm)
 
может это поможет?
http://elcha-en.blogspot.com/2015/02/richtextbox-in-excel_2.html
Шаблон Тестирование в Excel
 
Цитата
написал:
Я бы даже предложил макрос самоудаления этого файла. Дабы не повадно...  
после просмотра файла согласен на 100%
Крутой тест!
Оставлю в примерах! Пригодится
Особенно надпись на кнопке!
Цитата
Следуюший Вапрос
Может бросить программирования а повторить учёбу начиная со 2 класса?
Excel - Хранимка - SQL <> формат дата, тип дата
 
Цитата
Не находит ее.  
Так объявите
Или Уберите Option Explicit что не рекомендую
Изменено: Александр Моторин - 04.11.2022 18:43:05
Шаблон Тестирование в Excel
 
Можно так:
Код
Sub пройти_тест_заново()
    Erase Otvet '
    sl_otvet.RemoveAll '
End Sub
:D  
Создание запроса или иной метод извлечения информации??, Проблема с автоматизированной выборкой информации
 
Цитата
написал:
переведу на русский
Мягко говоря перевод не помог
Я бы делал макросами
Но хозяин - барин
Тем более вопрос риторически и не требует ответа
Извините, но в чем вопрос?
Как макросом закрасить ячейки, ориентируясь на центры фигур
 
Это координаты центра фигуры
А надо найти номера строки и колонки ячейки где находится центр
У меня для этого функция, в которой перебираются ячейки диапазона и ищется ячейка где находится центр фигуры
И уже от этой ячейки плясать
Цитата
Вот для этой строки:
Нет пересчитывать не надо
Там достаточно проверять номера строк и столбцов чтобы амёба не вылезала за границы
Как макросом закрасить ячейки, ориентируясь на центры фигур
 
Код
                    Y = k.Row
                    X = k.Column
Это будет немного не корректно
надо искать ячейку где находится центр фигуры
Это допустимо если фигура помещается в ячейку
Изменено: Александр Моторин - 27.10.2022 22:18:52
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 33 След.
Наверх