Sub Zadacha1()
Dim a As Double, b As Double, c As Double, d As Double
a = Range("A1")
b = Left(a, 1)
c = Right(a, 1)
d = Mid(a, 3, 1)
Range("A2") = b
Range("A6") = c
Range("A4") = d
End Sub

Sub Chislo()
Dim a As Double, n1, n2, n3, n4, n5, n6

a = Range("A1")
n1 = Left(a, 1)
n2 = Right(a, 1)
n3 = Mid(a, 2, 3)
n4 = Left(n3, 1)
n5 = Right(n3, 1)
n6 = Mid(n3, 2, 1)
Range("A2") = n1
Range("A6") = n2
Range("A4") = n6
Range("A3") = n4
Range("A5") = n5


End Sub

Sub NomerPloskosti()

Dim X As Integer, Y As Integer
X = Range("19")
Y = Range("20")
If (X < 0) And (Y > 0) Then
    Range("21") = "1"
 End If
 If (X > 0) And (Y > 0) Then
    Range("21") = "2"
 End If
  If (X < 0) And (Y < 0) Then
    Range("21") = "3"
 End If
    If (X > 0) And (Y < 0) Then
        Range("21") = "4"
 End If
 End Sub

Sub Chislo()
Dim a As Double, n1, n2, n3, n4, n5

a = Range("A1")
n1 = Mid(a, 1, 1)
n2 = Mid(a, 2, 1)
n3 = Mid(a, 3, 1)
n4 = Mid(a, 4, 1)
n5 = Mid(a, 5)
Range("A2") = n1
Range("A3") = n2
Range("A4") = n3
Range("A5") = n4
Range("A6") = n5


End Sub

Sub NomerPloskosti()

Dim X As Integer, Y As Integer
X = Range("B19")
Y = Range("B20")
If (X < 0) And (Y > 0) Then
   Range("B21") = "1"
 End If
 If (X > 0) And (Y > 0) Then
    Range("B21") = "2"
 End If
  If (X < 0) And (Y < 0) Then
    Range("B21") = "3"
 End If
    If (X > 0) And (Y < 0) Then
        Range("B21") = "4"
 End If
 End Sub

Sub NomerPloskosti()

Dim X As Integer, Y As Integer
X = Range("B19")
Y = Range("B20")
If (X < 0) And (Y > 0) Then
   Range("B21") = "1"
 End If
 If (X > 0) And (Y > 0) Then
    Range("B21") = "2"
 End If
  If (X < 0) And (Y < 0) Then
    Range("B21") = "3"
 End If
    If (X > 0) And (Y < 0) Then
        Range("B21") = "4"
 End If
 End Sub

Sub Vozrastanie()
Dim a As Integer, b As Integer, c As Integer
a = Range("b2")
b = Range("b3")
c = Range("b4")
If (a <= b) And (a <= c) Then
    Range("c2") = "1"
 End If
 If (b >= a) And (b <= c) Then
    Range("c3") = "2"
 End If
If (c >= a) And (c >= b) Then
    Range("c4") = "3"
    End If
 
End Sub

Sub Vozrastanie()
Dim a As Integer, b As Integer, c As Integer
a = Range("b2")
b = Range("b3")
c = Range("b4")
If (a <= b) And (a <= c) Then
    Range("c2") = "1"
    Elsae If (b >= a) And (b <= c) Then
        Range("c3") = "2"
    Else If (c >= a) And (c >= b) Then
          Range("c4") = "3"
            End If
    
 
End Sub

Sub Vozrastanie()
Dim a As Integer, b As Integer, c As Integer
a = Range("b2")
b = Range("b3")
c = Range("b4")
If (a < b) And (a < c) Then
    Range("c2") = a
    Else If (b > a) And (b < c) Then
        Range("c3") = b
    Else If (c > a) And (c > b) Then
          Range("c4") = c
          
            End If
    
 
End Sub

Sub Test()

Dim n1 As Byte, n2 As Byte, n3 As Byte, n4 As Byte, n5 As Byte, n6 As Byte, n7 As Byte
n1 = Range("a21")
n2 = Range("a22")
n3 = Range("a23")
n4 = Range("a24")
n5 = Range("a25")
n6 = Range("a26")
n7 = Range("a27")
If n1 = 1 And n2 = 50 And n2 = 2 And n4 = 11 And n5 = 30 And n6 = 1 And n7 = 1 Then
    MsgBox ("Ãåíèé")
    End If
    

 If n1 <> 1 And n2 = 50 And n4 = 11 And n5 = 30 And n6 = 1 And n7 = 1 Then
    MsgBox ("Эрудит")
    End If
 If n1 = 1 And n2 <> 50 And n2 = 2 And n4 = 11 And n5 = 30 And n6 = 1 And n7 = 1 Then
    MsgBox ("Эрудит")
    End If
If n1 = 1 And n2 = 50 And n3 <> 2 And n4 = 11 And n5 = 30 And n6 = 1 And n7 = 1 Then
   MsgBox ("Эрудит")
    End If
If n1 = 1 And n2 = 50 And n3 = 2 And n4 <> 11 And n5 = 30 And n6 = 1 And n7 = 1 Then
   MsgBox ("Эрудит")
    End If
If n1 = 1 And n2 = 50 And n3 = 2 And n4 = 11 And n5 <> 30 And n6 = 1 And n7 = 1 Then
   MsgBox ("Эрудит")
    End If
If n1 = 1 And n2 = 50 And n3 = 2 And n4 = 11 And n5 = 30 And n6 <> 1 And n7 = 1 Then
   MsgBox ("Эрудит")
If n1 = 1 And n2 = 50 And n3 = 2 And n4 = 11 And n5 = 30 And n6 = 1 And n7 <> 1 Then
   MsgBox ("Эрудит")
    End If

Sub Test()

Dim n1 As Byte, n2 As Byte, n3 As Byte, n4 As Byte, n5 As Byte, n6 As Byte, n7 As Byte
Dim S1 As Byte, S2 As Byte, S3 As Byte, S4 As Byte, S5 As Byte, S6 As Byte, S7 As Byte
n1 = Range("a21")
n2 = Range("a22")
n3 = Range("a23")
n4 = Range("a24")
n5 = Range("a25")
n6 = Range("a26")
n7 = Range("a27")
If n1 = 1 Then
    S1 = 1
Else
        If n1 <> 1 Then
            S1 = 0
            End If
If n2 = 50 Then
    S2 = 1
Else
        If n2 <> 50 Then
            S2 = 0
            End If
 If n3 = 2 Then
    S3 = 1
  Else
        If n3 <> 2 Then
             S3 = 0
            End If
If n4 = 11 Then
    S4 = 1
  Else
        If n4 <> 11 Then
            S4 = 0
            End If
 If n5 = 30 Then
    S5 = 1
   Else
        If n5 <> 30 Then
            S5 = 0
            End If
 If n6 = 1 Then
    S6 = 1
 Else
        If n6 <> 1 Then
        S6 = 0
        End If
 If n7 = 1 Then
    S7 = 1
 Else
        If n7 <> 1 Then
        S7 = 0
        End If
If S1 + S2 + S3 + S4 + S5 + S6 + S7 = 7 Then
    MsgBox ("Гений")
    End If
 If S1 + S2 + S3 + S4 + S5 + S6 + S7 = 6 Then
    MsgBox ("Эрудит")
    End If
If S1 + S2 + S3 + S4 + S5 + S6 + S7 = 5 Then
    MsgBox ("Нормальный")
    End If
If S1 + S2 + S3 + S4 + S5 + S6 + S7 = 4 Then
    MsgBox ("Способности средние")
    End If
 If S1 + S2 + S3 + S4 + S5 + S6 + S7 = 3 Then
    MsgBox ("Способности ниже среднего")
    End If
If S1 + S2 + S3 + S4 + S5 + S6 + S7 = 2 Then
    MsgBox ("Вам надо отдохнуть!".")
    End If
    
End Sub