Серый форум — VBA (Visual Basic for Applications)

VBA: Непонятки с выделением смежного символа слева от вставки

null@example.com (EgorS) — Sat, 18 Apr 2026 15:25:36 +0000

Привет, народ! Столкнулся с лютыми непонятками, прошу разъяснить! Допустим, есть такой код:

Dim Range1 As Word.Range
Set Range1 = Selection.Range    
Selection.Next(Unit:=wdCharacter, Count:=2).Select
Range1.Text = "-"
Set Range1 = Nothing

Допустим, есть тестовый текст: "SomeText". Теперь делаем так: выделяем в нём букву "o" и запускаем наш код выше -- выделение я тут условно для наглядности обрамлю квадратными скобками (ясно, что в реальности скобок нет). Ниже показано состояние: было/стало (т.е. до выполнения кода и после):

S[o]meText  --  S-m[e]Text

Вместо "o" вставилось тире "-" (точнее, минус, но это не суть), а выделение перешло на [e] -- так и должно по-идее быть, тут всё норм. Но вот если переместить выделение на ОДИН символ, (т.е. написать в коде выше Count:=1, а не Count:=2), то будет вот такая фигня:

S[o]meText  --  S[-m]eText

То есть выделение почему-то расширяется с [m] на вставленное тире [-m], хотя по идее должно быть вроде [m]

При этом если делать аналогично, но вставлять слева -- вот так:


Dim Range1 As Word.Range
Set Range1 = Selection.Range    
Selection.Previous(Unit:=wdCharacter, Count:=1).Select
Range1.Text = "-"
Set Range1 = Nothing

То всё норм, расширения выделения не происходит:

S[o]meText  --  [S]-meText

VBA: Непонятки с перехватом событий Word (WithEvents)

null@example.com (EgorS) — Fri, 30 Jan 2026 11:26:32 +0000

Здравствуйте! Не могу разобраться с такими непонятками. Допустим, мне надо перехватывать клики в Word. Пусть есть форма "myForm1" с двумя кнопками:

"Включить перехват" -- запускает процедуру "Word_Events_Register" (её код см. ниже)
"Выключить перехват" -- запускает процедуру "Word_Events_UnRegister" (её код см. ниже)

Есть модуль класса "clsWordEvents" с таким кодом

' Этот объект (класс) нужен для перехвата событий Word.
' В данном случаю он использ-ся для перехвата события
' WindowSelectionChange (это когда кликаешь курсором в
' разных местах)
'
Option Explicit

Public WithEvents AppWord As Word.Application

Private Sub AppWord_WindowSelectionChange(ByVal Sel As Selection)

    Dim FontName As String
    Dim SymbCode As Integer
    Dim SymbCodeS As String

    FontName = Sel.Range.Font.Name

    If FontName <> "Verdana" Then
       ' шрифт не Verdana -- выходим
       Exit Sub
    End If
    ' Шрифт Verdana -- продолжаем

    ' выделяем смивол, по которому (перед которым) кликнули курсором
    '
    If Sel.Type = wdSelectionIP Then
       Sel.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    End If

End Sub

есть модуль "Module1" с кодом:

Option Explicit

Private obWordEvents As clsWordEvents
'
' Объект класса clsWordEvents, после своего создания он будет
' реагир на события Word (тут на событ WindowSelectionChange)
'
' NOTES:
'
' 1. чтобы это работало, в VBA-проекте должен быть класс
'    clsWordEvents -- проверь!
'
' 2. создание obj obWordEvents -- в sub Word_Events_Register,
'    уничтожен -- в sub Word_Events_UnRegister (после уничтож
'    Word не будет реагир на событие WindowSelectionChange --
'    это сделано для удобства, чтобы отключ. перехват событий
'    когда это не нужно и мешает. Запуск этих SUB -- вручную
'    из окна макросов Word.
'

Sub Word_Events_Register()

    ' Создает объект (обработчик событий), перехватывающий события
    ' Word (в данном случае это будет событ WindowSelectionChange)

    If Not obWordEvents Is Nothing Then
       ' ветка, когда объект-обработчик событий Word уже
       ' существует, so его создавать не надо -- выходим.
       '
       ' MsgBox "Обработчик событий уже был создан" & Chr(13) & _
       ' "и не требует повторной регистрации" & Chr(13) & _
       ' "(просто выходим)."
       Exit Sub
    End If

    Set obWordEvents = New clsWordEvents
    Set obWordEvents.AppWord = Word.Application

