Форум программистов, компьютерный форум, киберфорум
VBA
Форум программистов и сисадминов Киберфорум > Форум программистов > Basic > VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 10.10.2023
Сообщений: 9
1
Excel

Error 13 Type mismatch

13.10.2023, 02:19. Показов 543. Ответов 9
Метки vba, vba excel (Все метки)
Author24 — интернет-сервис помощи студентам
Здравствуйте. В коде возникает ошибка Type mismatch, в строке
Visual Basic
1

SkladOpListRow.Range(7) = SkladOpListRow.Range(6) + (CDbl(sklad.TB_prish_ush.Value)) * (CDbl(Val(Replace(Trim(sklad.TB_size_1.Value / 1000), ",", "."))) * CDbl(Val(Replace(Trim(sklad.TB_size_2.Value / 1000), ",", "."))) * CDbl(Val(Replace(Trim(sklad.TB_size_3.Value), ",", "."))))
Вот код полностью

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
62
63
64
65
66
67

Sub addskladop()
    
    Set ShSkladOp = ThisWorkbook.Worksheets("Операции_по_складу")
    Set SkladOpListObj = ShSkladOp.ListObjects("tb_opsklad")
    Set SkladOpListRow = SkladOpListObj.ListRows.Add
    
    Dim cell As Range
    Dim Nalichie As Double
    Dim Shtuk As Double
    
    Set ShStore = ThisWorkbook.Worksheets("Склад")
    Set StoreListObj = ShStore.ListObjects("tb_sklad")
    
    sklad.TextStartDateSklad.Value = VBA.Format(VBA.Date, "dd.mm.yyyy")
    
    If sklad.TB_articul.Value = "" Then
        sklad.Label_info.Caption = "Заполни артикуль!"
        Exit Sub
    End If
    
    If sklad.TB_size_1.Value = "" Then
        sklad.Label_info.Caption = "Заполни размер!"
        Exit Sub
    End If
    
    If sklad.TB_size_2.Value = "" Then
        sklad.Label_info.Caption = "Заполни размер!"
        Exit Sub
    End If
    
    If sklad.TB_size_3.Value = "" Then
        sklad.Label_info.Caption = "Заполни размер!"
        Exit Sub
    End If
    
    SkladOpListRow.Range(1) = sklad.TextStartDateSklad.Value
    SkladOpListRow.Range(2) = sklad.TB_articul.Value
    SkladOpListRow.Range(3) = sklad.CB_opisanie.Value
    
    If sklad.TB_prish_ush.Value = "" Then
        SkladOpListRow.Range(4) = ""
        SkladOpListRow.Range(5) = ""
    ElseIf sklad.TB_prish_ush.Value >= 0 Then
        SkladOpListRow.Range(4) = CDbl(sklad.TB_prish_ush.Value)
    Else
        SkladOpListRow.Range(5) = CDbl(sklad.TB_prish_ush.Value)
    End If
        
    SkladOpListRow.Range(6) = CDbl(Val(Replace(Trim(sklad.TB_nalichie.Value), ",", ".")))
    SkladOpListRow.Range(7) = SkladOpListRow.Range(6) + (CDbl(sklad.TB_prish_ush.Value)) * (CDbl(Val(Replace(Trim(sklad.TB_size_1.Value / 1000), ",", "."))) * CDbl(Val(Replace(Trim(sklad.TB_size_2.Value / 1000), ",", "."))) * CDbl(Val(Replace(Trim(sklad.TB_size_3.Value), ",", "."))))
    SkladOpListRow.Range(8) = sklad.CB_otkuda.Value
    SkladOpListRow.Range(9) = sklad.CB_kuda.Value
    
    Set cell = StoreListObj.ListColumns.Item(1).Range.Find(sklad.TB_articul.Value, LookAt:=xlWhole)
    
        If Not cell Is Nothing Then ' если артикул найден
            Nalichie = cell.Cells(1, 4) + ((CDbl(sklad.TB_prish_ush)) * cell.Cells(1, 10) * cell.Cells(1, 11) * cell.Cells(1, 12))
            cell.Cells(1, 4) = Nalichie
            Shtuk = cell.Cells(1, 13) + CDbl(sklad.TB_prish_ush)
            cell.Cells(1, 13) = Shtuk
        End If
        
        Call addtovartosklad
    
    sklad.Label_info.Caption = "Запись добавлена!"
    
End Sub
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

Sub addtovartosklad()
    
    Dim cell As Range
    
    Set ShStore = ThisWorkbook.Worksheets("Склад")
    Set StoreListObj = ShStore.ListObjects("tb_sklad")
    
    Set cell = StoreListObj.ListColumns.Item(1).Range.Find(sklad.TB_articul.Value, LookAt:=xlWhole)
    
    If Not cell Is Nothing Then
        Exit Sub
    Else
        Set StoreListRow = StoreListObj.ListRows.Add
        StoreListRow.Range(1) = sklad.TB_articul.Value
        StoreListRow.Range(2) = sklad.CB_opisanie.Value
        StoreListRow.Range(5) = "м3"
        StoreListRow.Range(10) = sklad.TB_size_1.Value / 1000
        StoreListRow.Range(11) = sklad.TB_size_2.Value / 1000
        StoreListRow.Range(12) = sklad.TB_size_3.Value
        StoreListRow.Range(13) = CDbl(sklad.TB_prish_ush.Value)
        StoreListRow.Range(4) = (CDbl(sklad.TB_nalichie.Value) + CDbl((CDbl(sklad.TB_prish_ush.Value)) * ((StoreListRow.Range(10)) * (StoreListRow.Range(11)) * StoreListRow.Range(12))))
        
    End If
    
