Форум программистов, компьютерный форум, киберфорум
Наши страницы

VBA

Войти
Регистрация
Восстановить пароль
 
Никита Песков
0 / 0 / 0
Регистрация: 05.06.2015
Сообщений: 37
#1

Найти самое длинное слово в строке - VBA

05.06.2015, 12:31. Просмотров 711. Ответов 2
Метки нет (Все метки)

Дан массив слов.Найти самое длинное слово. Для ввода исходного массива на рабочем листе установить поле ввода TextBox,результат записать в рабочею ячейку.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.06.2015, 12:31
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Найти самое длинное слово в строке (VBA):

Дана строка символов. Слова в строке отделяются одним пробелом. Поменять местами самое длинное и самое короткое слово - VBA
8. Дана строка символов. Слова в строке отделяются одним пробелом. Поменять местами самое длинное и самое короткое слово. не могу...

Вывести самое длинное слово в строке и его длину - VBA
Задана строка символов.Группы символов, разделенные пробелом и не содержащие пробелов внутри себя, будем называть словами.Вывести самое...

Найти самое длинное слово-перевёртыш - VBA
Помогите пожалуйста составить программу для нахождения в заданном тексте самого длинного слова-перевёртыша. Заранее огромное спасибо!

Найти самое длинное слово из заданного текста - VBA
Найти самое длинное слово из заданного текста. И ещё...как "перебирать" каждый символ из текста?(Это мне для вот этого задания: Задан...

Ввести произвольное предложение, найти самое короткое (длинное) слово в предложении - VBA
Ввести произвольное предложение, найти самое короткое (длинное) слово в предложении. Напечатать в одном окне вывода предложение и слово.

Даны 3 предложения. Найти совпадающие слова в предложении и среди них самое длинное слово - VBA
Даны 3 предложения. Найти совпадающие слова в предложении и среди них самое длинное слово.

2
Hugo121
5918 / 2081 / 335
Регистрация: 19.10.2012
Сообщений: 6,224
05.06.2015, 12:57 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Visual Basic
1
2
3
4
5
6
7
Private Sub TextBox1_Change()
    Dim el
[a1].ClearContents
    For Each el In Split(TextBox1.Text)
        If Len([a1]) < Len(el) Then [a1] = el
    Next
End Sub
1
otakuneka
30 / 30 / 13
Регистрация: 19.05.2015
Сообщений: 52
05.06.2015, 13:01 #3
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
С методом Change не всё так просто. Моё предложение ввод в массив производить через Enter:
Visual Basic
1
2
3
4
5
6
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn And Len(TextBox1.Value) <> 0 Then
        Cells(ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count, 1) = TextBox1.Value
        TextBox1.Value = Empty
    End If
End Sub
А это для кнопки выполнения поиска:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Sub GO()
    Dim max_str As Integer
    max_str = 0
    For i = 2 To ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
        If Len(Cells(i, 1)) > max_str Then
            max_str = Len(Cells(i, 1))
            found_str = Cells(i, 1)
        End If
    Next i
    MsgBox found_str
End Sub
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.06.2015, 13:01
Привет! Вот еще темы с ответами:

Определить, сколько раз встречается в нём самое длинное слово - VBA
Нужно , срочно решить задачи по VBA: 1)Ввести текст.Определить, сколько раз встречается в нём самое длинное слово. 2)Вводить...

Задано предложение-строка. Написать программу, которая находит самое длинное слово, встречающееся в предложени - VBA
Задано предложение-строка. Написать программу, которая находит самое длинное слово, встречающееся в предложении.

Найти самое длинное предложение в документе (Word) - VBA
Доброго времени суток!!! Подскажите пожалуйста, как в документе найти самое длинное предложение. А то у меня в задании встретилось,...

Нужно найти самое короткое и длинное слово в тексте - Basic
Нужно найти самое короткое и длинное слово в тексте. КТО НИБУДЬ ЗНАЕТЬ КАК МОЖНО СОЗДАТЬ ПРОГРАММУ ДЛЯ ЭТОГО?:help::help::help:


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

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