End Sub

Sub Word_Events_UnRegister()

    ' Уничтожает объект (если он ранее был создан запуском
    ' Word_Events_Register), перехватывающий события Word.
    ' Я сделал это просто для удобства, чтобы при необходимости
    ' отключать перехват событий.

    If obWordEvents Is Nothing Then
       ' ветка, когда объект-обработчик событий Word не
       ' существует, so его уничтожать не надо -- выход.
       '
       ' MsgBox "Обработчик событий не существует," & Chr(13) & _
       ' "поэтому его уничтожение не нужно." & Chr(13) & _
       ' "(просто выходим)."
       Exit Sub
    End If
    Set obWordEvents = Nothing

End Sub

Есть модуль "FormsView" с кодом:

Option Explicit

' В этом модуле Е макросы для отображения или скрытия
' разного рода диалоговых окон (форм, сообщений итп.)

Sub myForm1_Show()
    myForm1.Show ' отображ. форму myForm1
End Sub

Теперь делаем следующее. Выводим форму "myForm1" (запуском в окне макросов процедуры "myForm1_Show"). Жмём кнопку "Включить перехват" (сработает процедура "Word_Events_Register"). Кликаем по тексту в Word и после клика курсор превращается в выделение — примерно так: "сл|ово" --> "сл[о]во" ("|" означает курсор, а "[]" выделение).

Жмем кнопку "Выключить перехват" (сработает процедура "Word_Events_UnRegister") и теперь при кликах выделения не будет: "сл|ово". — Всё так как мне и надо, это понятно и нормально.

Допустим теперь, что на форме есть третья кнопка "Action" (название условное), которая запускает такой код:

Private Sub btnAction_Click()

    Word_Events_UnRegister ' выключили перехват событий
    Selection.Move Unit:=wdCharacter, Count:=1 ' сдвинули курсор на 1 символ вправо
    Word_Events_Register ' включили перехват обратно

End Sub

То есть тут по идее происходит то же самое, что было описано выше с нажатием кнопок, только отключение/включение перехвата событий делается не вручную (кнопками), а программно прямым запуском соотв-х процедур. Но вот тут и возникают лютые непонятки: при этом после клика получается так:

"сл|ово" --> "сл[о]во"
-- а должно быть (по идее) так: --
"сл|ово"

То есть такое впечатление, что движение курсора (Selection.Move) почему-то перехватывается, хотя перехват вроде бы выключен. Может кто-нибудь объяснить, почему так происходит?

VBA: Тулбар в файлах Word 2000/2003, открытых в Word 2007 и выше

null@example.com (EgorS) — Mon, 15 Dec 2025 14:48:27 +0000

Здравствуйте. Извините, если немного не в тему, но просто неохота думать, где еще спросить (форум OSZone сдох, а на Ру-Борде чё-то молчат). Так что если кто знает, ответьте, пожалуйста.

Если в Word 2000/2002/2003 создать свой тулбар и сохранить его в данном документе, а потом открыть этот файл в Word 2007/2010 итд, то (как я понимаю) кнопки этого тулбара будут видны на "ленте" (риббоне) на вкладке "Надстройки" в группе "Настраиваемые панели инструментов".

Но я заметил такую странную фигню: если на этом тулбаре (имеется в виду Word 2000-2003) находятся _только_ кнопки, запускающие какие-то мои макросы (т.е. процедуры SUB), то при открытии этого файла в Word 2007+ в группе "Настраиваемые панели инструментов" никаких кнопок не будет. Однако если добавить на этот тулбар (в Word 2000-2003) хотя бы одну стандартную кнопку (ну, например, "Копировать" -- выглядит как такие 2 листочка бумаги, в общем, ясно, о чём я говорю), то в Word 2007+ все кнопки тулбара волшебным образом появляются.

Что это за дурацкая багофича или я чего-то не понимаю? В общем вопрос: можно ли как-то "проявить" такой кастомный тулбар из Word 2000-2003 в Word 2007+, если на нём только кнопки запуска макросов (без добавления кнопок стандартных команд)?

