Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBA Реализовать метод северозападного угла для составления опорного плана Здравствуйте, форумчане. Пытаюсь реализовать метод северозападного угла для составления опорного плана однако почему то не получается.кому не жалко немного времени посмотрите пожалуйста, объясните где ошибся. сам файл не выкладывается(весит более 100 кб) вот код: Dim kpost As Integer Dim kpotr As Integer Dim zapasmas() As Integer Dim potrebnostmas() As Integer Dim zapas As Integer Dim... https://www.cyberforum.ru/ vba/ thread810870.html Удаление пустых строк в ListBox VBA
Private Sub ListBox1_Enter() For k = 2 To 50 If Cells(i + 1, 1).Value <> " " Then ListBox1.AddItem Cells(i + k, 1).Value End If Next k End Sub вот код на массив считывающий из ячеек данные, вот как сделать чтобы не выло пустых строк если ячейка пустая
VBA поле "названия строк" в сводной таблице из нескольких диапазонов https://www.cyberforum.ru/ vba/ thread810701.html
Здравствуйте! Люди добрые подскажите!!!! Измучился весь. Мне нужно создать сводную таблицу из нескольких диапазонов, с возможность суммирования данных из диапазонов в этой сводной таблице(посредством фильтрации в поле "фильтр отчета"). Но дело в том, что при этом нужно чтобы данные в поле "названия строк" были организованы так же, как в сводной таблице, сформированной на основе одного диапазона...
VBA необходимо создать таблицу необходимо создать таблицу, в которой часы минуты расписание 17 40 по факту .. .. и в общем, когда мы будем вводить время по факту, то в зависимости от него строка "по факту" должна окрашиваться в красный, желтый и зеленый в соответствии с :пришел позже, вовремя и раньше. https://www.cyberforum.ru/ vba/ thread810674.html
Создание новой папки, когда выбрана ячейка с ее именем VBA
Друзья, помогите справится с задачей То что есть: Есть база заказов (документ Excel), в одной из ячеек ссылка на адрес папки конкретного заказа (например D:\База\122) Номер берется из другой ячейки =ГИПЕРССЫЛКА("D:\База\"&A1; 1) Вопрос:
VBA Запись массива в ListBox Sub Transport() Dim M(0 To 5) For i = 0 To 5 M(i) = Cells(i + 1, 1).Value Cells(i + 1, 2).Value = M(i) Next i End Sub вот код,считывающий массив с ячеек,как сделать чтобы он этот массив с числами или со словами перекинул и выдал в Listboxe https://www.cyberforum.ru/ vba/ thread810574.html
VBA Поиск значений из диапазона https://www.cyberforum.ru/ vba/ thread810529.html
Здравствуйте, я юрист, и мне к сожалению пришлось с толкнутся с тем что сам не могу сделать. У меня есть книга в которой на 1-м листе есть много данных в том числе и числа в таком формате (12099010390001261 в ячейках они сохранены как текст). В данный момент диапазон с А2:А267, но со временем список будет увеличиваться. На 2-м и последующих листах есть диапазоны приблизительно B2:Q272 тоже с...
Нажатием горячих клавиш внести из ячейки на пятом листе данные в конкретно выбранную ячейку на 1-ом листе VBA
Ребята, дело такое. Нужна помощь в следующем: Есть книга. В ней 5 листов. на 5-ом листе хранится информация. 4ре остальных пустые. Мне надо: утром, заполняя первый лист нажатием горячих клавиш внести из ячейки на пятом листе данные в "нажатую" (конкретно выбранную) ячейку на 1-ом листе. днем, заполняя второй лист нажатием тех же горячих клавиш внести из ячейки на пятом листе данные в...
VBA Access. Связь основной и подчиненной форм https://www.cyberforum.ru/ vba/ thread810447.html
Добрый день! При разработке формы столкнулся с такой проблемой. У меня есть две формы одна основная, другая подчиненная. Значения основной формы зависят от выбора записи в подчиненной форме. Связь реализована через ссылку в свойствах данных (Пример: =.!). Проблема в том, что в таком случае я не могу добавить запись через основную форму. Т.е. я хотел бы узнать, есть ли какая-либо возможность...
VBA Удаление выбранных значений ячеек Здравствуйте. Помогите написать код для кнопки "Ввести данные" на листе "Праздники". Суть в том, что пользователь должен ввести несколько дат в специальной таблице на листе "Праздники", затем он нажимает кнопку "Ввести данные" и при ее нажатии должны удаляться соответствующие ячейки из листов "Сентябрь" и "Октябрь". Например, пользователь выбирает на листе "Праздники" 8 марта 2013 и 23 февраля... https://www.cyberforum.ru/ vba/ thread810420.html
VBA Программа обрабатывающая excel таблицу по заданным алгоритмам
Здравствуйте форумчане, столкнулся с такой проблемой, нужна простенькая программка в которой прописано несколько сочетаний клавиш (в которых можно прописать любой интересующий нас параметр) и при нажатии этого сочетания в таблице excel идет окраска блока в зависимости от соответствия или не соответствия этому параметру. Готовое решение только при вашем желании, а так буду рад умным и грамотным...
VBA Именованный диапазон через VBA Excel На рисунке изображены две именованные области(1 и 2), при добавлении, удалении цены и времени может меняться диапазон(увеличиваться или уменьшаться) или просто сдвигаться. Как сделать так, чтобы п
15145 / 6418 / 1731
Регистрация: 24.09.2011
Сообщений: 9,999
17.03.2013, 20:46 0

Word: макрос для таблиц. Отформатировать определенный вид таблиц - VBA - Ответ 4269661

17.03.2013, 20:46. Показов 12664. Ответов 4
Метки (Все метки)

Ответ

Цитата Сообщение от Slamzor Посмотреть сообщение
Первый тип таблиц ... состоит она всегда из двух столбцов
Если полагать, что таблица второго типа состоит из большего числа столбцов, а "шапка" - это первая строка таблицы, то так:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub Макрос1()
Dim t As Table
For Each t In ActiveDocument.Tables
    If t.Columns.Count > 2 Then 'таблица второго типа?
        With t.Rows(1).Range
            .Font.Name = "Times New Roman"
            .Font.Bold = True
            .ParagraphFormat.Alignment = wdAlignParagraphCenter
        End With
    End If
Next
End Sub


Вернуться к обсуждению:
Word: макрос для таблиц. Отформатировать определенный вид таблиц VBA
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.03.2013, 20:46
Готовые ответы и решения:

Оптимизировать макрос, сравнивающий значения в столбцах двух различных таблиц Word
Sub sravnenie() Dim i,j,iCount9, iCountn As integer ...

Макрос: Написать макрос по сравнению двух таблиц для нахождения несоответствий...
знатоки, прошу помощи в еще одном деле: есть два листа, --в одном список: яблоко, груша, слива, ...

Макрос для сверки таблиц (VBA)
Добрый день, помогите решить один вопрос. Нужен макрос для сверки таблиц (см. файл). В файле...

Макрос для создания и заполнения таблиц
Всем доброго времени суток! Необходимо сделать так, чтобы при запуске макроса открывались окошки...

4
17.03.2013, 20:46
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.03.2013, 20:46
Помогаю со студенческими работами здесь

Макрос не работает для множества таблиц
Если создать новый документ и поместить в него две таблицы, то этот макрос работает, а в...

Изменить макрос для обновления сводных таблиц
Привет! Срочно нужна помощь! У меня был Excel файл, в котором все сводные таблицы были на 1...

Макрос для больших таблиц по отбору нужной информации
Из файла нужно отобрать строки. И скопировать их в новую книгу. Критерии отбора нужных строк...

Подкорректировать макрос для удаления/вставки названия таблиц
Добрый день. Имею два макроса. один удаляет, а другой вставляет названия таблиц. Первый макрос...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru