Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VBA Найти остаток от деления двух действительных чисел сделать надо в vba чтобы по кнопке запрашивало число и на что делить https://www.cyberforum.ru/ vba/ thread3133556.html Изменить оформление элементов в активном документе оформлением стилями из шаблона VBA
Добрый день ! Постараюсь максимально подробно и просто объяснить свою головную боль: 1) В наличии документ Word около 300 страниц. 1.1) В галерее стилей у этого документа наглядно отображается результат копипасты из многих других документов 1.2) Как итог - винегрет в наборе стилей 2) Есть шаблон dotm предназначенный для оформления документов в соответствии с ГОСТ34 2.1) Шаблон dotm...
VBA Найти количество дней между датами https://www.cyberforum.ru/ vba/ thread3133495.html
надо переделать данную прогу под function, если надо, программу поменять можно Private Sub CommandButton2_Click() Dim TheDate As Date ' Declare variables. Dim Msg TheDate = InputBox("Введите дату") Msg = "Days from today: " & DateDiff("d", Now, TheDate) MsgBox Msg End Sub
VBA Даны длина катета, найти длину гипотенузы надо переделать данную прогу под function, если надо, программу поменять можно Private Sub CommandButton1_Click() a = InputBox("", "Введите первый катет") b = InputBox("", "Введите второй катет") MsgBox ("Гипотенуза равна " & Sqr(a ^ 2 + b ^ 2)) End Sub https://www.cyberforum.ru/ vba/ thread3133494.html
Связь, обновления и подсчет ячеек одной таблицы в зависимости от другой VBA
Здравствуйте, Уважаемые Пользователи! Есть такая задачка, надеюсь на Вашу помощь. В файле есть лист с таблицей заказов, а также лист с таблицей склада. В таблице заказов есть столбец с количеством заказываемой продукции. При статусе заказа "Новый" или "В работе" нужно цветовое форматирование столбца "Количество", чтобы она была связана с колонкой "Наличие" в таблице листа "Склад"....
VBA Сплит в сводном отчете Есть задача, собрать из множества отчетов один сводный. Написал код с помощью чатагпт интернета и тд и тп. Но, изначально предполагалось что при поиске значения "пласт" будет всего один +. Проблема в том что редко в отчетах попадается что в значении пласт более одного + и необходимо занести некоторые данные в каждый пласт, а все остальные в последний указанный после +. С двумя пластами все... https://www.cyberforum.ru/ vba/ thread3133316.html
VBA Нужно создать макрос для переноса данных из одного файл эксель в другой Здравствуйте, уважаемые форумчане! Прошу помощи, ибо надоела рутинная работа... Нужно: создать макрос для переноса данных из одного файл эксель в другой. Конкретнее нужно переносить время отработки сотрудников. Программа учета рабочего времени автоматически создает файл (файл "автоматический отчет") со всеми сотрудниками и другой информацией, но для удобства мне поставили задачу переписывать... https://www.cyberforum.ru/ vba/ thread3133300.html Перенос данных из нескольких файлов в один (на разные листы) VBA
Добрый день! Подскажите, пожалуйста, как прописать код, чтобы данные из нескольких файлов (при выборе через всплывающее окно), данные копировать в рабочий файл на определенные листы, в зависимости от наименования файла. При этом иногда нужно целый лист, иногда определенный диапазон/столбцы. Например: В рабочий файл на лист База при всплывающем окне (выборе файлов) в диапазон A:P (с 3 строки и...
VBA Пакетная замена данных файлов .xml по данным из Excel Здравствуйте, Есть множество однотипных файлов .xml, в которых есть определенная дата. Возможно ли с помощью макроса в Excel, искать определенную дату(допустим столбец А) и заменять на нужную дату(столбец C), но чтобы макрос проверял каждый файл и делал автоматически замену во всем файле. Допустим в первом файле нашел даты из ячейки A1 и заменил на даты из ячейки С1, сохранил файл и приступил к... https://www.cyberforum.ru/ vba/ thread3133114.html VBA Ошибка при копировании файла из папки в случае его открытия другим пользователем https://www.cyberforum.ru/ vba/ thread3133113.html
Здравствуйте! Если есть желание помочь, то... Я беру файлы (которые сохраняют при пакетном формировании отчетности за день) из папки на сетевом диске. Копирую себе с переименованием. avFiles = Application.GetOpenFilename _ ("Excel files(*.xls*),*.xls*", 1, "Выбрать формы ХХ_05, ХХ_10, хх_13", , True) If VarType(avFiles) = vbBoolean Then 'была нажата кнопка отмены -...
VBA Вывод максимального числа из умной таблицы
Здравствуйте! Есть такой вопрос, есть умная таблица, где в 24ом столбце имеются числа. Мне надо, что в юзерформе при нажатии на кнопку рядом с текстбоксом, в текстбокс попадало максимальное число из этого столбца. Я пытался сам, и хотел что-то вроде этого (я понимаю, что неправильно, но как пример того, чего хотелось бы) Sub sushka() Dim cell As Double Set ShStore =...
VBA Макрос на Visual Basic, который бы текст 1 приводил в вид текст 2 https://www.cyberforum.ru/ vba/ thread3132959.html
Нужно сделат
1590 / 384 / 108
Регистрация: 13.11.2008
Сообщений: 799
13.10.2023, 10:22 0
Excel

Error 13 Type mismatch - VBA - Ответ 17069377

13.10.2023, 10:22. Показов 545. Ответов 9
Метки (Все метки)

Ответ

Подозреваю, что вот здесь:
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. Математика...

Вернуться к обсуждению:
Error 13 Type mismatch VBA
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.10.2023, 10:22
Готовые ответы и решения:

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
13.10.2023, 10:22
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.10.2023, 10:22
Помогаю со студенческими работами здесь

Ошибка 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
Таблица и сам код уже выполнен, ругается на такую ошибку, проверку данных не может пройти....

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru