Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBA Составить блок-схему алгоритма и программу на VBA http://www.cyberforum.ru/vba/thread1603653.html
1) Ввести значение переменной n. Ввести значение m. Ввести матрицу A(), в которой n-количество строк, а-количество столбцов. Ввести матрицу В() в которой m-количество строк, а n-количество столбцов. ...
VBA Как задать дату, чтобы в одной ячейке отображалась бы вся дата, а в другой - только год?
Как задать дату, чтобы в одной ячейке отображалась бы вся дата, а в другой - только год? Например, в одной ячейке (пусть это будет столбец А) - дата 12.12.2014, а в другой (пусть это будет столбец...
Работа с графикой (прогнозирование) VBA
Доброго времени суток. Есть задание суть которого заключается в следующем: Необходимо создать информационную систему (программу) в которую пользователь вводит *.bmp файл (какой-нибудь график из...
VBA Программа в VBA для проверки гипотез про равенство средних - VBA В своё время прогулял лекции по VBA, а теперь жалею! Кто может помочь с написанием проги по проверке гипотез про равенство средних? http://www.cyberforum.ru/vba/thread1603230.html
VBA Ввод вещества больным эпилепсией в зависимости от возраста http://www.cyberforum.ru/vba/thread1602989.html
Помогите кто может!! Такая проблема, у меня тема по вводу вещества больным эпилепсией но в зависимости от возраста, у меня 4 группы возрастов, до 25, от 33, до 50 и после 50 им нужно вводить разные...
VBA Написать макрос, который бы сравнивал артикулы
Помогите, пожалуйста, написать макрос, который бы сравнивал артикулы в противоположных ячейках, и отнимал количество проданного товара от количества оставшегося товара, если артикулы совпадают. Вот...
Вытащить значения столбцов выбранной записи в Combobox VBA
Доброго времени суток! Подскажите кто может сталкивался..можно ли как-то из Combobox'а с несколькими столбцами вытащить значения столбцов выбранной записи?
VBA Поменять местами столбец и строку матрицы, вычислить определитель исходника Вот мой вариант. Но как сделать так, чтобы выводился не один измененный элемент, а вся матрица целиком? Sub matrixx() Dim mass(4, 4), k, n, m, m1, a As Integer Dim i As Integer Dim j As Integer... http://www.cyberforum.ru/vba/thread1602647.html
VBA Программа определения последней цифры числа http://www.cyberforum.ru/vba/thread1602640.html
Всем привет! Возникла такая проблема: не могу составить программу по VBA: определение последней цифры числа. Надеюсь что кто-нибудь поможет:)
VBA Подсчитать количество отрицательных элементов, расположенных к первому положительному Задание Для столбца Z из диапазона подсчитать количество отрицательных элементов , расположенных к первому положительному Диапазон x y z 0 -2 -2,901070356 -0,33028093... http://www.cyberforum.ru/vba/thread1602592.html
Казанский
14898 / 6302 / 1718
Регистрация: 24.09.2011
Сообщений: 9,977
06.12.2015, 21:39 0

Вывести те слова, у которых есть хотя бы одна буква «а», стоящая рядом с «м»

06.12.2015, 21:39. Просмотров 502. Ответов 5
Метки (Все метки)

Ответ

Losya,
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Sub in_1()
Dim i&, j&, s$
  Do While Лист1.Range("A" & i + 1).Text <> ""
    i = i + 1
    s = Cells(i, 1).Text
    If InStr(1, s, "ма", vbTextCompare) > 0 Or InStr(1, s, "ам", vbTextCompare) > 0 Then
      j = j + 1
      Cells(j, 2) = s
    End If
  Loop
End Sub


Вернуться к обсуждению:
Вывести те слова, у которых есть хотя бы одна буква «а», стоящая рядом с «м»
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.12.2015, 21:39

Дана строка, состоящая из слов. Удалить из строки все слова, в которых хотя бы одна буква встречается дважды
Delphi 6. Нужно с визуализацией, вывод результата в форму.

В заданном тексте найти слова, в которых есть хотя бы одна или две буквы «н» (строки в стиле Си)
Ввести строку. На печать выдать слова, в которых есть хотя бы одна или две буквы «н».

Вывести все слова нечетной длины, в которых есть буква Т
Добрый вечер. Просьба помочь написать программу к следуйщим задачам: 1)Вывести все слова нечетной...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru