Элементы управления в форме!

[Rom1k06]

Добрый день!
1. Как отсортировать даты в Listbox-е?
2. Как можно задать формат для TextBbox-а (Например дата) для того чтобы ничего другово кроме даты невожнозно было ввести?
3.Как можно проверить все поля формы (чтобы они небыли пыстые) в цикле (В основном все текстовые поля) т.е не писать 10 условий, а 1 цикл и 1 проверку?

[SAS888]

1. Формируем массив из элементов ListBox, сортируем его, затем обратно в ListBox. Например, так:

Dim i As Integer, j As Integer, x, a()
    ReDim a(0 To ListBox1.ListCount - 1)
    For i = 0 To UBound(a)
        a(i) = ListBox1.List(i)
    Next
    For i = LBound(a) To UBound(a) - 1
        For j = i + 1 To UBound(a)
            If a(i) > a(j) Then
                x = a(i)
                a(i) = a(j)
                a(j) = x
            End If
        Next
    Next
    ListBox1.Clear
    ListBox1.List = a

Сортируются не только даты, а любые значения.
2. Можно использовать не TextBox, а DTPicker. Тогда, во-первых, ничего, кроме даты пользователь не введет, во-вторых, вводить гораздо проще (не нужно набирать руками).
3. Следующий код просмотрит все TextBox-ы, и если какой-нибудь из них пуст - выведет об этом сообщение.

Dim Ctrl As Control
    For Each Ctrl In Controls
        If Ctrl.Name Like "TextBox*" Then If Ctrl.Text = "" Then MsgBox "В " & Ctrl.Name & " пусто!"
    Next

[Rom1k06]

Спасибо огромное
Это очень поможет оптимизировать код!

2 - а что это за элемент "DTPicker" как его найти? или как его использовать?

3 - А если у меня форма с владками?? как проверить только на одной вкладке?

[SAS888]

2. Если речь идет о пользовательской форме, то войдите в VBE, правый клик на "Toolbox", выбрать "Additional Controls...". В появившемся окне установить флажок напротив "Microsoft Date and Time Picker 6.0" (ну, или не 6.0, а какой у Вас есть).
Если же данный элемент управления у Вас отсутствует, то есть два выхода: либо установить его, используя дистрибутив "Office" (по-моему, он находится где-то в опциях установки Access), либо найти файл "mscomct2.ocx", скопировать его в "C:\Windows\System32" (если WinXP) и зарегистрировать его в реестре.
3. Следующий код выведет сообщения о наличии только тех пустых TextBox-ов, которые находятся во вкладке MultiPage с именем "Page1".

Dim Ctrl As Control
    For Each Ctrl In Controls
        If Ctrl.Parent.Caption = "Page1" Then
            If Ctrl.Name Like "TextBox*" Then If Ctrl.Text = "" Then MsgBox "В " & Ctrl.Name & " пусто!"
        End If
    Next

[EducatedFool]

как проверить только на одной вкладке?

Можно и так (перебирая контролы на нужной вкладке):

    For Each Ctrl In Me.MultiPage1.Pages(0).Controls
       If Ctrl.Name Like "TextBox*" And Ctrl.Value = "" Then MsgBox "В " & Ctrl.Name & " пусто!"
    Next

[Rom1k06]

Спасибо!!!
Но к сожалению у меня на работе неустановлен донный вид эл.упр
посмотрю дома !!!!!
А если не окажется и дома Как можно проверить введена дата или нет?
А то с этим возникают проблемы при расчете процентов остатка по датам!

[SAS888]

Если, например, нужно проверить, в TextBox1 введена дата или нет, то можно, например, так:

If IsDate(TextBox1.Text) Then MsgBox "Yes" Else MsgBox "No"

[SAS888]

Разархивируйте файл из вложения, поместите его в директорию "C:\Windows\System32" и зарегистрируйте в реестре Windows. После этого, у Вас в "Additional Controls..." должен появиться элемент управления "Microsoft Date and Time Picker 6.0".

[Rom1k06]

Спасибо я дома все нашел...
работает....

Подскажите ПЛЗ
код выдает ошибку!!!

Private Sub Workbook_Open()
Dim d, b As Date
Dim i, a, h, j As Variant
'Unprotect (111)
With Sheets(1)
For i = 3 To .Cells(Rows.Count, "B").End(xlUp).Row
a = .Cells(i, 6): b = .Cells(i, 7): d = Date
If .Cells(i, 7) = "" Then .Cells(i, 11) = "": GoTo m1
If b < d Then .Cells(i, 11) = "": GoTo m1
h = Val((b - d)): j = Val(a * 30)
.Cells(i, 11) = Round((h / j) * 100, 2)
If .Cells(i, 11) < 30 Then .Cells(i, 9) = "Îãðàíè÷. Ñðîê"
If .Cells(i, 11) < 10 Then .Cells(i, 9) = "ÁÐÀÊ"
Next
End With
m1:
'Protect (111)
End Sub

На строке .Cells(i, 11) = Round((h / j) * 100, 2)
вроде все правильно написал!?

[EducatedFool]

На строке .Cells(i, 11) = Round((h / j) * 100, 2)
вроде все правильно написал!?

Правильно. Почти правильно.

Перед выполнением операции деления h / j не помешало бы сравнить переменную j с нулём. В Вашем случае ошибка возникает как раз из-за этого.

Причина тому - строка j = Val(a * 30) (в вашем случае функция Val возвращает ноль)