Страницы: 1
RSS
Форма: Управление производственным предприятием
 
Здравствуйте! Назвал так тему, т.к. вопросов, скорей всего будет достаточно, и все по ней, родимой ). Первый вопрос, наверное, не сложный.  
Поставил на форму скролл. Связал с Label  
Private Sub sbMineralQuarry_Change()  
lMineralQuarry.Caption = sbMineralQuarry.Value & " тн."  
End Sub  
А формат как-то задать можно с Label (# ### ##0)? Или заменить Label на текстбокс и не париться? В текстбоксе то можно формат задать.
 
Извиняюсь, сам справился.))  
 
lMineralQuarry.Caption = Format(Val(sbMineralQuarry), "# ### ##0") & " тн."  
 
Пошел подбирать серьезные вопросы))
 
Вот вопрос посложней. Реализовал в форме процедуру переноса отдельных значений из списка одного листбокса в другой листбокс. (Подсмотрел у Уокенбаха). Код прикладываю.  
Private Sub AddButton_Click()  
   Dim i As Integer  
     
   If ListBox1.ListIndex = -1 Then Exit Sub  
       For i = 0 To ListBox2.ListCount - 1  
           If ListBox1.Value = ListBox2.List(i) Then  
               Beep  
               Exit Sub  
           End If  
       Next i  
   ListBox2.AddItem ListBox1.Value  
End Sub  
Private Sub ListBox1_Enter()  
   RemoveButton.Enabled = False  
End Sub  
Private Sub ListBox2_Enter()  
   RemoveButton.Enabled = True  
End Sub  
Private Sub RemoveButton_Click()  
   If ListBox2.ListIndex = -1 Then Exit Sub  
   ListBox2.RemoveItem ListBox2.ListIndex  
End Sub  
 
Но вот какая закавыка. Каждое значение - уникальное наименование продукции. Создам шаблон фрейма с одним скроллом и тремя текстбоксами (ну или лейблами). Сделаю его невидимым. А вот как прописать присвоение шаблону фрейма соответствующего уникального значения из листбокса2 и появление количества фреймов на форме, соответствующего списку в листбоксе2?. Файл не выкладываю, т.к. он уже здоровый даже в 2007. Может уважаемые профи на слух подскажут?)
 
Так ни у кого никаких мыслей и нет?((
 
Нет примера файла - нет мыслей.  
Есть пример файла - мысли появляются, и материализуются в виде готового решения...
 
Слепил пример формы. Нужно чтобы шаблон фрейма получал Caption - значения, выбранные в листбоксе2 на форме "параметры" и попали на Page1 на форме "производство и реализация"
 
В Листбоксе2 сформирован список значений. Нужно передать его в именованый диапазон на лист1. Пишу  
Private Sub ComBut3_Click()  
Dim i As Integer  
Dim FStagePut As String  
   FStagePut = Worksheets("Лист1").Range("FStagePut")  
   If ListBox2.ListCount = -1 Then Exit Sub  
   If ListBox2.ListCount = i Then _____________________________  
End Sub  
Что нужно добавить?
 
И ничего не происходит. Может потому что в диапазоне и в листбоксе количество строк не совпадает?
 
The_Prist, посмотрите, пожалуйста. Файл прикреплен в сообщении выше. Нужно чтобы выбранные значения из Листбокса2 списком упали на Лист1 в книгу
 
Ну в лом так в лом. Сам доеду.
 
Листбоксы со списками продукции только на форме "продукция". Кнопка "Добавить" переносит выбранные значения из Листбокса1 в Листбокс2. Процедура нажатия кнопки "ввод" должна перенести сформированный в Листбоксе2 список на лист1 книги
Страницы: 1
Читают тему
Наверх
Loading...