Множества

[Ilya_L]

Здравствуйте!
Я просмотрел много книг, перелазил интернет и так не нашел что-нибудь про множества и как вообще они прописываются! Я вот хотел спросить, есть ли в VBA множества, если есть то как их можно прописать?

[doober]

Множество можно описать массивом.А что делать с ним можно всегда описать программно.Вот пример
ПРЯМОЕ ДЕКАРТОВО ПРОИЗВЕДЕНИЕ ДВУХ МНОЖЕСТВ

   Sub Main()
            Dim xcount As Integer
           xcount = CInt(InputBox("Введите количество элементов в первом множестве"))
 
            Dim ycount As Integer
            ycount = CInt(InputBox("Введите количество элементов во втором множестве"))
       
            ReDim X(xcount) As String
             ReDim Y(ycount) As String
          
            For i = 0 To xcount - 1
                X(i) = InputBox("ВВедите элементы первого множества:")
            Next
      
            For i = 0 To ycount - 1
                Y(i) = InputBox("ВВедите элементы второго множества:")
            Next
            Dim s
           s = MulXY(X, Y, xcount, ycount)
          
         For n = 0 To UBound(s)
         MsgBox (s(n))
         Next
          
        End Sub

        Public Function MulXY(X() As String, Y() As String, xcount As Integer, ycount As Integer)
              Dim count As Integer
               count = xcount * ycount - 1
           ReDim res(count) As String
      
            Dim k As Integer
            k=0
              Dim i As String, j As String
            For n = 0 To xcount - 1
                For m = 0 To ycount - 1
                    res(k) = "(" & X(n) & "," & Y(m) & ")"
                    k = k + 1
                Next
            Next
        MulXY = res
        End Function

[Ilya_L]

Я имел ввиду множества, которые описывались в Delphi так
<перем>: set of char = ['A'..'Z', 'a'..'z'], чтобы их самому не прописывать.
Мне нужно делать проверку: в один textbox вводятся только буквы, а во второй только цифры.. вот и мне нужно, чтобы выдавалось сообщение о том, что введены неправильные символы, если в первый textbox вводятся цифры, а во второй - буквы

[R Dmitry]

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

Я имел ввиду множества, которые описывались в Delphi так
<перем>: set of char = ['A'..'Z', 'a'..'z'], чтобы их самому не прописывать.
Мне нужно делать проверку: в один textbox вводятся только буквы, а во второй только цифры.. вот и мне нужно, чтобы выдавалось сообщение о том, что введены неправильные символы, если в первый textbox вводятся цифры, а во второй - буквы

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

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii > 47 And KeyAscii < 58 Then Else KeyAscii = 0

End Sub