Для себя. Автоматизировать процессы работы с Excell для использования в профессиональной деятельности (автоматизация работы со списками и различной их аналитики).
Для работы. НУЖНО ПРОПИСАТЬ КОД ЧТОБЫ В КВАДРАТe МОЖНО БЫЛО СТАВИТЬ ГАЛОЧКУ, И УБИРАТЬ ЕЩЁ (ТАКИМ ОБРАЗОМ ОТМЕЧАТЬ ЛЮДЕЙ ИЗ СПИСКА) ВНИМАНИЕ: НЕ В РЕЖИМЕ ДЕМОНСТРАЦИИ СЛАЙДОВ, А В РЕЖИМЕ РАБОТЫ СО СЛАЙДОМ. НЕ МОГУ ПРИКРЕПИТЬ ФАЙЛ, САЙТ НЕ ДАЁТ ПРИКРЕПИТЬ ФАЙЛ .pptx.
Для работы. Объяснить синтаксис приведенного ниже макроса (вставляет фото из папки в таблицу ворд). 'Выбор файла Sub Фото таблицей() With Application.FileDialog(msoFileDialogFilePicker) .Title = "Выбор фотографий" .Filters.Add "Изображения", "*.jpg; *.jpeg" .AllowMultiSelect = True If .Show = -1 Then InsertPhotos .SelectedItems End If End With End Sub 'Вставка фотографий Sub InsertPhotos(ByVal items As Variant) Dim fileName As Variant Dim counter As Integer, row As Long, col As Long counter = 1: row = 1: col = 1 Dim oTbl As Table Dim pic As InlineShape 'Параметры страницы With ActiveDocument.PageSetup End With 'Таблица с невидимыми границами для размещения фотографий Set oTbl = ActiveDocument.Tables.Add(Selection.Range, 2, 2) oTbl.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter oTbl.Range.ParagraphFormat.SpaceAfter = 3 oTbl.Range.Font.Size = 8 FormatTableRow oTbl, row 'Перебор выбранных файлов For Each fileName In items If (counter > 2) And (counter Mod 2 <> 0) Then oTbl.Rows.Add oTbl.Rows.Add col = 1 row = row + 2 FormatTableRow oTbl, row End If 'Вставка изображения Set pic = oTbl.Cell(row, col).Range.InlineShapes.AddPicture(fileName) With pic .Width = CentimetersToPoints(8) .Height = CentimetersToPoints(6) With .Line .Style = msoLineThinThin .ForeColor.TintAndShade = 1 .Weight = 0.5 .DashStyle = msoLineSolid End With End With 'Подпись к изображению oTbl.Cell(row + 1, col).Range.Text = "Ôîòî ¹" + CStr(counter) col = col + 1 counter = counter + 1 DoEvents Next End Sub 'Форматирование строки для фотографий Sub FormatTableRow(oTbl As Table, row As Long) With oTbl.Rows(row) .HeightRule = wdRowHeightAtLeast .Height = 0 .Range.ParagraphFormat.SpaceAfter = 0 End With End Sub.
Повышение успеваемости (Помочь написать программу для решения нелинейного уравнения методом итераций . Как решать уравнение понимаю, проблема в написании программы для его решения)
Как мне найти учеников по профилю vba в Санкт-Петербурге?
Зарегистрируйтесь и создайте привлекательный профиль с упоминанием вашей специализации. Обратите внимание на количество доступных заявок от учеников, которое на апрель 2026 года составляет 0
Какие требования к преподавателям на вашем сайте?
На нашем сайте приветствуются преподаватели с любым уровнем квалификации. Мы рекомендуем указать все свои сертификаты и образование, чтобы увеличить шансы на нахождение учеников
Могу ли я установить гибкий график работы?
Вы полностью контролируете свой график и можете обсуждать его напрямую с учениками, чтобы найти удобное время для обеих сторон
Каков потенциальный заработок для репетитора VBA?
Заработок зависит от количества занятий и квалификации. В среднем, за одно занятие можно заработать 354.27 рублей с занятия. Больше занятий в неделю – выше доход