Функция не работает

@Marina_33 · Регистрация: 15.09.2020

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

Добрый день. создала функцию. но она не работает

Добавлено через 1 минуту

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Function VLOOKUPST() As String
 
Dim iLastRow As Long
    iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
Dim iColNameDorOtp As Long
iColNameDorOtp = 0
 
Dim iColNameFilOtp As Long
iColNameFilOtp = 0
    
Dim i As Long
 
For i = 2 To iLastRow
 
 
If Cells(i, iColNameDorOtp).Value = "ОКТЯБРЬСКАЯ" Or Cells(i, iColNameDorOtp).Value = "КАЛИНИНГРАДСКАЯ" Then
            With Cells(i, iColNameFilOtp)
                .Value = "CПб"
                .VerticalAlignment = xlCenter
            End With
                              
    ElseIf Cells(i, iColNameDorOtp).Value = "МОСКОВСКАЯ" Then
            Cells(i, iColNameFilOtp).Value = "МСК"
    ElseIf Cells(i, iColNameDorOtp).Value = "ГОРЬКОВСКАЯ" Then
            Cells(i, iColNameFilOtp).Value = "НЖН"
    ElseIf Cells(i, iColNameDorOtp).Value = "СЕВЕРНАЯ" Then
            Cells(i, iColNameFilOtp).Value = "ЯРВ"
    ElseIf Cells(i, iColNameDorOtp).Value = "СЕВЕРО-КАВКАЗСКАЯ" Or Cells(i, iColNameDorOtp).Value = "ФГУП ""КЖД""" Then
            Cells(i, iColNameFilOtp).Value = "РСТ"
    ElseIf Cells(i, iColNameDorOtp).Value = "ЮГО-ВОСТОЧНАЯ" Then
            Cells(i, iColNameFilOtp).Value = "ВРЖ"
    ElseIf Cells(i, iColNameDorOtp).Value = "ПРИВОЛЖСКАЯ" Then
            Cells(i, iColNameFilOtp).Value = "СРТ"
    ElseIf Cells(i, iColNameDorOtp).Value = "КУЙБЫШЕВСКАЯ" Then
            Cells(i, iColNameFilOtp).Value = "СМР"
    ElseIf Cells(i, iColNameDorOtp).Value = "СВЕРДЛОВСКАЯ" Then
            Cells(i, iColNameFilOtp).Value = "ЕКТ"
    ElseIf Cells(i, iColNameDorOtp).Value = "ЮЖНО-УРАЛЬСКАЯ" Then
            Cells(i, iColNameFilOtp).Value = "ЧЛБ"
    ElseIf Cells(i, iColNameDorOtp).Value = "ЗАПАДНО-СИБИРСКАЯ" Then
            Cells(i, iColNameFilOtp).Value = "НВС"
    ElseIf Cells(i, iColNameDorOtp).Value = "ЗАПАДНО-СИБИРСКАЯ" Then
            Cells(i, iColNameFilOtp).Value = "НВС"
    ElseIf Cells(i, iColNameDorOtp).Value = "ВОСТОЧНО-СИБИРСКАЯ" Or Cells(i, iColNameDorOtp).Value = "ЗАБАЙКАЛЬСКАЯ" Then
            Cells(i, iColNameFilOtp).Value = "ИРК"
    ElseIf Cells(i, iColNameDorOtp).Value = "ДАЛЬНЕВОСТОЧНАЯ" Or Cells(i, iColNameDorOtp).Value = "АО ""АК""ЖЕЛЕЗНЫЕ ДОРОГИ ЯКУТИИ""" Then
            Cells(i, iColNameFilOtp).Value = "ВЛД"
    ElseIf Cells(i, iColNameDorOtp).Value = "ДОНЕЦКАЯ" Or Cells(i, iColNameDorOtp).Value = "МОЛДАВСКАЯ" Or Cells(i, iColNameDorOtp).Value = "ЛЬВОВСКАЯ" Or Cells(i, iColNameDorOtp).Value = "ОДЕССКАЯ" Or Cells(i, iColNameDorOtp).Value = "ПРИДНЕПРОВСКАЯ" Or Cells(i, iColNameDorOtp).Value = "ЮГО -ЗАПАДНАЯ" Then
            Cells(i, iColNameFilOtp).Value = "УКР"
    ElseIf Cells(i, iColNameDorOtp).Value = "КАЗАХСТАНСКИЕ" Or Cells(i, iColNameDorOtp).Value = "УЗБЕКСКИЕ" Or Cells(i, iColNameDorOtp).Value = "ТАДЖИКСКАЯ" Or Cells(i, iColNameDorOtp).Value = "ТУРКМЕНСКАЯ" Or Cells(i, iColNameDorOtp).Value = "КЫРГЫЗСКАЯ" Then
            Cells(i, iColNameFilOtp).Value = "ПГК ЦА"
    ElseIf Cells(i, iColNameDorOtp).Value = "АЗЕРБАЙДЖАНСКАЯ" Or Cells(i, iColNameDorOtp).Value = "БЕЛОРУССКАЯ" Or Cells(i, iColNameDorOtp).Value = "ГРУЗИНСКАЯ" Or Cells(i, iColNameDorOtp).Value = "ЛАТВИЙСКАЯ" Or Cells(i, iColNameDorOtp).Value = "ЛИТОВСКАЯ" Or Cells(i, iColNameDorOtp).Value = "ЭСТОНСКАЯ" Then
            Cells(i, iColNameFilOtp).Value = "СНГ"
    ElseIf Cells(i, iColNameDorOtp).Value = "КРАСНОЯРСКАЯ" Then
            Cells(i, iColNameFilOtp).Value = "КРС"
    End If
Next i
 
 
End Function

@Catstail · 19.09.2020, 20:56

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

Итак что, с учетом уже высказанного, можно все-таки утверждать, что в аксе, по крайней мере, в современных версиях MS Access отличия макросов от процедур и функций ВБА существенное.

- давайте подумаем. Макрос представляет собой некий исполняемый код? Да. На каком ЯП? Либо на како-либо внутреннем языке, либо на VBA. А третьего не дано.

mobile · 19.09.2020, 21:38

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

Макрос представляет собой некий исполняемый код? Да. На каком ЯП? Либо на како-либо внутреннем языке, либо на VBA. А третьего не дано.

Я не могу с уверенностью ответить, но предполагаю, что макросы Access написаны на том же языке, на котором и написан и весь остальной пакет, все его объекты, методы, свойства и функции. На это намекает в частности, то, что все, или почти все макрокоманды имеют методы-аналоги, фактически те же макрокоманды, но с другим интерфейсом. Писать одно и тоже, но на разных языках наверное непозволительное расточительство.
Ну и маловероятно, чтобы большой, даже огромный пакет был написан на ВБА.

Новые блоги и статьи Все статьи Все блоги /
Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .
Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .	Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .