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

[McDeath]

Так народ, ИЗ ТЕХ КТО ШАРИТ В ЭКСЕЛЕ, скажите как посчитать количество пробелов в ячейке?

[XpoHuK]

=SEARCH(" ";string;0)

[bad]

alt+f4

[Суповский]

alt+f4

ЖВ

[SOSKI-_-KROTA]

надо ж блядь было додуматься создать в творчестве

[KpbIcoboi]

миссклик  :NYdunno:

[GothicDumka]

Ну раз ты так вежливо просишь... :NYdunno:

 

:NYdunno:

 

[Stenateksta]

=SEARCH(" ";string;0)

нет

[Ramil]

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

[fallen|]

мудакдак

[Ho11ow]

)))))))))))))))))))))))))))))))))

[X-985]

:NYlol:

[6ecnpegeJI]

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

хахахахахаха гж :NYlol:

[13GbPorNo]

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

хахахахахаха гж :NYlol:

 

Да идите вы нахуй, со своим специфическим юмором  :NYrickroll:

[Ksarik]

зкшлщдэтшн ыгио

[AoEEuL]

соси

[ch3x]

соси

самый адекватный ответ в теме  :NY^^:

[Ramil]

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

хахахахахаха гж :NYlol:

 

Да идите вы нахуй, со своим специфическим юмором  :NYrickroll:

avtor_mudakdak очень весьма специфичный юмор, да.

[xDDDx]

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

Basic

:NYavtorklif:

 

[Ramil]

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

Basic

:NYavtorklif:

 

Да я хотел на c# сделать, но почему-то в экселе его не оказалось.