Помогите пожалуйста!

[rLKa]

Здраствуйте!
У меня проблемма небольшого плана!

Есть готовый макрос в экселе по вот такой таблице
А В С
1 Продукт Цена Код продукта
2 Картофель 10 1010
3 Морковь 15 1111
4 Салат 20 10100
5 Лук 25 11001
6 Чеснок 30 11110
7 Свекла 35 100011
8 Авокадо 45 101101
Еще макрос работает со строками на другом листе
А В
1 Цена в граммах Код цены
2 46,25 101110

Вот текст макроса(я к сожелению не сумел форму вам предоставить)

Private Sub ComboBox1_Change()
iCount = ComboBox1.ListIndex + 2
With Sheet4
TextBox1.Value = .Columns(2).Rows(iCount).Value
TextBox2.Value = .Columns(3).Rows(iCount).Value
'TextBox3.Value = .Columns(4).Rows(iCount).Value
'TextBox4.Value = .Columns(5).Rows(iCount).Value

End With
End Sub

Private Sub ComboBox5_Change()

End Sub

Private Sub CommandButton2_Click()
TextBox4.Text = (CInt(TextBox1.Text) / 1000) * CInt(TextBox3.Text)
Range("A2") = TextBox4.Text
TextBox5.Text = Range("b2")
End Sub

Private Sub CommandButton3_Click()
Unload Me
End Sub

Private Sub Frame2_Click()

End Sub

Private Sub Frame1_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub Label3_Click()

End Sub

Private Sub Label4_Click()

End Sub

Private Sub TextBox4_Change()



End Sub


Private Sub UserForm_Initialize()
With Sheet4
ComboBox1.RowSource = .Range(.Range("B2"), .Range("A65536").End(xlUp)).Address(External:=True)
End With
'ComboBox5.AddItem "шт"
'ComboBox5.AddItem "литр"
'ComboBox5.AddItem "компл"
'ComboBox5.AddItem "кг"

End Sub
Private Sub CommandButton1_Click()
UserForm2.Show
End Sub
Смысл работы программы(прога учебная) "Электронные весы"
Программа сама по себе находится на 2-ом листе а главная таблица на первом,, делается это для грубогй связи клиентского терминала с базой, то есть Главная таблица это база данных на сервере, а прога и вторяа табличка на втором листе это типа клиентский терминал(Имитация связи клиента с сервером). Прога должна при указании в форму определенного продукта и веса этого продукта вывести окончательную цену этого продукта и представить цифру суммы в двоичном коде, для получения ценового кода товара!
Это все программа делает, но вот еще одна задача, программа должна по окончательному двоичному ценовому коду рисовать в MsgBox или еще гдето что то типа штрих кода! Цифра 1 должна вырисовываться как вертикальная жирная линия, а цифра 0 как вертикальная тонкая линия. Вот в этом весь тупик! Прошу помощи, потомучто у меня оч мало времени, поджимают сроки, а за учебу! Буду благодарен любой информации!

[GSerg]

На листе можно?
Если можно, то повторяешь символ "|" нужное количество раз, а там, где он должен быть жирным, присваиваешь .cell.characters(i).font.bold=true

[rLKa]

Да на листе можно!
Обяснить плиз непонятливому где повторять симво "|" ??
Я обясню по точнее как нужно чтобы прога работала, она берет из ячейки код допустим ячейка (В1) и превращает его в полосы типа |||||| но он сам должен определять что цифра 1 и превращать ее в жирную черту, а 0 в тонкую! А вообще мне сказали что лучше выводить все в MsgBOX, можно ли это сделать?

[GSerg]

Обяснить плиз непонятливому где повторять симво "|" ??

В ячейке листа.

А вообще мне сказали что лучше выводить все в MsgBOX, можно ли это сделать?

Теоретически да, но не стоит. Возни много. Если рисовать на своей форме, возни меньше - но всё равно ячейка рулит.