VBA: как в Word в VBA узнать коды символов 224-231 и 232-239

null@example.com (EgorS) — Sun, 30 Nov 2025 19:35:34 +0000

Есть шахматный шрифт "Chess Merida". Там есть символы рамки вокруг доски. Тут речь о нижней и левой рамках. Рамки могут быть с подписями и без. "Подписи" -- т.е. когда внизу под доской по горизонтали идут буквы, обозначающие вертикали (A,B,…,H), а слева от доски -- идут цифры, обозначающие горизонтали (1,2,…,8).

Коды символов (если посмотреть в Insert > Symbol)

нижняя рамка без подписи : 40
левая рамка без подписи : 36

нижняя рамка (т.е. с буквами) A-H : 232-239
левая рамка (т.е. с цифрами) 1-8 : 224-231

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

нижняя рамка с буквой A:
Selection.InsertSymbol _
Font:="Chess Merida", _
CharacterNumber:=232, _
Unicode:=False

левая рамка с цифрой 1 (единица):
Selection.InsertSymbol _
Font:="Chess Merida", _
CharacterNumber:=224, _
Unicode:=False

Тут всё работает нормально. Аналогично будет и для остальных рамок с буквами/цифрами, только, соответственно, надо использовать их коды.

А вот если я пытаюсь через VBA узнать код сивола такой буквенно-цифровой рамки (т.е. символы с кодами 224-231 и 232-239), то получается облом:

Выделим символ и выполним в окне Immediate:
?AscB(Selection.Characters(1))
для всех этих символов будет почему-то выдано 40
AscW (если использовать его вместо AscB) тоже выдает 40

При этом для остальных символов -- например, белая пешка на чёрной клетке (80), черный король на черной клетке (76), в том числе и упомянутые выше рамки без подписи (40, 36) -- AscB выдаёт правильные коды. В чём тут дело? Как мне в VBA узнать коды для символов 224-231 и 232-239?

* * *

[дополнение] неожиданно вопрос решился. Решение я изложил несколькими постами ниже, поэтому всё дальнейшее обсуждение с "ценными" советами предлагаю считать утратившим актуальность, благо решение оказалось удивительно простым.

VBA: Операции реляционной алгебры

null@example.com (gamesszedlak) — Tue, 24 Sep 2024 13:13:31 +0000

Здравствуйте, помогите пожалуйста, необходимо написать код, для VBA на основании таблиц A и B, должны быть сделаны операции, а именно пересечение, объединение, разность и произведение, как видите реализация только пересечение, и объединение(код представлен ниже), но слегка с ошибками, разность и произведение, просто нет возможности сделать?


Sub Start()
Dim A() As String
Dim B() As String
Dim ASB() As String
Dim AUB() As String
i% = 3

Do
If Cells(i%, 2).Value = "" Then
n% = i% - 3
Exit Do
End If
i% = i% + 1
Loop

If n% = 0 Then
MsgBox "?????? A ????"
Exit Sub
End If

i% = 3
Do
If Cells(i%, 4).Value = "" Then
m% = i% - 3
Exit Do
End If
i% = i% + 1
Loop

If m% = 0 Then
MsgBox "?????? B ????"
Exit Sub
End If

' ??????????????? ??????????? ????????
ReDim A(1 To n%, 1 To 2) As String
ReDim B(1 To m%, 1 To 2) As String
ReDim ASB(1 To n% + m%, 1 To 2) As String
ReDim AUB(1 To n% + m%, 1 To 2) As String

' ?????? ?????? ?? ????? ? ???????
For i% = 1 To n%
A(i%, 1) = Cells(i% + 2, 2)
A(i%, 2) = Cells(i% + 2, 3)
Next i%

For i% = 1 To m%
B(i%, 1) = Cells(i% + 2, 4)
B(i%, 2) = Cells(i% + 2, 5)
Next i%

'???????? ?????? ??????

Range("F3:I40").Select
Selection.ClearContents
Range("A1").Select

' ????? ???????????

Intersect A(), B(), ASB(), k1%


' ????? ??????????? ?????????
For i% = 1 To k1%
Cells(i% + 2, 6) = ASB(i%, 1)
Cells(i% + 2, 7) = ASB(i%, 2)
Next i%

