|
|
| Другие темы раздела | |
|
VBA Проверить корректность вычисления выражения
https://www.cyberforum.ru/ vba/ thread1448517.html Правильно ли я все написал? Option Explicit Sub macro1() Dim t As Single, p As Single, s As Single, i, y p = 3.14 |
VBA Создать новый массив, состоящий из элементов исходного массива, по правилу Сформировать на рабочем листе Задание3 одномерный массив, состоящий из положительных, отрицательных и нулевых элементов. Используя VBA, создать новый массив, состоящий из элементов исходного массива, каждый третий элемент которого заменен на ноль, а каждый пятый – на первый элемент массива |
|
VBA Макрос для автофильтра
https://www.cyberforum.ru/ vba/ thread1448285.html Доброго времени суток. Уважаемые знатоки VBA необходима ваша помощь с макросом. Задача такова: в Excel-евской таблице в столбце №5 находятся имена, которые вводятся вручную, поэтому как правило содержат ошибки и опечатки. Для проверки приходится при помощи автофильтра убирать те имена которые написаны правильно, т.к. вариантов ошибки в одном имени может быть несколько, но на листе может быть... |
VBA Для целого числа А от 1 до 99 напечатать фразу «Мне k лет»
https://www.cyberforum.ru/ vba/ thread1448153.html . Для целого числа А: от 1 до 99 напечатать фразу «Мне k лет», учитывая при этом, что при некоторых значениях k слово «лет» надо заменить на слово «год» или «года». Например, 11 лет, 22 года, 51 год. :-| |
|
VBA Условие для нескольких ячеек Помогите пожалуйста, есть код, который выполняет действие для кнопки по условию, что если ячейки пустые, то выводит ошибку, если нет, то решает действие, собственно в чем проблема. Как сделать условие для нескольких ячеек(например B7,C7,E7), а то у меня получается только для одной ячейки:cry: В чем тут ошибка? (сильно не ругайте, знания языка плохи :( ) Private Sub CommandButton21_Click()... |
VBA Определить количество элементов массива, отличных от последнего элемента Sub one() Dim B(20) As Integer Dim i, k As Integer k = 0 For i = 0 To 19 B(i) = Rnd * 20 ThisWorkbook.Sheets(1).Cells(i + 1, 1) = B(i) https://www.cyberforum.ru/ vba/ thread1447988.html |
|
VBA Удаление разделов документа WORD на основании данных и таблицы Excel
https://www.cyberforum.ru/ vba/ thread1447927.html Добрый день. Прошу помочь с макросом VBA для использования в MS WORD. На входе папка со следующими документами - 1) Документ MS WORD отчет.doc (либо .docx) 2) Таблица excel отсутствующие_объекты.xls Задача: удалить разделы документа word на основании данных из таблицы excel. Макрос должен выполнять следующие задачи: 1) Запросить у пользователя папку, в которой лежат документы (или еще... |
VBA Удаление разделов документа по заголовкам Добрый день. Прошу помочь с макросом VBA для использования в MS WORD. На входе папка со следующими документами - 1) Документ MS WORD отчет.doc (либо .docx) 2)Таблица excel отсутствующие_объекты.xls |
|
VBA Ошибка при запуске программы "run time error 13 type mismatch"
https://www.cyberforum.ru/ vba/ thread1447817.html сама задача: Определить количество элементов массива, принадлежащих промежутку отa до b (значения a и b вводятся с клавиатуры; b > a). Sub abc() Dim a, b, k, i As Integer Dim l(10) As Integer a = InputBox("vvedite a", a) b = InputBox("vvedite b", b) For i = 0 To 10 |
VBA Преобразовать матрицу в одномерный массив в порядке следования столбцов
https://www.cyberforum.ru/ vba/ thread1447779.html Составить программу формирования элементов динамической прямоугольной матрицы A, произвольной размерности. Преобразовать эту матрицу в одномерный массив в порядке следования столбцов. Найти наименьший элемент полученного массива и вывести его через строку от одномерного массива. |
|
Не работает поиск по tagname VBA Добрый день, проблема в следующем , не хочет читать тег , помогите плиз. Спасибо i = 2 posl = 20 Page = 0 Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Visible = False |
VBA Как написать макрос, чтобы при определенных условиях в ячейке С прибавлялось значение 1
https://www.cyberforum.ru/ vba/ thread1447763.html Как написать макрос, чтобы при определенных условиях (к примеру А=В) в ячейке, например, С к содержимому прибавлялось значение 1 (т.е. каждый раз +1, +1, +1, до бесконечности) |
|
2 / 2 / 0
Регистрация: 24.11.2012
Сообщений: 32
|
|
| 0 | |
Как сцепить каждую ячейку столбца А с каждой ячейкой ст. B (все комбинации) - VBA - Ответ 762610817.05.2015, 11:57. Показов 5908. Ответов 21
Метки (Все метки)
Есть исходная табличка такого вида: ---------------------------------------------------- Samsung микрофон цена недорого Nokia экран купить дешево Sony динамик замена батарея ремонт восстановление ---------------------------------------------------- Суть вопроса - нужно СЦЕПИТЬ каждое значение столбца А + с каждой ячейкой столбца B + с каждой ячейкой столбца С + с каждой ячейкой столбца D. Т.е. нужно получить все возможные комбинации сочетания этих слов - такого вида: Samsung микрофон цена недорого Samsung микрофон цена дешево Samsung микрофон купить недорого Samsung микрофон купить дешево Samsung микрофон заменанедорого … … … … Sony батарея восстановление дешево Вернуться к обсуждению: Как сцепить каждую ячейку столбца А с каждой ячейкой ст. B (все комбинации) VBA
0
|
|
Лучшие ответы (1)
| 17.05.2015, 11:57 | |
|
Готовые ответы и решения:
21
Как можно из выделенного столбца каждую вторую ячейку перенести на столбец вправо и на ячейку вверх?
Как сделать пустую ячейку в таблице - ячейкой с пробелом
|
| 17.05.2015, 11:57 | |
| 17.05.2015, 11:57 | |
|
Помогаю со студенческими работами здесь
0
Как удалить каждую 12 ячейку в выделенном диапазоне? Как в datagridview записать текст (поэлементно) в каждую ячейку |
Наверх