Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VBA Как скрепить три макроса для запуска от нажатия одной определённой кнопки ? Как можно соединить вот эти три макроса,(какой командой в коде это возможно сделать,если это возможно конечно)чтобы они запускались в такой же последовательности в какой они выложены в сообщении,и была возможность назначения кнопки для запуска этого объединённого макроса.И если нет возможности соединить именно все три,то есть ли возможность соединить 1 и 2 или 2 и 3 макросы??? ... https://www.cyberforum.ru/ vba/ thread1911658.html VBA Получить значения из документа word по маске макросом в excel
Здравствуйте! Подскажите, пожалуйста, можно ли макросом произвести поиск по маске в документах Word и вывести все значения в таблицу Excel? И как это сделать? Ситуация: есть около 300 документов word нужно достать значения, находящиеся в фигурных скобках Пример {Part1.1.8 REQ 2.8.1.f1.3.2-000-X, 2.8.1.1.2.7-000-Z} Т.е. маска поиска в word подстановочными знаками ?* В экселе нужно...
VBA Преобразование вида даты https://www.cyberforum.ru/ vba/ thread1911537.html
Здравствуйте, уважаемые форумчане! Помогите, пожалуйста советом. Создала диаграмму на основе данных массива, где горизонтальная ось - это даты. В массиве они выглядят как 03.01.2017, 04.01.2017. А в диаграмме 1/3/2017, 1/4/2017. Пробовала преобразовать массив дат после инициализации в стринговое значение, но не помогло. Будьте добры, подскажите как преобразовать к более привычному виду....
VBA Перенести по условию https://www.cyberforum.ru/ vba/ thread1911443.html
Добрый день! Имеется excel файл, напечатанного ниже формата: Лист "Исходник": Столбец "А" - код товара; Лист "Товар": Столбец "K" - код товара; Все остальные столбцы, помимо столбца K - информация о товаре;
Координаты в метры работает, а метры обратно в координаты?! VBA
Добрый есть код который координаты переводит в метры, а как сделать наоборот. Код на скриншоте помогите пожалуйста хотя бы формулой ?! Нарушение правил форума, нельзя выкладывать вопрос в виде картинки.
VBA MsgBox в VBA https://www.cyberforum.ru/ vba/ thread1911387.html
Здравствуйте! Есть код который суммирует весь столбец и выводит диалоговое сообщение: Private Sub CommandButton5_Click() Dim s As Long Dim LastRow As Long s = Cells(Rows.Count, 5).End(xlUp).Row Cells(s + 1, 5) = Application.WorksheetFunction.Sum(Range(Cells(2, 5), Cells(s, 5))) LastRow = Cells(Rows.Count, 5).End(xlUp).Row MsgBox "Сумма по всем строкам: " & LastRow, , "" End Sub
VBA Макрос на изменение правил условного выделения Ребят, сломал голову Прикрепил пример для полного понимания. Нужен макрос, который брал бы значения из ячеек и изменял бы правила выделения в таблице по фиксированному диапазону... Например 1 столбец таблицы: 1 2 3 4 5 https://www.cyberforum.ru/ vba/ thread1911348.html VBA N имён на одной кнопке
Доброго времени суток 2003 2010 (если это актуально) Имеется книга с макросами Каждый макрос имеет свое имя: Makr_1, Makr_2, Makr_3 ... Makr_n и запускается со своей кнопочки Хочу сделать выпадающий список с наименованиями макросов и всего 1 кнопку, которая будет активировать макрос с выбранным именем В файлике предоставлена имитация моего "хочу"
VBA Считает почему то только первый код, на остальные пишет что код не найден, хотя он есть в списке, не понимаю п Написать процедуру поиска в списке, расположенном на рабочем листе с именем «Цены» активной рабочей книги, кода товара, введенного с клавиатуры, свыдачей на экран сообщения о цене введенного товара. Если код не найден, то пользователю сообщается об отсутствии товара в списке. Написала программу: Sub SearchPrice() Dim CodeGood() As String, Price() As Currency, FindPrice As Currency,... https://www.cyberforum.ru/ vba/ thread1911236.html VBA Макрос Word. замена абзацев не трогая таблицы макрос написал выделив весь текст, как сделать что бы таблицы отдельно обрабатывались или пропускались Sub Макрос1() Call Макрос2 Call Макрос3 Call Макрос5 End Sub Sub Макрос2() Selection.WholeStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting https://www.cyberforum.ru/ vba/ thread1911202.html
Экзаменационное задание VBA
For28. Дано вещественное число X (|X| < 1) и целое число N (> 0). Найти значение выражения 1 + X/2 − 1·X2/(2·4) + 1·3·X3/(2·4·6) − … + + (−1)N−1·1·3·…·(2·N−3)·XN/(2·4·…·(2·N)). Полученное число является приближенным значением функции (1+X)1/2. В via нужно решить
VBA Найти значение выражения https://www.cyberforum.ru/ vba/ thread1911151.html
Дано вещественное число X (|X| < 1) и целое число N (> 0). Найти значение выражения X − X2/2 + X3/3 − … + (−1)N−1·XN/N. Полученное число является приближенным значением функции корень 1 + X. Решить в vba нужно
3218 / 967 / 223
Регистрация: 29.05.2010
Сообщений: 2,086
01.02.2017, 18:05 0

Удалить текст после первого определённого символа - VBA - Ответ 10067191

01.02.2017, 18:05. Показов 9404. Ответов 6
Метки (Все метки)

Лучший ответ Сообщение было отмечено MrRuslanBB как решение

Решение

Применительно к твоему примеру:
Visual Basic
1
2
3
4
5
6
7
8
Sub pr()
    Dim i&    
    a = ActiveSheet.UsedRange
    For i = 1 To UBound(a)
        a(i, 1) = Split(a(i, 1), ";")(0)
    Next
    Cells(1, 4).Resize(UBound(a)) = a
End Sub


Вернуться к обсуждению:
Удалить текст после первого определённого символа VBA
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.02.2017, 18:05
Готовые ответы и решения:

Как удалить текст до определенного символа
Доброго времени суток, друзья Подскажите как возможно решить такие задачи через VBA: Есть...

Как преобразовать в прописные все буквы, расположенные в тексте после первого вхождения символа "*"
Помогите написать код для задачи: Преобразовать в прописные все буквы, расположенные в тексте после...

Средние символы из строки s2 удалить и поставить в s1 после первого символа 'А'
Создать программу которая осуществляла: 1. Ввод строк s1 и s2. 2.средние символы из строки s2...

Удалить текст после определенного символа
Здравствуйте! Есть текст: &quot;111; 222; 333; 444; 555; 666; 777&quot; Нужно сделать так, что бы при...

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

Удалить все элементы файла, расположенные после первого символа пробела
дан символьный файл,содержащий по крайней мере один символ пробела. Удалить все его элементы,...

Удалить все элементы файла, расположенные после первого символа пробела
Дан символьный файл, содержащий по крайней мере один символ пробела. Удалить все его элементы,...

Удалить все элементы символьного файла, расположенные после первого символа пробела
Дан символьный файл, содержащий по крайней мере один символ пробела. Удалить все его элементы,...

Удалить текст после первого пробела
Добрый день. Как можно удалить текст текст после первого пробела. Например, первый текстовый...

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