'For i% = 1 To k2%
'Cells(i% + 2, 8) = AUB(i%, 1)
'Cells(i% + 2, 9) = AUB(i%, 2)
'Next i%


End Sub

'::: ??????????? A ? B -> AB

Sub Intersect(A() As String, B() As String, AB() As String, k As Integer)
k% = 0
For i% = 1 To UBound(A, 1)
aa = A(i%, 1)
a1 = A(i%, 2)
q% = 0
For j% = 1 To UBound(B, 1)
If B(j%, 1) = aa Then
q% = -1
Exit For
End If
Next j%
If (q% <> 0) Then
q% = 0
For j% = 1 To k%
If AB(j%, 1) = aa Then
q% = -1
Exit For
End If
Next j%
If (q% = 0) Then
k% = k% + 1
AB(k%, 1) = aa
AB(k%, 2) = a1
End If
End If
Next i%

Range("H3").Select
ActiveCell.FormulaR1C1 = "=RC[-6]"
Range("H4").Select
Range("H3").Select
ActiveCell.FormulaR1C1 = "=RC[-6]"
Range("I3").Select
ActiveCell.FormulaR1C1 = "=RC[-6]"
Range("H4").Select
ActiveCell.FormulaR1C1 = "=RC[-6]"
Range("I4").Select
ActiveCell.FormulaR1C1 = "=RC[-6]"
Range("H5").Select
ActiveCell.FormulaR1C1 = "=RC[-6]"
Range("I5").Select
ActiveCell.FormulaR1C1 = "=RC[-6]"
Range("H6").Select
ActiveCell.FormulaR1C1 = "=RC[-6]"
Range("I6").Select
ActiveCell.FormulaR1C1 = "=RC[-6]"
Range("H7").Select
ActiveCell.FormulaR1C1 = "=RC[-6]"
Range("I7").Select
ActiveCell.FormulaR1C1 = "=RC[-6]"
Range("H8").Select
ActiveCell.FormulaR1C1 = "=R[-5]C[-4]"
Range("I8").Select
ActiveCell.FormulaR1C1 = "=R[-5]C[-4]"
Range("H9").Select
ActiveCell.FormulaR1C1 = "=R[-5]C[-4]"
Range("I9").Select
ActiveCell.FormulaR1C1 = "=R[-5]C[-4]"
Range("H10").Select
ActiveCell.FormulaR1C1 = "=R[-5]C[-4]"
Range("I10").Select
ActiveCell.FormulaR1C1 = "=R[-5]C[-4]"
Range("H11").Select
ActiveCell.FormulaR1C1 = "="
Range("H10").Select
ActiveCell.FormulaR1C1 = "=R[-4]C[-4]"
Range("I10").Select
ActiveCell.FormulaR1C1 = "=R[-4]C[-4]"
Range("H11").Select
ActiveCell.FormulaR1C1 = "=R[-4]C[-4]"
Range("I11").Select
ActiveCell.FormulaR1C1 = "=R[-4]C[-4]"
Range("I12").Select

End Sub

VBA: Внесение данных в ListBox формы

null@example.com (rplugarev) — Mon, 15 Jul 2024 12:29:41 +0000

Доброго дня суток!
Подскажите, пожалуйста!
В форме два ListBox и CommandButton.
Один называется "Принадлежность к предприятию", он содержит список из нескольких позиций - "работник Предприятия", "самозанятый", "ИП", "безработный" и т.д.
Второй ListBox называется "Ф.И.О".
CommandButton - "Выбрать".
Как написать макрос, чтобы при нажатии на "Выбрать" именно "работник Предприятия" в поле ListBox "Ф.И.О" появлялся список фамилий, находящихся в таблице на отдельном Листе этой Книги, а при выборе других позиций в поле ListBox "Ф.И.О" оператору необходимо было бы вручную внести фамилию, имя, отчество, но только в необходимом формате, например: "Иванов Иван Иванович"

VBA: Две книги с данными, перенести нужные из 2-ух в 3-ю

null@example.com (GFeniks) — Tue, 07 Nov 2023 05:18:12 +0000

