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

@Pasha_Dizel · Регистрация: 28.04.2017

Студворк — интернет-сервис помощи студентам

Здравствуйте, мне необходимо доработать код. Мой код ищет фамилии по первой букве,а мне нужно,чтобы он искал номера телефонов по первой букве фамилии.

Visual Basic

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

@Alex77755 · 09.06.2017, 06:01

Мой код ищет

не! не твой! так и пиши: чужой или этот!

Visual Basic

1	s = s & "~" & x(i, 1)

вот в этой строчке замени x(i, 1) на нужное тебе:

Добавлено через 8 минут
но сначала в массив возьми не только колонку 3 но хотя бы 2 и 3!
И поиск тогда по нужной колонке организуй

@Pasha_Dizel · 09.06.2017, 06:01 **[ТС]**

Сообщение от Alex77755

вот в этой строчке замени x(i, 1) на нужное тебе

у меня разные значения,как замена этого поможет,если номера у людей разные

@Alex77755 · 09.06.2017, 06:09

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

@Pasha_Dizel · 09.06.2017, 06:11 **[ТС]**

Сообщение от Alex77755

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

я не понимаю,как мне это сделать,можешь помочь с кодом?

@Alex77755 · 09.06.2017, 06:14

Включи мозги!

вот в этой строчке замени x(i, 1) на нужное тебе:

Visual Basic

1	Then s = s & "~" & Cells(i, 2)

@Pasha_Dizel · 09.06.2017, 06:30 **[ТС]**

Сообщение от Alex77755

Включи мозги!

Блин,спасибо,я просто вместо Cells(i,2) указывал конкретную ячейку.

@Pasha_Dizel 0 / 0 / 0 Регистрация: 28.04.2017 Сообщений: 11
	09.06.2017, 06:01 [ТС]	3
	Сообщение от Alex77755 вот в этой строчке замени x(i, 1) на нужное тебе у меня разные значения,как замена этого поможет,если номера у людей разные 0

@Alex77755 11504 / 3791 / 680 Регистрация: 13.02.2009 Сообщений: 11,194
	09.06.2017, 06:09	4
	или читать можно нужные данные просто с листа по номеру строки. Или загрузить в другой массив. Вариантов несколько выбирай, делай. Удачи 0

@Pasha_Dizel 0 / 0 / 0 Регистрация: 28.04.2017 Сообщений: 11
	09.06.2017, 06:11 [ТС]	5
	Сообщение от Alex77755 или читать можно нужные данные просто с листа по номеру строки. Или загрузить в другой массив. Вариантов несколько выбирай, делай. Удачи я не понимаю,как мне это сделать,можешь помочь с кодом? 0

@Pasha_Dizel 0 / 0 / 0 Регистрация: 28.04.2017 Сообщений: 11
	09.06.2017, 06:30 [ТС]	7
	Сообщение от Alex77755 Включи мозги! Блин,спасибо,я просто вместо Cells(i,2) указывал конкретную ячейку. 0

Опции темы