функция Vba for Excel

Private Sub CommandButton1_Click()
Dim s As String
i = 2
s = Cells(i, 1)
Cells(1, 2) = "payments_correct"
Do
 
d = Split(s, ";")
For j = 0 To UBound(d)
r = Len(d(j))
f = Format(Mid(d(j), 1, 10), "dd.mm.yyyy")
g = Mid(d(j), 12, r - 10)
h = h + g & " = " & f & ";"
 
Next
Cells(i, 2) = h
i = i + 1
s = Cells(i, 1)
Loop While s <> ""
End Sub

h = h + f & " = " & g & ";"

Private Sub CommandButton1_Click()
Dim s As String
i = 2
s = Cells(i, 1)
Cells(1, 2) = "payments_correct"
Do
 
d = Split(s, ";")
For j = 0 To UBound(d)
r = Len(d(j))
f = Format(Mid(d(j), 1, 10), "dd.mm.yyyy")
g = Mid(d(j), 12, r - 10)
h = h + g & " = " & f & ";"
 
Next
Cells(i, 2) = h
h = ""
i = i + 1
s = "": d = ""
s = Cells(i, 1)
Loop While s <> ""
End Sub

Function Platezh(Stroka) As String
     Dim myAr As Variant
     Dim i As Integer
     Dim Up As Integer, Down As Integer
     Dim res As String
   
      Const p2 As String = ";"
      myAr = Split(Stroka, p2)
 
      Up = UBound(myAr)
      Down = LBound(myAr)
 
     Dim tFind As String, tReplace As String
 
     res = Stroka
     For i = Down To Up
                tFind = Left(myAr(i), 10)
                tReplace = Right(tFind, 2) & "." & Mid(tFind, 6, 2) & "." & Left(tFind, 4)
                ' заменяем
                res = Replace(res, tFind, tReplace, 1, 1)
     Next i
     'Выводим результат
     If Len(Stroka) = 0 Then
          Platezh = ""
     Else
          Platezh = res
     End If
                 
End Function

Dim n As Integer, i As Integer
 
For i = 1 To 10
n = n + 2
Next
MsgBox n
End Sub

Private Sub CommandButton1_Click()
Dim n As Single, i As Integer, r As Single
Cells(1, 2) = "i"
Cells(1, 3) = "r"
Cells(1, 4) = "n"
i = 1: r = 1
Do While r > 0.001
r = 1 / i
n = n + r
Cells(i + 1, 2) = i
Cells(i + 1, 3) = r
Cells(i + 1, 4) = n
i = i + 1
Loop
End Sub

Private Sub CommandButton1_Click()
'прога заполняет табл последовательно
'для последующих вводов нужно нажать кнопку и таблица продолжит заполняться
'
'
 
Dim i As Integer, n As Integer, k As String, w As Single
Cells(1, 1) = "№ п.п"
Cells(1, 2) = "Сумма заказа"
Cells(i + 1, 3) = "Коммисия"
n = Val(InputBox("Введите количество заказов"))
k = Cells(2, 1)
If k = "" Then
m = 1
Else
Do While k <> ""
 
k = Cells(m + 2, 1)
m = m + 1
Loop
End If
For i = m To n + m - 1
Cells(i + 1, 1) = i
w = Val(InputBox("Введите сумму заказа"))
Cells(i + 1, 2) = w
Cells(i + 1, 3) = w * 0.1
Next
 
End Sub

Private Sub CommandButton1_Click()
Dim r As Range, i As Integer, y As Integer, x As Integer
Cells(2, 2) = "X"
Cells(2, 3) = "Y"
 
x = -10
For i = 1 To 21
Cells(i + 2, 2) = x
Cells(i + 2, 3) = kv(x)
x = x + 1
Next
End Sub
Function kv(x)
If x < -5 Then
kv = x
ElseIf x >= -5 And x <= 5 Then
kv = x * x
Else
kv = x * x * x
End If
 
End Function

Private Sub CommandButton1_Click()
 
Dim r As String, i As Integer, y As Integer, x As Long
Cells(2, 2) = "Сумма заказа, руб"
Cells(2, 3) = "Комиссионные, %"
i = 1
r = Cells(2, 2)
Do While r <> ""
 r = Cells(i + 2, 2)
i = i + 1
Loop
x = Val(InputBox("Введите сумму заказа в рублях"))
Cells(i + 1, 2) = x
Cells(i + 1, 3) = wr(x)
 
 
End Sub
Function wr(x)
If x < 10000 Then
wr = x * 0.1
ElseIf x > 9999 And x < 20000 Then
wr = x * 0.2
ElseIf x > 19999 And x < 30000 Then
wr = x * 0.3
Else
wr = x * 0.4
End If
 
End Function

Private Sub CommandButton1_Click()
 
Dim r As String, i As Integer, y As Integer, x As Long
Cells(2, 2) = "Сумма кредита, руб"
Cells(2, 3) = "Комиссионные, %"
i = 1
r = Cells(2, 2)
Do While r <> ""
 r = Cells(i + 2, 2)
i = i + 1
Loop
x = Val(InputBox("Введите сумму кредита в рублях"))
y = Val(InputBox("На сколько лет"))
Cells(i + 1, 2) = x
Cells(i + 1, 3) = wr(x, y)
 
End Sub
Function wr(x, y)
 
If x < 10000 And y < 0.5 Then
wr = x * 0.15
ElseIf x > 9999 And x < 20000 And y < 1 Then
wr = x * 0.12
ElseIf x > 19999 And x < 30000 And y < 2 Then
wr = x * 0.1
Else
wr = x * 0.08
End If
 
End Function