Перейти к публикации
  • Сейчас на странице   Всего пользователей: 0   (0 пользователей, 0 гостей)

McDeath

Так животные нужна помощь.

Рекомендованные сообщения

=SEARCH(" ";string;0)

нет

idi excel uchi, wmara

нет

Поделиться сообщением


Ссылка на сообщение

Sub Avtor_mudakdak()
Dim s As String
Dim i, j As Integer
j = 0
s = Sheets(1).Cells(1, 1).Value
For i = 1 To Len(s)
    If Mid(s, i, 1) = " " Then
        j = j + 1
Dim s As String
Dim i, j As Integer
j = 0
s = Sheets(1).Cells(1, 1).Value
For i = 1 To Len(s)
    If Mid(s, i, 1) = " " Then
        j = j + 1
    End If
Next 
Sheets(1).Cells(2, 1).Value = "probelov = " & j
End Sub

Хахаххаах

Поделиться сообщением


Ссылка на сообщение

×
×
  • Создать...