Сортировка в Listbox с выводом среднего, максимального и минимального значений.... - Microsoft Office Excel - Страница 2

doober · 09.01.2010, 12:18

Надо файл смотреть,если промежуток дат более 256 дней,то ошибки могут быть.,надо алгоритм менять

Even · 09.01.2010, 12:58

Пример файла, находящийся в предидущем вложении, довольно таки хорошо отображает пример того, что мне нужно ( думаю не стоит ни чего усложнять). Вопрос заключаеться в том почему всё таки не все значения отображаються в listbox-e, как поменять формат combobox-a на формат (dd.mm.yyyy) и если дат будет действительно более 256 (то есть
пару лет), то хотя бы минимально доступные.

doober · 09.01.2010, 14:31

Код:

 ComboBox1.AddItem Format(a(i, 1), "dd.mm.yy")

Ответ на первый вопрос.
По второму надо подумать

Even · 09.01.2010, 14:43

А если combobox - заменить на Textbox не проще будет?

Even · 09.01.2010, 15:10

Я не много переделал вложение. Если кто сможет, попробуйте пожалуйста.

doober · 09.01.2010, 15:13

Замените код кнопки на

Код:



Private Sub CommandButton1_Click()
 

 ListBox1.Clear
 ListBox6.Clear
 
    Dim i As Long, a()
    a = Range([A2], Cells(Rows.Count, "C").End(xlUp)).Value: ListBox1.Clear
    For i = 1 To UBound(a, 1)
        If CDate(a(i, 2)) = CDate(TextBox1.Text) Then
        
        ListBox1.AddItem a(i, 1)
        ListBox6.AddItem a(i, 3)
        
        End If
        
    Next
    Frame2.SetFocus


End Sub

Even · 09.01.2010, 15:26

Супер!!! Наконец-то. Спасибо огромное!!!!!

Even · 09.01.2010, 18:50

Блин, и последний вопрос! Как можно здесь же объединить Listbox1 и 2 в один listbox?

doober · 09.01.2010, 21:33

FULL VERSION

09.01.2010, 12:18	#11
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	Надо файл смотреть,если промежуток дат более 256 дней,то ошибки могут быть.,надо алгоритм менять Анализ,обработка данных Недорого

09.01.2010, 14:31	#13
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	Код: `ComboBox1.AddItem Format(a(i, 1), "dd.mm.yy")` Ответ на первый вопрос. По второму надо подумать Анализ,обработка данных Недорого

09.01.2010, 15:13	#16
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	Замените код кнопки на Код: `Private Sub CommandButton1_Click() ListBox1.Clear ListBox6.Clear Dim i As Long, a() a = Range([A2], Cells(Rows.Count, "C").End(xlUp)).Value: ListBox1.Clear For i = 1 To UBound(a, 1) If CDate(a(i, 2)) = CDate(TextBox1.Text) Then ListBox1.AddItem a(i, 1) ListBox6.AddItem a(i, 3) End If Next Frame2.SetFocus End Sub` Анализ,обработка данных Недорого Последний раз редактировалось doober; 09.01.2010 в 15:21.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Вывод максимального, минимального и среднего значение по Listbox	Klim Bassenger	Microsoft Office Excel	3	29.06.2009 18:38
Поиск максимального и минимального элемента массива(с существенным дополнением)	Dayterius	Паскаль, Turbo Pascal, PascalABC.NET	6	20.05.2009 11:37
Поиск минимального (максимального) элемента массива	Radamant	Помощь студентам	10	24.12.2008 17:44
проверка значений в ListBox	Arteom	Компоненты Delphi	10	26.05.2008 12:32
Суммирование значений и выведения максимального значения	Bor_man	Microsoft Office Excel	2	12.04.2007 19:49

09.01.2010, 12:58	#12
Even Пользователь Регистрация: 11.12.2009 Сообщений: 45	Пример файла, находящийся в предидущем вложении, довольно таки хорошо отображает пример того, что мне нужно ( думаю не стоит ни чего усложнять). Вопрос заключаеться в том почему всё таки не все значения отображаються в listbox-e, как поменять формат combobox-a на формат (dd.mm.yyyy) и если дат будет действительно более 256 (то есть пару лет), то хотя бы минимально доступные.

09.01.2010, 14:43	#14
Even Пользователь Регистрация: 11.12.2009 Сообщений: 45	А если combobox - заменить на Textbox не проще будет?

09.01.2010, 15:26	#17
Even Пользователь Регистрация: 11.12.2009 Сообщений: 45	Супер!!! Наконец-то. Спасибо огромное!!!!!

09.01.2010, 18:50	#18
Even Пользователь Регистрация: 11.12.2009 Сообщений: 45	Блин, и последний вопрос! Как можно здесь же объединить Listbox1 и 2 в один listbox?