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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 80 След.
Макрос вставляет данные из txt - в виде крякозябр и выделяет его
 
Уберите эти строки
Код
    [A10] = Split(text, Chr(10))(0)
    [A12] = Split(text, Chr(10))(0)
Раздробить текстовый файл в формате 1С на несколько файлов, Раздробить текстовый файл в формате 1С (выписка по нескольким счетам) на несколько файлов, в каждом из которых будет информация по одному счету
 
Файл отдан заказчику на тест
Раздробить текстовый файл в формате 1С на несколько файлов, Раздробить текстовый файл в формате 1С (выписка по нескольким счетам) на несколько файлов, в каждом из которых будет информация по одному счету
 
Давайте попробуем
Поле со списком ActiveX с двусторонней связью с диапазоном-справочником (ListFillRange), Создание поля со списком ActiveX с двусторонней связью с диапазоном-справочником (ListFillRange)
 
Если не оправдал ожидания, то звиняйте.
Макрос в Ворде
 
Нужно, держите правку
Код
'............
 Set tbl = Selection.Tables(1)
   ColumnIndex = Selection.Cells(1).ColumnIndex
 '............  
    tbl.cell(rowIndex + 1, ColumnIndex).Range.InlineShapes.AddPicture FileName:=picFiles(i), LinkToFile:=False, SaveWithDocument:=True
Изменено: doober - 01.08.2025 18:32:31
Макрос в Ворде
 
Так будет работать
Код
Sub InsertSelectedPicturesIntoExistingTableFromCursor()
    Dim dlgOpen As FileDialog
    Dim picFiles() As Variant
    Dim tbl As Table
    Dim rowIndex As Integer
    Dim i As Integer

    Set dlgOpen = Application.FileDialog(msoFileDialogFilePicker)
    With dlgOpen
        .Title = "CHOOSE IMAGE"
        .Filters.Clear
        .Filters.Add "IMAGE", "*.jpg; *.jpeg; *.png; *.gif", 1
        .AllowMultiSelect = True
        i = -1
        If .Show = -1 Then
            For n = 1 To .SelectedItems.Count
                i = i + 1
                ReDim Preserve picFiles(i)
                picFiles(i) = .SelectedItems.Item(n)
            Next
        Else
            Exit Sub
        End If
    End With

    If ActiveDocument.Tables.Count = 0 Then
        MsgBox "NO TABLE IN THE DOCUMENT", vbExclamation
        Exit Sub
    End If

    Set tbl = Selection.Tables(1)
    rowIndex = Selection.Cells(1).rowIndex
    For i = LBound(picFiles) To UBound(picFiles)

        If rowIndex <= tbl.Rows.Count Then
            tbl.Rows.Add
        End If


        tbl.Cell(rowIndex + 1, 1).Range.InlineShapes.AddPicture FileName:=picFiles(i), LinkToFile:=False, SaveWithDocument:=True


        rowIndex = rowIndex + 1
    Next i

    MsgBox "DONE! INSERTED", UBound(picFiles) - LBound(picFiles) + 1, "IMAGES"
End Sub

Собрать архив в таблицу и проверить совпадение семи цифр в строке
 
3 рубля за базу
Собрать архив в таблицу и проверить совпадение семи цифр в строке
 
пас
Собрать архив в таблицу и проверить совпадение семи цифр в строке
 
Цитата
Алексей Галимов написал:
Неужели нет специалистов, которые могли бы с сайта собрать архив в таблицу?
Есть.Интересуют 2 вопроса.
1.Самая ранняя дата тиража.
2.Сколько платите за выгрузку.
VBA API запрос, ответ API
 
Цитата
GendalfGreen написал:
2. Почему мой макрос вместо нормального ответа дает ерунду.
Потому. что кириллицу надо декодировать.
Попробуйте эту ссылку https://geocode-maps.yandex.ru/v1/?apikey=b5f75702-20a9-4ddd-826f-88af3d64409d&geocode=%D0%BC%D0%BE%D1%81%D0%BA%D0%B2%D0%B0&format=json
Изменено: doober - 05.06.2025 16:43:57
Сохранить веб-страницу (VBA) + PQ обработка таблицы
 
Ничего не получиться у вас.Страница в браузере формируется при помощи скриптов
Задержка доставки письма Outlook+VBA, Задать задержку доставки письма макросом
 