Добрый день.
Использую MS Excel 2010.
Сразу говорю: программист я начинающий.
Есть книга, из которой запускается макрос VBA, она открывает файл "old_sp.xls" (таблица со старыми данными граждан: Фамилия, Имя и тд., заголовков таблицы нет, идут сразу строки с данными) и файл "new_sp.xls" (с новыми данными граждан: Номер гражданина в выборке, Фамилия, Имя и тд., заголовки таблицы есть), также макрос создает новую книгу. В файле "new_sp.xls" строки с данными идут не подряд, а имеются пустые строки. Нужно найти в файле "new_sp.xls" непустую строку, проверить, что в ее первой ячейке слева стоит именно чиcло (это номер гражданина в выборке, колонка называется "№, п/п"), запомнить этот номер в переменной, и в старом списке, "old_sp.xls", отсчитать сверху количество строк, равное числу в сохранённой переменной, если эта строка не пуста, то скопировать всю строку с данными по текущему гражданину в созданный xls-файл. И так нужно перебрать все строки в файле "new_sp.xls". Затем когда вновь созданная книга (список исключённых граждан) будет заполнена, строками из "old_sp.xls", сохранить ее на жёсткий диск.

Я пошёл через циклы While Do...Loop. Пока у меня обрабатывается только первая непустая строка, с номером, из нового списка. Как сделать, чтобы обрабатывались все строки из нового списка и соответствующие им строки из старого списка копировались в список исключенных?

Код:

