Error 13 Type mismatch

@KtotoVBA · Регистрация: 10.10.2023

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

Здравствуйте. В коде возникает ошибка Type mismatch, в строке

Visual Basic

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

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

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) в таблице становились одинаковыми!

I can · 13.10.2023, 06:49

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

(CDbl(Val(Replace(Trim(sklad.TB_size_1.Value / 1000), ",", ".")))

(CDbl(Val(Replace(Trim(sklad.TB_size_1.Value), ",", ".")) / 1000))

@KtotoVBA · 13.10.2023, 10:09 **[ТС]**

Спасибо, ошибка ушла.

Добавлено через 13 минут
Только SkladOpListRow.Range(6) и SkladOpListRow.Range(7), почему-то одних значений, хотя там явно указано, чтоб одно из другого высчитывалось..

I can · 13.10.2023, 10:19

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

почему-то одних значений,

А какие значения в

TB_prish_ush
TB_size_1
TB_size_2
TB_size_3

?

@The_Prist · 13.10.2023, 10:22

Подозреваю, что вот здесь:

Visual Basic

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. Математика...

@АЕ · 13.10.2023, 11:13

KtotoVBA, точка останова в этом месте в помощь

@KtotoVBA · 13.10.2023, 13:55 **[ТС]**

Делал, все значения имели величину

I can · 13.10.2023, 13:59

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

Делал,

Приложил бы файл, что ли?

@KtotoVBA · 13.10.2023, 14:00 **[ТС]**

Нулем может быть только первый параметр, к которому все приплюсовывается, остальные берутся с юзерформы, где вносятся вручную. Но да ладно, я это действие перенес на 59 строку и сделал SkladOpListRow.Range(7) = Nalichie, так как там все равно такое же считается, просто для другой таблицы.

Добавлено через 1 минуту
Да вопрос уже исчерпан, по другому пути пошел, а так файл я прикладывал в другой теме, где Вы сказали мне его зазиповать, потому что я его тогда тоже не приложил, но в итоге я его зипанул и приложил.

@KtotoVBA · 13.10.2023, 14:03 **[ТС]**

Сообщение от I can

Приложил бы файл, что ли?

Но вот Вам более новая версия, если хотите взглянуть. Файл.rar

Новые блоги и статьи
Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .	Использование GraphQL в Go (Golang) InfoMaster 08.01.2025 Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор? Alexander-7 08.01.2025 Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .	Как работать с GraphQL на TypeScript InfoMaster 08.01.2025 Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .	Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .

I can help 4579 / 4157 / 815 Регистрация: 13.04.2015 Сообщений: 9,121
	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

@KtotoVBA 0 / 0 / 0 Регистрация: 10.10.2023 Сообщений: 9
	13.10.2023, 10:09 [ТС]	3
	Спасибо, ошибка ушла. Добавлено через 13 минут Только SkladOpListRow.Range(6) и SkladOpListRow.Range(7), почему-то одних значений, хотя там явно указано, чтоб одно из другого высчитывалось.. 0

I can help 4579 / 4157 / 815 Регистрация: 13.04.2015 Сообщений: 9,121
	13.10.2023, 10:19	4
	Сообщение от KtotoVBA почему-то одних значений, А какие значения в TB_prish_ush TB_size_1 TB_size_2 TB_size_3 ? 0

@АЕ ᴁ® 3925 / 2246 / 469 Регистрация: 13.12.2016 Сообщений: 7,732 Записей в блоге: 5
	13.10.2023, 11:13	6
	KtotoVBA, точка останова в этом месте в помощь 1

@KtotoVBA 0 / 0 / 0 Регистрация: 10.10.2023 Сообщений: 9
	13.10.2023, 13:55 [ТС]	7
	Делал, все значения имели величину 0

I can help 4579 / 4157 / 815 Регистрация: 13.04.2015 Сообщений: 9,121
	13.10.2023, 13:59	8
	Сообщение от KtotoVBA Делал, Приложил бы файл, что ли? 0

@KtotoVBA 0 / 0 / 0 Регистрация: 10.10.2023 Сообщений: 9
	13.10.2023, 14:00 [ТС]	9
	Нулем может быть только первый параметр, к которому все приплюсовывается, остальные берутся с юзерформы, где вносятся вручную. Но да ладно, я это действие перенес на 59 строку и сделал SkladOpListRow.Range(7) = Nalichie, так как там все равно такое же считается, просто для другой таблицы. Добавлено через 1 минуту Да вопрос уже исчерпан, по другому пути пошел, а так файл я прикладывал в другой теме, где Вы сказали мне его зазиповать, потому что я его тогда тоже не приложил, но в итоге я его зипанул и приложил. 0

@KtotoVBA 0 / 0 / 0 Регистрация: 10.10.2023 Сообщений: 9
	13.10.2023, 14:03 [ТС]	10
	Сообщение от I can Приложил бы файл, что ли? Но вот Вам более новая версия, если хотите взглянуть. Файл.rar 0

Error 13 Type mismatch

Решение