Специалистам и знатокам по VBA: HELP!

[Splinter]

Сорри за такое ламерство, но я совершенно не помню, как обрабатывается элемент combobox.

Нужно сделать combobox, содержащий определенное число пунктов. По факту выбора того или иного пункта переменной присваивается определенное значение. Вба-шных хелпов под руками нет.

Нужно срочно. Завтра к обеду тема будет уже неактуальна.

[rook]

Есть событие изменения комбобокса:
Private Sub ComboBox1_Change()
И переменная, которая хранит в себе номер выбранного в данный момент пункта (отсчет с 0):
A = ComboBox1.ListIndex + 1
End Sub
То есть в А всегда будет лежать номер выбранного сейчас пункта

[Splinter]

1: rook
А как заполнить-то комбобокс нужными вариантами (при инициализации формы)?

[TheJudge]

2: Splinter

combobox1.AddItem


вообще, если есть Excel например, жми alt+f11, создавай проект и там экспериментируй, он тебе даже подпишет

типа пишешь combobox1, ставишь точку и он тебе варианты продолжения

[Splinter]

3: TheJudge

Код: Выделить всё

Private Sub ComboBox1_Change()
ComboBox1.AddItem = "test1"
ComboBox1.AddItem = "test2"
End Sub

Выдает пустой комобокс без вариантов.

[rook]

Если просто нужно тупо и навсегда ввести в него текст то
Private Sub UserForm_Initialize()
ComboBox1.AddItem 1
ComboBox1.AddItem "aaaa"
ComboBox1.AddItem 3
End Sub
и т.д

из экселевской таблицы можно так:

Private Sub UserForm_Initialize()
For i = 1 To get_record_count(1)
ComboBox1.AddItem Sheets("sheet1").Cells(i, 1).Value
Next i
End Sub

Public Function get_record_count(par As Integer) As Integer
Dim record_count As Integer
record_count = 1
Do While Trim(Sheets("sheet1").Cells(record_count, par).Value) <> ""
record_count = record_count + 1
Loop
get_record_count = record_count - 1
End Function

sheet1 - название листа
par - номер столбца из которого надо данные взять.

[Splinter]

Все, понял.

Код: Выделить всё

Private Sub UserForm_Initialize()
Label1.Caption = "Режим не определен"
ComboBox1.AddItem "Mode1"
ComboBox1.AddItem "Mode2"
ComboBox1.AddItem "Mode3"
ComboBox1.AddItem "Mode4"
ComboBox1.AddItem "Mode5"
ComboBox1.AddItem "Mode6"
End Sub

Код: Выделить всё

Private Sub ComboBox1_Change()
Dim Mode As Integer
Mode = ComboBox1.ListIndex
Select Case Mode
Case 0
Label1.Caption = "Заполнение"
Case 1
Label1.Caption = "Опустошение"
Case 2
Label1.Caption = "Хранение"
Case 3
Label1.Caption = "Авария"
Case 4
Label1.Caption = "Ремонт"
Case 5
Label1.Caption = "Буферизация"
End Select
End Sub

Работает как надо, дальше справлюсь сам.
Спасибо, выручили.

[Splinter]

Задача номер два.

На форме имеются элементы DriveListBox, DirListBox и FilListBox для навигации по компьютеру и выбора нужного файла.

По клику по DriveListBox'у в заголовке Label1 указывается количество папок в корне диска.

Код: Выделить всё

Label1.Caption = Dir1.ListCount

Дальше я в скрипте присваиваю свойству ListIndex элемента DirListBox значение, к примеру 9. Т.е. указываю на восьмую папку в списке папок выбранного диска.

Каким образом я могу получить имя этой папки в строковую переменную?

[TheJudge]

хм... полистал книжку, не нашёл штатных средств

ИМХО, наиболее правильным будет, при выборе папки забивать строковое значение не только в caption, но и в дополнительную переменную

[Splinter]

8: TheJudge
Блин.

И еще вопрос. Как узнать размер папки? По аналогии с FileLen для получения размера файла.
В хелпах ничего подобного не нашел.

[rook]

Splinter :
> 8: TheJudge
> Блин.
>
> И еще вопрос. Как узнать размер папки? По аналогии с FileLen для получения
> размера файла.
> В хелпах ничего подобного не нашел.

