Simple4me (Автор тем)

Сортировка и копирование, Разброс по листам

Пользователь

Сообщений: 13 Регистрация: 02.05.2013

14.10.2013 10:49:52

Первичная проблематика это множество ручных доработок на пути 1С-->ексель-->катинг
Решение:
Написание макросов для атоматизации работы с выгруженными данными из 1С

Поэтапное решение проблемы
Как вы увидите в приложенном материале все довольно просто.
Цикл 1 (отбор по значениям рисунок или толщина исходного образца)
В столбце "А" представленного образца указаны два числа. 23 и 25 Первое число определяет тип детали стандартное (23) не стандарт (25). Если деталь не стандарт, запись изымается и помещается на промежуточный лист "нестандарт"
Цикл 2 (Отбор по габаритному показателю)
Оставшиеся 23 изделия. Мы прогоняем на размерные показатели столбец "B" и "C" сравниваем по параметрам
Если деталь в одном и другом меньше 250 то строка изымается и переноситься в другой лист "Мелочевка"
Цикл 3 (переворот размеров)
Столбец "B" и "C" це сравниваются и если B<C то значения меняются местами
Цикл 4 (Прокрутка вторичных листов)
Лист с названием "нестандарт" Проверяется по столбику "М" вопрос в том что нужно начинать с читывание после пробела "196557 4" после пробела идет тощина материала, то есть берется строка и по столбцу м смотрим " 19" лист девятнадцать есть? нет создаем а если есть то дописываем.

Перейти

Функция по покраске ячейки по нажатию

Simple4me

Пользователь

Сообщений: 13 Регистрация: 02.05.2013

10.07.2013 14:01:23

Дня доброго дамы и господа.
У меня возник еще один вопрос по автомотизации экселя...
Задача не сложная наверно для гуру но для рядового пользователя эксель иногда тупиковая.

Пример следующий
Нужно написать функцию при нажатии на которую клетка окрашивалась в определенный цвет.
Далее по нажатию кнопки определялось чило окрашенных клавишь и выводилось в ячейку

Я пытался сделать по двум примерам:

Пример первый:

Код

'CODE 1 Ставим флажок, если был одиночный щелчок по ячейке
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Cells.Count > 1 Then Exit Sub
 If Not Intersect(Target, Range("A6:A1000" ;) ) Is Nothing Then 'Если ячейка пересекается с указанным диапазоном, то
 Target.Font.Name = "Marlett" 'Назначаем ячейке шрифт
 If Target = vbNullString Then 'Если ячейка пуста, то
 Target = "a" 'заполняем её символом "а" (латиница)
 Else 'Иначе
 Target = vbNullString 'в ячейке пусто
 End If
 Target.Offset(0, 1).Activate '"отскакиваем" вправо на один столбец
 End If
End Sub

как переработать функцию чтобы при нажатии ячейка просто закрашивалась?

Вторая функция с вашего сайта:

Код

Public Function SumByColor(DataRange As Range, ColorSample As Range) As Double
 Dim Sum As Double
 Application.Volatile True
 For Each cell In DataRange
 If cell.Interior.Color = ColorSample.Interior.Color Then
 Sum = Sum + 1
 End If
 Next cell
 SumByColor = Sum
 End Function

Но проблема в том что она не обновляется автоматом надо чтоб или автоматом или по жмаконью кнопки.
она обновлялась.

P/s если не сложно посоветуйте книгу по программированию на VBA
начальство поставило задачу скрестить эксель и корел под VBA для расчетов и отрисовки деталей.

Изменено: Simple4me - 10.07.2013 22:01:06

Перейти

Формирование прайса по выборки чекбоксами или по определителю, Формирование прайса из стандартного

Simple4me

Пользователь

Сообщений: 13 Регистрация: 02.05.2013

02.05.2013 11:17:58

Доброго времени суток.

Верховным главнокомандующим, была поставлена задача.
"Создай мне прайс чтобы им пользоваться было легко, чтоб и дураку было понятно"
Из всего непонятно описаного я разобрал два пути развития данного "Чуда юда"
1. Создать на одном листе бд (прайс) а на другом каким то волщебным образом
При наборе в ячейке первых букв он предлагал что выбрать
пример:
набрал
ДСП

предложил варианты (дсп 2070*1870*6)
предложил варианты (дсп 2070*1870*10)
предложил варианты (дсп 2070*1570*6)

Выбираем формируется строка со следующими свойствами и атрибутами

ДСП 2070*1870*10 / кв.м. / кол-во /цена.
Кол-во - прописывается руками
Формирование цены происходит из первого листа по параметрам.
Цена закуп * кол-во * наценка = цена

Ну и для пущего эффекта чтоб табличка сама растягивалась и автоматом подводилась авто сумма.

2. Вариант
Сделать прайс лист расчетный скрыть ячейки цен и наценки
и при помощи чек бокса или атрибута определения нажатием кнопки макроса из прайса формируется три листа с отмеченными строками версия для печати.

Прошу посоветовать или сказать что с чем скрестить чтобы изобрести сие-чудо
Читал форум и примеры примерно понял в какую сторону двигаться но нужно именно совет как компакней и быстрее это сделать.

Последний вариант "Х" это Delphi самоучитель и вперед и с песенкой

P.s всем буду благодарен за оказанную поддержку или обучающию затрещену.

Перейти