Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VBA Перетаскивание содержимого из doc в xls https://www.cyberforum.ru/ vba/ thread2164615.html
С наступающим Всех. Просьба помочь с задачей. Есть документ ворда. В нем следующее содержимое: Разноцветный текст, картинка, таблица. Как макросом - перетащить все это содержимое в эксель и отобразить на листе эксель это содержимое - в том же порядке, как оно идет в ворде ? (Макрос запускается из эксель.) Я заметила тут две сложности: 1.Текст, образованный длинным предложением должен...
VBA автоподбор ширины таблицы в Word по ширине окна
Не получается выравнять ширину таблицы в Word по ширине окна, свойство .AutoFitBehavior (wdAutoFitWindow) в документе, открытом из ексель. Файл прикладываю (макрос в екселе).
VBA VBA + EXcel для изучения Английского https://www.cyberforum.ru/ vba/ thread2164553.html
Есть идея поставить Excel и VBA на вооружение для изучения иностранных языков. На самом первоначальном этапе эта идея реализована в excel-файле для записи и повторения иностранных слов. Если кому-то еще данный проект покажется интересным, то готов выслушать критику, предложения, мнения. Есть некоторые задумки по дальнейшему развитию проекта, но не всегда хватает профильных знаний поэтому...
VBA Построчное чтение Word Как прочитать построчно в Word ? Вот что смог накидать но уходит в цикл либо ошибка Dim r As Range Set r = ActiveDocument.Range Set rd = ActiveDocument.Range With r.Find .ClearFormatting .Text = "Список:" .Forward = True https://www.cyberforum.ru/ vba/ thread2164422.html
VBA Фильтрация в combobox в зависимости от выбора значения
Добрый вечер. Во вложении файл. Необходима помощь в решении следующей проблемы: Существует лист "приход" поступление оборудования, для упрощения внесения данных пытаюсь создать форму, кое что уже написал, точнее адаптировал для собственных нужд. На данный момент времени пользуюсь, но столкнулся с одной неудобной вещью, в моём макросе можно выбрать значения в combobox только последовательно,...
VBA Формы Excel (Visual Basic) https://www.cyberforum.ru/ vba/ thread2164409.html
Здравствуйте, помогите пожалуйста! 1) Найти все целые корни уравнения ax^3+bx^2+cx+d=0, где a, b, c и d-заданные целые числа, причем а не равно 0 и d не равно 0. Замечание: целыми корнями могут быть только положительные и отрицательные делители коэффициента d. 2) Для заданных натуральных n и k определить, равно ли число n сумме k-х степеней из своих цифр. (Формы Excel)
VBA Действия в двумерном массиве - VBA https://www.cyberforum.ru/ vba/ thread2164189.html
Всем доброго времени суток! Не могу разобраться с кодом, окажите поддержку :) 1.Дан двумерный массив чисел А размером 6х6 и одномерный массив Х из 6 чисел. Числа на главной диагонали А заменить на числа из Х.
VBA Работа функции GetPixel
Всем привет. Народ нужна помощь. Вот раздобыл загадочный макрос, который по идее - должен как бы - определять цвет, находящийся под курсором. И как-то выдавать код этого цвета. Данная функция называется GetPixel. Однако данный код - постоянно возвращает разные числовые значения - при щелчке на одной и той же желтой ячейке. Поэтому обращаюсь к специалистам, то есть к вам. Почему макрос...
VBA Дан массив X(N). Найти наибольший элемент и поменять его местами с первым положительным элементом, если такой есть Дан массив X(N). Найти наибольший элемент и поменять его местами с первым положительным элементом, если такой есть. Вроде как понял, как найти наибольший элемент, а вот дальше не очень понимаю что мне делать. Помогите дописать) (мысли по поводу как найти больший элемент во вложении) https://www.cyberforum.ru/ vba/ thread2163644.html VBA На листе Excel даны числа в диапазоне. Вычислить наименьший из них элемент и номера строки/столбца на листе excel даны числа в диапазоне, А1:В5 вычислить наименьший из них элемент и номера строки и столбца в которых он расположен. Вот текст моей программы, не находит наименьший элемент Private Sub CommandButton1_Click() Dim r As Range Dim a As Variant Dim i, j, n, m, s, m1 As Integer Set r = ActiveSheet.UsedRange n = r.Rows.Count m = r.Columns.Count a = r.Value https://www.cyberforum.ru/ vba/ thread2163546.html
VBA Определить, что ячейка содержит формулу
С наступающим. Как в маросе прописать условие "Если ячейка содержит формулу ..." P.S. Полный вопрос задал на паралельном форуме . Но есть желание и свои мозги включить
VBA Описать Property метод для присвоения свойству строкового типа Описать Property метод для присвоения свойству строкого типа, значения календарной даты с проверкой корректности даты (написать единственный Property метод, только тот который отвечает за проверку корректности даты) Ребят нужна помощь.В понедельник экзамен VBA. Препод зачитал задачи. (Помогите с решением , дело в том что я не успеваю и решать и билеты учить) https://www.cyberforum.ru/ vba/ thread2162950.html
6922 / 2832 / 543
Регистрация: 19.10.2012
Сообщений: 8,645
26.12.2017, 12:00 0

Извлечь инфу с данных - VBA - Ответ 11982271

26.12.2017, 12:00. Показов 460. Ответов 6
Метки (Все метки)

Ответ

Быстрее - можно сперва всё из a загнать в словарь, каждому слову в итем позицию и первое слово строки, затем одним циклом по b сразу из словаря (при наличии в нём слова) достаём всё что нужно.
Это если много таких b - т.к. иначе мало смысла в словаре, разница 1 цикл или 100 не особо заметна практически. Но будет.

Вернуться к обсуждению:
Извлечь инфу с данных VBA
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.12.2017, 12:00
Готовые ответы и решения:

Как заполнить базу данных Access с помощью vba в том же access и считать из нее инфу?
Прошу помочь в азах. Как заполнить базу данных Access с помощью vba в том же access и считать из...

Из текстового файла извлечь информацию и найти сумму последних числовых данных
Подскажите как написать код на VBA. Дан текстовый файл, в который загружена информация из...

Из параметра QLabel::paintEvent(QPaintEvent *event) какую инфу можно извлечь?
Здравствуйте. Переопределяю: void МойLabel::paintEvent(QPaintEvent *ev) // производный от QLabel...

Надо вывести инфу из базы данных
Вывести на отдельную страницу. В таблице есть несколько полей; одно называется fname Необходимо...

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

Извлечь часть данных и перенести
Помогите с формулой пожалуйста. Нужно с помощью формулы извлечь часть данных и перенести в другую...

Подскажите, как извлечь данных из XML?
В VBScript использую поиск подстроки для звлечения даных из XML. Set xml =...

Как извлечь часть данных из zip
Winzip архивируются один очень большой файл - охватывающих 30 гб Когда я извлекаю его, он получает...

Извлечь текст до определенного символа и извлечь из кавычек
Ребята, помогите, пожалуйста, с формулой. есть много текста в ячейках, в каждом тексте есть разные...

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