Некорректное сопоставление 2-х вкладок эксель в одном файле

@novell-10 · Регистрация: 15.09.2020

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

Добрый день.
По работе необходима автоматизированная таблица с автоматическим заполнением данных.

1я таблица в эксель, называется «нормы» (вкладка в файле).

2я таблица автоматизированная таблица "ТВО" (вкладка в файле) в которую заносятся данные из таблицы «нормы» согласно наименования помещений.

Программа включается после нажатия кнопки «Расчёт ТВО».

Программа на VB с автоматизированной таблицей, работает не корректно.

Для примера в таблице эксель помещение которое некорректно переносится, помечено жёлтым цветом.
В коде программы не отрабатывает условие прописанное в строке №77.

В ЧЁМ ПРИЧИНА???

@brigval · 17.09.2020, 22:12

Сообщение от novell-10

В столбце под номером 8 в листе "нормы" нет такого текста и в помине, там только числовые значения.
Функция Debug.Print Len(Worksheets("нормы").Cells(j, 8).Value) вообще не понятные значения выдаёт

Почему же не понятные? В ячейке R66C8, например, вот что.

@brigval · 17.09.2020, 22:14

Что-то сразу изображение не подцепилось...

@brigval · 17.09.2020, 22:26

Сообщение от novell-10

Функция Debug.Print Len(Worksheets("нормы").Cells(j, 8).Value) вообще не понятные значения выдаёт

А предлагалось

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

Debug.Print Worksheets("нормы").Cells(j, 8).Value

Функция Len() только проверяет длину текста (количество символов в тексте).
Ее часто используют для проверки переменной на наличие текста.
Если Len(txt) = 0, то в переменной ничего не записано.
Если Len(txt) > 0, то текст есть.
С этой целью и предлагалась сначала проверять, есть текст в ячейке или нет.
А потом уже сравнивать.

@novell-10 · 18.09.2020, 00:01 **[ТС]**

Добавлено через 10 минут
Программа заработала, значения из одной таблицы переносятся в другую абсолютно корректно.

Цитата Сообщение от novell-10 Посмотреть сообщение
Функция Debug.Print Len(Worksheets("нормы").Cells(j, 8).Value) вообще не понятные значения выдаёт
А предлагалось
Цитата Сообщение от brigval Посмотреть сообщение
Debug.Print Worksheets("нормы").Cells(j, 8).Value
Функция Len() только проверяет длину текста (количество символов в тексте).
Ее часто используют для проверки переменной на наличие текста.
Если Len(txt) = 0, то в переменной ничего не записано.
Если Len(txt) > 0, то текст есть.
С этой целью и предлагалась сначала проверять, есть текст в ячейке или нет.
А потом уже сравнивать.

остался вопрос открытым со значениями получаемыми через Debug.Print, так как я оба варианта пробовал, всё равно на выходе числа какие то несуразные получаются

Новые блоги и статьи Все статьи Все блоги /
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. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .

@brigval 16 / 15 / 1 Регистрация: 15.08.2020 Сообщений: 96
	17.09.2020, 22:14
	Что-то сразу изображение не подцепилось... Миниатюры 0