Вопрос по ТОВАР'у В ListBox-е

@Ser Artur · Регистрация: 19.07.2011

Студворк — интернет-сервис помощи студентам

При нажатии на кнопку показывается форма с ListBox-ом, в ListBox-е вписываются товары как на листе.
КАК МОЖНО СДЕЛАТЬ ТАК ЧТОБЫ ПРИ ВСТАВЛЕНИИ НА ФОРМУ TextBox-a (КАК В ПОИСКЕ) В ListBox-е БЫЛА ВИДНА ТОЛЬКО ПРИХОДЫ ОДНОГО ТОВАРА С СООТВЕТСТВЕННО ПО ДАТЕ ПРИХОДА НАПРИМЕР СМОТРИ ЛИСТ "ПРИМЕР"

@Ser Artur · 12.02.2012, 09:52 **[ТС]**

Получается что нужно исправить код для ListBox-a

Visual Basic
1
2
3
4
5
6
7
8
ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(5 + i, 2)
ListBox1.List(ListBox1.ListCount - 1, 2) = .Cells(5 + i, 3)
ListBox1.List(ListBox1.ListCount - 1, 3) = .Cells(5 + i, 4)
ListBox1.List(ListBox1.ListCount - 1, 4) = .Cells(5 + i, 5)
ListBox1.List(ListBox1.ListCount - 1, 5) = .Cells(5 + i, 6)
ListBox1.List(ListBox1.ListCount - 1, 6) = .Cells(5 + i, 7)
ListBox1.List(ListBox1.ListCount - 1, 7) = .Cells(5 + i, 8)
ListBox1.List(ListBox1.ListCount - 1, 8) = .Cells(5 + i, 9)

Прошу помочь

@algol2 · 12.02.2012, 16:20

Попробуйте на Userform3 бросить Label3(вместо кнопки ИТОГИ), а свойство ColumnCount у Listbox1 установить = 4 и заменить(удалив) кнопку листа на :

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Selection.Column = 1 And (Target.Text <> "" Or Target.Text <> Null) Then
  UserForm3.Show
  Cells(Selection.Column, Selection.Row).Select
 End If
End Sub
    Заменить UserForm_Initialize() на :
Private Sub UserForm_Initialize()
 Dim I As Integer, J As Integer, K As Integer
 Label3.Caption = Cells(Selection.Row, 1)
 I = 2
 ListBox1.AddItem
 J = 0
 While I > 0
   ListBox1.List(J, K) = Cells(Selection.Row, I).Text
   I = I + 1
   K = K + 1
   If K = 4 Then
    J = J + 1
    K = 0
    ListBox1.AddItem
    If Cells(4, I) <> "Приход на день" Then I = -1
   End If
 Wend
End Sub

Заголовки столбцов оформите самомтоятельно.
Удачи.

@Ser Artur · 12.02.2012, 17:02 **[ТС]**

С-П-А-С-ИИИИИИИИИИИИИИИИИИИИИ-Б-О получилось
А можно то что в ЛИСТБОХ-е напечатать на новый шит или на принтере

@algol2 · 12.02.2012, 17:38

Лично я бы попробовал информацию, заносимую в ListBox1, параллельно в необходимом формате запмсать на лист ПРИМЕР. А дальше с этим листом делайте что хотите.

@Ser Artur · 12.02.2012, 17:50 **[ТС]**

А как?
Спасибо

@algol2 · 13.02.2012, 10:09

А как бы увидеть Ваше видение решения проблемы записи на шит, Ser. Для решения Вашей задачи(и будующих задач) это было бы эффективнее, а Форумчане Вам помогут(если у Вас будут затруднения). Вам (и только Вам) необходимо определиться с :
форматированием листа;
процессом записи(одиночностью или множественностью товаров на листе):
окончательным видом результатов(приукрасить).

Удачи.

@Ser Artur · 13.02.2012, 10:23 **[ТС]**

Т.е. получается что я должен сделать приблизительно наооборот скопировать данные в ЛИСТБОХ-е на шит, но ведь так не возможно. По крайней мере я не знаю как. Спасибо

@Ser Artur · 13.02.2012, 10:39 **[ТС]**

Я думаю так

Visual Basic
1
2
3
4
5
6
Private Sub CommandButton1_Click()
ListBox1.ListCount.Selected
Selection.Copy
Worksheets("Primer").Range("AA30").Select
 ActiveSheet.Paste
