Изменить код

@danny41 · Регистрация: 14.06.2011

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

как выразить это в массиве и чтоб при чтении ячейки 1первая цифра отбрасывалась в читались след 3 цифры
пр: 79082912341 - 7 отрабасывется а 908 проверяется

Visual Basic

Function Operators(ByVal Target As Range) As String
   Select Case Left$(Target.Value, 3)
      Case 960: Operators = "Beeline"
      Case 905: Operators = "TELE2"
      Case 923: Operators = "Megafon"
      Case 913: Operators = "MTC"
      Case Else: Operators = "Unknown"
   End Select
End Function

[/QUOTE]

Добавлено через 15 минут
Примерно начал писать

Public Function Operators2(ByVal Target As Range) As String

Dim Оператор() As String

Dim Код() As String

Оператор = Array("TELE2", "beeline", "Megafon")
Код = Array("902", "904", "908")

End Function

@~~Busine2009~~ · 28.06.2011, 13:11

danny41,
ключевое слово: функция Mid (есть ещё оператор Mid).

@danny41 · 28.06.2011, 13:25 **[ТС]**

все равно не понимаю

@~~Busine2009~~ · 28.06.2011, 13:26

danny41,
в интернете наберите: функция Mid VBA.

@Gibboustooth · 28.06.2011, 13:29

Вместо

Visual Basic

1	Left$(Target.Value, 3)

Надо

Visual Basic

1	Mid$(Target.Value, 2, 3)

@Ципихович Эндрю · 28.06.2011, 20:15

чтобы понимать

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

Mid$(Target.Value, 2, 3)

надо чтобы Target было большим "мсмиьавымьвампбьамбьавбавыфбьмибьавыми бавым бавьфымибьавыт"
и поиграться с цифирками 2, 3

@Gibboustooth · 28.06.2011, 20:20

Сообщение от Ципихович Эндрю

чтобы понимать

Человеку просто не интересно. Иначе бы он разобрался сам.

@Ципихович Эндрю · 28.06.2011, 20:29

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

@danny41 · 29.06.2011, 21:58 **[ТС]**

Помогите добрые люди напишите код с помощью массива, буду молится на вас!

@~~Busine2009~~ · 30.06.2011, 07:34

danny41,
задание не понятно.

@danny41 · 30.06.2011, 08:33 **[ТС]**

как выразить это в массиве и чтоб при чтении ячейки 1первая цифра отбрасывалась в читались след 3 цифры
пр: 79082912341 - 7 отрабасывется а 908 проверяется

Код Visual Basic1
Function Operators(ByVal Target As Range) As String
Select Case Left$(Target.Value, 3)
Case 960: Operators = "Beeline"
Case 905: Operators = "TELE2"
Case 923: Operators = "Megafon"
Case 913: Operators = "MTC"
Case Else: Operators = "Unknown"
End Select
End Function

@~~Busine2009~~ · 30.06.2011, 08:36

danny41,
т.е. выделяем в Excel определённую ячейку, а дальше что надо сделать?

@danny41 · 30.06.2011, 08:44 **[ТС]**

выводит оператор сотовой связи
я написал эту функцию 2 способами
1. selectcase
2. if the
третий нужно написать с помощью массива,

@~~Busine2009~~ · 30.06.2011, 09:05

Код:

Visual Basic

Sub P1()
Dim Результат As String
Результат = F1(Mid(ActiveCell.Value, 2, 3))
If Результат = "" Then
    MsgBox "Организации с таким кодом нет"
Else
    MsgBox Результат
End If
End Sub

Visual Basic

Function F1(Код As String) As String
'Массив будет двумерным, имеющим 2 столбца и столько строк,
'сколько организаций, предоставляющих услуги сотовой связи.
'В моём случае будет 3 организации.
Dim Массив(1 To 3, 1 To 2)
Dim i As Integer
'Заполняем массив данными.
'Двоеточие используется, чтобы в одной строке можно было 2 команды поместить.
Массив(1, 1) = "960": Массив(1, 2) = "Beeline"
Массив(2, 1) = "905": Массив(2, 2) = "TELE2"
Массив(3, 1) = "923": Массив(3, 2) = "Megafon"
'Просматриваем все элементы в первом столбце.
'UBound(Массив, 1) - это количество строк в массиве.
For i = 1 To UBound(Массив, 1) Step 1
    'Если есть совпадение, то берём значение (это название организации)
    'из второго столбца
    If Массив(i, 1) = Код Then
        F1 = Массив(i, 2)
        'Если нашли совпадение, то дальше нет смысла просматривать
        'остальные элементы массива, поэтому выходим из цикла.
        Exit For
    End If
Next i
End Function

@danny41 · 30.06.2011, 09:24 **[ТС]**

спасибо, но что-то он не срабатывает

@~~Busine2009~~ · 30.06.2011, 09:28

danny41,
в какой строке ошибка и что за ошибка?

@danny41 · 30.06.2011, 09:29 **[ТС]**

в коде нет ошибок кода выбираеш номер скажем 89609921723, то он не пишет оператора а пишет ""

@~~Busine2009~~ · 30.06.2011, 09:33