Однозначно можно только вручную складывать размер файлов, содержащихся в папке
По другому никак...

[Splinter]

Вопрос посложнее.

Есть mdb'шная база данных. Есть форма, созданная средствами VBA, на которой отображаются значения, содержащиеся в БД.

На форме два контрола: ADO Data Control и DataRepeater Control. У ADODC значение свойства ConnectionString слежующее:

Код: Выделить всё

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Personal\VB_Projects\UEFA\UEFA.mdb;Persist Security Info=False

Это, понятное дело, строка подключения к БД. Дальше свойством RecourdSource я делаю выборку из БД, записывая в него (свойство) следующее значение, прежставляющее собой SQL-запрос:

Код: Выделить всё

select * from teams where points=6

Все вроде бы работает, при запуске на форме отображаются только те записи БД, которые удовлетворяют запросу из RecordSource.
Но проблема в том, что мне не нужна жесткая привязка к запросу. Нужно, чтобы он менялся в зависимости от требований пользователя.

Если я вношу в код (событие Form_Load) следующую строку:

Код: Выделить всё

Adodc1.RecordSource = "select * from teams where points=9"

то все равно выполняется запрос из RecordSource'а (т.е. "points=6").
Почему игнорируется второй запрос?
Как сделать так, чтобы выполнялся запрос, указанный в коде?

[rook]

Splinter :
Может заработает, если рефреш добавить?:
Adodc1.RecordSource = "select * from teams where points=9"
Adodc1.Refresh

[deniska]

С базой данных Аксесс (MDB) лучше и быстрее работать через DAO.
ADO конечно более универсален, но в данном конкретном случае через DAO будет и проще и быстрее. Imho

[Паша_с_Уралмаша]

13: deniska
согласен. кроме того, апдейт таблицы при этом можно ручками описать, а не и5аццо извините с движком.
а саму таблицу отображать в форме через ListView в режиме таблицы.
Рукопашной тут много. Зато понятней и борьба с дураком-оператором описывается нагляднее.
имхо опятьже.

[Splinter]

Каким образом проверить валидность урла?

Т.е. есть стринговая переменная, к примеру, adressURL, в которую передается та абракадабра, которую оператор ввел в Text1.Text.

Как узнать, существует ли страничка в инете с подобным адресом?

[BadBlock]

> Как узнать, существует ли страничка в инете с подобным адресом?

Не знаю, как там у вас на VBA, а у нас для этого обычно открывают сокет на 80 порт на указанный хост, производят HTTP-запрос указанного URI и анализируют код ответа, с проверками на каждом этапе.

[Splinter]

Хых, обновим тему.

Что дано.
На форме множество элементов Label, объединенных в массив Label1(N).
Пусть N равно сотне, условно говоря.

Присваивать им свойство caption - нет проблем, все в цикле делается на раз.

Но есть нюанс.
По клику на конкретный элемент массива Label1(N) нужно менять его (конкретного элемента, а не всего массива) свойство. Например, цвет.

Т.е. пользователь кликнул на Label1(48) - этот элемент на форме стал красного цвета.

В VBA есть событие Click, конечно, но вот в цикл его не засунуть.
Неужели для каждого элемента массива из ста элементов копипастить код?

[old]

Ну кроме твоего массива - там вроде есть коллекция controls. Если в эту сторону копнуть - давное не писал именно на VB, но помнится именно так универс. делалось

[Паша_с_Уралмаша]

а я сдулся.. ппц.. них не помню

[TheJudge]

17: Splinter:

А нет событий более глобальных? Т.е. типо клик в пределах формы и дальше проверка в цикле, не кликнули ли кого из твоих Label? Хотя с точки зрения скорости обработки, лучше привязать код к каждому Label. Сам уже давно не кодал на VBA, но подобную задачу когда-то решал. Не помню, правда, уже, как. Надо будет поискать исходники на досуге.

[old]

по простому походу не получится. В принципе для динамически создаваемых контролов (в цикле например) можно повесить одно событие по клику и уже в нем все описывать.

для кнопок примерно так

Код: Выделить всё

Public WithEvents MyCB As VB.CommandButton

Private Sub MyCB_Click()
MsgBox "Я тута!"
End Sub

в саммом событии можно уже навернуть и проверять в каком контроле оно произошло

