База данных Excel

[Mirth]

Здравствуйте...со ссылкой на приложеный файл...пытаюсь создать что-то путное...для ввода данных через форму, в связи с чем возникли некоторые вопросы:
1. Как сделать заливку линии, допустим от A1 до S1 если в программе описание строки (конкретной ячейки) идет следующим образом:
Worksheets.Cells(I, 1), где I = 1, n
По правилам это могло бы быть Range("A1:S1")...просто все упирается в цикл с переменной I

В конечном итоге я хочу сделать так, что если выбран один из 2-х вариантов на форме, то тогда вся активная строка базы данных становится определенного цвета.

2. Как сделать так, чтобы встроенный DateTime Picker и Months View показывал текущую дату автоматически?

3. Как видно, список судов для ComboBox vessels находится на листе Data...но в свою очередь этот список представляет собой 4 группы судов, численность каждой в базе данных мне потом нужно определить. Как можно разбить эти суда на группы, при условии что весь список остается прежним?

Если непонятно изъясняюсь, вот пример:
если выбрано судно Battersea, группа A пополняется на 1...но весь combobox состоит из 4-х групп по алфавиту.

СПАСИБО ОГРОМНОЕ ЗА ПОМОЩЬ!

[EducatedFool]

1) например, так:

Sub ОформлениеСтроки_I()
    I = 18
    ' окраска линии под строкой
    Range("b:f").Rows(I).Borders(xlEdgeBottom).Weight = xlThick
    ' окраска самой строки
    Range("a:s").Rows(I).Interior.ColorIndex = 4
End Sub

2) А разве не показывает?
Можно добавить установку нужного значения в процедуру UserForm_Initialize

[Mirth]

спасибо огромное! подскажите пожалуйста ошибку:

If DB.Cells(I, 3).Value = "Navios Kypros" Or "Fantasy Star" Or "Floral Lake" Then
Range("A:S").Rows(I).Interior.Color Index = 4
Range("A:S").Rows(I).Borders(xlEdge Bottom).Weight = xlThin

почему нельзя задавать несколько значений Value? не хочется для каждого расписывать...

[Hugo121]

А так?

Select Case Cells(I, 3).Value
Case "Navios Kypros", "Fantasy Star", "Floral Lake"
Range("A:S").Rows(I).Interior.ColorIndex = 4
Range("A:S").Rows(I).Borders(xlEdge Bottom).Weight = xlThin
End Select

[alvazor]

Функция логической дизъюнкции (конъюнкции) работает только для ДВУХ выражений. Примените скобки:
"Navios Kypros" Or ("Fantasy Star" Or "Floral Lake") Then

[EducatedFool]

Сообщение от alvazor

Функция логической дизъюнкции (конъюнкции) работает только для ДВУХ выражений. Примените скобки:
"Navios Kypros" Or ("Fantasy Star" Or "Floral Lake") Then

Вы хоть пробуйте, прежде чем советовать...

Помимо оптимального варианта от Hugo121 подойдёт лишь такой:

If DB.Cells(I, 3).Value = "Navios Kypros" Or DB.Cells(I, 3).Value ="Fantasy Star" Or DB.Cells(I, 3).Value ="Floral Lake" Then

Ну и ещё есть пара способов, но они чуть сложнее для понимания.

[alvazor]

Да уж, действительно на элементарном лоханулся, прошу прощения!
Другим будет наука!

[Mirth]

Огромное спасибо всем за помощь! Мой директор, блин, генератор идей... сегодня новая фишка...кто нибудь знает, как ставить условие, отталкиваясь от дня недели? Допустим, в первой колонке содержится дата (просто по формату, а не через DateTimePicker)...требуется для Вс и Пн вычислить одно выражение, а для остальных -другое...и так по мере пополнения базы данных...
Кстати, как задается цикл для дат? каждая запись базы заводится ежедневно...так что без перерывов. Начиная, допустим, с 1 января 2010. Так что при каждой новой записи мне нужна следующая дата...может, как-то через счетчик?

Ну и еще о наболевших датах. Может, кто подскажет как выводить в ячейку значение MonthView при его свойстве Multiselect - True. Мне необходимо указать помежуток времени в ячейке...вроде 1.10.2010 - 12.10.2010...это свойство используется для чего-то подобного? ну а насчет даты по умолчанию...в DTPIcker и в MonthsView в свойстве Value автоматически присваевается дата создания данного объекта на форме...и в итоге она высвечвается серым цветом, а текущая дата обводится красным. Может возможно их задать на одно текущее число

Спасибо за оказание помощи полусвихнувшейся на VBA девушке! +)

[EducatedFool]

Кстати, как задается цикл для дат

Точно также, как и для любых других ячеек \ значений.
Был бы пример файла - получили бы готовый пример.

каждая запись базы заводится ежедневно...так что без перерывов. Начиная, допустим, с 1 января 2010. Так что при каждой новой записи мне нужна следующая дата...может, как-то через счетчик?

не понял...

Мне необходимо указать помежуток времени в ячейке...вроде 1.10.2010 - 12.10.2010...

Лучше выводить в 2 разные ячейки - иначе потом обрабатывать (а, тем более, анализировать) эти данные будет сложно.

А для выбора дат можно использовать такие варианты кода:
http://www.programmersforum.ru/showp...02&postcount=5
http://www.programmersforum.ru/showp...83&postcount=5

[R Dmitry]

Сообщение от Mirth

каждая запись базы заводится ежедневно...так что без перерывов. Начиная, допустим, с 1 января 2010. Так что при каждой новой записи мне нужна следующая дата...может, как-то через счетчик?

+)

так подойдет событие в столбце b