Надо смотреть в сторону DeferredDeliveryTime.Это в том случае, если аутлук будет включен в нужное время
Код
    With xOtlMail
    .To = "Email Address"
    .CC = "Email Address"
    .BCC = "Email Address"
    .Subject = "Subject line"
   .DeferredDeliveryTime =дата планируемой отправки
    .HTMLBody = .HTMLBody & xStrBody
    .Display
    End With
Изменено: Сергей - 15.05.2025 18:16:29
Как убрать отмеченные радио-кнопки и checkbox, Как с помощью VB убрать с листа отмеченные радио-кнопки
 
Добрый.
Код
Sub ClearForm()
    Dim ws As Worksheet
    Dim oleObj As Shape
    Set ws = ThisWorkbook.Sheets("start")
    For Each oleObj In ws.Shapes
       If TypeName(oleObj.DrawingObject) = "OptionButton" Or TypeName(oleObj.DrawingObject) = "CheckBox" Then
            oleObj.DrawingObject.Value = False
        End If
    Next oleObj
End Sub
Изменение массива, являющегося значением Dictionary, Правильный способ изменить значение Dictionary, которое является динамическим массивом
 
Объявите aaa As Variant
Тормозит файл
 
Ваш файл без рисованной фигуры
Формат csv
 
Сделал, оплату получил
Формат csv
 
Написал в личку
Изменение текста в TexBox при выполнении макроса, Необходим код, посредством которого изменялся бы текст в TexBox при выполнении макроса.
 
Добрый.
Код
Private Sub Пуск_Click()
    Dim i
    If Range("AO11") = "Кран закрыт" Then
        MsgBox "Выполнен запуск ГПА"
        For i = 0 To 7
            Me.Shapes("TextBox 29").TextFrame2.TextRange.Text = i
            Pausa 0.5
        Next
    Else
        MsgBox "Проверь корректность положения ТПА внешней технологичнеской обвязки"
    End If
End Sub
Function Pausa(t)
    Dim d
    d = Timer + t
    Do While Timer < d
        DoEvents
    Loop
End Function
Задать префикс в XML, Не могу найти как задать префикс, без него ошибка при чтении файла
 
Типа этого.
Xmlnode.setAttribute "xmlns:dt", "http://api.vetrf.ru/schema/cdm/dictionary/v2" и т.д.
POST запрос в Google sheets, POST запрос в Google sheets
 
Добрый.А код самого скрипта можно посмотреть?
И там что прописано.И это не понятно httpRequest.Send (URL)
Изменено: doober - 06.02.2025 14:31:50
Задать префикс в XML, Не могу найти как задать префикс, без него ошибка при чтении файла
 
Держите.
Скрытый текст
Изменено: doober - 06.02.2025 00:07:11
Работа с Combobox ribbon, Обратный ответ для Combobox
 
Откуда ей взяться
Обработка прайсов и создание заказа, Обработка прайсов и создание заказа
 
Заказ свободен.
Работа с IE из VBA. При заполнении значений из макроса не меняется (выбирается) значение из выпадающего списка, Работа с IE из VBA и выпадающими списками на web-формах
 
Не все так просто.Надо макросом раскрыть список и кликнуть по нужному.
Обработка прайсов и создание заказа, Обработка прайсов и создание заказа
 
Написал в личку
Моя надстройка рушит Excel, Помогите решить проблему
 
Да, открывается.Но только реакция одинаковая, что кнопку нажать, что ENTER, падения не происходит.
Пускай кто нибудь проверит с 64 разрядным офисом
Изменено: doober - 17.01.2025 00:25:27
Моя надстройка рушит Excel, Помогите решить проблему
 
2010 32 Глюк не воспроизводится.
Формирование запросов HTTP из Excel/VBA
 
Цитата
Иван Ган написал:<noscript>You need to enable JavaScript to run this
app.</noscript
Это ключевой кусок html, а он говорит о том, что без выполнения скриптов работать не будет
Поиск ближайшего времени в массиве при выполнении двух условий
 
Добрый.Пишу.За 3000 сделаю
Ввод пароля в TextBox
 
Приветствую.
Код
Sub Auth()
    If Лист1.TextBox1 = "123" Then
        Sheets("Авторизация").Visible = 2
        Sheets("Параметры").Visible = -1
    Else
        MsgBox "Неверный пароль"
    End If
End Sub
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 80 След.
Наверх