Код: Выделить всё

Dim cl1 As New Class1

Private Sub UserForm_Initialize()
Set cl1.MyCB = Form1.Controls.Add("VB.CommandButton", "Control" & Form1.Controls.Count)
With cl1.MyCB
    .Left = 0 'Расположение слева
    .Top = 50 'Расположение сверху
    .Width = 290 'Ширина
    .Height = 30 'Длина
    .Visible = True 'Сделать объект видным
    .Caption = "Я кнопка" 'Текст на кнопке
End With
End Sub

А уже в вытащенных на форму кроме как прописывания в каждом походу не выйдет.

[Пойманый_маньяк]

По идее в ООП в таких случаях (конкретно про VBA не знаю, но на Delphi и на C - именно так и писал) делается общая функция, по клику на любом из Label. Из входного параметра этой общей функции (в Delphi ЕМНИП это был Sender) вычисляется - какой именно Label кликнули.
И дальше делаешь конкретно с ним что хочешь. Хоть видимость меняешь, хоть цвет, хоть текст.

[Пойманый_маньяк]

В крайне общих чертах (под рукой ничего из этой серии ).

procedure AllLabelsOnClick(sender);
begin
sender.color := #АА;
end;

[Пойманый_маньяк]

Тьфу блин. Боюсь ввел в заблуждение.

В VB.Net появилось возможность создовать несколько процедур для одного объекта реагирующих на одно событие(например, Click), или наоборот, одну процедуру реагирующию на события для нескольких объектов.

Код: Выделить всё

Private Sub Новое_Событие(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click 
' Событие реагирует на нажатие 3ех кнопок
MsgBox("Событие для 3ех кнопок")
End Sub

http://vbbook.ru/vb.net/procedyru-v-vbnet/

Это уже в Vb.Net. Там такое вполне бы прокатило.
Извиняюсь.

[Пойманый_маньяк]

А вообще можно подумать о переходе на Visual Studio например.
И работать с Excel из нее.

[Splinter]

А вот некроап.

Вопрос не совсем про VBA, скорее просто про Excel.
Не хочется скрипты городить, может как формулами и функциями можно обойтись.

Есть массив.

Код: Выделить всё

               Сотрудник 1           Сотрудник 2          Сотрудник 3           Сотрудник 4          Сотрудник 5
День 1             5                     2                    4                     6                    1
День 2             1                     3                    2                     1                    3
День 3             2                     7                    1                     6                    2
День 4             5                     5                    5                     3                    4
День 5             1                     0                    2                     4                    7
ВСЕГО             14                    17                   14                    20                   17

Понятно, что в графу ВСЕГО вставлена функция СУММ().
Теперь необходимо в отдельные ячейки выписать сотрудников с минимальным и максимальным значениями из строки ВСЕГО.

Есть функции МИН() и МАКС(), но они выдадут именно значения, числа.
А вот как сделать бы, чтобы выдавались именно фамилии сотрудников (Сотрудник 1, Сотрудник 2, ...)?
Т.е. найти максимальное значение (ага, вот 20 максимальное), а в ячейку вывести уже не число 20, а "Сотрудник 4".

[TheJudge]

26: Splinter:

Это будет убервложенная функция. Проще скрипт написать.

А то ищешь максимальное значение, а потом функциями возвращаешь адреса столбцов, где она есть, и оттуда уже можно взять будет сотрудника. Но если значений больше 1, то уже ой. Разумнее скрипт.

[Splinter]

27: TheJudge:
> Но если значений больше 1, то уже ой.

Массив 15 на 8: пятнадцать столбцов по восемь значений в каждом.
Причем не факт, что максимальные и минимальные значения будут в единственном числе: может быть два равных максимальных, например.

Я пробовал городить всё это через мега-вложенность (ЕСЛИ(ЕСЛИ(ЕСЛИ(ЕСЛИ...)))), на пятом или шестом вложении запутался в синтаксисе и плюнул.

Видимо, действительно, скриптом напишу.

[Splinter]

Ан нет, нашел функцию ГПР(), но пока не понял как она работает и как её приспособить.
Но, судя по описанию, что-то похожее на то, что надо.

Выполняет поиск значения в первой строке таблицы или массива значений и возвращает значение, находящееся в том же столбце в заданной строке таблицы или массива.