ActiveX элемент MSComm - необходим ясно!  
 
Настроить - более менее ясно (кромеVal(TextBox1.Value)  
 
Private Sub CommandButton1_Click()  
'Настраиваем порт  
   KeUSB.CommPort = Val(TextBox1.Value)  
   KeUSB.Settings = "9600,N,8,1"  
   KeUSB.Handshaking = comNone  
   KeUSB.InputLen = 0  
   KeUSB.InBufferSize = 40  
   KeUSB.OutBufferSize = 40  
   KeUSB.RThreshold = 0  
'Открываем порт  
   KeUSB.PortOpen = True  
End Sub  
 
Осталось записать в порт  
DTR в "HIGH"    
DTR в "LOW"    
 
А как...

ссылки нет -есть название программы  
"Peacock Color Picker"

Значения разняться (по отношению с програмкой) у пурпурного и желтого.... Черный в точку! (думаю, что там в формулке кака я то ошибка - незначительная)Я если честно еще глубоко туда не лез.. Но залезу!  
Рисковать немогу... красочка дорогая.. (но я еще раз повторюсь, что очень благодарен за помощь! Все файлики себе скопировал)

А вот это из нужной "оперы":  
На два вывода  СОМ порта - DTR и RTS можно вывести (+12В) или (-12В), и тем самым зажечь светодиод, включить реле или какой-то другой исполнительный механизм. Например, для вывода RTS, это команды:    
 
MSComm1.RTSEnable = False   (3)   выводит на 7 ножку +12Вольт.  
 
MSComm1.RTSEnable = True    (4)   выводит на 7 ножку  -12Вольт.

1.Большое спасибо за предоставленную помощь!!!!  
Просто когда через ексель перевожу - есть некоторая "кривизна" по отношению с программкой.... (остаил на чуть, чуть попозже - все равно буду выстраивать всю цепочку автоматизации!)  
 
2. Можно и переключатель (нет в принципе ни какой разницы)... Просто с кнопками уже имел дело в VB. а переключатель надо осваивать... Но все же дело не в том дело с COM портом как написать макрос...

Перевожу в RGB, а CMYK пока через программку специальную (времени не хватает до ума довести). А так успешно у же на протяжении недели смешиваю красочки!!!!  
Проблемка есть... Минимальный доза краски у меня  - капля из шприца, чем более точное соотношение, соответственно больше нужно краски в объеме...А это не экономично.. Сейчас работаю над дозированием в объеме меньшей капли... (думаю собрать, что-то по типу дюзы стрйного принтера только большего размера Буду эксперементировать....эксперементировать...

Воплощаю в жизнь следующую задачу:  
Необходимо создать макрос, управления реле, через com порт (два элемента управления – кнопка ВКЛ, кнопка ВЫКЛ).    
 
Алгоритм в сом порт:  
1. Устанавка  DTR в "HIGH" – включено (ножка 4)  
2. Устанавливаем DTR в "LOW" – выключено (ножка 4)  
 
Прошу помощи с кодом программы …

Не, не хватает знаний в программировании....  
Даже чет логику ухватить не могу...

"Пипеткой" - крах автоматизации!!!  
 
 
 
Вот залить ячейку цветом в формате RGB вот так (работает!)  
Cells(20, 20).Interior.Color = RGB(10, 10, 20)  
 
А КАК СЧИТАТЬ?????????

Эт немного не то...  
 
Надо вот залитую ячейку вот так разложить  
Color = RGB(10, 10, 20)  
 
А как.....

А вот это не близко?  
 
Color = RGB(10, 10, 20)

Заливка ячейки произойдет автоматически....(ряд критериев используется...)  
Надо только разложить залитую ячейку

Вроде в голове алгоритм выстроился...  
Нужно только требуемый цвет (цвет ячейки) разложить по RGB на три составляющие (в три ячейки) и думаю сам докумекаю дальше...

Ну мож не так выразился.... не копировать,  
Ячейка залита определенным цветом (цвет который мненадо намешать)

Наводочку посмотрел, т.е. осуществить цвета разложение на составляющие CMYK через RGB ? но сначала тогда на до цвет разложить на RGB, а как это программно сделать?

Использую в своей деятельности краски различных тонов и оттенков...  
Мешаю сам (по системе CMYK).Надоело самому из шприцов по капелькам капать...  
4 привода на 4 шприца накинул....все это черз LPT макросик простенький....  
Вот последнюю точку в автоматизации ни как поставить не могу...Вручную 4 составляющих цвета ну не хочу заносить....  
Вот такая проблема....

В других программах я определяю с легкостью.... нужнен макрос в ecxel.... или код VB... программное обеспечение моего девайса в VB...

Добрый день подскажите как решить задачу по разбивке определенного цвета в ячейке на составляющие по системе CMYK.  
1. Копировать цвет (цвет который надо разложить на составляющие CMYK)  в определенную ячейку.  
2. В табличке из 4-х ячеек (голубой, пурпурный,желтый, черный)появляются значения соответствующих составляющих.  
Спасибо...

anvg - спасибо...  
 
А что б цвета и ширина столбцов оставались...

Пример

Здравствуйте, подскажите как повернуть таблицу на 90 град два раза.  
Используя  функцию "трансформировать" можно повернуть таблицу на 90 град только 1 раз, при повторном "трансформировать" таблица принимает исходный вид....  
А у меня задача сделать ее зеркальной.. т.е. два раза по 90 град в одну и ту же сторону...

А что б программно вызвать окно "Ctrl+Pause Break"  
(был бы идеальный вариант для меня...)

Доброе время суток!  
Мною написан  макрос в нем не хватает одной функции:  
Необходимо при определенных условиях, что б макрос преостановился - что-то типа Ctrl+Pause Break.  
Например:  
 If Cells(m, n).Value = 2 Then  "ПАУЗА"  
Какой програмный код будет у "ПАУЗА"?