Sub cbMakeIskluchSpsok_Click()
 
    'Переменные для хранения имен файлов старого и нового списков
    Dim old_sp_book As String
    Dim new_sp_book As String
    'Переменная для хранения имени файла списка исключенных
    Dim old_spisok As Workbook
    Dim new_spisok As Workbook
    Dim iskl_spisok As Workbook
    
    'Устанавливаем активным каталог книги, из которой запущен макрос
    ChDir (ThisWorkbook.Path)
    'Устанавливаем режим копирования-вставки
    Application.CutCopyMode = True
    
    'Открываем файл старого списка
    If Dir(ActiveWorkbook.Path + "\" + "old_sp.xls") = "" Then
    
        Workbooks.Open ActiveWorkbook.Path + "\" + "old_sp.xlsx"
        Set old_spisok = Workbooks.Open(ThisWorkbook.Path + "\" + "old_sp.xlsx")
    
    Else
    
        Workbooks.Open ActiveWorkbook.Path + "\" + "old_sp.xls"
        Set old_spisok = Workbooks.Open(ThisWorkbook.Path + "\" + "old_sp.xls")
 
    End If
 
    'Открываем файл нового списка
    If Dir(ThisWorkbook.Path + "\" + "new_sp.xls") = "" Then
    
        Workbooks.Open ActiveWorkbook.Path + "\" + "new_sp.xlsx"
        Set new_spisok = Workbooks.Open(ThisWorkbook.Path + "\" + "new_sp.xlsx")
    
    Else
    
        Workbooks.Open ActiveWorkbook.Path + "\" + "new_sp.xls"
        Set new_spisok = Workbooks.Open(ThisWorkbook.Path + "\" + "new_sp.xls")
    
    End If
 
    'Создаем ексель-книгу для списка исключенных
    Set iskl_spisok = Workbooks.Add
    
    'Сохраняем и закрываем созданную эксель-книгу со списка исключенных
    iskl_spisok.SaveAs Filename:=ThisWorkbook.Path & "\" & "Iskl_spisok_Added " & CStr(Date) & ".xls", 

FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
    
   
    'Переменные-счестчики для перебра строк нового старого списка, старого списка и списка сиключенных
    'Переменная-счетчик для перебора строк нового списка
    Dim i As Long
    'Переменная-счетчик для перебора строк старого списка
    'Dim j As Long
    'Переменная-счетчик для перебора строк списка исключенных
    Dim k As Long
    'Переменная для хранения номера непстой строки в новом списке
    Dim CurrNumericRow As Long
    'Метка для продолжения цикла с перебором строк в новом списке
    Dim Metka As Label
    
    '''Действия по формированию списка исключенных граждан
    'Активация файла нового списка
    i = 1
    k = 1
    
Metka:
    
    new_spisok.Activate
    
    ActiveWorkbook.Sheets(1).Activate
    
    Do While i <> 65535
    
    
        If ActiveSheet.Range(Cells(i, 1).Address).Text <> "" And IsNumeric(ActiveSheet.Range(Cells(i, 

1).Address).Text) = True Then
        
                        CurrNumericRow = CLng(ActiveSheet.Range(Cells(i, 1).Address).Text)
                        
                        old_spisok.Activate
                        
                        ActiveWorkbook.Sheets(1).Activate
            
                        ActiveSheet.Range(Cells(CurrNumericRow, 1).Address & ":" & Cells(CurrNumericRow, 

11).Address).Select
                                
                        Selection.Copy
                        
                       'Вставка ранее скопированного дисапозона ячеек в список исключенных граждан
                        iskl_spisok.Activate
                            
                        ActiveWorkbook.Sheets(1).Activate
                        
                       
                        Do While k <> 65535
                        
                            If ActiveSheet.Range(Cells(k, 1).Address).Text = "" Then
                                
                                ActiveSheet.Range(Cells(k, 1).Address).Select
                                
                                ActiveSheet.Paste
                                
                                Exit Do
                            
                            Else
                                    
                                k = k + 1
                            
                            End If
        
        
                        Loop

            Else
                        
                    'ничего не делать :)))
                    
            End If
            
           i = i + 1
            
     Loop
        
    'Сохранение сформированного файла-списка исключенных
    'iskl_sp_book.SaveAs "????_?_?????\??????_???????????.xls"
 
End Sub

Прикрепляю архив примера (данные левые, нужен чисто принцип), плиз хелп

VBA: замена запятой на точку в Ексель

null@example.com (Andropov) — Mon, 05 Jun 2023 06:10:49 +0000

Всем привет! Создаю макрос по замене в файле Ексель чисел с разделителем запятая, при формате ячеек Общий, на числа с разделителем точка, и изменении формата ячейки на Текстовый!
Хотел создать такой макрос на основе этого, но что-то не выходит, буду благодарен за помощь!

Sub Fix_Numbers_From_Dates()
    Dim num As Double, cell As Range
 
    For Each cell In Selection
        If Not IsEmpty(cell) Then
            If cell.NumberFormat = "General" Then
                num = CDbl(Replace(cell, ".", ","))
            Else
                num = CDbl(Format(cell, "m,yyyy"))
            End If
            cell.Clear
            cell.Value = num
        End If
    Next cell
End Sub

VBA: Поиск и перемещение данных с одного листа файла на другой

null@example.com (Andropov) — Thu, 11 May 2023 08:53:03 +0000

Всем привет! Хочу создать макрос! Задача: есть таблица с заголовками названием контрагентов и данными под этими контрагентами в столбце, нужно найти в заголовке определенного контрагента и скопировать данные под ним в другую таблицу на другом листе, только в горизонтальном положении!!! Буду признателен в оказании помощи!

VBA: обработка массивов данных

null@example.com (igorpohlebaev644) — Mon, 01 May 2023 15:41:12 +0000

Коллеги, есть макрос для возврата столбца из массива данных, по типу ВПР, но никак не соображу, как возвратить остальные столбцы массива. может, кто подскажет, что не так сделал? Макрос massiv1, на 2 листе.

VBA: Макрос на кнопку, проход по папкам, сравнение с наименованием, со

null@example.com (ivandor421) — Mon, 17 Apr 2023 09:46:38 +0000

Добрый день. Возникла необходимость в написании макроса, сам к сожалению только начал изучать данный вопрос.

Есть лист excel (рис.1). в нем указаны комплекты документов. В столбцах L-O сейчас руками созданы гиперссылки на необходимые папки.
Есть папка на диске с входящими и исходящими письмами (рис.2). Папок и входящих и исходящих писем очень много, и в ручную каждый раз добавлять гиперссылки очень трудозатратно.
Задача состоит в следующем, по нажатию кнопки делать проход по папкам и подпапкам, сравнивать наименование в столбце "B" листа excel и папках (рис3), и создавать столбцы с гиперссылками на папки.
рисунки и сам файл excel приложен.

VBA: Нужно уменьшить точку до 6.5 размера нолика в макросе Word

null@example.com (mahounj) — Thu, 30 Mar 2023 11:03:35 +0000

Добрый день ребята. Есть 2 файлика.
в 1 точка очень маленького размера 6.5, в 2ом еле видный нолик желтого цвета.
1 файл )Через Chat Gpt создал макрос,все гуд но точка получается стандартного размера как бы я в макросе не указывал размер.
Напишите мне в телеграм mahone789 Для связи или я сюда файлик скину чтобы вам понятнее было,просто приблизьте сильнее файл

VBA: Доступ к элементу div страницы на html посредством VBA

null@example.com (AleksP) — Sun, 19 Mar 2023 11:15:48 +0000

Добрый день!

В html коде есть элемент div, к которому необходимо получить доступ посредством VBA


   
                    
                        
                            Закупка 32312204305
                        
                        [b]Содержимое, которое необходимо скопировать с html страницы через VBA[/b]
...

Получается только через getElementsByTagName("div")(номер элемента).innerText, но номер элемента div может меняться динамически и такой вариант не подходит.
Привожу код, в котором попробовал разные варианты доступа с указанием сообщения о ошибке в комментариях.


Sub test()

sURL = "https://synapsenet.ru/zakupki/fz223/32312204305%231--sanktpeterburg-vipolnenie-rabot-po-obsledovaniyu-stroitelnih"

    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    With oXMLHTTP
        .Open "GET", sURL, False
        .send
        txt = .responseText
        
        Set pDoc = CreateObject("HTMLFile")
        pDoc.body.innerHTML = txt
   
       .Open "GET", sURL, False: .send
        getHTTP = StrConv(.responseBody, vbUnicode)
        
        MsgBox pDoc.getElementsByTagName("div")(номер элемента).innerText
        'Работает.'

        MsgBox getHTTP.getElementsByTagName("div")(номер элемента).innerText
        'Сообщение об ошибке Object required.'
        
        pDoc.getElementsByClassName ("tct-tender-text")
        'Сообщение об ошибке Object doesn't support this property or method.'
        
       getHTTP.getElementsByClassName ("tct-tender-text")
        'Сообщение об ошибке Object required.'
   
       pDoc.querySelectorAll ("tct-tender-text")
      'Сообщение об ошибке Object doesn't support this property or method.'
      
        getHTTP.querySelectorAll ("tct-tender-text")
        'Сообщение об ошибке Object required.'

    End With
    
    Set oXMLHTTP = Nothing

End Sub

Как нужно исправить код, чтобы получить доступ к нужному элементу?

VBA: Калькулятор стоимости

null@example.com (margin-up) — Fri, 07 Oct 2022 06:56:58 +0000

Всем привет. Подскажите, пожалуйста, как реализовать данную задачу.

1)Необходимо сделать калькулятор стоимости. Стоимость зависит примерно от 8 переменных, часть из них будет реализовано выпадающим списком, а часть нужно будет указать числом(например, кол-во дней или кол-во человек). Цены будут указаны в таблице, поэтому нужно будет обратиться к нужной ячейке при определенной комбинации переменных, а затем это число умножается на кол-во дней и кол-во человек. Вид диалогового окна закинул во вложение.

2) Еще момент, так как структура достаточно большая, желательно сделать чтобы данные брались из разных книг(но это не второстепенно)

Подскажите, в какую сторону копать и как лучше реализовать. Есть пока только мысль реализовать это через "Иф" и прописать каждый возможный вариант, но достаточно много переменных.

VBA: Excel - Автоматическое обновление запросов

null@example.com (ThisIsStart) — Tue, 03 May 2022 16:02:11 +0000

Добрый день.
Возможно ли реализовать в VBA автоматическое обновление всех данных(из txt файла) каждые 5 секунд? В настройках excel'а минимум это 1 минута, но это слишком много. Пытался реализовать разными способами, но либо компилятор ругался с ошибками или на ссылку на несуществующий макрос(хотя они лежат в одном коде), либо excel вис на все 5 секунд, обновлял данные и снова вис.
Можно как-то осуществить это через таймер или с помощью AHK?
Только не простой эмуляцией нажатий, должна остаться возможность использовать компьютер и другие вкладки.
В AHK есть замечательная функция:

SetTimer

Если AHK способен заставлять excel обновлять данные по этому таймеру было бы супер, зависание excel'a на пол секунды вполне допустимо.
Не знаю где было бы правильнее создавать тему, здесь или в AutoHotKey. Если создал неправильно- сообщите, я пересоздам.