End Sub

@algol2 · 13.02.2012, 14:20

Наверно я в algol2 Дата: 05.12.2005 17:01 неубедительно(непонятно) сказал о параллелизме, т.к. Вы Ser стали предлагать отдельную Sub.
Предлагаемый параллелизм выделен в новой версии старого предложения (для одного товара).

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub UserForm_Initialize()
 Dim I As Integer, J As Integer, K As Integer
 Label3.Caption = Cells(Selection.Row, 1)
 '33333333333333333333333333333333333333333333333333333333333
 Dim Ro As Integer                                           '
 Ro = 20 'Begin Row                                          '
 Worksheets("ПРИМЕР").Range("a20:e1000").Clear
 Worksheets("ПРИМЕР").Cells(Ro, 1) = Cells(Selection.Row, 1) '
 Ro = 21                                                     '
 '333333333333333333333333333333333333333333333333333333333333
 I = 2
 ListBox1.AddItem
 J = 0
 While I > 0
   ListBox1.List(J, K) = Cells(Selection.Row, I).Text
 '33333333333333333333333333333333333333333333333333333333333333333333333
   Worksheets("ПРИМЕР").Cells(Ro, K + 1) = Cells(Selection.Row, I).Text '
  '3333333333333333333333333333333333333333333333333333333333333333333333
   I = I + 1
   K = K + 1
   If K = 4 Then
    J = J + 1
    K = 0
  '33333333333333
    Ro = Ro + 1 '
  '33333333333333
    ListBox1.AddItem
    If Cells(4, I) <> "Приход на день" Then I = -1
   End If
 Wend
End Sub

Удачи

Новые блоги и статьи Все статьи Все блоги /
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .

@Ser Artur 1 / 1 / 0 Регистрация: 19.07.2011 Сообщений: 285

	Вопрос по ТОВАР'у В ListBox-е 10.02.2012, 16:31. Показов 1945. Ответов 9 Метки нет (Все метки) При нажатии на кнопку показывается форма с ListBox-ом, в ListBox-е вписываются товары как на листе. КАК МОЖНО СДЕЛАТЬ ТАК ЧТОБЫ ПРИ ВСТАВЛЕНИИ НА ФОРМУ TextBox-a (КАК В ПОИСКЕ) В ListBox-е БЫЛА ВИДНА ТОЛЬКО ПРИХОДЫ ОДНОГО ТОВАРА С СООТВЕТСТВЕННО ПО ДАТЕ ПРИХОДА НАПРИМЕР СМОТРИ ЛИСТ "ПРИМЕР" 0

@Ser Artur 1 / 1 / 0 Регистрация: 19.07.2011 Сообщений: 285
	12.02.2012, 17:02 [ТС]
	С-П-А-С-ИИИИИИИИИИИИИИИИИИИИИ-Б-О получилось А можно то что в ЛИСТБОХ-е напечатать на новый шит или на принтере 0

@algol2 1 / 1 / 0 Регистрация: 09.05.2011 Сообщений: 20
	12.02.2012, 17:38
	Лично я бы попробовал информацию, заносимую в ListBox1, параллельно в необходимом формате запмсать на лист ПРИМЕР. А дальше с этим листом делайте что хотите. 0

@Ser Artur 1 / 1 / 0 Регистрация: 19.07.2011 Сообщений: 285
	12.02.2012, 17:50 [ТС]
	А как? Спасибо 0

@algol2 1 / 1 / 0 Регистрация: 09.05.2011 Сообщений: 20
	13.02.2012, 10:09
	А как бы увидеть Ваше видение решения проблемы записи на шит, Ser. Для решения Вашей задачи(и будующих задач) это было бы эффективнее, а Форумчане Вам помогут(если у Вас будут затруднения). Вам (и только Вам) необходимо определиться с : форматированием листа; процессом записи(одиночностью или множественностью товаров на листе): окончательным видом результатов(приукрасить). Удачи. 0

@Ser Artur 1 / 1 / 0 Регистрация: 19.07.2011 Сообщений: 285
	13.02.2012, 10:23 [ТС]
	Т.е. получается что я должен сделать приблизительно наооборот скопировать данные в ЛИСТБОХ-е на шит, но ведь так не возможно. По крайней мере я не знаю как. Спасибо 0