Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 28.04.2017
Сообщений: 11
1

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

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

Здравствуйте, мне необходимо доработать код. Мой код ищет фамилии по первой букве,а мне нужно,чтобы он искал номера телефонов по первой букве фамилии.
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
0
Вложения
Тип файла: 7z задание.7z (60.2 Кб, 6 просмотров)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.06.2017, 05:20
Ответы с готовыми решениями:

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

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

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

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

6
11162 / 3543 / 627
Регистрация: 13.02.2009
Сообщений: 10,593
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
11162 / 3543 / 627
Регистрация: 13.02.2009
Сообщений: 10,593
09.06.2017, 06:09 4
или читать можно нужные данные просто с листа по номеру строки. Или загрузить в другой массив. Вариантов несколько выбирай, делай. Удачи
0
0 / 0 / 0
Регистрация: 28.04.2017
Сообщений: 11
09.06.2017, 06:11  [ТС] 5
Цитата Сообщение от Alex77755 Посмотреть сообщение
или читать можно нужные данные просто с листа по номеру строки. Или загрузить в другой массив. Вариантов несколько выбирай, делай. Удачи
я не понимаю,как мне это сделать,можешь помочь с кодом?
0
11162 / 3543 / 627
Регистрация: 13.02.2009
Сообщений: 10,593
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.06.2017, 06:30

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

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

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

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


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

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

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