End Sub
Как-то ошибку убирал, но тогда значения SkladOpListRow.Range(6) и SkladOpListRow.Range(7) в таблице становились одинаковыми!
0
Лучшие ответы (1)
Сообщение: #17069184
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 13.10.2023, 02:19
Ответы с готовыми решениями:

Run-time error 13 type mismatch
Всем привет)Имеется макрос и это один из модулей,в нем происходит ошибка когда выводится печатная...

Type mismatch error 13 что делать
код выдает ошибку уtype mismatch.как исправить Sub PrintReceipt(ByVal dblAmount As Double) ...

Runtime error 13 - type mismatch - VBA
Привет всем ! У меня тут не сходится, взгляните, если не сложно. Private Sub...

Run-time error '13' type mismatch
приветствую! простенькая проверка большой таблицы на пустые строки, нули и не числа с удалением...

Ошибка runtime error 13 - type mismatch
Здравствуйте Есть программа, которая переводит числа из двоичной сс в десятичную сс, она работает,...

9
help
4485 / 4085 / 812
Регистрация: 13.04.2015
Сообщений: 8,938
13.10.2023, 06:49 2
Лучший ответ Сообщение было отмечено KtotoVBA как решение

Решение

Цитата Сообщение от KtotoVBA Посмотреть сообщение
(CDbl(Val(Replace(Trim(sklad.TB_size_1.Value / 1000), ",", ".")))
(CDbl(Val(Replace(Trim(sklad.TB_size_1.Value), ",", ".")) / 1000))
1
0 / 0 / 0
Регистрация: 10.10.2023
Сообщений: 9
13.10.2023, 10:09  [ТС] 3
Спасибо, ошибка ушла.

Добавлено через 13 минут
Только SkladOpListRow.Range(6) и SkladOpListRow.Range(7), почему-то одних значений, хотя там явно указано, чтоб одно из другого высчитывалось..
0
help
4485 / 4085 / 812
Регистрация: 13.04.2015
Сообщений: 8,938
13.10.2023, 10:19 4
Цитата Сообщение от KtotoVBA Посмотреть сообщение
почему-то одних значений,
А какие значения в

TB_prish_ush
TB_size_1
TB_size_2
TB_size_3

?
0
1590 / 384 / 108
Регистрация: 13.11.2008
Сообщений: 799
13.10.2023, 10:22 5
Подозреваю, что вот здесь:
Visual Basic
1

SkladOpListRow.Range(7) = SkladOpListRow.Range(6) + (CDbl(sklad.TB_prish_ush.Value)) * (CDbl(Val(Replace(Trim(sklad.TB_size_1.Value / 1000), ",", "."))) * CDbl(Val(Replace(Trim(sklad.TB_size_2.Value / 1000), ",", "."))) * CDbl(Val(Replace(Trim(sklad.TB_size_3.Value), ",", "."))))
одно из значений явно равно 0 при перемножении. Отсюда и одинаковые величины, т.к. все, что после сложения дает 0.
Проверяйте по отдельности что во что преобразуется.
Например, если здесь без Val и замены запятых не получится преобразовать корректно:
Visual Basic
1

CDbl(sklad.TB_prish_ush.Value)
вполне может получиться 0 и как итог - все выражение после сложения будет равно 0. Математика...
1
ᴁ®
Эксперт MS Access
3870 / 2199 / 462
Регистрация: 13.12.2016
Сообщений: 7,551
Записей в блоге: 5
13.10.2023, 11:13 6
KtotoVBA, точка останова в этом месте в помощь
1
0 / 0 / 0
Регистрация: 10.10.2023
Сообщений: 9
13.10.2023, 13:55  [ТС] 7
Делал, все значения имели величину
0
help
4485 / 4085 / 812
Регистрация: 13.04.2015
Сообщений: 8,938
13.10.2023, 13:59 8
Цитата Сообщение от KtotoVBA Посмотреть сообщение
Делал,
Приложил бы файл, что ли?
0
0 / 0 / 0
Регистрация: 10.10.2023
Сообщений: 9
13.10.2023, 14:00  [ТС] 9
Нулем может быть только первый параметр, к которому все приплюсовывается, остальные берутся с юзерформы, где вносятся вручную. Но да ладно, я это действие перенес на 59 строку и сделал SkladOpListRow.Range(7) = Nalichie, так как там все равно такое же считается, просто для другой таблицы.

Добавлено через 1 минуту
Да вопрос уже исчерпан, по другому пути пошел, а так файл я прикладывал в другой теме, где Вы сказали мне его зазиповать, потому что я его тогда тоже не приложил, но в итоге я его зипанул и приложил.
0
0 / 0 / 0
Регистрация: 10.10.2023
Сообщений: 9
13.10.2023, 14:03  [ТС] 10
Цитата Сообщение от I can Посмотреть сообщение
Приложил бы файл, что ли?
Но вот Вам более новая версия, если хотите взглянуть. Файл.rar
0
13.10.2023, 14:03
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 13.10.2023, 14:03
Помогаю со студенческими работами здесь

Ошибка Type mismatch (Error 13) в методе
Вот, в методе сказано, что это должно работать, а мне ошибку комп выдает Type mismatch (Error 13)....

Плавающая ошибка - runtime error 13 - type mismatch
В приложении файл с таблицей эксель и макросом. Для работы макроса - выделите ячейки...

Ошибка run-time error 13 type mismatch в макросе
Подскажите пожалуйста, как исправить ошибку run-time error 13 type mismatch. При нажатии на любую...

Ошибка в макросе run-time error '13' type mismatch
Выдаётся ошибка при запуске макроса Sub fonts() Dim obj As Font, i As Integer i = 1 If...

Плавущую ошибка: Run time error 13 - type mismatch
Таблица и сам код уже выполнен, ругается на такую ошибку, проверку данных не может пройти....


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

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru