Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VBA Макрос копирования ячеек по условию в Excel Здравствуйте господа программисты! Столкнулся с непосильной задачей. Знания в написании макросов на уровне новичка, да и то, в большей степени по примерам, так что прошу помощи. Буду благодарен за любые советы. И так, есть некий (см. вложение) в котором на первом листе заполняются данные каждый день. Хотелось бы чтобы данные с первого листа копировались на второй лист по условию: а именно... https://www.cyberforum.ru/ vba/ thread2144240.html Как проверить, что Before_print сработало из контекстного меню? VBA
Нужно, чтобы при вызове печати из контекстного меню отрабатывался один набор процедур, а при вызове из файла другой. Т.е. надо как-то задать условие проверки, что печать вызвана из контекстного меню (или из файла), и уже от этого плясать. Как это можно сделать? Речь об Excel. Под вызовом из файла понимается действие быстрой печати или печати через меню Файл, при открытом файле.
VBA Определение ветвящегося направления https://www.cyberforum.ru/ vba/ thread2144157.html
Доброго времени суток. Помогите решить задачу. В книге на листе - находятся числа. Система расположения их такая: Сверху идут меньшие числа, а ниже - большие числа. То есть чем ниже - тем больше число. Как макросом - нарисовать стрелочки между похожими числами, с условием, что если числа будут иметь десятичную дробь - например 2,3 и 2,9 - то от ячейки с числом 2 - стрелочка раздвоится ?
VBA Собрать данные из форм Word 2013 в Acces 2013 https://www.cyberforum.ru/ vba/ thread2143963.html
Помогите чайнику. Програмирование совсем не мое. Пробую создать базу Access VBA со скриптом, чтобы из папки DATA собирать данные в полях формы из документа Word. После обработки файлы форм Word, файл прикрепляется к соответствующей записи в access, файл pdf с таким же названием прикрепляется в другую колонку. Примеров много в интернет, но как заставить их работать. Код и линк на базу: ...
VBA PowerPoint меню выбора Word файла
Доброго времени суток. Пытаюсь реализовать следующую задачу в powerpoint с помощью макроса : при нажатии на вставленный документ word должна появиться менюшка выбора word файла, выбрав файл он заменяет предыдущий. Что бы в пару кликов можно было менять исходный файл который вставляется в слайд. Можно конечно переносить их мышкой из папки в презу, но приходится менять их размер и положение на...
VBA Использование msgbox / inputbox при работе с массивами Задание: Исходные данные (размеры матриц и значения элементов матриц) вводятся с помощью оператора ввода InputBox. Для вывода скалярных результатов вычислений используйте оператор вывода MsgBox. Вывод массивов, являющихся результатом вычислений, осуществите в рабочий документ приложения MS Word, используя оператор Type. В каждом варианте задания вычислите определители исходных матриц.... https://www.cyberforum.ru/ vba/ thread2143918.html
VBA LibreOffice Basic, выравнивание текста по ширине Пишу макрос для форматирования текста в LibreOffice Writer, нужно установить выравнивание текста по ширине, пожалуйста, подскажите как это можно сделать https://www.cyberforum.ru/ vba/ thread2143878.html Необходимо подтянуть данные с листа на лист Excel (по типу ВПР) VBA
Всем,добрый день. Прошу помочь в вопросе описанном ниже. Необходимо с помощью модуля подтянуть данные с Лист1(у меня это "Книги"),на Лист2(у меня это "Отправка") На первом листе "Книги"две колонки А,B: Наименование книг и Стоимость,на втором листе "Отправка" таблица 6 столбцов, в столбце C указано Наименование книг,в столбец D нужно поддтянуть стоимость книг в ячейки с листа "Книги". Пока...
VBA Найти сумму строк матрицы https://www.cyberforum.ru/ vba/ thread2143809.html
Что не так с кодом? Нужно найти сумму строки матрицы размерностью 7*6 диапазон матрицы, диапазон матрицы А1:F7 , при этом полученное число должно отображаться справа от матрицы. помогите пожалуйста Public Sub Matrix() Dim i, j Dim text, answer Dim 7 As Byte, 6 As Byte, sum As Integer Dim a() As Integer n = InputBox("N") m = InputBox("M") ReDim a(1 To 6, 1 To 7) As Integer
VBA По введенной дате рождения определить день недели Используя оператор выбора Select Case: По введенной дате рождения сообщить пользователю, в какой день недели он родился (понедельник или вторник, или среда и т. Д.). Для определения дня недели использовать функцию WeekDay (дата, vbMonday), которая возвращает целое число от 1 до 7. https://www.cyberforum.ru/ vba/ thread2143730.html
VBA JavaScript
Товарищи, окажите помощь, нужно допилить игрушку на JavaScript6. Вся информация по тел: 89315908183. За мат. помощь(сроки горят денег не пожалею).
VBA Вычислить сумму кодов всех символов, которые в цикле https://www.cyberforum.ru/ vba/ thread2143607.html
Вычислить сумму кодов всех символов, которые в цикле вводятся с клавиатуры до нажатия на клавишу Esc.
11517 / 3803 / 681
Регистрация: 13.02.2009
Сообщений: 11,223
27.11.2017, 16:04 0

Объединение нескольких строк в 1 - VBA - Ответ 11887681

27.11.2017, 16:04. Показов 1938. Ответов 4
Метки (Все метки)

Ответ

В модуль:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Function Реквизиты()
    Dim rx As Range, rf As Range, r, c, i, t, u
    Set rf = Range("A15:A70")
    Set rx = rf.Find("Реквизиты")
    If Not rx Is Nothing Then
        r = rx.Row
        c = rx.Column
        For i = 1 To 3
            t = Trim(Split(Cells(r + i, c), ":")(1))
            Реквизиты = IIf(Len(Реквизиты) = 0, t, Реквизиты & " " & t)
        Next i
    End If
End Function
Вызывать как функцию

Вернуться к обсуждению:
Объединение нескольких строк в 1 VBA
Миниатюры
Объединение нескольких строк в 1  
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.11.2017, 16:04
Готовые ответы и решения:

Объединение нескольких файлов в один
Доброго дня! Сразу скажи что в экселе не очень силён. По работе требуется создавать множество...

Объединение нескольких документов в один
Приветствую. Нашел код который объединяет все документы в один файл. Каким образом сохранить...

Объединение нескольких таблиц в одну
Добрый день! Excel'ем приходится пользоваться нечасто, поэтому прошу не пинать :) Суть...

Объединение данных с нескольких листов по ключу
Добрый день. Имею 2 таблицы в книге excel, в которых столбцы с ключами не повторяются. И имеют вид...

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

Объединение текста из нескольких ячеек (с поиском повторов)
Всем привет возникла следующая задача: необходимо составить отчет по таблице (пример во...

Сравнение строк в нескольких файлах excel, копирование несовпадающих строк и их вывод в сводный файл
Добрый день, только только начал разбираться с VBA в excel, поэтому прошу помощи (схожие темы...

Объединение нескольких файлов в одну таблицу (макрос не работает)
Нашел макрос Sub LoadDataFromWorkbooks() On Error Resume Next: Err.Clear Dim...

Объединение содержимого ячеек в одну при нескольких условиях
Доброго времени суток, Уважаемые. Подскажите, пожалуйста, как с помощью формулы решить задачу по...

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