danny41,
мой код рабочий. Видимо вы его видоизменяете и что-то не так делаете.

@danny41 · 30.06.2011, 09:35 **[ТС]**

я его не изменял) вожу номер в любую ячейку затем нажимаю значок выбрать функции тоже в любой ячейке выбираю ту ячейку где номер и место оператора отображается ""

@~~Busine2009~~ · 30.06.2011, 09:39

danny41,
есть 2 распространённых способа вызова функций:

это с помощью процедуры (в моём случае это P1);
и через кнопку в Excel Вставка функции.

В моём случае - это первый пункт.

Подстройте код под себя (как вам надо вызывать функцию).

@~~Busine2009~~ Заблокирован
	30.06.2011, 07:34	10
	danny41, задание не понятно. 0

@~~Busine2009~~ Заблокирован
	30.06.2011, 09:28	16
	danny41, в какой строке ошибка и что за ошибка? 0

@~~Busine2009~~ Заблокирован
	30.06.2011, 09:33	18
	danny41, мой код рабочий. Видимо вы его видоизменяете и что-то не так делаете. 0

@danny41 1 / 1 / 0 Регистрация: 14.06.2011 Сообщений: 71
	30.06.2011, 09:35 [ТС]	19
	я его не изменял) вожу номер в любую ячейку затем нажимаю значок выбрать функции тоже в любой ячейке выбираю ту ячейку где номер и место оператора отображается "" 0

@~~Busine2009~~ Заблокирован
	28.06.2011, 13:11	2
	danny41, ключевое слово: функция Mid (есть ещё оператор Mid). 0

@danny41 1 / 1 / 0 Регистрация: 14.06.2011 Сообщений: 71
	28.06.2011, 13:25 [ТС]	3
	все равно не понимаю 0

@~~Busine2009~~ Заблокирован
	28.06.2011, 13:26	4
	danny41, в интернете наберите: функция Mid VBA. 0

@Ципихович Эндрю 1389 / 530 / 67 Регистрация: 10.04.2009 Сообщений: 8,715
	28.06.2011, 20:15	6
	чтобы понимать Сообщение от Gibboustooth Mid$(Target.Value, 2, 3) надо чтобы Target было большим "мсмиьавымьвампбьамбьавбавыфбьмибьавыми бавым бавьфымибьавыт" и поиграться с цифирками 2, 3 0

@Gibboustooth 735 / 203 / 11 Регистрация: 23.06.2011 Сообщений: 440
	28.06.2011, 20:20	7
	Сообщение от Ципихович Эндрю чтобы понимать Человеку просто не интересно. Иначе бы он разобрался сам. 0

@Ципихович Эндрю 1389 / 530 / 67 Регистрация: 10.04.2009 Сообщений: 8,715
	28.06.2011, 20:29	8
	нет просто не каждый например дойдёт до того, чтобы после прохождения строки навести курсор и посмотреть чему равна переменная, и главное бывают случае, что это не подсвечивается, не знаю почему 0

@danny41 1 / 1 / 0 Регистрация: 14.06.2011 Сообщений: 71
	29.06.2011, 21:58 [ТС]	9
	Помогите добрые люди напишите код с помощью массива, буду молится на вас! 0

@danny41 1 / 1 / 0 Регистрация: 14.06.2011 Сообщений: 71
	30.06.2011, 08:33 [ТС]	11
	как выразить это в массиве и чтоб при чтении ячейки 1первая цифра отбрасывалась в читались след 3 цифры пр: 79082912341 - 7 отрабасывется а 908 проверяется Код Visual Basic1 Function Operators(ByVal Target As Range) As String Select Case Left$(Target.Value, 3) Case 960: Operators = "Beeline" Case 905: Operators = "TELE2" Case 923: Operators = "Megafon" Case 913: Operators = "MTC" Case Else: Operators = "Unknown" End Select End Function 0

@~~Busine2009~~ Заблокирован
	30.06.2011, 08:36	12
	danny41, т.е. выделяем в Excel определённую ячейку, а дальше что надо сделать? 0

@danny41 1 / 1 / 0 Регистрация: 14.06.2011 Сообщений: 71
	30.06.2011, 08:44 [ТС]	13
	выводит оператор сотовой связи я написал эту функцию 2 способами 1. selectcase 2. if the третий нужно написать с помощью массива, 0

@danny41 1 / 1 / 0 Регистрация: 14.06.2011 Сообщений: 71
	30.06.2011, 09:24 [ТС]	15
	спасибо, но что-то он не срабатывает 0

@danny41 1 / 1 / 0 Регистрация: 14.06.2011 Сообщений: 71
	30.06.2011, 09:29 [ТС]	17
	в коде нет ошибок кода выбираеш номер скажем 89609921723, то он не пишет оператора а пишет "" 0

@~~Busine2009~~ Заблокирован
	30.06.2011, 09:39	20
	danny41, есть 2 распространённых способа вызова функций: это с помощью процедуры (в моём случае это P1); и через кнопку в Excel Вставка функции. В моём случае - это первый пункт. Подстройте код под себя (как вам надо вызывать функцию). 0