Форум профессиональных мебельщиков PROMEBELclub - Exсel. Помощь по составлению таблиц и созданию макросов в мебельных расчётах

Страница 12 из 20

Показывать 40 сообщений этой темы на одной странице

Форум профессиональных мебельщиков PROMEBELclub (https://промебельклуб.рф/forum/index.php)

- Программы для конструирования и дизайна мебели (https://промебельклуб.рф/forum/forumdisplay.php?f=4)

- - Exсel. Помощь по составлению таблиц и созданию макросов в мебельных расчётах (https://промебельклуб.рф/forum/showthread.php?t=5953)

sparkfire

07.05.2013 19:51

Почти финальная версия таблицы моей.. выстрадал ее за праздники.. выкладываю на общий суд. Принимаются все рацпредложения. Вопросы и инструкции позже. Файл для скачивания ТУТ
Добавлю: Сохранение кнопкой не юзать, недоработано, только алгоритм.
Все данные и цены реальны, я по этой таблице считаю свои заказы.
Процесс простой, данные из про100 копируются и с помощью кнопки вставляются во вкладке "Распил", затем выбирается столешница, комплектующие, фурнитура(пока только BOYARD) работа и список заказов пока в разработке.
Жду новых предложений от вас.( не от всех, только от тех, кому интересно).
Таблица бесплатная, без паролей, без секретов.

volunka

07.05.2013 19:59

Может кому пригодится:
Макрос Excel вычисляющий контрольную 13-ю цифру по алгоритму шрих-кодирования EAN-13:

EAN-13

Код:

 Sub EAN13() 

 For t = 1 To Excel.Selection.Cells.Count 

 'редактируем введёную строку доведя её до 12 знаков нулями слева 

 bk = Excel.Selection.Cells(t).Value 

 If Len(bk) < 12 Then bk = String(12 - Len(bk), "0") & bk 

 bk = Left(bk, 12) 

 'вычисляем контрольную цифру 

 sy = 0 

 For rt = 1 To 12 'перебираем все 12 значащих цифр 

 sy = sy + Val(Mid(bk, rt, 1)) * (1 + 2 * ((rt + 1) Mod 2)) 'суммируем 

 'все цифры кода, причём каждая вторая цифра 

 'домножается на 3 

 Next rt 

 sy = 10 - sy Mod 10 'теперь sy равно числу, дополняющему старое 

 'sy до ровного десятка (это и есть контрольная цифра) 

 If sy = 10 Then sy = 0 'если получилось 10, то оставляем только 0 

 bk = bk & sy 'дописываем контрольную цифру к коду 

 Excel.Selection.Cells(t).Value = bk 'ставим готовый код обратно где брали 

 Next 

 End Sub

[свернуть]

SinnerB

11.06.2013 12:18

Вложений: 1

Добрый день, уважаемые гуру Excel, Ну не могу я пререйти на позние версии Excel, все забыл, и на самом простм спотыкаюсь. А вопрос вот в чем. Как создается выбор из выподающего списка на основе таблицы. На скрине в ячейке В18 должны выбираться данные из верхней таблицы. Как обозчатить верхнюю таблицу, как диапазон, (верхняя таблица - диапазон, с имнем "компоненты"), я помню, но дальше запутался.
И можно ли сделать так, чтобы выбор был по столбцу (в данном случае столбец "компоненты" , а выбиралась вся строка таблицы, соответсвующего компонента? Спасибо :)

ПРАКТИК

11.06.2013 12:34

Цитата:

Сообщение от SinnerB (Сообщение 233244)

можно ли сделать так

В нижней табличке в других строчках должен быть выбор из верхнего списка? Или только в помеченной ячейке?
Поразвёрнутее общую задачу...

SinnerB

11.06.2013 13:01

Совершенно верно, Юрий. Я могу продублировать верхнюю таблицу вниз выбирая компоненты (метан, аммиак итд) приизвольно, из выпадающего списка (можен он по другому называется, на скрине не он. Ну, при наведении на ячейку появляется окошко из выбора, в моем случае газов. И при этом выбираться должен не только сам газ, но вся строка таблицы этого газа, спарава от наименования. Например, при выборе "метан" выбирается и метан - 52,915, другие столбцы, если будут, а они будут
-----
На скрине о таблицы рядом. Потом верхняя спрячется на служебный лист, а пользователь потом на его листе просто должен выбирать газы из выпадающего списка, в пустой дубликат таблицы

PS Excel 2007, вот и запутался

_konstruktor_

11.06.2013 13:09

именной диапазон + ВПР

ПРАКТИК

11.06.2013 13:24

Вложений: 1

Самый примитивный вариант

SinnerB

11.06.2013 13:31

Цитата:

Сообщение от _konstruktor_ (Сообщение 233263)

именной диапазон + ВПР

Спасибо, но писал, что именным диапазоном разобраля, ВПР - для меня темным лесом оказалось.

Юра, спасибо, именно так! Сейчас буду разбираться, как сделано, спасибо! Да я мог и книгу сбросить, а вам пришлось во скрина руками набирать :) Но в реальности в таблице намного больше стобцов, а не один, как в примере на скрине. И все должны переноситься по выбору. Причем, некоторые данные в тех столбах константы, а некоторые формулы, и постоянно пересчитываются.

ПРАКТИК

11.06.2013 14:05

Немного другие задачи в том примере были, но может поможет разобраться с выборкой (ВПР)... пост 97 в этой же теме.
А в том что выложил есть "спрятанные" данные (белые цифры на белом фоне) - "управляющие данные" необходимые для работы формулы ВПР... Тут вообще идёт связка: настройка ниспадающего списка и правильно прописанная выборка.

_konstruktor_

11.06.2013 19:46

в Excel мощный help, попробуйте в нем набрать "впр" все очень просто.

Текущее время: 21:32. Часовой пояс GMT +3.

Страница 12 из 20

« Первая

Последняя »

Показывать 40 сообщений этой темы на одной странице