0 / 0 / 0
Регистрация: 28.04.2017
Сообщений: 11
1

Найти список телефонов сотрудников, чьи фамилии начинаются с заданной буквы

09.06.2017, 05:20. Показов 1853. Ответов 6
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Здравствуйте, мне необходимо доработать код. Мой код ищет фамилии по первой букве,а мне нужно,чтобы он искал номера телефонов по первой букве фамилии.
Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub TextBox1_Change()
Dim x, i As Long, txt As String, lt As Long, s As String
txt = TextBox1.Text: lt = Len(TextBox1.Text)
If lt = 0 Then Exit Sub
x = Range("C2", Cells(Rows.Count, 3).End(xlUp)).Value
For i = 1 To UBound(x, 1) ' поиск по первым буквам
 If txt = Mid(x(i, 1), 1, lt) Then s = s & "~" & x(i, 1)
Next i
ListBox1.List = Split(Mid(s, 2), "~")
End Sub
Вложения
Тип файла: 7z задание.7z (60.2 Кб, 6 просмотров)
0
09.06.2017, 05:20
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
09.06.2017, 05:20
Ответы с готовыми решениями:

Вывести список автомобилистов, фамилии которых начинаются на заданную букву
Имеются исходные данные по владельцам автомобилей: ФИО № автомо-биля Марка авто-мобиля Дата регистрации Отдел регистрации ГИБДД ...

Распечатайте список сотрудников, фамилии которых начинаются с буквы В и их даты рождения
Помогите пожалуйста, программа не работает. Не могу понять в чём дело. #include <stdio.h> #include <conio.h> #include...

Распечатать список сотрудников,фамилии которых начинаются с буквы В и Г и год их поступления в фирму
Существует некоторая фирма, которая образована в 1991 году. Составить список сотрудников этой фирмы, содержащей 20 человек. Список должен...

6
 Аватар для Alex77755
11522 / 3808 / 682
Регистрация: 13.02.2009
Сообщений: 11,226
09.06.2017, 06:01 2
Мой код ищет
не! не твой! так и пиши: чужой или этот!
Visual Basic
1
 s = s & "~" & x(i, 1)
вот в этой строчке замени x(i, 1) на нужное тебе:

Добавлено через 8 минут
но сначала в массив возьми не только колонку 3 но хотя бы 2 и 3!
И поиск тогда по нужной колонке организуй
0
0 / 0 / 0
Регистрация: 28.04.2017
Сообщений: 11
09.06.2017, 06:01  [ТС] 3
Цитата Сообщение от Alex77755 Посмотреть сообщение
вот в этой строчке замени x(i, 1) на нужное тебе
у меня разные значения,как замена этого поможет,если номера у людей разные
0
 Аватар для Alex77755
11522 / 3808 / 682
Регистрация: 13.02.2009
Сообщений: 11,226
09.06.2017, 06:09 4
или читать можно нужные данные просто с листа по номеру строки. Или загрузить в другой массив. Вариантов несколько выбирай, делай. Удачи
0
0 / 0 / 0
Регистрация: 28.04.2017
Сообщений: 11
09.06.2017, 06:11  [ТС] 5
Цитата Сообщение от Alex77755 Посмотреть сообщение
или читать можно нужные данные просто с листа по номеру строки. Или загрузить в другой массив. Вариантов несколько выбирай, делай. Удачи
я не понимаю,как мне это сделать,можешь помочь с кодом?
0
 Аватар для Alex77755
11522 / 3808 / 682
Регистрация: 13.02.2009
Сообщений: 11,226
09.06.2017, 06:14 6
Включи мозги!
вот в этой строчке замени x(i, 1) на нужное тебе:
Visual Basic
1
Then s = s & "~" & Cells(i, 2)
0
0 / 0 / 0
Регистрация: 28.04.2017
Сообщений: 11
09.06.2017, 06:30  [ТС] 7
Цитата Сообщение от Alex77755 Посмотреть сообщение
Включи мозги!
Блин,спасибо,я просто вместо Cells(i,2) указывал конкретную ячейку.
0
09.06.2017, 06:30
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
09.06.2017, 06:30
Помогаю со студенческими работами здесь

Вывести фамилии сотрудников, номера телефонов которых начинаются с цифр 361
Сведения состоят из фамилий сотрудников и их телефонов. Вывести фамилии сотрудников, номера телефонов которых начинаются с цифр 361, 362...

Известны фамилии сотрудников, инициалы, номера телефонов. Найти номер телефона по фамилии и инициалам владельца
помогите с Исходником. Известны фамилии сотрудников, инициалы, номера телефонов. Найти номер телефона по фамилии и инициалам владельца.

Очередь (FIFO): студенты, чьи фамилии начинаются с буквы "Б"
Очередь (FIFO) Все студенты, чьи фамилии начинаются с буквы "Б" program lab3; type student=record fam,name,group:string; ...

Распечатать список студентов, фамилии которых начинаются с буквы А
Распечатать список студентов, фамилии которых начинаются с буквы А, и их оценки за все время обучения.

Распечатать список студентов, фамилии которых начинаются с буквы А
распечатать список студентов, фамилии которых начинаются с буквы А, и их даты рождения. Язык си#


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Система безопасности в Laravel: возможности и примеры
Wired 18.02.2025
Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
Давайте сравним Django и Laravel
Wired 18.02.2025
Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .
Laravel или React - что лучше?
Wired 18.02.2025
В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .
Laravel 11: новые возможности, гайд по обновлению
Wired 18.02.2025
Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .
Миграции в Laravel
Wired 18.02.2025
Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .
Аутентификация в Laravel
Wired 18.02.2025
В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .
Laravel или Symfony: что лучше для старта?
Wired 18.02.2025
В веб-разработке выбор правильного фреймворка может стать определяющим фактором успеха проекта. Особенно это актуально для PHP - одного из самых распространенных языков программирования, где Laravel. . .
Что нового в Laravel 12
Wired 18.02.2025
С момента своего появления в 2011 году Laravel постоянно развивается, внедряя инновационные решения и совершенствуя существующие возможности. В начале 2025 года ожидается выход Laravel 12 - новой. . .
Роутер в Laravel: как работать с маршрутами
Wired 18.02.2025
Маршрутизация - один из основополагающих элементов любого веб-приложения на Laravel, определяющий как приложение отвечает на HTTP-запросы к различным URL-адресам. По сути, роутинг - это механизм. . .
Интеграция шаблона Bootstrap в Laravel PHP
Wired 18.02.2025
Разработка веб-приложений в современном мире требует не только надежного бэкенда, но и привлекательного, отзывчивого интерфейса. Laravel, как один из самых популярных PHP-фреймворков, отлично. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru